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PREREQUISITES 

2.1 ■ PROGRAM REQUIREMENTS. 

THE EXCLUSIVE CPU FLAG IS ON IN ALL SECTIONS. 

DM MUST HAVE A FOUR BYTE UDT ENTRY, ONLY THE FIRST TWO BYTES ARE SHOWN 
BELOW. THE NEXT TWO BYTES MUST CONTAIN THE CHANNEL ! AND UNIT ADDRESS* 



PURPOSE 
1*1 INTENT. 



I UNIT TYPE 



F810 



F8H 



FB12 



READER FUNCTION 1 
TESTS ABILITY TO... 

1. ADDRESS THE DEVICE UNDER TEST* 

2. ISSUE SENSE START I-G* 

3. PROPERLY SET ALL CONDITION CODES. 

4. CLEAR INTERRUPTS WITH TEST 1-0 AND BY ENABLING 
THE SYSTEM MASK* 

5. PROPERLY STORE THE CSW ICHANNEL STATUS WORD I* 

6. PROPERLY SET AND SUPPRESS THE INCORRECT LENGTH i 
INDICATOR. 

7* BREAK COMMAND CHAINING WITH UNUSUAL COMMAND SEQUENCE. 

8. REJECT ALL INVALID COMMANDS ISSUED TO THE DEVICE* 

9. ISSUE THEI-0 INSTRUCTIONS SIO, TIO, AND HIO 

WHILE THE DEVICE AND CHANNEL ARE IN VARIOUS STATES OF < 
PENDING OR STACKED STATUS. 

10. ISSUE 1-0 INSTRUCTIONS TO A NOT READY DEVICE. 

11. ISSUE 1-0 INSTRUCTIONS TO AN OFF LINE DEVICE. 
, 12. TEST END OF FILE. 

* MANUAL i INTERVENTION ROUTINES,; UNDER CONTROL OF SENSE 
SWITCHES 5 AND 8. 

READER FUNCTION 2 
TESTS ABILITY TO... 

1. ISSUE DIAGNOSTIC WRITE TO THE PUNCH ASSOCIATED WITH 
THE TEST READER UNDER VARIOUS CONDITIONS. 

2. DEVELOP DATA CHECK IN THE READER SENSE BYTE BY 
FILLING THE READ BUFFER WITH COLUMN BINARY DATA 
WITH THE DIAGNOSTIC WRITE COMMAND. 

3. ISSUE VALID COMMANDS TO THE READER. 

4. COMMAND CHAIN AND DATA CHAIN COMMANDS. 

5. BREAK COMMAND CHAINING AND DATA CHAINING WITH 
WRONG LENGTH RECORD. 

6. ISSUE 1400 COMPATIBILITY COMMANDS WHICH ACTIVATE 
THE PROVISIONAL FEED HARDWARE IN THE READER. 

READER FUNCTION 3 
TESTS ABILITY TO... 

1. READ ALL VALID EBCDIC CHARACTERS AND INDICATE 
ANY ERRORS. 

ALSO ALLOWS. • • 

2. PUNCHING THE DATA CARDS NEEDED IN iTHE READ ROUTINE. 
UNDER CONTROL OF SENSE SWITCH 9. 




I OPTIONAL FEATURE DIGIT 1 I 
I I 
I I 



ZZ I BIT 0 I BIT I (BIT 2 
1HEX 8 I HEX 4 I HEX 2 
| --^^ | | 

81 I ICARD : I 

I I IMAGE I 

I I ! 



OPTIONAL FEATURE DIGIT 2 



S BIT 3 |BIT 4 IBIT 5 (BIT 6 |BIT 7 I 

I HEX I | HEX 8 IHEX 4 |HEX 2 {HEX 11 

151 COL 1 1400 I I 12 CHNLl 

I FEAT. | FEAT* I I I SW ON 1 

I I II 12821 | 



•TEST DEVICE CAN BE LOADER-. 



THIS IS 



NOTE* THIS PROGRAM [ISSUES DIAGNOSTIC WRITE COMMANDS TO TEST THE READER 
CIRCUITRY. THIS REQUIRES A 2540 PUNCH (UNIT TYPE 82) 4 BYTE UDT 
ENTRY TO PROVIDE THE PUNCH ADDRESS FOR THE DIAGNOSTIC WRITE 
COMMAND. 

NOTE* WHEN MORE THAN ONE READER/PUNCH IS PRESENT, DM UDT ENTRIES FOR 
THE COMBINATIONS .MUST NOT BE MIXED. FOR EXAMPLE* ENTER 
READER 1 7 PUNCH 1, THEN READER 2 / PUNCH 2* 

2*2 EQUIPMENT REQUIREMENTS* 

INPUT DEVICE FOR LOADING PROGRAM 
OUTPUT -DEVICE. 
4K OF STORAGE 
CPU 

CHANNEL 
USE PROCEDURE 
3.1 . PROGRAM LOADING* ) 

STANDARD i AS DESCRIBED IN USERS GUIDE. 
3*2 PROGRAM OPERATE* 

**************************** NOTE ft**************************** , 

* IF 2 CHANNEL SWITCH FEATURE IS INSTALLED, DISABLE THE * 

* UNUSED INTERFACE TO PREVENT NOT READY TO READY STATUS * 

* FROM BEING PRESENTED TO THE OTHER CHANNEL* * 

*************************************************************** . 

IF EQUIPMENT OR DATA CHECK TROUBLE IS EXPERIENCED WHILE RUNNING F8 10 OR 
F811, IT IS SUGGESTED THAT F812 BE RUN TO ANALYZE THE TROUBLE. 

A PSA RESTART EXECUTED WHILE THE PROGRAM IS OPERATING NORMALLY MAY 
CAUSE A MISLEADING HANG UP MESSAGE. THE HANG UP MESSAGE IS ONLY VALID 
WHEN A PSW RESTART IS INITIATED DURING A SYSTEM HANG UP CONDITION. 
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mm .-reader function h$t-i 



if mm than .'One 'mm^it defined. in the m uot, au: --routines ' • 

IN EACH SECTION 'WILL -BE ElE£«?gS .ON THE FIRST ^2940 ALLOCATED - 
BY DM BEFORE ANY TESTING OCCURS ON THE NEXT. 

3,2*1; RIPPLE READ -TEST ;(F8i2l : 

■ 2? DETAIL CARDS, CONTAINING A RIPPLE PATTERN OF ALL EBCDIC CHARACTERS, 
ARE RELEASED WITH F8i2* 

THE PROGRAM ASSUMES THAT DETAIL CARDS ARE IN THE READER,- IF -THE CARD = 
READER IS THE LOADER DEVICE* AND PROCEEDS WITH THE TEST* HOWEVER, IF 
THE CARD READER IS NOT ■• THE LOADER DEVICE? k MESSAGE IS ISSUED FOR THE 
OPERATOR TO PLACE DETAIL CARDS. IN THE READER -AND A HALT OCCURS* 

ADDITIONAL DETAIL CARDS MAY BE GENERATED VIA SECTION SENSE SWITCH 9* 

SENSE SWITCH 9 MUST BE ON AT ■ THE INITIAL EXECUTION OF F812. IF 

EXECUTION OF F812 HAS BEGUN, SET SENSE SWITCH 9 ON AND PERFORM A PSW RESTART® 

DUPLICATE SETS OF DETAIL CARDS MAY BE GENERATED VIA SECTION SENSE SWITCH 4* 

THERE ARE TWO WAYS OF READING DUPLICATE SETS OF DETAIL CARDS IN 
ROUTINE 2. NORMALLY ONE SET OF DETAIL CARDS IS USED® 

* 1. SECTION SENSE SWITCH 4 ON CAUSES THE ROUTINE TO LOOP* IN THIS LOOP, 
A READ NO FEED IC2J IS DONE, THE DATA IS TESTED, AND, THEN A FEED TO 
STACKER RI IS 'ISSUED* 
2. SECTION SENSE SWITCH 10 ON CAUSES A LOOP ON READ FEED AND -STACKER 
SELECT R1.I02U THE DATA. IS TESTED .AFTER EACH START- I/O* 

RESETTING THESE SWITCHES CAUSES A -NORMAL 'TERMINATION. 



3.2,2 SECTION SENSE SWITCHES 

THE SENSE SWITCHES 'SHOWN -BELOW ARE. IN -THE SENSE SWITCH BYTES OF THEIR 

RESPECTIVE SECTION PREFACES*. THE CHARACTER X REPRESENTS THE RELOCATION 

FACT3R CONTAINED . IN REGISTER 15 DURING RUN TIME* - THE SWITCH BITS ARE 
ZERO WHEN OFF, AMD ONE WHEN ON* ' 

. NOTE* RESETTING SENSE SWJTCH 0 OR 1 .AFTER LOOPING -MAV-. CAUSE -ERRORS IN 
THE NORMAL PROGRAM :RUN. 



I SENSE ! . 

SW. 1 FUNCTION 
NO* 1 

0 ! OFF-PROCEED 

1 ON— LOOP ON CURRENT I~0 COMMAND. 

1 : f OFF-PROCEED ; 

I ON— LOOP ON CURRENT SIO, TIO COMMAND* 

2 1 OFF-TEST -.SOTM READ DATA AND CHECK READ DATA* 

| ON— -BYPASS READ DATA TESTING* 

4 : f OFF-PROCEED : 

I ON—LOOP - ROUTINE CURRENTLY SEWS EKECWIEO# ; 



1 SECTION I BYTE 



§ OR 

I ROUTINE 

. I ALL < 

! 

§ ALL 
I 

I F8I2 ' 

I RTN 2 

I F812 



AND > 
BIT 

X004 

o • 

X004 
1 

X004 

2 

X004 
4 
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3^2*2 ' SECTION sSENSE SWITCHES (CONTINUED! 



1 - 5 « 


OFft-BYPASS MANUAL 1 1NTERVENTION ROUTINES* , 
ON-tr-PERFORM MANUAL . INTERVENTION ROUTINES* 


! F810 ' ! 


XQ04 

5 


1 7 


OFF-PROCEED 

ON— -PRINT CORRECT RESULTS*. 


I ALL 


X004 
7 


! ' 8 ' 


OFF-BYPASS OFF LINE TESTING 

ON— EXECUTE OFF LINE TEST «IF SSW 5 ALSO ON. 


1 F810 : 


X005 

o : 


S 9 


OFF-BYPASS PUNCHING 27 RIPPLE READ DATA CARDS. 
ON— PUNCH A SET OF 27 RIPPLE READ DATA CARDS. 


I F812 
I RTN 1 


X005 

1 


1 10 


OFF-PROCEED WITH RIPPLE READ TEST* 

ON— LOOP READ, FEED, STK SELECT Rl COMMAND. 


! F812 
1 RTN 2 


X005 

2 



3.3 PROGRAM HALTS 



F810 IF THE INTERVENTION TESTS ARE EXECUTED -ROUTINE 12-, 

HALTS OCCUR WHEN THE OPERATOR RECEIVES INSTRUCTIONS FROM 
THE PROGRAM. THE OPERATOR SHOULD CARRY OUT THE INSTRUCTIONS 
AND THEN INTERRUPT TO CONTINUE. 



F810 - THE FIRST ROUTINE ATTEMPTS A TEST 1-0 ON BOTH THE READER 
AND AND THE ASSOCIATED PUNCH* IF INTERVENTION REQUIRED IS 
F811 DETECTED, A MESSAGE IS ISSUED AND A HALT OCCURS TO ALLOW 
THE OPERATOR TO MAKE THE DEVICE READY* 



F812 > IF THE READER OR PUNCH GO NOT READY, 

A MESSAGE ANO A HALT WILL OCCUR TO ALLOW THE OPERATOR 
TO RECOVER* 



IF ROUTINE 02 IS EXECUTED AND THE TEST DEVICE IS NOT 
THE LOADER, A MESSAGE AND A HALT OCCUR TO ALLOW THE 
OPERATOR TO PLACE DETAIL CARDS INTO THE TEST DEVICE* 



IF SECTION SENSE SWITCH 4 IS TURNED ON IN ROUTINE 02, 
AND THE DEVICE BEING TESTED IS THE LOADER, A MESSAGE 
AND HALT OCCUR TO INFORM THE OPERATOR THAT ONLY DETAIL 
CARDS SHOULD BE USED IN THE TEST. THIS IS TO PREVENT 
FEEDING TEST DECKS. 
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4. PRINTOUTS 

4.1 ; OPERATOR INSTRUCTIONS 



AN SDO HEADER IS GIVEN WITH EVERY MESSAGE TO DEFINE THE, I-Q 
DEV ICE ADDRESS THAT IS ASSOCIATED WITH THE MESSAGE, 



F810 (CONTINUED) 



P810 



- DO NOPRO, PUT ABOUT ;30 BLNK CDS IN RDR, MAKE ROY, EOF ON. - 

THIS MESSAGE WILL OCCUR IF THE INTERVENTION ROUTINE IS EXECUTED AND 
THE TEST DEVICE IS NOT THE LOADER* 

- RTN BYPASSED - 

THE ABOVE MESSAGE WILL OCCUR WHEN A ROUTINE IS BYPASSED* 

ROUTINE 09 WILL BE BYPASSED IF SSW 7 IS ON. TESTS 0220 TO 0270 
ARE THE TEST NUMBERS BYPASSED IN THIS TEST, THIS IS 
DUE TO TIMING RESTRICTIONS. MISLEADING RESULTS WOULO 
OCCUR IF TIME WAS TAKEN BETWEEN TESTS TO PRINT THE 
CORRECT RESULTS. 

ROUTINE 12 WILL BE BYPASSED IF SECTION SENSE SWITCH 5 IS OFF. 

THE TEST NUMBERS ARE 0380 TO 0470 » HOWEVER, THE 
OFF LINE TESTS 0440 TO 0460 ARE NOT EXECUTED UNLESS 
SENSE SWITCH 8 IS ALSO ON. THESE TESTS ARE NORMALLY 
BYPASSED BECAUSE MUCH INTERVENTION IS REQUIRED. 

- MAKE DEVICE RDY— 

THE ABOVE MESSAGE WILL OCCUR IF THE READER OR PUNCH USED IN THE TEST < 
IS NOT READY, OR IF UNIT EXCEPTION IS DETECTED. PUT MORE CARDS IN 
THE DEVICE AND INTERRUPT TO CONTINUE. 

- MAKE READER NOT READY- 

THc ABOVE MESSAGE IS ISSUEO UPON ENTRANCE TO THE NOT READY 
TESTS IN THE INTERVENTION ROUTINE -RTN 12-. A HALT OCCURS TO 
ENABLE THE OPERATOR TO PERFORM THE INSTRUCTION. THE OPERATOR 
SHOULD INTERRUPT TO CONTINUE. 

- PUF READER OFF LINE-* 

THE ABOVE MESSAGE. IS ISSUED WHEN SECTION SENSE SWITCHES 5 AND 8 
ARE ON IN SECTION F810. THE OPERATOR CAN FOLLOW THE INSTRUCTIONS 
BY EITHER PUTTING THE READER OFF LINE WITH THE C. E. TEST BOX, OR 
BY TURNING OFF THE 2821 METER SWITCH. THE METER SWITCH SHOULD 
NOr BE USED IF THE OUTPUT DEVICE USED BY DM IS ALSO ATTACHED 
TO THE 2821 I CU; THE WORD -OFF- IS REPLACED WITH -ON- AND THE 
MESSAGE IS REPEATED AT THE END OF THE TEST, TO ENABLE THE 
OPERATOR TO RESTORE THE DEVICE TO READY. 



REMOVE BLNK COS FROM READER- 

.PUr REMAINING TEST DECKS INTO RDR HPR AND MAKE RDR RDY, EOF ON* • 

THE ABOVE MESSAGE IS ISSUED AT THE END OF iTHE INTERVENTION ROUTINE 
IF THE LOADER WAS THE DEVICE BEING TESTED. THE BLANK CARDS IN 
STACKER Rl ARE FROM THE END .OF FILE TEST -AND SHOULD BE REMOVED, 
TO PREVENT THEM FROM BEING MIXED IN WITH THE TEST DECKS. 

REMOVE CDS FROM iSTACKER OF LOADER OEVICE- 

REMOVE THE REMAINING TEST DECKS, IF ANY, FROM THE LOADER HPR- 
DO NOPRO AND PLACE CDS RUN OUT IN FRONT OF REMAINING TEST DECKS- 
SAVE REMAINING TEST DECKS UNTIL A MSG REQUESTS THEM !T0 BE PUT IN HPR- 

THE ABOVE MESSAGE^ IS ISSUED WHEN THE INTERVENTION ROUTINE IS TO BE 
EXECUTED ON THE LOADER DEVICE. IT PREVENTS THE READING OF TEST 
DECKS BY THE ROUTINE. 



F812 



- DO NOPRO, PUT 



BLNK CDS IN RDR, MAKE RDY, EOF ON - 



THE ABOVE MESSAGE IS ISSUED AT THE START OF THE END OF FILE 
TEST TO ALLOW. THE OPERATOR TO PREPARE THE DEVICE. 



- READ ERR- 

- CARD IN PRESTKR STA- 

EXPECTEO SHO BUF- 

- COL PUNCHES RD RD XU XL PAR ADR TRAN- 

THE ABOVE MESSAGES ARE ISSUED WHEN A READ ERROR IS DETECTED 
IN THE RIPPLE READ ROUTINE IN SECTION F812. THESE MESSAGES 
ARE ISSUED FOLLOWING THE MESSAGES LISTED IN THE 
SAMPLE PRINTOUT IN 4.2.1 OF THIS DESCRIPTION. THE READ ERRORS 
ARE INDICATED FOR EACH COLUMN FOLLOWING THIS HEADING. AN 
EXPLANATION OF THE ABBREVIATIONS IN THIS HEADING FOLLOWS THE 
SAMPLE PRINTOUT EXPLANATION IN 4.2.3 OF THIS DESCRIPTION. 

- 2 01 AG CHK RDS ATTEMPTED -BOTH FAILED- 

THIS MESSAGE IS ISSUED BY THE COMMON START 1-0 ROUTINE WHEN 
A *EAD ERROR IS DETECTED IN THE RIPPLE READ ROUTINE OF SECTION 
F812, AND THE TWO DIAGNOSTIC CHECK READ START 1-0 INSTRUCTIONS 
ARE NOT ABLE TO BE ACCEPTED. THE CHECK READ DATA IS NOT INDICATED 
IF THIS CONDITION OCCURS. 

-DO NPROrPLACE DETAIL CDS IN RDR. HPR, MAKE RDY, EOF ON- 

THE ABOVE MESSAGE IS ISSUED WHEN EXECUTING THE RIPPLE REAO TEST » 
ON A 2540 READER THAT IS NOT USED AS THE LOADER. THIS ALLOWS THE 
OPERATOR TO PLACE A SET OF RIPPLE READ CARDS INTO THE TEST DEVICE. 

- SEr SSW 9 ON, DO PSW RESTART IF SET OF DETAIL CDS DESIRED - 

THE ABOVE MESSAGE IS GIVEN AS AN AID TO THE OPERATOR IF A SET OF 
DETAIL CARDS IS NOT AVAILABLE. 

- LOOPING LOADER- KEEP ONLY DETAIL CDS IN RDR- 

THE ABOVE MESSAGE IS ISSUED WHEN THE LOOP ROUTINE SENSE SWITCH 
-SECTION SENSE SWITCH 4- IS ON, AND THE LOADER IS THE TEST DEVICE. 
THE OPERATOR SHOULD BE AWARE OF THE POSSIBILITY OF FEEDING THE 
TEST DECKS THAT ARE STILL IN THE READER HOPPER. 
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4*2 STATUS MESSAGES 

4*2*1, SAMPLE CORRECT PRINTOUT 



1IN3 




MESSAGE " • ' 


01 




soo p8ior'-ob - ooissc-'Ooc^ ; 


02 




TST 0370- 


03 




;A0R 0018A4 ?LINK<* « 


04 




.•ADR 001182- $10- : 


05 




■ CAW -0018B8~ : . ' 


06 " * 




CCW 02001831 8OOOSO20-? . 






CCW 00001831 00000030-4 : - 


07 




CC 0 EXP- 


OS 




XC 0 ACT- : 


09 f 




XSW.00001BC8 <0ffg00Q01 - : SKP- I •■' 


io ; 




CSW -0OOOI8C8 08000001 ACT*-:' 


ii . . 




-CSW 00000000 0^000000 EXP- 


12 




XSW -00000000 '04000000 ; ACT«* . 


13 - - 




SNS 00 EXP^ , 


14 




SHS 09 .ACT- ; 


15 




:-LOG ;00 '000000 :000000 :OOOOO0* ."- ' 


'16 . 




,SET-<5S O ON'FOR 'tOOPfON-'S-l'Of : SS I :0N Wlft T1Q <SIO ULOOP* 



4.2.2 ANALYSIS OF SAMPLE PRINTOUT : 



L1M£ , 
01 



oa 



.04; 

05 



EXPLANATION 

THIS IS THE HEAOER-LINgi PRINTB-D'^V^ON^ :"tF ''*!•. (ASTERISK'-"" 

PRECEDES THE -SOO-'-.AN : ERROR : MA$rCAUSED-iTH£ MESSAGE' < 
PRINTOUT** IF NO .ASTERISK: IS PRINTED* THE MESSAGg 
I5-A RESULT Of EITHER HAVING THE. XORRECf ^PRINTOUT > 
SWITCH ON OR AN OPERATOR MESSAGE,' I S : "T0 FOLLOW* ~ 
ALL 'LINES THAT -FOLLOW .THE: -SDO- ARE PART OF (THAT* SAME « 
- MESSAGE* THE START OF, A 'NEW MESSAGE IS 'INOI'CATEO 
BY 4 A N OTH E R — S DO- .PRINTOUT. THE - : -FB10R~ ; IS. THE .SECTION - 
I'D -NUMBER'- -WHERE ~R«*-,'R£PR£SgNTS THE REVISION ■ LEVEL -OF 
■THE PROGRAM® THE -08- IS THE PROGRAM .'ROUTINE' NUMBER ■■" 
.WHILE ""-THE -OOC-.IS THE, ADDRESS OF THE DEVICE UNDER TEST. 

THIS IS THE TEST 'NitttBER. ASSOCIATED WITH THE MESSAGE* ' LATTHE > 
* BEGINNING- OF THE PROGRAM LISTING* ■ THERE IS A LIST OF TEST < 
-NUMBERS. ■ WITH THE TEST NUMBER IS .A SHORT EXPLANATION '.OF ■ 

WHAT WAS BEING DONE* AND WHAT SHOULD OCCUR* ' " 

THIS LINE SHOWS THE ADDRESS FROM i WHICH THE- IH3 -HANDLER 1 
'SUB-ROUTINE WAS ENTERED*. ALL ' 1-0 XOMMANDS "ARE ISSUED i 

FROM, THIS SUB-ROUTINE* SO IT IS ENTERED mm TIMES FROM 
•MANY PLACES* . TQ' INSURE THE .SPECIFIC 1-0 OPERATION YOU 

WANT TO LOOK '.AT WILL BE THE NEXT ONE PERFORMED* YOU SHOULD 

RESTART,' THE"' PROGRAM WITH A -SYSTEM RESET, PSW RESTART, AND = 
'"ADDRESS' STOP . AT .THE, GIVEN' ADDRESS. _ 4. 

TM*t*INr"$H0WS TWt 'I&OrBsS Tdf'tHE START 1-0* TEST J-0, 
OR HALT 1-0 THAT WAS ISSUED * IN THE 1-0 HANDLER SUB-ROUTINE* 

THIS LINE SHOWS THE ADDRESS OF THE CCW "TO BE ISSUED BY 
A START T-Q COMMAND* IF XCWS ARE CHAINED* THE ADDRESS 
GIVEN REFERS TO THE FIRST XCW -IN THE CHAIN* 



06 



07 J 



08 < 



09 



i© ; 



it 

12 - 

13 - 

14 \ 
15 

16 



STOR*GE» WHICH UILU BE ""oj^AT*™^ . 

r^^A^^ou^ 

BYTE ADDITIONAL^CCWS WILL BE SHOWN BELOW THIS LINE. 
THIS \IME SHOWS THE CONDITION CODE EXPECTED* BY THE 
PROGRAHif IN RESPONSE TO ISSUING THE I— 0 COMMAND* 
THIS LINE SHOWS THE ACTUAL ^CONDITION CODE SET IN RESPONSE 
TO THE I -0 COMMAND. 

Tui< i IMS DISPLAYS THE FIRST CSW EXPECTED BY THE PROGRAM. * 
I Bl j BY BIT DESCRIPTION OP THE DEVICE STATUS 8YTE_P0RTI0N 

OF THE CSW APPEARS IN THE PROGRAM LISTING FOLLOWING 
THE TEST NUMBER DESCRIPTIONS. 

THIS LINE DISPLAYS THE ^T^eSH MM^W^*^^^ <M .A CORRESPONDING 
NOTE. FOR EVERY EXPECTED IEXP). CSW ny THF MEXT LINE. THE ABSENCE OF A IACTI CSW 

^^oui A ,ND,ci^r^ Ri^^^sgi-jeK^s.*"? "•»« t ! e » 

THERE ARE (ACT) CSW PRINTOUTS WHERE THERE ARE NONE EXPECTED. 
THIS LINE -WILL APPEAR IF THE PROGRAM EXPECTS MORE THAN ONE CSW. 
THIS LINE WILL APPEAR JF THE PROGRAM RECEIVED A SECOND CSW. . 

' . THIS ClHB SHflW TH6 S6H$6 BYTE CXMCTWAV "W| ■PMWJ"- 
BIT DESCRIPTION OF THE 2540 SENSE BYTE APPEARS 
*N THE PROGRAM LIST INGi AFTER THE TEST NUMBER DESCRIPTIONS. 

THIS LINE SHOWS THE ACTUAL SENSE BYTE RECEIVED BY THE PROGRAM. 
M0DEL L 1^ 

k HAIT WOULD NOW OCCUR* TO ALLOW SETTING OF THE SECTION 
t FMSE SW I T CHES* TO INSURE THAT LOOPING OCCURS ON THE 
COMMAND THAT i F A 1 1 E 0 » T HE . OPERATOR SHOULD HAVE THE DM 
" SENSE SWITCH ON THAT ENABLES HALTING WH^N AN ERROR 
nrCURS • SFT THE PROPER SECTION SENSE SWITCH ON* • 
' ANO PRESS t^E EXTERNAL u INTERRUPT KEY TO, .EXECUTE. - 
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4.2*1 SAMPLE Of! CARD READ ERROR PRINTOUT OF SECTION P8li* 

THE FOLLOWING MESSAGE IS GIVEN IN SECTION F812 ROUTINE 2, WHEN 
A READ ERROR IS DETECTED. THIS DATA IS PRINTED IMMEDIATELY 
BEFORE LINE 16 OF A MESSAGE TYPE OF THE SAME FORMAT AS DESCRIBED 
IN 4.2.1 OF THIS DESCRIPTION* 

LINB MESSAGE 
pt - READ ERR 
02 « CARD IN PRESTKR ST A 

01 - EXPECTED SHD SUP 

04 i - COL PUNCHES RO < RD XU XL PAR ADR TRAN 

0$ - OT 689 3E 3E 0 10 0 0 

06, - 10 T019 41 41 0 1 0 0 0 

OT • - 22 T58 40 4D 0 1 0 0 0 

Oft - 53 068 6E 6E 0 1 0 0 0 

4*2*4 ANALYSIS OF CARD READ ERROR PRINTOUT OF SECTION PA 12* 

LINS EXPLANATION 
01 THIS MESSAGE. INDICATES THAT A READ ERROR OCCURRED* 

IT MAY BE DUE TO NORMAL READ DATA, DIAGNOSTIC CHECK 

READ INFORMATION, OR BOTH. 
01 THIS MESSAGE TELLS WHERE THE CARD IN ERROR IS LOCATED* 

IF LOOPING WITH SENSE SNITCH 10 PRESTKR ST A NAY READ 

STACKER Rl. 

01 THIS IS THE FIRST PART OF THE HEADER WHICH IS USED 

TO EXPLAIN THE DATA OF LINES 09 THRU 08. THIS 
HEADER IS READ VERTICALLY WITH RESPECT TO LINE 04* 

04! THIS IS THE SECOND LINE OF THE DATA HEADER* AN 

EXPLANATION OF THE HEADER ABBREVIATIONS OF LINES OS 
AND 04 IS AS FOLLOWS- 



4.'2*S PSW RESTART AFTER I/O HANG UP 
- PREVIOUS HANG UP DETECTED- 

THE ABOVE MESSAGE MILL APPEAR IF A SYSTEM RESET PSW RESTART IS 
PERFORMED .AFTER A HANG UP CONDITION ON AN 1-0 COMMAND* FOLLOWING 
THIS LINE WILL BE A PRINTOUT SIMILAR TO THE ABOVE SAMPLE MESSAGE: IN 
4.2.1. 

4.2.6 UNEXPECTED I/O INTERRUPT MESSAGE IF810 THRU F812I. 



♦SDO FB103 02 001254 XXX 
un FROM DEVICE XXXX 
CSW 00000000 04000000 ACT 
LOS 00 000000 000000 000000 



EXAMPLE SHOWS F810 AT REVISION LEVEL 3. „„^ ttt%r 
WHERE XXXX IS THE DEVICE ADDRESS OF THE INTERRUPT. 

CPU AND CHANNEL LOG OUT I MODEL 30 ONLY} 



§• COMMENTS 
$.1 LOOPING 



IN SOME CASES* IT NAY BE DESIRED TO LOOP ON AN €»TI RE ROUTINE 
RATHER THAN USE THE SECTION SENSE SWITCH LOOPS PROVIDED. ONE 
METHOD OF DOING THIS IS TO MANUALLY ENTER THE NUMBER OF THE ROUTINE 
IN X^4C* WHERE X STANDS FOR THE 4K BLOCK RELOCATION ADDRESS* 
THEN PERFORM A SYSTEM RESET^PSN HESTARTt AND THE PROGRAM WILL 
LOOP ON THE ROUTINE* 

SENSE SWITCHES NAY BE SET BY MANUALLY ENTERING THE DESIRED BITS* 



COL 

EXPECTED 
PUNCHES 

SHD 
RD 

RD 
XU 



XL* 
PAR 



BUF 
ADR 



TRAN 



- THIS TELLS WHAT CAAO COLUMN HAD AN ERROR* 



THIS TELLS WHAT THE EXPECTED CARD PUNCHES 
WERE FOR THE DATA IN THE SHD RD COLUMN* 

THIS IS THE EXPECTED HEX DATA. 

THIS IS THE HEX BYTE WHICH WAS READ FROM 
THE READER FOR THE INDICATED COLUMN* 

THIS IS A BIT IN THE DIAGNOSTIC CHECK RD 
BYTE FOR THE INDICATED COLUMN THAT WILL BE 
A 1 OR A 0* IF 1, IT INDICATES THAT THE X 
UPPER CHECK PLANE WAS LEFT ON* 

THIS IS THE X LOWER CHECK BIT* IF IN ERROR 
IT WILL BE A I* IF NOT IT WILL BE 0* 

THIS IS A BIT INDICATING A BUFFER PARITY 
CHECK WHEN 1* 



THIS IS A BIT INDICATING A READ BUFFER 
ADDRESS CHECK WHIN 1* 

THIS IS A BIT INDICATING A READER TRANSLATE 
CHECK WHEN U 
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♦♦♦♦♦^♦♦♦♦♦*******#»*****»«********************^****^^************** 

* I 

* MODIFICATIONS „ 

♦REVISION LEVEL 3. THIS REVISION DIFFERS FROM VERSION 2 AS FOLLOWS..* 

THE PROGRAM HAS BEEN MODIFIED TO INCLUDE TEST NUMBERS. ♦ 

2. INCREASED TESTING OF THE INTERFACE IS INCLUDED. * 

3. ALL ERROR MESSAGES HAVE BEEN ORGANIZED INTO A COMMON FORMAT * 
TO ENABLE A CLEAR DEFINITION OF CONDITIONS AT THE TIME OF * 
ERROR DETECTION. * 

4. TESTING THE HALT 1-0 INSTRUCTION HAS BEEN ADDED. * 

5. INVALID COMMAND TESTING HAS BEEN EXPANDED. * 

6. TESTING PREVIOUSLY REQUIRING MUCH OPERATOR INTERVENTION, * 
SUCH AS NOT READY. ETC., WILL NOT BE EXECUTED UNLESS * 

7. OFF-LINE ^ TE S TING HAS*BEEN ADDED AND IS EXECUTED ONLY IF * 
SENSE SWITCHES 5 AND 8 ARE ON. * 



* 

* E.C. PREREQUISITES 

* MACHINE ... NONE 

* PROGRAM ... NONE 



OR LATER. 



001000 



* USE DESCRIPTION F810* AT EC 130498, DATED 15 JUN 67 ^ 

XF8103 START 4096 
USING *tl5 



******************************************* 

♦ TEST NUMBER DESCRIPTION 

****************************************** 

********************************************** 

TEST DESCRIPTION 



* . 

* 0010 

* .. 
♦ 

, * ♦ 
* 



«♦******«♦♦*** 

« ROUTINE 01 

************** 

OPERATION ATTEMPTED 

A TEST 1-0 IS ISSUED TO A REAOY JEST DEVICE. 
EXPECTED RESPONSE 
EXPECT COND. CODE 0 
POSSIBLE FAILURE CAUSES 

1. CONDITION CODE 2 INDICATES THE CHANNEL APPEARS TO BE BUSY. 

2. CONDITION CODE 3 INDICATES THERE IS NO DEVICE FOR THE 
ADDRESS USED. THE DM UDT ENTRY COULD BE IN ERROR, THE 
DEVICE MAY BE OFF LINE, OR IF THE 2821 TWO CHANNEL SWITCH 
FEATURE IS INSTALLED, THE PARTITIONING SWITCH FOR THIS 
INTERFACE MAY BE DISABLED. t4irncrTcn _ n 

3. IF CONDITION CODE 1 IS SET, THE CSW MUST BE ASPECT EDJO 
DETERMINE THE CAUSE. UNIT CHECK MIGHT BE DUE TO NOT READY 
DEVICE. CHANNEL OR DEVICE ENO INDICATES THAT AN INTERRUPT 
WAS PENDING IN THE CHANNEL. DEVICE OR CONTROL UNIT BUSY 
COULD INDICATE DEVICE OR CONTROL UNIT IS RESERVED TO JHE 
OTHER INTERFACE, IF THE 2 CHANNEL SWITCH FEATURE IS PRESENT 
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* 0020 

* ■ 

* 

* . 

* 

4i . 
* 

4i . 
* 

* 

* . 

4> . 

* 0030 

* . 

4> 
* 
* 

* . 
* 
* 
* 

* . 
* 

4« - 
4t 

* . 

* - 

* 0040 

* , 

* , 
■ * . 

4> 

* . 
* 

* . 

* . 

* 0050. 
* 

4( . 
* 

* . 

* , 

* - 

- * . 

* . 



- OPERATION ATTEMPTED 

A TEST 1-0 IS ISSUED TO THE PUNCH THAT IS HOUSED IN 
THE SAME PHYSICAL BOX AS THE TEST READER. 
-THIS MUST BE DONE BECAUSE THE PUNCH IS USED TO ISSUE 
DIAGNOSTIC WRITE COMMANDS DURING THE TEST- DIAGNOSTIC 
WRITE TO THE READER MUST BE ISSUED TO THE PUNCH. 

EXPECTED RESPONSE 

EXPECT COND. CODE 0 

POSSIBLE FAILURE CAUSES 

REFER TO POSSIBLE FAILURE CAUSES GIVEN FOR TEST 0010. 



************** 

ROUTINE 02 
************** 

- OPERATION ATTEMPTED 

A SENSE START 1*0 IS ISSUED TO READY DEVICE. 
EXPECTED RESPONSE 

EXPECT CONO. CODE 0 I COMMAND ACCEPTED! 
POSSIBLE FAILURE CAUSES 

1. CONDITION CODE 2 COULO BE DUE TO A PENDING CHANNEL END, OR 
A BUSY CHANNEL. 

2. IF CONDITION CODE 1 WAS SET, THE CSW MUST BE INSPECTED TO 
DETERMINE THE CAUSE. DEVICE END WITH DEVICE BUSY INDICATES 
A DEVICE END WAS PENDING IN THE DEVICE. 

- OPERATION ATTEMPTED 

A TEST I-Q TO PENDING CHANNEL AND DEVICE END FROM PREVIOUS 
SENSE IS ISSUED. 

EXPECTED RESPONSE 

EXPECT COND. CODE 1 AND CHANNEL END DEVICE END BOTH IN THE CSW 
FROM THE PREVIOUS SENSE I/O COMMAND. 

POSSIBLE FAILURE CAUSES 

1. CONDITION CODE 2 INDICATES THE CHANNEL IS BUSY. 

2. FAILURE TO RECEIVE CHANNEL AND DEVICE END COULD INDICATE 
THE DEVICE FAILED TO PRESENT ENDING STATUS. 

- OPERATION ATTEMPTED 
ANOTHER TIO IS GIVEN. 
EXPECTED RESPONSE 

EXPECT COND. CODE 0. DEVICE SHOULD BE CLEAR OF PENDING 
INTERRUPTS. 

POSSIBLE FAILURE CAUSES 

1. CONDITION CODE 1 WITH UNIT CHECK IN THE CSW COULD INDICATE 
A NOT READY DEVICE. CHANNEL OR DEVICE END INDICATES THE 
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2540 REAPER FUNCTION TESTS v SECTION I F810 



* PREVIOUS TIO FAILED TO CLEAR THEN* 
* 

* ************** 

* ROUTINE 03 

* ************** 

. * . • 

* 0080 * OPERATION ATTEMPTED 

* . 

* A SENSE START 1-0 IS ISSUED AND THE SYSTEN ENABLED FOR 1-0 

* INTERRUPTS. 

* . 

* EXPECTED RESPONSE 

* . 

* EXPECT CHANNEL END DEVICE END TOGETHER* 
* 

* POSSIBLE FAILURE CAUSES 

* . 

* U FAILURE TO RECEIVE CHANNEL AND DEVICE END INDICATES THAT 

* ENABLING THE CHANNEL FOR 1-0 INTERRUPTS FAILED TO BRING IN 

* THE DEVICE STATUS* 

* 0070 - OPERATION ATTEMPTED 
* 

* TEST 1-0 IS ISSUED. 

* 

* EXPECTED RESPONSE 
* 

* EXPECT COND. CODE 0. DEVICE SHOULD BE CLEAR OF PENDING 

* INTERRUPTS. 
* 

* ************** 

* ROUTINE 04 

* ************** 

* 

* 0080 ~ OPERATION ATTEMPTED 
* 

* A NOP SIO IS ISSUED TO READY DEVICE. 
* 

* EXPECTED RESPONSE 

* ''. 

* EXPECT COND. CODE 1 WITH CHANNEL END DEVICE END STORED IN 

* THE CSW. NO INTERRUPT SHOULD OCCUR. 

* . 

* ************** 

* ROUTINE 05 

* ************** 

* 0090 * OPERATION ATTEMPTED 

* A DIAGNOSTIC READ IS ISSUED WITH COUNT OF 79. 
* 

* EXPECTED RESPONSE 
* 

* CONDITION CODE 0 SHOULD BE SET ON THE START I-C. WHEN THE 

* CCW COUNT IS EXAUSTEDt THE OEVICE SHOULD TRY TO SEND ANOTHER 

* BYTE. THIS SHOULD CAUSE THE INCORRECT LENGTH RECORD BIT TO BE 

* ON IN THE CHANNEL STATUS BYTE OF THE CSW STORED AT CHANNEL 

* AND DEVICE END TIME. 

* • 

* 0100 ~ OPERATION ATTEMPTED 
♦ 

* A DIAGNOSTIC READ IS ISSUED WITH COUNT OF 81. 

* EXPECTED RESPONSE 

* , 

* ; CONDITION CODE 0 SHOULD BE SET ON THE START I~C. WHEN THE 
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• DEVICE HAS SENT ALL ITS DATA t THE CCW COUNT IS NOT EXAUSTED. 

♦ THIS SHOULD CAUSE THE INCORRECT LENGTH RECORD BIT TO BE SET ON 

* IN THE CHANNEL STATUS BYTE OF THE CSW STORED AT CHANNEL AND 

* DEVICE END TIME. AND A RESIDUAL COUNT OF ONE. 
* 



* 

* 0110 - OPERATION ATTEMPTED 



* 

* A DIAGNOSTIC WRITE IS ISSUED WITH A CCW COUNT LESS THAN THE 

* NORMAL DEVICE RECORD LENGTH. 
* 

* EXPECTED RESPONSE 

* . 

* CONDITION CODE 0 SHOULD BE SET ON THE START 1-0. WHEN THE 

* CCW COUNT IS EXAUSTED , THE DEVICE SHOULD REQUEST ANOTHER BYTE. 

* THIS SHOULD CAUSE THE INCORRECT LENGTH RECORO BIT TO BE SET 

* ON IN THE CHANNEL STATUS BYTE OF THE CSW STORED AT CHANNEL 

* AND DEVICE END TIME. 

* . 

* WHEN ISSUING A DIAGNOSTIC WRITE COMMAND TO A 2540 READER* THE 

* CCW MUST BE ADDRESSED TO THE ASSOCIATED 2540 PUNCH. 

* BECAUSE THE DIAGNOSTIC WRITE COMMAND UTILIZES THE CARD IMAGE 

* (COLUMN BINARY) CIRCUITRY, 160 BYTES MUST EE TRANSFERRED TO 

* FILL THE 80 POSITION READ BUFFER. THE CARD IMAGE FEATURE 

* DOES NOT HAVE TO BE INSTALLED FOR DIAGNOSTIC WRITE TO WORK • 
* 



* 

* 0120 - OPERATION ATTEMPTED 

* . 

* A DIAGNOSTIC WRITE IS ISSUED WITH COUNT OF 161. 
* 

* EXPECTED RESPONSE 

* . 

* CONDITION CODE 0 SHOULD BE SET ON THE START 1-0. WHEN THE 

* OEVICE HAS RECIEVED ALL ITS OATA, THE CCW COUNT. IS NOT 

* EXAUSTED. THIS SHOULD CAUSE THE INCORRECT LENGTH RECORD BIT 

* TO BE SET ON IN THE CHANNEL STATUS BYTE OF THE CSW STORED AT 

* CHANNEL AND DEVICE ENO TIME* AND A RESIDUAL COUNT OF ONE. 
* 

* WHEN ISSUING A DIAGNOSTIC WRITE COMMAND TO A 2540 READER* THE 

* CCW MUST BE ADDRESSED TO THE ASSOCIATED 2540 PUNCH. 

* BECAUSE THE DIAGNOSTIC WRITE COMMAND UTILIZES THE CARD IMAGE 

* (COLUMN BINARY) CIRCUITRY, 160 BYTES MUST BE TRANSFERRED TO 

* FILL THE 80 POSITION READ BUFFER. THE CARD IMAGE FEATURE 

* DOES NOT HAVE TO BE INSTALLED FOR DIAGNOSTIC WRITE TO WORK. 
* 

* ************** 

* ROUTINE 06 

* ************** 

* . 

* 0130 - OPERATION ATTEMPTED 
* 

* A READ NO FEED COMMAND IS COMMAND CHAINED TO TWO MORE READ NO 
*■ FEED COMMANDS. THE SYSTEM IS ENABLED TO RECIEVE INTERRUPTS. 
* 

* EXPECTED RESPONSE 
* 

* COND. CODE 0 SHOULD BE SET ON THE START I~0. UNUSUAL COMMAND 

* SEQUENCE SENSE BIT SHOULD BE SET AT CHANNEL AND DEVICE END 

* TIME OF THE SECOND CCW IN THE CHAIN. THIS SHOULD BRING UP 

* UNIT CHECK AND BREAK THE CHAIN. THE CSW SHOULD CONTAIN THE 

* ADDRESS OF THE FIRST CCW +16. 

* 0140 - OPERATION ATTEMPTED 

* . 

* A NO OP COMMAND IS ISSUED. 

* . ■ 

* EXPECTED RESPONSE 
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* • 

* . 

* 0150 

* 
* 

* 

* 

* 
* 

4t . 
* 

* 0176 

* . 

4i . 

* ■ 

* r 
* 



COND. CODE 1 SHOULD BE SET ON THE START 1^0* THE CSH SHOULD 
CONTAIN CHANNEL AND DEVICE END ONLY* UNUSUAL COMMAND SEQUENCE 
SENSE BIT SHOULD REMAIN SET, BUT NO UNIT CHECK SHOULD RESULT. 



* 0180 
* 

* 
ft 
* 
ft 
* 
f> 
* 
* 

* . 
* 

* 019© 

ft . 

4c 
4i 
4> 

* . 
* 

* 

4> . 

f> 

ft 



OPERATION ATTEMPTED 

A DIAGNOSTIC CHECK READ COMMAND IS ISSUED* THE SYSTEM 
ENABLED FOR INTERRUPTS. 



IS 



EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE SIO. NORMAL CHANNEL AND 
DEVICE END INTERRUPT SHOULD OCCUR. THE UNUSUAL COMMAND 
SEQUENCE SENSE BIT SHOULO BE RESET. 

0160 - OPERATION ATTEMPTED 

A FEED AND STACKER SELECT POCKET 1 IS COMMAND CHAINED TO TWO 
MORE FEED COMMANDS. THE SYSTEM IS ENABLED FOR INTERRUPTS. 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START 1-0. COMMAND REJECT 
SENSE BIT SHOULD BE SET ON INITIAL SELECTION OF THE SECOND 
FEED COMMAND. THIS SHOULD BRING UP UNIT CHECK AND BREAK THE 
COMMAND CHAIN. THE ADDRESS OF THE FIRST CCW' +16 SHOULD BE IN 
THE CSW. DEVICE STATUS SHOULD CONTAIN UNIT CHECK ALGNE, 
BECAUSE CHANNEL AND OEVICE END SHOULD HAVE ALREADY OCCURRED 
AND BEEN SUPPRESSED BY CHAINING. A RESIDUAL COUNT OF 2 - THE 
COUNT IN THE REJECTEO CCW SHOULD BE IN THE CSW 



- OPERATION ATTEMPTED 

A NO OP COMMAND IS ISSUED. 
EXPECTED RESPONSE 

COND. CODE 1 SHOULD BE SET ON THE START 1-0. THE CSW SHOULD 
CONTAIN CHANNEL AND DEVICE END ONLY. COMMAND REJECT SENSE BIT 
SHOULD REMAIN SET, BUT NO UNIT CHECK SHOULD RESULT. 



- OPERATION ATTEMPTED 

A DIAGNOSTIC CHECK READ COMMAND IS ISSUED. THE SYSTEM IS 
ENABLED FOR INTERRUPTS. 

EXPECTED RESPONSE 

COND. CODE 0 SHOULO BE SET ON THE SIO. NORMAL. CHANNEL AND 
DEVICE END INTERRUPT SHOULO OCCUR. THE COMMAND REJECT SENSE 
BIT SHOULD BE RESET. 

************** 

ROUTINE 0? 
************** 

- OPERATION ATTEMPTED 

A NOP IS COMMAND CHAINED TO ANOTHER NOP WITH A COUNT OF 1. 
EXPECTED RESPONSE 

EXPECT CHANNEL END DEVICE END AND RESIDUAL COUNT OF 1 TOGETHER 
EXPECT COND. CODE 0 ON THE SIO BECAUSE OF THE CHAIN FLAG. 
THE ADDRESS OF THE SECOND CCW PLUS 8 IS IN THE CSW. 

************** 
ROUTINE 08 



4i . 

* 0200 
* 

* 



************** 



- OPERATION ATTEMPTED 



ISSUE INDIVIDUALLY ALL COMMANDS THAT ARE CONSIDERED INVALID 
TO THE READER. EACH INVALID COMMAND IS FOLLOWED BY THE 
EXECUTION OF A DIAGNOSTIC CHECK READ COMMAND TO RESET THE 
SENSE LATCHES IN THE READER. 

EXPECTED RESPONSE 

EXPECT CONDITION CODE 1, STATUS STORED WITH UNIT CHECK IN THE 
DEVICE STATUS AND COMMANO REJECT IN THE SENSE BYTE FOR THE 
INVALID COMMANO CCW. 



* 

4c 
* 
4c 
* 
4c 
4c 

* 0210 - OPERATION ATTEMPTED 

4> 

' * 
* 
* 

* 
* 
* 
* 
* 
4c 
* 
♦ 
* 

****************************************** ******** ********************* 

* ROUTINE 09 IS BYPASSED WHEN CORRECT PRINTOUTS ARE BEING OUTPUT 

* BECAUSE THE TEST IS DEPENDENT UPON OEVICE BUSY WITHOUT STACKED 
4c INTERRUPTS. 

*********************************************************************** 



ISSUE DIAGNOSTIC CHECK READ FOLLOWING AN INVALID COMMAND 
START 1-0, TO RESET THE READER SENSE LATCHES. 

EXPECTED RESPONSE 

EXPECT CONDITION CODE 0 FOR THE VALID DIAGNOSTIC CHECK READ 
WHICH FOLLOWS EACH INVALID COMMAND START IHQ* AND A SENSE 
BYTE WITH NO BITS ON. 

************** 

ROUTINE 09 
************** 



* 0220 

* 
* 

* 
* 
* 
* 

* : 
* 
* 

* 0230 
♦ 
* 
* 
♦ 



- OPERATION ATTEMPTED 

A READ AND FEED COMMAND -02- IS ISSUED AND THE SYSTEM IS 
ENABLED FOR 1 INTERRUPT. 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START 1-0. INTERRUPT DUE 
TO CHANNEL END SHOULO OCCUR. 

- OPERATION ATTEMPTED 

A TEST 1-0 IS ISSUED TO A OEVICE WITH CHANNEL END CLEARED, BUT 
DEVICE END HAS NOT OCCURRED YET. THE SYSTEM IS THEN ENABLED 
TO CLEAR THE DEVICE END WHEN IT OCCURS. 

EXPECTED RESPONSE 

COND. CODE 1 SHOULD BE SET ON THE TEST I -0. THE DEVICE BUSY 
BIT SHOULD BE ON IN THE CSW. INTERRUPT DUE TO DEVICE END 
SHOULD NOW OCCUR. 

0240 - OPERATION ATTEMPTED 

A READ AND FEED COMMAND -02- IS ISSUEO AND THE SYSTEM IS 
ENABLED FOR 1 INTERRUPT. 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START I-O. INTERRUPT DUE 
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* TO CHANNEL END SHOULD OCCUR* 

* 0250 - OPERATION ATTEMPTED 

* . 

* A START 1-0 IS ISSUED TO A DEVICE WITH CHANNEL END CLEARED. 

* BUT DEVICE END HAS NOT OCCURRED YET. THE SYSTEM IS THEN 

* ! ENABLED TO CLEAR THE DEVICE END WHEN IT OCCURS. 

* . 

« EXPECTED RESPONSE 

* . 

* COND. CODE 1 SHOULD BE SET ON THE START 1-0. THE DEVICE BUSY 

* BIT SHOULD BE ON IN THE CSW. INTERRUPT DUE TO DEVICE END 

* SHOULD NOW OCCUR. 

* ■ 
♦ 

* 0260. - OPERATION ATTEMPTED 



* A READ AND FEED COMMAND -02— IS ISSUED AND THE SYSTEM IS 

* ENABLED FOR 1 INTERRUPT. 
♦ 

* EXPECTED RESPONSE 
* 

* COND. CODE 0 SHOULD BE SET ON THE START I-C. INTERRUPT 

* DUE TO CHANNEL END SHOULD OCCUR. 
♦ 

* 0270 - OPERATION ATTEMPTED 
* 

* A HALT 1-0 IS ISSUED TO A DEVICE WITH CHANNEL END CLEARED, BUT 

* DEVICE END HAS NOT OCCURRED YET. THE SYSTEM IS THEN ENABLED 

* • TO CLEAR DEVICE END WHEN IT OCCURS. 
* 

* EXPECTED RESPONSE 

* . 

* COND. CODE I SHOULD BE SET ON THE HALT 1*43. A CSW WITH NO 

* BITS ON SHOULD BE STORED. INTERRUPT DUE TO DEVICE END SHOULD 

* NOW OCCUR. 

* . 

* ************** 

* ROUTINE 10 

* ************** 

* ■ 

* 0280 - OPERATION ATTEMPTED 
* 

* A READ AND FEED COMMAND -02- IS ISSUED AND THE SYSTEM IS 

* ENABLED FOR I INTERRUPT. 
* 

* EXPECTED RESPONSE 

* COND. CODE 0 SHOULD BE SET ON THE START 1-0. INTERRUPT DUE 

* TO CHANNEL END SHOULD OCCUR. 

* . 

* 0290 - OPERATION ATTEMPTED 
* 

* AN INVALID COMMAND -OC- IS ISSUED TO A DEVICE WITH A PENDING 

* DEVICE END. 

* • 

* EXPECTED RESPONSE 

* , 

* COND. CODE 1 SHOULD BE SET ON THE START I-<0. CSW STORED 

* SHOULD CONTAIN DEVICE END AND OEVICE BUSY. NO SENSE BITS 

* SHOULD BE ON. 
♦ 

* POSSIBLE ERROR CAUSES 

* . ■ 

* IF DEVICE END IS RETURNED ALONE, THE CIRCUITRY THAT BLOCKS 

* BUSY FOR TEST 1-0 SHOULD BE INVESTIGATED TO SEE IF, IT IS ALSO 

* BLOCKING BUSY FOR START I~0. 



DATE 05NAY6S 10AUG65 22FEB66 15JUN67 ID F810*3 

EC 124252 125580 125621 130498 PACE 4 
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* 
* 

* 
* 

* ■ 

* . 

* . 
* 

* 0310 
* 

* 
* 

* 0320 

* 
* 

* 

* . 

* 0330 
* 

* 

* 
* 
* 

* 

* 

« 

* 

* 0330 

* - 
* 

* , 
* 

* 0360 

* . 



ROUTINE 11 
************** 



0300 - OPERATION ATTEMPTED 

A READ AND FEED IS ISSUED TO A READER CONTAINING A BLANK CARD. 
NO INTERRUPTS ARE CLEARED. 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START 1-0, AND A CARD SHOULD 
FEED INTO STACKER 1. 



OPERATION ATTEMPTED 

ANOTHER READ ANO FEED IS ISSUED TO PENDING CHANNEL END. 
EXPECTED RESPONSE 

EXPECT COND. CODE 2 BECAUSE CHANNEL END OF PREVIOUS READ FEED 
WAS NOT CLEARED. 

OPERATION ATTEMPTED 

A HALT 1-0 IS ISSUED TO A PENDING CHANNEL END. 
EXPECTED RESPONSE 
EXPECT COND. CODE 0 
OPERATION ATTEMPTED 

A TEST 1-0 IS ISSUED TO A PENDING CHANNEL ENO. 
EXPECTED RESPONSE 

EXPECT COND. CODE 1 AND CHANNEL END FROM PREVIOUS READ FEED 
TO BE IN CSW. 

OPERATION ATTEMPTED 

A HALT I-Q IS ISSUED TO A PENDING DEVICE END. 
EXPECTED RESPONSE 

COND. CODE 1 SHOULD BE SET AND A CSW WITH NO BITS ON STORED. 
OPERATION ATTEMPTED 

A READ AND FEED START I~0 IS ISSUED TO A PENDING DEVICE ENO. 
EXPECTED RESPONSE 

COND. CODE 1. CSW SHOULD CONTAIN DEVICE BUSY WITH DEVICE END. 
OPERATION ATTEMPTED 

A HALT 1-0 IS ISSUED TO A READY DEVICE* 



0340 



DATE 

EC 
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EXPECTED RESPONSE 

COND. CODE 1 SHOULD BE SET AND A CSM WITH NO BITS ON STORED. 

- OPERATION ATTEMPTED 
A TEST 1-0 IS ISSUED* 
EXPECTED RESPONSE 

COND. CODE 0. DEVICE SHOULD HAVE NO; PENOING STATUS. 

************** 

ROUTINE 12 
************** 

- OPERATION ATTEMPTED 
A NOP 510 IS ISSUED TO A NOT READY DEVICE. 
EXPECTED RESPONSE 

EXPECT UNIT CHECK ALONE AND COND. CODE OF 1. A SENSE IS 
ISSUED AND INTERVENTION REQUIRED SHOULD BE IN THE SENSE BYTE. 

• OPERATION ATTEMPTED 
A TEST 1-0 IS ISSUED TO A NOT READY DEVICE. 
EXPECTED RESPONSE 

EXPECT UNIT CHECK ALONE AND COND. CODE OF 1. A SENSE! IS 
ISSUED AND INTERVENTION REQUIRED SHOULD BE IN THE SENSE BYTE. 

OPERATION ATTEMPTED 

ISSUE A HALT 1-0 TO NOT READY DEVICE. 
EXPECTED RESPONSE 

COND. CODE 1 SHOULD BE SET AND A CSW WITH NO BITS ON STORED. 
OPERATION ATTEMPTEO 

A TEST 1-0 TO A DEVICE THAT JUST WENT FROM NOT READY TO READY. 
EXPECTEO RESPONSE 

EXPECT DEVICE END ALONE, WITH A CONDITION CODE 1. 
OPERATION ATTEMPTED 

ISSUE 5 READ, FEED, STACKER SELECT Rl COMMANDS TO ENABLE 

* TESTING END OF FILE IN THE NEXT TEST. 

* EXPECTED RESPONSE 
* 

* CONDITION CODE 0 FOR EACH START 1-0 AND SEPARATE CHANNEL 

* AND DEVICE ENDS FOR EACH IN STATUS. 

* 

* 0430 - OPERATION ATTEMPTED 

* ONE READ, FEED, STACKER SELECT Rl START 1-0 TO TEST ENO 



* 

* . 
* 

* 0370 

* . 
* 

* 

* , 

* - 

* . 

* 0380 

* . 

* . 
* 
* 

* 

* 0390 « 

* . 

* 0400 - 
* 

* 

* 0410 - 

* : 

* . 
* 

* 
* 

* 0420 - 



OF FILE. 

EXPECTED RESPONSE 

EXPECT UNIT EXCEPTION IN STATUS DUE TO NO MORE CARDS IN 
THE READER AND READY STILL UP. AFTER UNIT EXCEPTION IS 
ACCEPTED BY THE CHANNEL , READY DROPS. CONDITION CODE 1 
IS EXPECTED DUE TO UNIT EXCEPTION PENDING IN THE READER. 

OPERATION ATTEMPTED 

ISSUE A TEST 1-0 TO THE READER. 

EXPECTED RESPONSE 

EXPECT CONDITION CODE 1 AND UNIT CHECK ALONE IN THE CSW. 
A SENSE IS ISSUEO AND INTERVENTION REQUIRED SHOULD BE IN THE 
SENSE BYTE. READY SHOULD HAVE DROPPED ON THE READER DUE TO 
UNIT EXCEPTION BEING PRESENTED TO THE CHANNEL. 

POSSIBLE ERROR CAUSES 

1. THERE MAY HAVE BEEN MORE THAN 5 CARDS IN THE READER FOR 
THE EOF TEST 0430. 

2. IF THERE WAS NO ERROR INDICATION IN TEST 0430, UNIT 
EXCEPTION MAY HAVE BEEN PRESENTED TO THE CHANNEL FROM THE 
READER BUT READY ERRONEOUSLY DID NOT DROP. 



* 

* 

* . 

* . 
* 

* 0440 
* 

* 

* ■ 

* 0430 

* • 
* 

* 0460 
* 

* . 
* 

* 
* 

* 0470 

* 

* 

* 0480 
* 

* , 

*********************************************************************** 
******************* ******************* 



IOFF LINE) 



OPERATION ATTEMPTED 

A NOP SIO IS ISSUED TO A NOT AVAILABLE DEVICE. 
EXPECTED RESPONSE 

COND. CODE 3 SHOULD BE SET I NOT OPERATIONAL) 
OPERATION ATTEMPTED 

A TEST 1-0 IS ISSUEO TO A NOT AVAILABLE DEVICE. (OFF LINE) 
EXPECTED RESPONSE 

COND. CODE 3 SHOULD BE SET (NOT OPERATIONAL) 
OPERATION ATTEMPTED 

A HALT 1-0 IS ISSUED TO A NOT AVAILABLE DEVICE. (OFF LINE) 
EXPECTEO RESPONSE 

COND. CODE 3 SHOULD BE SET (NOT OPERATIONAL). 
OPERATION ATTEMPTED 

A TEST 1-0 TO A DEVICE THAT JUST WENT FROM NOT READY TO READY. 
EXPECTED RESPONSE 

EXPECT DEVICE END ALONE, WITH A COND. CODE 1. 
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♦ SECTION PREFACE *********************************** SECTION PREFACE * 



******************* 



00 I 000 


F8 103000 


SECNO 


DC 


XL4 , F81030Q0 f 


001004 


00000000 


SNSM 


DC 


XL4 l 00 e . 


001008 


0000 




DC 


XL2 , 00 I 


00100A 


0000 


I CM 


! DC 


XL2*00* 


00100C 


00 


SDMF 


be 


XL1 'OO* 


001000 


02 


N10U 


DC 


XLl , 02* 


00100E 


CO 


FtAGl 


DC . 


X'CO 1 


00100F 


00 


Ft AG2 


DC 


X • 00 • 


001010 


0104000000 


INPSW 


DC 


X" 0104000000* 


001015 


001 7 FC 




DC 


AL3(RQUTQ1) 


001018 


0000000000000000 


EXOPSW 


DC 


XLS'O* 


001020 


0000000000000000 


SVOPSW 


DC 


xl8»oo* 


001028 


0000000000000000 


PGOPSW 


DC 


XL8»00» 


001030 


0000000000000000 


MCOPSW 


DC 


XL8«00» 


001038 


0000000000000000 


IOOPSW 


DC 


XL8«00» 


001040 


0000000000000000 


CSW 


DC 


XL8«00« 


001048 


00000000 


CAW 


DC 


XL4«00* 


00104C 


000000000000000000 




OC 


XL12«00* 


001055 


000000 








001058 


0004000000 


EXNPSW 


DC 


X f 0004000000 • 


00105D 


000000 


SRET 


DC 


XL3«0« 


001060 


0000000000000000 


SVNPSW 


DC 


XL8»00« 


001068 


0000000000000000 


PGNPSW 


DC 


XL8*oo* 


001070 


0000000000000000 


MCNPSW 


DC 


XL8«00* 


001078 


01040000 


IONPSW 


DC 


XL4*01040G00* 


00107C 


00001226 




DC 


AL4I IRETRN) 


001080 






DS 


96C 


0010E0 


81 


UNIT1 


DC 


X«81* 


0010E1 


00 


U10P 


DC 


X'OO* 


0010E2 


8000 


U1A0DR 


DC 


X«8000 B 


0010E4 


82 


UNIT2 


DC 


X*82» 


0010E5 


00 


U20P 


DC 


X»00 t 


0010E6 . 


8000 


U2ADDR 


DC 


X^OOO* 



******************* 
PROGRAM t SECT I ON AND REVISION NOS. * 
SECTION SENSE SWITCHES * 

* 

INTERRUPTION CONDITION MASK * 
SECTION DM FLAGS * 
NUMBER OF UNIT TABLE ENTRY S * 
EXCLUSIVE CPU * 
I/O INT ARE ERR, EXT INT TO PROG * 
DISABLED* SPVSR STATE, NO PGM MASK * 



ADR OF 1ST ROUTINE PREFIX 
SECTION OLD EXTERNAL PSW 
CLEAR ALL OLD PSWS 
PROGRAM OLD PSW 
MACHINE CHECK OLO PSW 
I/O OLD PSW 
CHANNEL STATUS WORD 
CAW 

RESERVED FOR DM USE 



EXTERNAL NEW PSW 
ADR OF EXT INTRPT ROUTINE 
SUPERVISOR NEW PSW 
PROGRAM NEW PSW 
MACHINE CHECK NEW PSW 
I/O NEW PSW 

ADDRESS OF I/O INTRPT ROUTINE 
96 BYTE REG DUMP AREA FOR DM USE 
UNIT TYPE - 2540 READER 
OPTIONAL FEATURES BYTE * 
FLAGS AND CHAN/UNIT ADDRESS * 
UNIT TYPE - 2540 PUNCH 
OPTIONAL FEATURES BYTE 
FLAGS AND CHAN/UNIT ADDRESS 
*********************************************************************** 

* OPTIONAL FEATURE BYTE DEFINITION 

*********************************************************************** 

* * BIT 0 * BIT 1 * BIT 2 * BIT 3 * BIT 4 * BIT 5 * BIT 6 * BIT 7 * 



HEX 8 * HEX 4 * 
ASCII * CARD * 

* IMAGE * 

* * 



HEX 2 * HEX 1 * HEX 8 * HEX 4 * 

* 51 * 1400 * * 

* COL RD* COMP * * 

* * * * 



HEX 2 



HEX 1 * 
2821 * 
2 CHN * 
SW. * 



*********************************************************************** 

* 2540 READER SENSE BYTE 

*********************************************************************** 

* BIT MEANING 

* 0 COMMAND REJECT 

* 1 INTERVENTION REQUIRED 

* 2 BUS OUT CHECK 

* 3 EQUIPMENT CHECK 

* 4 DATA CHECK - VALIDITY CHECK - INVALID CARD CODE 

* 5 OVERRUN - NOT USED 

* 6 UNUSUAL COMMAND SEQUENCE-2 REAOS WITHOUT INTERVENING FEED 

* 7 NOT USED 

*********************************************************************** 

* 2540 READER STATUS BYTE 

*********************************************************************** 
* 

* 
♦ 

* . 

* . 
* 
* 
* 
* 

* ■ 



BIT MEANING 

0 ATTENTION - 1400 COMPATIBILITY FEATURE ONLY - INOICATES 

SENSE WAS ISSUED BEFORE 6 MS TIME CUT AFTER 
A 1400 COMPATIBILITY READ. 

1 STATUS MODIFIER ~ 2 CHANNEL SWITCH FEATURE ONLY 

2 CONTROL UNIT END * 2 CHANNEL SWITCH FEATURE ONLY 

3 DEVICE BUSY 

4 CHANNEL END 

5 DEVICE END 

6 UNIT CHECK 
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* • 1 UNIT EXCEPTION LAST -CARD* PREVIOUSLY READ, AND END OF 

* FILE WAS ON. 

******************************************************4i^*«**«*««4 I «4$«* 
************************************«*******#********»**** stlJ> ** # **^ <l «, # *^ 
**********************************«****^#«* J> *****«***** j([4! **** <t *** <I ** J>l4( * 

* PARAMETERS USED TO ENTER 

* THE 1-0 HANDLER ROUTINE 

**********************************<*****♦♦***♦************************♦ 



* . 


BAL 


RIWISIO 


LINK TO 1*0 HANDLER 


♦ . 


OC 


XL2«00Q0* 


CONTROL SWITCHES 


* . 


OC 


X«0014» 


TEST NO. IN DEC EXPRESSED IN HEX 


* 


DC 


X'FO" 


EXPECTED CONO. CODE 


* 


DC 


X«00* 


EXPECTED SENSE DATA 


* 


DC 


AL2 C ADR-B A SE+REG I 


ADDR. OF EXPECTED CSW IF NEEDED 



************************************************#******^^ 

* 1-0 HANDLER CONTROL SWITCHES 

* 2 BYTE PARAMETER FOLLOWING BAL 

***************************«****«*********** + ***+ # »*^^ + **^*^** 1>ltl ^^ v4lii<t ^ 



* 


SWITCH 


DESCRIPTION 


* 




OFF 




ISSUE AN 1-0 COMMAND 


* 




ON 




DO NOT ISSUE AN 1-0 COMMAND 


* 




OFF 




ENABLE 


* 




ON 




DO NOT ENABLE 


*' 




OFF 




EXPECT NO INTERRUPT 


* 




ON 




EXPECT AN INTERRUPT 


* 




OFF 




DO NOT EXPECT 2 INTERRUPTS 


* 




ON 




EXPECT 2 INTERRUPTS 


* 




OFF 




EXPECT NO CSWS 


* 




ON 




EXPECT A CSW 


* 




OFF 




DO NOT EXPECT 2 CSWS 


* 




ON 




EXPECT 2 CSWS 


* 




OFF 




ALWAYS TRY TO ISSUE SENSE 


* 




ON 




SENSE ON UNIT CHECK ONLY 


* 




OFF 




NOT EXECUTING INVALID COMMANO 


* 
* 




ON 




EXECUTING INVALID COMMAND 



*****************************************************^^ 

*****************************************♦**,> <I ****** # **#«*« 4###1>#4 + #+ ^ # 

* SWITCHES USED BY 1-0 HANDLER 

*********************************************^^ 



* 


SWITCH 


DESCRIPTION 


* 


0 




OFF 




NO HANGUP ON INTERFACE 


* 






ON 




HANGUP OCCURRED 


* 


1 




OFF 




NO CSWS STORED 


* 






ON 




ONE CSW STORED 


* 


2 




OFF 




SECOND CSW NOT RECEIVED 


♦ 






ON 




SECOND CSW RECEIVED 


* 


3 




OFF 




DID NOT ENABLE 


♦ 






ON 




ENABLED ONCE 


* 


. 4 




OFF 




DID NOT ENABLE TWICE 


* 






ON 




ENABLED TWICE 


♦ 


3 




OFF 




NO SENSE DATA RECEIVED 


* 






ON 




SENSE DATA RECEIVED 


* 


6 




OFF 




NO UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 


* 






ON 




UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 


* 


7 




OFF 




NO ERROR DETECTED 


* 






ON 




AN ERROR WAS DETECTED 



*************************************************^^ 

* REGISTERS USED IN, 1^0 HANDLER 
***************************************************^^ 

* REG COMMENTS 

* 5 USED AS LINK TO ERROR OUTPUT FROM INITIALIZE ROUTINE IF 

* PREVIOUS HANGUP ON INTERFACE DETECTED. 

* . 

* 8 USED AS WORK REGISTER. WILL BE RESTORED UPON RETURN. 

* 9 USED AS WORK REGISTER. WILL BE RESTORED UPON RETURN. 

DATE 05MAY65 10AUG65 22FEB66 15JUN67 t D emiw* 

EC 124252 125580 125621 130498 j5J[ 6E " 
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0010E8 



DATE 
EC 



10 MUST CONTAIN CCM ADDRESS UPON ROUTINE ENTRY 

11 MUST BE USEO AS LINK REG TO THIS ROUTINE 

12 MUST CONTAIN DEVICE AOORESS 



0000 



* 

* . 

* . 

* 

ISW DC XL2 , O t 

* . * 1-0 HANDLER SUB-ROUTINE * 



0010EA 


92 


9E 


F 


1AC 


IHIO 


MVI 


ISSUE, X«9E« 


SET UP FOR HALT 1-0 


0010EE 


92 


C8 


F 


661 




MVI 


I0PTl*25,X«C8 a 


MOVE -H- TO OPTION MSG. 


0010F2 


92 


C8 


F 


5C8 




MVI 


I0ADDR+12«X'C8* 




0010F6 


92 


9E 


F 


15E 




MVI 


IL0QP,X f 9E« 




0010FA 


47 


FO 


F 


122 




BC 


UNC, IEYEOH 


BR* UNCONDITIONAL 


0010FE 


92 


90 


F 


1AC 


IT 10 


MVI 


ISSUEfX , 9D t 


SET UP FOR TEST 1-0 


001102 


92 


90 


F 


15E 




MVI 


ILOOP, X«9D« 




001106 


92 


E3 


F 


661 




MVI 


I0PT1*25,X»E3* 


MOVE -T- TO OPTION MSG* 


00110A 


92 


E3 


F 


5C8 




MVI 


IOAD0R+12»X c E3* 




00110E 


47 


• FO 


F 


122 




BC 


UNC 9 IEYEOH 


BR. UNCONDITIONAL 


001112 


92 


9C 


F 


1AC 


ISIO 


MVI 


ISSUE, X«9C« 


SET UP FOR START 1-0 


001116 


92 


9C 


F 


156 




MVI 


ILOOP »X f 9C • 




00111A 


92 


E2 


F 


661 




MVI 


I0PTl*25,X«E2 f 


MOVE. -S- TO OPTION MSG. 


00111E 


92 


E2 


F 


5C8 




MVI 


I0ADDR*12,X»E2« 




001122 


02 


01 


F 


644 B 002 


IEYEOH 


MVC 


ITSTN0*5C2>,2CRllJ 


SAVE TEST NUMBER 


001128 


90 


AB 


F 


698 




stm; 


R10,R11.ISLAVE 


SAVE REG 10 AND REG 11 


00112C 


90 


89 


F 


588 




STM 


R8,R9,ISAVE 


SAVE REGS 8 AND 9 


001130 


02 


00 


F 


6A5 F 003 




MVC 


RTSVC1),SECNQ*3 


SAVE RT NO. FOR HANGUP. 


001136 . 


50 


AO 


0 


048 • 


IRETRY 


ST 


R10,HCAWCR13i 


STORE COMMAND ADDRESS. 


001 13 A 


07 


07 


0 


040 D 040 




XC 


HCSWC8,R13),HCSW<R13> 




001140 


D7 


OB 


E 


080 E 080 




XC 


LOGOUT! 12 9 R14 ) .LOGOUT CR14) 


001146 ■ 


91 


80 


B 


000 




TM 


0(Rll),X»80 a 


CHECK CONTROL SWITCH FOR NOi 1-0 


00114A 


47 


10 


F 


1F6 




BC 


ALL. INOW 


BR. IF ON 


00114E 


91 


CO 


F 


004 




TM 


SNSW,X«CO« 




001152 


47 


80 


F 


19A 




BC 


NONE 9 JOHN 


























♦ . 




SENSE SWITCH LOOPS 














001156 " 


91 


80 


F 


004 


ITRY1 


TH 


SNSWtX^O' 


CHECK SECTION SENSE SWITCH 0 


001 15 A 


47 


80 


F 


166 




BC 


N0NE 9 ITRY2 


BR. IF OFF 


00115E 


9C 


00 


C 


000 


ILOOP 


SIO 


OCR125 


SIO, TIO, OR HIO 


001162 


47 


FO 


F 


156 




BC 


UNCITRYl 


BR. UNCONDITIONAL 


001166 


91 


40 


F 


004 


ITRY2 


TM 


SNSW.X^O* 


CHECK SECTION SENSE SWITCH 1 


00116A 


47 


80 


F 


186 




BC 


NONE t IHI 


BR. IF OFF 


00116E 


9D 


00 


C 


000 


IHANG 


TIO 


0(R12) 


TEST 1-0 


001172 


47 


70 


F 


156 




BC 


NCCO.ITRYl 


BR. IF NOT COND. CODE 0 


001176 


91 


40 


F 


004 




TM 


SNSW,X«40» 


CHECK SECTION SENSE SWITCH 1 


00117A 


47 


80 


F 


186 




BC 


NONE, IHI 


BR. IF OFF 


00117E 


9C 


00 


C 


000 




SIO 


0CR12) 


START 1-0 


001182 


47 


FO 


F 


16E 




BC 


UNC, I HANG 


BR. UNCONDITIONAL 


001186 


58 


9E 


0 


198 


IHI 


L 


R9,WT(R141 


PICK UP DM WAIT FACTOR. 


00118A 


88 


90 


0 


003 




SRL 


R9,3 


CUT IT DOWN TO 1.25 SECS. 


00118E 


90 


00 


C 


000 


GREG 


TIO 


0CR12) 


TEST 1-0 TO DEVICE. 


001192 


47 


80 


F 


19A 




BC 


CCO, JOHN 


BR IF AVAILABLE. 


001196 


46 


90 


F 


18E 




BCT 


R9.GREG 


LOOP UNTIL TIME OUT. 


00119A 


D7 


01 


F 


0E8 F 0E8 


JOHN 


XC 


ISW(2),ISW 


ZERO THE 1-0 HANDLER SWITCHES. 


0011A0 


96 


80 


F 


0E8 




01 


ISW,X*80« 


TURN ON THE HANG SWITCH. 


0011A4 


92 


E7 


F 


610 




MVI 


IACSNS+5,C«X« 


MOVE AN X INTO ACTUAL SENSE BYTE. 


0011A8 


92 


E7 


F 


587 




MVI 


IACTCC+5,C«X« 


MOVE IN A -X- 


0011 AC 


9C 


00 


C 


000 


ISSUE 


SIO 


0(R12> 


1-0 COMMAND- SIO, TIO, OR HIO 


0011B0 


47 


80 


F 


1F2 




BC 


CCO.IZERO 


BR. IF CGNO. CODE 0 


0011B4 I 


47 


40 


F 


ICC 




BC 


CC1,I0NE 


BR. IF COND. CODE 1 


001 1B8 


47 


20 


F 


1C4 




BC 


CC2,ITW0 


BR. IF COND. CODE 2 


OOilBC : 


92 


F3 


F 


587 




MVI 


IACTCC*5,X«F3 f 


INDICATE COND. CODE 3 


0O11C0 


47 


FO 


F 


1F6 




BC 


UNC, I NOW 


BR. UNCONDITIONAL 



09 MAY 65 

124252 



10AUG65 
125580 



22FEB66 
125621 
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0011C4 ' 


92 


F2 


F 


5B7 






ITWO 


MVI 


IACTCC*5,X»F2* 


INDICATE COND. CODE 2 


0011C8 


47 


FO 


F 


IF6 








BC 


UNC, I NOW 


BR. UNCONDITIONAL 


0011CC 


92 


Fl 


F 


5B7 






I ONE . 


MVI 


; IACTCC*5,X«Fl« 


INDICATE COND. CODE 1 


001100 


02 


07 


F 


67E 


D 


040 




MVC 


ICSW1C8),HCSW(R13) 


SAVE CSW 


001106 


96 


40 


F 


0E8 








01 


!SWtX«40* 


INDICATE 1 CSW 


0011DA 


91 


80 


B 


001 








TM 


1(R11),X'80* 


SEE IF. INVALID CMOS TEST. 


0011DE 


47 


80 


F 


IF6 








BC 


NONE, INOW 


BR IF NOT. 


0011E2 


91 


08 


F 


682 








TM 


ICSWl<t4,X«08* 


SEE IF CHANNEL END IN STATUS. 


001 1E6 


47 


10 


F 


1F6 








BC 


ALL.INOW 


BR IF YES. 


0011EA 


96 


40 


B 


000 








01 


0(Rll),X«40« 


DO NOT ALLOW ENABLING FOR INTERRUPT. 


0011EE 


47 


FO 


F 


1F6 








BC 


UNC, INOW 


BR. UNCONDITIONAL 


0011F2 


92 


FO 


F 


587 






IZERO 


MVI 


lACTOG^^FC^ 


INDICATE COND. CODE 0 


001 1F6 


94 


7F 


F 


0E8 






INOW 


NI 


I5W,X«7F« 


TURN OFF HANG UP SWITCH 


0011FA 


91 


40 


B 


000 








TM 


0CR11I,X»4G« 


CHECK CONTROL SWITCH FOR NO ENABLE 


0011FE 


47 


10 


F 


29A 








BC 


ALL, ISEN 


BR. IF ON 


001202 


96 


10 


F 


0E8 








01 


1SW,X«10« 


INDICATE ENABLED CNCE 


001206 


58 


9E 


0 


198 






IWAIT 


L 


R9,WT(R14> 


LOAD DM WAIT FACTOR 


00120A 


88 


90 


0 


003 








SRL 


R9, 3 


ADJUST 


00120E 


96 


80 


F 


0E8 








01 


ISW,X«80« 


TURN CN HANG UP SW 


001212 


80 


00 


F 


6A3 








SSM 


MSK1 


ENABLE 


001216 


46 


90 


F 


216 








BCT 


R9,* 


WAIT 


00121A 


80 


00 


F 


6A4 








SSM 


MSK2 


DISABLE 


00121E 


94 


7F 


F 


0E8 








NI 


ISW,X«7F« 


TURN OFF HANG SW 


001222 


47 


FO 


F 


29A 








BC 


UNC, I SEN 


BR. UNCONDITIONAL 
















it********************************************************************* 
















* 




ALL 1-0 


INTERRUPTS RETURN HERE 


















001226 


49 


CO 


F 


03A 






IRETRN 


CH 


R12,IQ0PSy*2 


COMPARE FOR CURRENT 1-0 ADDRESS 


00122A 


47 


60 


F 


248 








BC 


UNEQ.IUIO 


BR. IF UNEQUAL 


00122E 


94 


7F 


F 


0E8 








NI 


ISW,X«7F« 


RESET HANG UP SW 


001232 


91 


40 


F 


0E8 








TM 


ISW,X*40* 




001236 


47 


10 


F 


278 








BC 


ALL,ISV2 


BR. IF 1 CSW ALREADY STORED 


00123A 


02 


07 


F 


67 E 


F- 


040 




MVC 


ICSW1(8),HCSWCR15) 


SAVE CSW 1 


001240 


96 


40 


F 


0E8 








01 


ISW,X"40» 


INDICATE 1 CSW STORED 


001244 : 


47 


FO 


F 


282 








BC 


UNCINT3 


BR. UNCONDITIONAL 


001248 


02 


07 


F 


590 


F 


040 


IUIO 


MVC 


W0RK(8),HCSW(R15} 




00124E 


OA 


00 












SVC 


X'DD* 


CONVERT ADDRESS 


001250 


0002 












DC 


AL2I2I 


2 BYTES OF 1-0 OLD PSW. 


001252 


003 A 












DC 


AL2CI00PSW+2-SECN0I 


FROM HERE. 


001254 : 


06B8 












OC 


AL2C IUNEX+17-SECN0) 


TO HERE 


001256 


OA 


DO 












SVC 


X«DO« 


PRINT UNEXPECTED INTERRUPT DEVICE 


001258 


64 














DC 


X 8 64« 


ADORESS 


001259 


15 














DC 


XH5« 




00125A 


F6A7 • 












OC 


AL2 1 I UN EX- SECNQ+REG I 




00125C 


D2 


02 


F 


SEE 


P 


5E7 




MVC 


' IBLAH41!3},ICSW 


MOVE -CSW- TO MESSAGE 


001262 


92 


1A 


F 


430 








MVI 


ICNT.XnA* 


ADJUST COUNT 


001266 


02 


02 


F 


604 


F 


607 




MVC i 


IBLAH+23(3!,!ACT 


MOVE -ACT- TO MESSAGE 


00126C 


45 


90 


F 


426 








BAL 


R9,IC0UT 


BR. TO OUTPUT CSW 


001270 


96 


02 


F 


0E8 








01 


ISW,X«02« 


INDICATE UIO 


001274 


47 


FO 


F 


500 








iC 


UNC, ILOGED 


BR. UNCONDITIONAL 


001278 


02 


07 


F 


686 


F' 


040 


ISV2 


MVC 


ICSW2(8),HCSW(R15) 


SAVE CSW 2 


00127E 


96 


20 


F 


0E8 








01 


ISW,X«20» 


INDICATE 2 CSWS STORED 


001282 


91 


10 


B 


000 






1NT3 


TM 


0CR11),X«10« 


CHECK CTRL SW FOR 2 INTR EXPECTED 


001286 


47 


80 


F 


29A 








BC 


NONE,! SEN 


BR. IF NOT 


00128A 


91 


08 


F 


0E8 








TM 


: ISW,X«08» 




00128E 


47 


10 


F 


29A 








BC 


ALL .ISEN 


BR. IF ALREADY ENABLEO TWICE 


001292 


96 


08 


F 


0E8 








01 


ISW,X«08* 


INDICATE ENABLED TWICE 


001296 


47 


FO 


F. 


206 








BC 


UNC, I WAIT 




00129A 


91 


02 


B 


000 






ISEN 


TM 


0(R11!,X«02« 


CHECK CONTROL SWITCH FOR SNS ON UC 


00129E 


47 


80 


F 


2C2 








BC 


N0NE,ID0SNS 


BR. IF OFF TO ISSUE SENSE 


0012A2 


91 


40 


F 


0E8 








TM 


ISW,X»40« 


SEE IF 1ST CSW IN. 


0012A6 


47 


80 


F 


318 








BC 


NONE, IB SN 


BR. IF NO CSW STORED TO BYPASS SENSE 


0012AA 


91 


02 


F 


682 








TM 


ICSW1«4,X*02« 


CHECK FOR UNIT CHECK 


0012AE 


47 


10 


F 


2C2 








BC 


ALL, IDOSNS 


IF YES BR. TO ISSUE SENSE 


0012B2 


91 


20 


F 


0E8 








TM 


!SW,X*20* 


CHECK FOR SECCNO CSW 


001286 


47 


80 


F 


318 








BC 


NONE, I 8 SN 


BR. IF NOT TO 8YPASS SENSE 


0012BA 


91 


02 


F 


68 A 








TM 


ICSW2^4,X«02« . 


CHECK FOR UNIT CHECK 


0012BE 


47 


80 


F 


318 








BC 


NONEtlBSN 


BR. IF NOT TO BYPASS SENSE 


DATE 


05MAY65 




10AUG65 


22FEB66 15JUN67 




SD >810H 


EC 
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125580 
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O012C2 


5$ 


9E 


0 


198 






IOOSNS i 


R9,WT<R14I 1 


LOAD DM WAIT FACTOR 


0012C6 


88 


90 0 002 








SRI 


R9 9 2 


CUT IT DOWN TO 2.3 SECS« 


0012CA 


41 


80 


F 


690 








LA 


RStlSENSE 


LOAO SENSE COMMANO AOORESS 


0012CE 


50 


80 


0 


04ft 








ST 


R8.HCAW1R13) 


STORE IN CAW 


001202 


9C 


00 


C 


000 








SIO 


0IR12I 


ISSUE SENSE 


001206 


47 


70 


F 


366 








BC 


NCCO, INDER 


BR. IF NOT ACCEPTED 


00120A 


90 


00 


c 


000 






ITIOLP 


T10 


0(R12! 


TEST 1*0 


00120E 


47 


40 


F 


302 








BC 


CC It ILOKE 


BR* : IF CSW STORED 


0012 E2 : 


46 


90 


F 


20A 






ITIC 


BCT 


R9, ITIOLP 




0012E6 


47 


FO 


F 


318 








BC 


UNCtlBSN 


BR* UNCONDITIONAL 


0012EA 


91 


40 


f 


0E8 






IN0EX1 TM 


ISW»X f 40« 




0012EE 


47 


10 


F 


366 








BC 


ALL* INDER 


BR. IF CSW STORED 


0012F2 


47 


FO 




36A 








BC 


UNCtlDUNCK > 


BR* UNCONDITIONAL * 


0012F6 


91 


20 


F 


0E8 






IN0EX2 TM 


ISW«X«20« 




0012FA 


47 


10 


p 


366 








BC 


ALL* INDER 


BR* IF CSW 2 STORED 


0012FE 


47 


FO 


F 


36A 








BC ■ 


UNCtlDUNCK 


BR* UNCONDITIONAL 


001302 


95 


oc 


D 


044 






ILOKE 


CLI 


HCSW*4CR13I,X*0C< . 


CHECK FOR CE OE ONLY . 


001306 


47 


70 


F 


2E2 








BC 


NCCOtlTIC 


BR* IF NOT 


00130A 


96 


04 


F 


0E8 








01 


ISW«X a 04« 


INDICATE SENSE DATA RECIEVEO 


00130E 


05 


00 


F 


610 


B 


005 




CLC ; 


IAC SNS+5(1) 9 5fRU) 


COMPARE FOR EXPECTEO SENSE 


001314 


41 


60 


F 


366 








Sc 


UNEQt INDER 


BR* IF UNEQUAL 


001318 


05 


00 


F 


5B7 


B 


004 


» IBSN 


CLC v 


IACTCC+5(l),4CRUt 


COMPARE FOR EXPECTED CONO*. CODE 


00131E 


47 


60 


F 


366 








BC 


UNEQt INDER 


BR* IF UNEQUAL 


001322 


91 


08 


B 


ooo 








TM 


0CR11)»X*08' 




001326 


47 


80 


f 


2EA 








BC 


NONEt IN0EX1 ; 


BR* IF NO CSW EXPECTEO 


00132A 


91 


40 


F 


0E8 








TM 


ISW 9 X'40* 




O0132E 


47 


80 


F 


366 








BC 


NONEt INDER 


BR* IF NO CSW RECIEVED 


001332 


48 


88 


0 


006 








LH 


R8t6tRll) 


LOAD CSW ADDR 


001336 


40 


80 


F 


33E 








STH 


R8tICCSWl*4 


STORE IN COMPARE INSTR* 


00133A 


D5 


07 


F 


67E 


F 


67E 


ICC SKI 


CLC 


ICSWM8ltICSWi 


COMPARE FOR EXPECTED CSW 


001340 


47 


60 


F 


366 








BC 


UNEQt INDER 


BR* IF UNEQUAL 


001344 . 


91 


04 


B 


000 








TM 


0(R11)*X*04' 




001348 


47 


80 


F 


2F6 








BC 


NONEt INOE X2 


BR* IF NO CSW 2 EXPECTEO 


00134C 


91 


20 


F 


0E8 








TM 


ISW,X«20« 




001350 


47 


80 


F 


366 








BC 


NONEt INDER 


BR* IF NO CSW 2 RECIEVED 


001354 


41 


88 


0 


008 








LA 


R8«8(R8I 


UPDATE TO SECOND CSW 


001358 


40 


80 


F 


360 








STH 


R8t!CCSW2+4 




00135C 


D5 


07 


F 


686 


F 


686 


ICCSW2 


CLC 


ICSW2C8S.ICSW2 


COMPARE FOR EXPECTED CSW 2 


001362 


47 


80 


F 


36A 








BC 


EQtlDUNCK 


BR. IF EQUAL 


001366 


96 


01 


F 


0E8 






INOER 


01 


ISW.X'01 9 


INDICATE AN ERROR 


00136A 


92 


64 


F 


3B2 






IOUNCK 


MVI 


- IFLAG1,X«64» 


SET UP FOR ERROR PRINTOUT 


00136E 


92 


CO 


F 


53E 








MVI 


IFLAG2 9 X*C0« 




001372 


91 


01 


F 


0E8 








TM 


ISW 9 X«01' 


CHECK FOR A DETECTED ERROR 


001376 


47 


10 


F 


38A 








BC 


ALLtlOUTIT 


BR. IF ERROR DETECTED 


00 137 A 


91 


01 


F 


004 








TM 


SNSW.X«01« 


CHECK SECTION SENSE SWITCH 7 


00137E 


47 


80 


F 


55A 








BC 


NONE 9 I LEAVE 


BR. IF OFF 


001382 


92 


24 


F 


382 








MVI 


1PLAG1 S X«24» 


SET UP FOR CORRECT PRINTOUT 


001386 


92 


80 


F 


53E 








MVI 


1FLAG2»X«80« 




00138A 


91 


80 


F 


6A6 






IOUTIT 


TM 


SWCH*X«8Q« 


SEE IF. IN INTERVENTION TESTS. 


00138E 


47 


10 


F 


3A2 








BC 


ALL, SPRT 


BR IF YES. 


001392 


95 


40 


F 


610 








CLI 


IACSNS*5*X«4®« 


SEE IF INTERVENTION REQUIRED. 


001396 


47 


80 


F 


570 








BC 


EQtRDYM 


BR IF YES* 


00139A 


91 


01 


F 


682 








TN 


ICSW1*4,X«01« 


SEE IF UNIT EXCEPTION* 


00139E 


47 


10 


F 


570 








BC 


ALLtRDYM 


BR IF YES* 


0013A2 


02 


01 


F 


644 


6 


802 


SPRT 


MVC 


ITSTN0+5C21 v 2fRll) 


MOVE TEST NO* TO PRINT AREA* 


0013&8 


OA 


00 












SVC 


X«DD« 


CONVERT TEST NUMBER 


0013AA 


0002 












DC 


AL2C2I 




0013AC 


0644 












OC 


AL2UTSTN0+5-SECN0I 




0013AE 


0644 












DC 


AL2IITSTN0*5-SECNQI 




0013B0 


OA 


00 












SVC 


X"DO» 


PRINT TEST NUMBER 


001362 


64 












IFLA61 


DC 


• X f 64« 




0013B3 


09 














DC 


X 8 09» 




001 384 


- F63F 












DC 


AL21 I TSTNO-SECNO+REG) 




0013B6 


41 


80 0 


004 








LA 


R8»4 


AOJUST LINK AODRESS FOR PRINTOUT 


0013BA 


IB 


88 












SR 


R11*R8 




00138C 


50 


BO 


F 


500 








ST 


RUtILINK*S 




0013CO 


OA 


DO 












SVC 


X^DO* 


CONVERT LINK ADDRESS 


0013C2 


0003 












DC 


AL2C3I 
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05MAY65 
124252 
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0013C4 < 


0501 












DC 


AL2I ILINK+6-SECN0) 




0013C6 


0500 












DC 


AL2f I LINK* 5- SEC NO I 




0013C8 * 


OA DO 












SVC 


X'OO' • 


Pat NT i f wtt innoeec 
rn&ni Linn AuUKcaa 


0013CA 


AO: 












DC 


X 9 AO ( • 




0013CB 


10 












DC 


X'lO* . 




0013CC ; 


F5CB 












DC 






0013CE 


41 BB 0 


004 








LA 


R11.4IR111 




0013D2 


91 80 


B 


000 








TM 


Of Rill . X*f)0t 




0013D6 


47 10 


F 


454 


; 






BC 


ALL* IOTSV - 
"till •Uw«n 


BR* Ir NO- I-«-u COMMAND ISSUED 


00130A 


OA 00 












SVC 


A Uw • 


CONVERT 1^0 ADDRESS 


0013DC 


0003 












DC 


WL< I St 9 




0013DE ■ 


06A0 












OC 


AL2 f lOADR—SPrum 




0013E0 


05C1 












DC 


ai ot ? ha nno.*. ccf kin » 




0013E2 


OA DO 












SVC 


X'OO* 


PRI NT I— 0 ADDRESS 


0013E4 


AO 












DC 


X* AO* 




0013E5 


OF 












OC 


, x*OF* 




0013E6 


F5BC 












OC 


ai 9 f t nAnna.cei*fciflA,Ber i 

1 UAUUK— 9C(*NUY'KCl9 1 




0013E8 


95 9C 


F 


IAC 








CLI 


I <?<UJF .ytqr i 


1* mill A AC drtffA # f f| I^AIiAl Atiift 

COnFARE FOR SIO COMMAND 


0013EC 


47 60 


F 


442 








BC 


i ikiPn irrniiT 

UniCU t IwwUU 1 


BR* IF NOT 


0013F0 


50 AO 


F 


5E0 








d 1 


K lUf 11AW+9 


STORE CCW ADDR* 


0013F4 r 


OA 00 












svc 


X 'DD 9 


CONVERT CAW 


0013F6 . 


0003 












DC 


At 7t %l 




0013F8 


05E1 












DC 


ai 7 f f r Au+A»<FrMnt ■ 




0013FA 


05E0 












DC 


Ai ot iriuA K.ccruAi • 
L. <c & 11>k »* 3~* oCv« «!U 3 




0013FC 


OA DO 












SVC 


X'DO' 


rKI NT iLmM 


0013FE 


AO ' 












DC 


X'AO* 




0013FF 


OB 












DC 


X'OB B 




001400 


F50B 












DC 


At 2 1 irA\u-»<Frfcin*fig:j5.% 




001402 


D2 02 


F 


SEE 


F 


SEA 




MVC 


irlah+i fii-trru 

iDLAflTll Jt f * A VW W 


WOVE —CCW- TO MESSAGE 


001408 - 


92 16 


F 


430 








MVI 


A %*m I a A AD 


An II ICT ^nnuT 

AU JUbT CUUNT 


00140C 


D2 07 


F 


590 


A 


000 


ICWOUT 


MVC 


work 1 bi .niai m 


nUVc CCW TO WORK AREA 


001412 


45 90 


F 


426 








BAL 


R9t ICOUT 


Rfi Tft ntlTDlIT <* l«> u 
»K* 1 U UU 1 r U 1 LvN 


001416 




A 


004 








TM 


41 RIO) tX ff CO* 


V»nCLA rUK ANY vnAlN FLAGS 


00141A 


47 80 


F 


442 








BC 




BR* IP NONE 


00141E 


A. ? A A 
*tl AA 


u 


008 








LA 


R10«8f RIO) 

r\AVfu|f\AU# 


UrUAIe TO NEXT CCW 


001422 


47 FO 


F 


40C 








BC 


UNCt ICWOUT 




001426 


OA DO 










ICOUT 


SVC 


1 X'DD 1 


fflWUCBT 
lUNVcKI 


001428 


0008 












DC 


AL2I8) 




00142A 


0590 












DC 


AL2I WORK«SECNO} 




00142C 


0590 * 












DC 


AL2( WORK-SECNO! ' 




00142E 


D2 07 


F 


5F2 


F 


590 




MVC 


IBLAH4-5I 111 .unaK 


unuc Tn uctcire 


001434 t 


02 07 


F 


5FB 


F 


598 




MVC 


IBLAH+14(8i *WQRK«8 • 




00143A 


OA DO 












SVC 


X*DO c . 


rKI N| 


00143C 


AO 












DC 


X*AO* 




00143D 


1A 










. ICNT 


DC 


, X* 1A 8 




00143E 


F5E0 












DC 


AL2I IRLAH<~<;^rMn«>8ls:ftft 




001440 


07 F9 












BCR 


UNCtR9 


QPT1IOAI iff A DCr a 
WCIURN VIA KCv v 


001442 


02 00 


F 


SAO 


B 


004 


ICCOUT MVC 




MOVE EXP CC TO MESSAGE 


001448 ' 


OA 00 












SVC 


X e DO a 


rKI NT EXPECTED COND* CODE 


00144A 


AO : 












DC 


X 4 AO* 




00144B 


OA 












DC 


. x*OA c 




00144C 


F5A8 












DC 


AL2CIEXPCC-SECN0*REGI 




nni tic 


OA DO 












SVC 


X«DO« 


PRINT ACTUAL CONO* CODE 


001450 


AO 












DC 


X«AO B 




001451 


OA 












DC 


X«OA» 




001452 


F5B2 












DC 


AL2IIACTCC-SECN04REGI 




001454 


D2 02 


F 


SEE 


F 


SET 


IOCSW 


MVC 


IBLAH^lt3),ICSW 


MOVE -CSW- TO MESSAGE 


00145A 


92 1A 


F 


430 








MVI 


ICNT.XHA* 


ADJUST COUNT 


00145E 


91 08 


B 


000 








TM 


0(R11) 9 X«08« 




001462 


47 80 


F 


486 








BC 


NONEt IDIDI 


BR. IF NO CSW EXPECTED 


001466 - 


02 02 


F 


604 


F 


60A 




MVC 


IBLAH^23C3>,IEXP 


MOVE. -EXP- TO MESSAGE 


00146C 


48 8B 


0 


006 








LH 


R8,6IR111 




001470 


40 80 


F 


480 








STH 


R8tICHNGU4 




001474 


41 88 


0 


008 








LA 


R8 9 8IR8) 




001478 


40 80 


F 


480 








STH 


R8»ICHNG24-4 




00147C 


02 07 


F 


590 


F 


590 : 


ICHNG1 


MVC 


W0RKI8) 9 W0RK 


HOVE EXPECTEO CSW TO WORK AREA 


001482 


45 90 


F 


426 








BAL 


R9, ICOUT | 


TO OUTPUT EXPECTEO CSW 


001486 


91 40 


F 


OEB 






: IDIOI 


TM 


ISWtX»40« 





DATE 05 MAY 65 10AUG6S 22FEB66 
EC 124252 125580 125621 
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0OI48A 


47 80 


F 


49 E 








BC t 


< NONE 9 IMORST * 


BR. IF NO CSV STORED 


00148E 


D2 02 


F 


604 


F 


607 




MVC : 


IBLAH+2313) ,IACT 


MOVE -ACT* TO MESSAGE 


001494 


02 07 


F 


590 


F 


67 E 




MVC 


W0RKC8) tICSWl 


MOVE ACTUAL' CSW TO WORK AREA 


00149A 


45 90 


F 


426 








BAL 


R9tIC0UT 


BR. TO OUTPUT ACTUAL CSW 


00149E 


91 04 


B 


000 






IMORST TM 


O(Rll) aX*04* 




0014A2 


47 80 


F 


4B6 








BC 


NONEtlDID 


BR. IF NOT EXPECTING 2 CSWS 


0014A6 


D2 02 


F 


604 


F 


60A 




MVC 


IBLAM+23I3) tIEXP 


MOVE- -EXP- TO MESSAGE 


00I4AC 


02 07 


F 


590 


F 


590 


ICHNG2 


MVC 


WORM 8) tWORK 


MOVE EXPECTED CSW TO WORK AREA 


0014B2 


45 90 


'F 


426 








BAL 


R9.IC0UT 


BR. TO OUTPUT EXPECTED CSW 2 


0014B6 


91 20 


F 


0E8 






I0ID 


TM 


ISW 9 X*20* 




00 14 B A 


47 80 


F 


4CE 








BC 


NONE t IPAS 


BR.. IF NO SECOND CSW STORED 


0014BE 


02 02 


F 


604 


F 


607 




MVC 


IBLAH+23C3) tIACT 


MOVE. -ACT- TO MESSAGE 


0014C4 


02 07 


F 


590 


F 


686 




MVC 


W0RKC8),ICSW2 


MOVE CSW TO WORK AREA 


0014CA 


45 90 


F 


426 








BAL - 


R9»IC0UT 




00I4CE 


02 00 


F 


612 


B 


005 


IPAS 


MVC 


IEXSNS+5<l) 9 5tRlll 


MOVE EXP SENSE TO MESSAGE 


0014D4 


91 04 


F 


0E8 








TM 


ISWtX'04" 




001408 


47 80 


F 


4F8 








BC 


NONE t IPASS 


BR. IF NO SENSE DATA RECIEVED 


0014DC 


OA 00 












SVC 


X*DD* 


CONVERT EXPECTEO SENSE 


00140E 


0001 












DC 


AL2C1I 




0014E0 


0612 












DC 


AL2UEXSNS+5-SECN0) 




0014E2 


0612 












DC 


AL2I IEXSNS+5-SECN0) 




0014E4 


OA 00 












SVC 


X*DO* 


PRINT EXPECTED SENSE 


0014E6 ■ 


AO : 












DC 


X*AO* 




0014E7 


OB 












DC 


X*OB* 




0014E8 


F60D 












DC 


AL2UEXSNS-SECNQ+REG) 




0014EA 


OA 00 












SVC 


X*DD* 




0014EC 


0001 












DC 


AL2U! 




0014EE 


061 D 












DC 


AL2UACSNS+5-SECN0) 




0014F0 


0610 












oc ; 


AL2UACSNS*5-SECN0) 




0014F2 


OA 00 












SVC 


X*DO* 


PRINT ACTUAL SENSE DATA 


0014F4 


AO 












DC 


X'AO* 




0014F5 


OB 












DC 


X*OB* 


- v 


0014F6 


F618 












DC ■ 


AL2UACSNS-SECN0+REG) 


00I4F8 ' 


95 30 


E 


181 






IPASS 


CLI 


SYSM0D(R14)»X*30* 


CHECK FOR MODEL 30 : 


0014FC 


47 60 


F 


52C 








BC 


UNEQ, ICUIO 


BR IF NOT* 


001500 


02 OB 


F 


590 


E 


080 


ILOGED 


MVC 


WORK! 12) »LQG0UT(R14) 


HOVE LOG OUT TO WORK AREA 


001506 


OA DO 












SVC 


X'DD* 


CONVERT • 


001508 


000 C 












DC 


AL2C12) 




00150A 


0590 












DC 


AL2( WORK-SECNO) 




00150C 


0590 












DC 


AL2( WORK-SECNO) 




00150E 


D2 01 


F 


628 


F 


590 




MVC 


I0L0G+5C2) .WORK 


MOVE LOG OUT TO MESSAGE 


001514 : 


02 05 


F 


62B 


F 


592 




MVC 


I0L0G+8(6) , WORK+2 




00151A 


D2 05 


F 


632 


F 


59A 




MVC . 


10L0G+15C6) 9 W0RK+10 




001520 


D2 05 


F 


639 


F 


5A2 




MVC 


10L0G+22C 6) f W0RK*18 




001526 


OA DO 












SVC 


• X*DO* 


obi %it t ne mrr 
PRINT LCu wUl 


001528 


AO 












DC 


X*AO* 




001529 


IC 












DC 


x*ic* 




00152A 


F623 












DC 


AL2UQL0G-SECN0+REG) 




0O152C 


91 02 


F 


0E8 






ICUIO 


TM 


ISW f X*02* 


SEE IF UIO. 


001530 


47 80 


F 


53C 








BC 


NONE t IOPOUT 


BR. IF NOT UIO 


001534 '. 


94 FO 


F 


0E8 








NI 


ISW f X*FD« • 


RESET UIO SWITCH 


001538 


47 FO 


F 


206 








BC 


UNCI WAIT 


BR. UNCONDITIONAL 


00153C 


OA DO 










IOPOUT 


SVC 


X*DO* 


PRINT LOOP OPTIONS 


00153E 


CO 










IFLAG2 


DC 


X*CO* 




00153F 


36 












OC 


X«36* 




001540 


F648 












OC 


AL2CI0PT1-SECN0+REG) 




001542 


OA DO 












SVC 


X*00* 


SPACE A LINE 


001544 


AO 












OC 


X*AO* 




001545 


01 












OC 


X*Ol* 




001546 


F5CB 












OC 


AL2( ILINK-SECNO+REG) 




001548 


50 AO 


0 


048 








ST 


R10.HCAWCR13) 


STORE CAW 


00154C 


91 CO 


F 


004 








TM 


SNSW.X'CO* • 


CHECK SECTION SENSE SWITCH 0 Al 


001550 - 


47 50 


F 


156 








BC 


ANYtlTRYl 


BR. IF. ANY ON 


001554 


: 91 80 


F 


0E8 








TM 


ISW f X*80* 




001558 


07 15 












BCR 


ALL f R5 


RETURN VIA REG 5' IF HANG UP 


00155A 


91 08 


B 


000 






* It f AVE 


TM 


0CRU)»X*08« . 




0O155E 


47 80 


F 


566 








BC 


NONE t I UP 


BR. IF NO CSW EXPECTED 


001562 


41 BB 


0 


002 








LA 


R11 9 2!R11) 


UPDATE LINK ADDRESS FOR RETURN 



DATE 

EC 



05MAY6S 
124252 



10AUG65 
125580 



22FEB66 
125621 



15JUN67 
130498 
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001566 


41 BB 


0 


006 


IUP LA 


Rll»6tRllI 




00156A 


96 89 


F 


588 


LM 


R8,R9«ISAVE 


RESTORE REGS 8 ANO 9 


00156E 


07 FB 






BCR 


UNCtRH 


RETURN VIA REG 11 




















* INTERVENTION REQUIRED MESSAGE 










**%%++****44+1f + + + + + + * + + + + + 


001570 


OA DO 






RDYM SVC 


X'DO* 


PRINT -MAKE DEVICE REAOY- 


001572 


2410 






DC 


X«2410* 




001574 


FFEB 






DC 


AL2CMDR-SECN0+REG) 




001576 


OA DA 






SVC 


X'DA* 


. -HALT- 


001578 


9D 00 


C 


000 


TIO 


0<R12> 


TEST 1-0 


00157C 


OA 00 






SVC 


X e DO« 


PRINT A BLANK. 


00157E 


8001 






DC 


X«8001* 




001580 


FFEB 






DC 


AL2 ( MDR-SECNO+REG ) 




001582 


47 FO 


F 


136 


BC 


UN C, I RE TRY 


BR TO CONTINUE. 















♦ 1-0 HANDLER WORK AREA. 

*****«***«**:>: < + * + 4+**^ t ******** 



001586 






CNOP 


0,8 


001586 


07 00 


BCR 


0, 0 


001588 


0000000000000000 


ISAVE 


DC 


XL8 f 0 e 


001590 




WORK 


DS 


24C 


0015A8 


40C 3 C34040 E740 C5 E7 


IEXPCC 


DC 


C • CC X EXP* 


0015B1 


07 








0015B2 


40C3C34040E740C1C3 


IACTCC 


DC 


C • CC X ACT* 


0015BB 


E3 








0015BC 


40C1C40940E7E7E7E7 


IOADDR 


DC 


C» ADR XXXXXX X10 a 


0015C5 


E7E740E7C906 








0015CB 


00 




DC 


x*oo« 


0015CC 






CNOP 


0,4 - 




0015CB 




ORG 


*~X 


0015CB 


40CIC4D940E7E7E7E7 > 


IL INK 


DC 


C» ADR XXXXXX LINK 9 


0015D4 ' 


E7E740D3C905D2 








0015DB 


00 




DC 


x«oo e . 


0015DC 






CNOP 






00150B 




ORG 


*- 1 


0015DB 


40C3C1E640E7E7E7E7 


1CAM 


DC 


C* CAW XXXXXX 


0015E4 


E7E740 . 








0015E7 


C3E2E6 


icsw 


DC 


C'CSW* 


0015EA 


C3C3E6 


ICCW 


DC 


C»CCW* 


0015ED 


40C3E2E640E7E7E7E7 


IBLAH 


DC 


C» CSW XXXXXXXX XX • 


0015F6 


E7E7E7E740E7E7 








0015FD 


E7E7E7E7E7E740C5E7 




DC 


C • XXXXXX EXP* 


001606 


07 








001607 


C1C3E3 


IACT 


DC 


C»ACT« 


00160A 


C5E7D7 


IEXP 


DC 


C*EXP* • 


00160D 


40E2D5E240E7E740C5 


IEXSNS 


DC 


C* SNS XX EXP* 


001616 


E7D7 








001618 ' 


40E2D5E240E7E740C1 


IACSNS 


DC 


■ C* SNS XX ACT* 


001621 


C3E3 








001623 


4003D6C740E7E740E7 


IOLOG 


DC 


C» LOG XX XXXXXX X* 


00162C 


E7E7E7E7E740E7 








001633 


- E7E7E7E7E740E7E7E7 




DC 


C • XXXXX XXXXXX* 


00163C 


E7E7E7 








00163F 


40E3E2E340E7E7E7E7 


ITSTNO 


DC 


C« TST XXXX* 


001648 


40E2C5E340E2E240F0 


IOPTl 


DC 


C» SET SS 0 ON FOR* 


001651 ; 


40060540C6D6D9 








001658 1 


40D3D6D6D740D6D540 




DC 


C • LOOP ON XlOt $S» 


001661 . 


E7C9D66B40E2E2 








001668 


40F 140060540C6D6D9 




DC 


C« 1 ON FOR TIO SI« 


001671 , 


40E3C9D640E2C9 








001678 


D640D3D6D6D7 




DC 


C»0 LOOP* 


0O167E 


0000000000000000 


ICSW1 


DC 


XL8 f 0* . 


001686 


0000000000000000 


ICSW2 


DC 


XL8«0* 


001690 


04 00161D 0000 0001 


ISENSE 


CCW 


X»04« f IACSNS*5»X*00«tl 


001698 


0000000000000000 


ISLAVE 


DC 


XL8*0* REGISTER 


001 6 AO 


0011 AC 


IOADR 


DC 


AL3C ISSUE! 


0016A3 


FE 


MSK1 


DC 


X*FE« ' 



DATE 05MAY65 10AUG65 22FEB66 15JUN67 
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• SO F810r3 
f PAGE *A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM • 

2540 READER FUNCTION TESTS - SECTION | F810 



' P/N 840186 I 
PAGE 10 1 



0016A4 


01 






MSK2 


DC 


X*Ol« 




0016A5 


00 






RTSV . 


DC 


x»oo« 


SAVE RT NO* FOR HANGUP* 


0016A6 


00 






SWCH 


OC 


x«oo* 




0016A7 


40E4C9D640C6D9D6D4 


IUNEX 


DC t 


C« UIO PROM DEVICE' 




0016B0 


40C4C5E5C9C3C5 








0016B7 


40E7E7E7E7 




OC 


C« XXXX» 


























INITIALIZE ROUTINE 












00L6BC 


IB 


DO 




INIT 


SR 


R13,R13 


7FRC1 RPR 1, 


0016BE 


91 


40 


E 196 




TM 


406CR14) ,X'40* 1 


CHECK FOR FflRrFI") ponRI FM *.T AT F 


0016C2 


47 


80 


F 6C8 




BC 


NONE, NITWIT 


BR* IF NOT 


0016C6 


18 


DF 






LR 


R13,R15 


<FT IIP cno PRnm cy ctits 

jCI Ur rUI\ rRUDLCn alAlE 


0016C8 


58 


CO 


F 0E4 


NITWIT 


t 


R12tUNIT2 


PUT PfH UNIT TARI F fN 19 


0016CC 


54 


CO 


F 73C 




N 


R 12.MnD50 

i\ x mm y nuu mJ%3 ' 


and ntiT ii i rut Anna f<«. 

AniU UU! ALL QUI ftuunCdd* 


001600 


50 


CO 


F E1C 




ST 


R12,PCH 


SAVE IT* 


0016D4 


58 


CO 


F O EO 




^ 


l\ JL C , UIX 111 


PUT RHR IIR1YT T ARI F T klTD 19 


001608 


54 


CO 


F 73C 




N 




A Kin m it i iiiii ic en o ttc 
Aixu UU 1 UNUotu BUS 


00160C 


50 


CO 


F E18 




ST 


l\ X C ff MIR 


oAVC 1 « 


0016E0 


92 


00 


F E22 : 




MVf 


i new. x * nn ■ 


7Con tuc | flinca cu bvtc 
4LCKU inc LUMUCK 511 DTI C« 


0016E4 


IB 


66 






SR 


R6f R6 


tCRU KCv O. 


0016E6 


43 


6E 


0 189 




IC 




PUT 1 PMCTU nc nyin Tint c t fcrrn A 
"11 1 LCNu I n Ur UnlU 1 ADLC In 1 U O* 


0016EA 


4A 


6E 


0 1BC 




AH 




Ann nccccT trinoccc to i curTu 
AUU Urric 1 AUUKcoo 1 U LcNb I n* 


0016EE 


1A 


6E 






AR 


R6,R14 


Ann dacc acn uii nc 

AUU DAaC KCu V ALUC. 


0016F0 


4B 


60 


F £20 




on 




CIIDTDArT *% CDnU YT Tfl On TUT Tn innn 

oUoiRfltl Z rKUni 11 1 u ruiN-i TO ADQR* 


0016F4 


49 


C6 


0 000 




CH 


R12,0(R6) 


SEE IF READER. IS LOADER* 


0016F8 


47 


60 


F 700 




BC 


UNEQ»BLOQP 


BR IF NOT. 


0016FC 


96 


80 


F E22 




01 


LDSW,X«80« 


TURN ON LOADER SW. 


001700 


91 


80 


F 0E8 


BLOOP 


TM 


ISW,X«80« 


CHECK FOR HANG UP 


001704 : 


47 


10 


:F 720 : 




BC 


ALL t HANGUP 


BR, IF DETECTED 


001708 ' 


92 


40 


F 740 




MVI 


RDAR*C * « 


CLEAR WORK AREA. 


00170C 


02 


9E 


F 741 F 140 




MVC 


RDAR+H 159} fRDAR 




001712 


92 


00 


F 6A6 




mvi 


SWCH,X«00« 


ZERO INTERV SWITCH* 


001716 . 


92 


03 


f oio ; 




MVI 


CCW,X«03« 


PUT A N00P INTO CCW. 


0ui71A 


41 


AO 


F D10 




LA 


RIO, CCW 




00171E 


07 


F4 






BCR 


UNCR4 


RETURN VIA! REG 4 


001720 


02 


00 


F 003 F 6A5 


HANGUP 


MVC 


SECN0*3!1},RTSV 


RESTORE RT NO. 


001726 


OA 


00 






SVC 


X"D0 f 


PRINT 


001728 


64 








DC 


X«64« 


-PREVIOUS HANGUP OETECTED- 


001729 


1A 








DC 


; - X , lA i • 




00172 A 


F7E0 






DC 


AL2 ( HUNG- SECNO+REG I 




0O172C 


96 


01 


F 0E8 




01 


ISW 9 X'Ol* 


TURN ON ERROR SWITCH. 


001730 


45 


50 


F 2C2 




BAL 


R5, IDOSNS 


BR. TO OUTPUT AVAILABLE INFO 


001734 : 


92 


00 


F 0E8 




MVI 


1SW,X«0Q* 


RESET HANGUP SWITCH 


001738 


47 


FO 


:f .700 * 




BC 


UNCBLOOP 




00173C 










CNOP 


0,4 




00173C 


00003FFF 


M0D50 


BC 


X*00003FFF« 




001740 








ROAR 


DS 


160C 




0017E0 


40D7D9C5E5C906E4E2 


HUNG 


DC 


C* PREVIOUS HANG U 9 




0017E9 


40C8CID5C740E4 










0017F0 


D740C4C5E3CSC3E3C5 




DC 


C'P DETECTED* 




0017F9 


C4 














0017FA 










CNOP 


0,4 





0017FA 07 00 



BCR 



0,0 



* ROUTINE 01 - ISSUE A TEST 1-0 TO AN AVAILABLE AND IDLE DEVICE. 

* EXPECT CONDITION CODE 0. 



0017FC 


01 




R0UT01 


DC 


X«0l» 


ROUTINE NUMBER 


0017FD 


000820 








DC 


AL3(R0UT02-SECN0J 


ADDRESS OF NEXT ROUTINE 


001800 


45 40 F 


6iC 






BAL 


R4,INIT 


BR. TO INITIALIZE 


001804 


45 BO F 


OFE 


START 


BAL 


Rll.ITIO 


BR TO ISSUE TEST 1*0* 


001808 


0200 








DC 


X»0200" 


CTRL SWITCHES 


00180A 


0010 








DC 


X«0010« 


TEST NUMB 


00180C 


F000 








DC 


X»F000» 


EXP CONO. CODE AND SENSE 


00180E 


58 CO F 


E1C 


GTN 




L 


R12,PCH 


PUT PCH A DDR INTO REG 12* 


001812 


45 BO F 


OFE 






BAL 


Rll,ITI0 


BR TO ISSUE TEST 1-0 


001816 


0200 








DC 


X»0200» 


CTRL SWITCHES 


DATE 


05MAY65 


10AUG65 


22FEB66 


15JUN67 






EC 


124252 


125580 


125621 


130498 
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001818 
00181A 
00181C 
00181E 
00181E 



001850 
001851 
001854 
001858 
0O185C 
001860 
001862 
001864 
001866 
001868 
00186C 
00186E 
001870 
001872 
001874 



0020 
F000 
OA 06 

07 00 



T E S T N U M B 
EXP COND* CODE AND SENSE. 
ROUTINE EXIT 



E R 



03 

000874 

45 40 F 6BC 



41 AO 

45 BO 

2A00 

0060 

F000 

FDDO 

45 BO 

0200 

0070 

F000 

OA D6 



F 690 
F 112 



F OFE 



DC X»0020* 
DC X«F000» 
SVC X«06» 
CNOP 0,4 
BCR 0,0 

* ROUTINE 02 — ISSUE SENSE COMMAND -04-* EXPECT COND. CODE 0 ON THE SIO 

* ISSUE A TEST 1^0. EXPECT COND. COOE 1, AND CHANNEL AND 

* DEVICE ENO . IN THE CSW. ISSUE TEST 1^0. EXPECT CONDITION 

* CODE 0 



E R 



001820 


02 




R0UT02 DC 


X«02» 


ROUTINE NUMBER 


001821 


000850 




DC 


AL3CR0UT03-SECN0J 


ADDRESS OF NEXT ROUTINE 


001824 


45 40 F 


6BC 


BAL 


R4,INIT 


BR. TO INITIALIZE 


001828 


41 AO F 


690 


LA 


RIO, I SENSE 


LOAD SENSE CCW ADDRESS 


00182C 


45 BO F 


112 


BAL 


R11.ISI0 


BR. TO ISSUE SENSE SIO 


001830 


4200 




DC 


X«4200» 


CTRL SWITCHES 


001832 


0030 




DC 


X«0030 f 


T E ST NUMB 


001834 ! 


F000 




DC 


X»F000 f 


EXP COND. CODE AND SENSE 


001836 


45 BO F 


OFE 


BAL 


Rll.ITIO 


BR. TO ISSUE TEST 1-0 


00183A 


4A00 




DC 


X«4A00« 


CTRL SWITCHES 


00183C 


0040 




DC 


X»0040» 


TES T NUMB 


00183E 


F100 




DC 


X^FIOO' 


EXP COND. CODE AND SENSE 


001840 


FDDO 




DC 


AL2(SNSCSW-SECN0tRE6! 


EXP CSW ADDRESS 


001842 


45 BO F 


OFE 


BAL 


R11,ITI0 


BR. TO ISSUE TEST 1-0 


001846 


0200 




DC 


X"0200« 


CTRL SWITCHES 


001848 


0050 




DC 


X«0050« 


TEST NUMB 


00184A 


F000 




DC 


X«F000« 


EXP COND. CODE AND SENSE 


00184C 


OA 06 




SVC 


X'06 8 


ROUTINE EXIT 


00184E 






CNOP 


0,4 




00184E 


07 00 




BCR 


0,0 





E R 



* ROUTINE 03- ISSUE SENSE COMMAND -04-. ENABLE FOR AN EXPECTED CHANNEL 

* DEVICE END INTERRUPT. ISSUE TIO. EXPECT COND. CODE 0. 



ROUT03 DC 
DC 
BAL 
LA 
BAL 
DC 
DC 
DC 
DC 
BAL 
DC 
DC 
DC 
SVC 
CNOP 



X«03« 

AL3(R0UT04-SECN0) 

R4,INIT 

RIO, I SENSE 

Rll.ISIO 

X«2A00« 

x^ooeo 1 

X^OOO' 



ROUTINE NUMBER 

ADDRESS OF NEXT ROUTINE 

BR. TO INITIALIZE 

SET UP FOR SENSE COMMAND 

BR. TO ISSUE SENSE SIO 

CTRL SWITCHES 

TEST NUMB 

EXP COND. CODE AND SENSE 



AL2< SNSCSM-SECNO+REG) EXP CSW ADORESS 



R11,ITI0 

X , 0200 f 

X«0070« 

X^FOOO* 

X»D6« 

0,4 



BR. TO ISSUE TEST 1-0 
CTRL SWITCHES 

T E S T N U M B ■ E 
EXP COND. CODE AND SENSE 
ROUTINE EXIT 



* ROUTINE 04 - ISSUE NOP— 03-. EXPECT COND* CODE I ON THE SIO, WITH 

* CHANNEL AND DEVICE) END STORED IN THE CSW* NO INTERRUPT 

* SHOULD OCCUR* 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦•♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦^♦♦♦♦^^^^^^^ 

ROUTINE NUMBER 
ADDRESS OF NEXT. ROUTINE 
BR. TO INITIALIZE 
SET UP FOR NOP 
BR. TO ISSUE NOP SIO 
CTRL SWITCHES 
T E S T N U M B E' R 
EXP CONO. CODE AND SENSE 
EXP CSW ADDRESS 
ROUTINE EXIT 



001874 


04 




R0UT04 DC 


X«04» 


001875 


000890 




DC 


AL3(R0UT05-SECN0I 


001878 


45 40 F 


6BC 


BAL 


R4,INIT 


00187C 


92 03 F 


010 


MVI 


CCW,X«03» 


001880 


45 BO F 


112 


BAL 


Rll.ISIO 


001884 


0800 




DC 


X f 0800« 


001886 


0080 




DC 


X«0080« 


001888 


F100 




OC 


X'FIOO" 


00188A 


FDD8 




DC 


AL2CNQPCSW-SECN0+REG! 


00188C 


OA D6 




SVC 


X«D6« 


00188E 






CNOP 


0,4 


00188E 


07 00 




BCR 


0,0 



DATE 05MAY65 10AUG65 22FEB66 15JUN67 10 F810-3 

EC 124252 125580 125621 130498 , PAGE 10A 
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* ROUTINE OS. ISSUE A DIAGNOSTIC CHECK REAO ~C6- WITH A SHORT CCW 

* . COUNT. EXPECT INCORRECT LENGTH RECORO TO 8E INDICATED* 

* ISSUE SAME COMMAND WITH A LONG CCW COUNT* EXPECT SAME 

* INDICATION, ISSUE DIAGNOSTIC WRITE WITH A SHORT, THEN 

* . A LONG CCW COUNT* EXPECT SAME INDICATIONS* 
*********************************************************************** 



001890 • 


05 


R0UT05 DC 


001891 


000 ft EO ' 


DC 


001894 ' 


4.4 40 F 6BC • 


BAL 


001898 


41 AO F 018 


LA 


00189C 


45 BO F 112 


BAL 


0018A0 : 


2A00 : 


DC 


0018A2 


0090 : 


OC 


0018A4 ' 


FOOO 


OC 


0018A6 


FD70 


DC 


0018A8 


41 AO F D20 


LA 


0018AC 


45 BO F 112 


BAL 


0018B0 


2A00 


DC 


0018B2 


0100 


DC 


001884 ! 


FOOO 


DC 


0018B6 


FDT8 * 


DC 


0018B8 


41 AO F D28 


GOOS LA 


0018BC 


58 CO F E1C 


L 


0018C0 


45 BO F 112 


BAL 


0018C4 


2A00 : 


DC 


0018C6 


0110 


DC 


0018C8 


FOOO 


DC 


0018CA 


FD80 


DC 


0018CC 


41 AO F D30 


LA 


0018D0 


45 BO F 112 


BAL 


0018D4 : 


2A00 


DC 


0018D6 


0120 


DC 


0018D8 


FOOO ; 


DC 


0018DA 


FD88 


DC 


0018DC 


OA 06 


SVC 


0018DE 




CNOF 


0018DE 


07 00 


BCR 



x^os* 

AL3CRQUT06-SECN0) 

R4.INIT 

RIOtROSH 

RlltlSIO 

X*2A00* 

X*0090' 

X'FOOO* 

AL2(RSCSW-SECN0+REG) 

R10,RDLG 

RlltlSIO 

X*2A00« 

X'0100' 

X«FOOO« 

AL2 I RLC SW-SECNO+REG I 

RIO.WRSH 

R12*PCH 

RlltlSIO 

X'2A00« 

X'0110* 

X«FOOO« 

AL2 ( WSCSW-SECNO+REG ) 

R10,WRLG 

RlltlSIO 

X«2A00« 

X«0120« 

X'FOOO 1 

AL 2 C WLC SW-SECNOtREG I 

X»D6« 

0.4 

0,0 



ROUTINE NUMBER 
AODRESS OF NEXT ROUTINE 
BR* TO INITIALIZE 
LOAD ADDR OF SHORT REAO CCW* 
BR* TO ISSUE SIO 
CONTROL SWITCHES 
TEST NUMB ER 
EXP CCND* CODE AND SENSE 
EXP SHRT REAO CSW ADDRESS* 
LOAD ADDR OF LONG REAO CCW* 
BR* TO ISSUE SIO 
CONTROL SWITCHES 
TEST NUMBE_R 
EXP CONO* CODE AND SENSE 
EXP LONG REAO CSW* 
LOAD ADDRESS OF SHORT WRITE CCW* 
PUT ADOR OF PUNCH INTO 12* 
BR. TO ISSUE SIO 
CONTROL SWITCHES 
TEST NUMB ER 
EXP COND* CODE AND SENSE 
EXP SHRT WRITE CSW* 
LOAD ADDR OF LONG WRITE CCW* 
BR* TO ISSUE LONG REAO 
CONTROL SWITCHES 
TEST NUMB ER 
EXP CCND* CODE AND SENSE 
EXP LONG WRITE CSW* 
ROUTINE EXIT 



ROUTINE 06 - A READ NO FEED COMMAND IS COMMAND CHAINED TO TWO MORE 

READ NO FEED COMMANDS. THE SYSTEM IS ENABLED TO RECEIVE 
INTERRUPTS. COND* CODE 0 SHOULO BE SET CN THE SIO. 
UNUSUAL COMMAND SEQUENCE SENSE BIT SHOULD BE SET AT 
CHANNEL AND DEVICE END TIME OF THE SECOND CCW IN THE 
CHAIN. THIS SHOULD BRING UP UNIT CHECK AND BREAK THE 
CHAIN* THE CSW SHOULD CONTAIN THE ADDRESS OF THE FIRST- 
CCW IN THE CHAIN ♦ 16* 



A NOP IS NOW ISSUED* FOLLOWED BY A SENSE. EXPECT NO • 
UNIT CHECK, BUT SENSE BIT SHOULD STILL BE SET* ISSUE 
A DIAGNOSTIC CHECK READ FOLLOWED BY A SENSE* EXPECT 
SENSE BIT TO BE RESET. 

A FEED AND STACKER SELECT POCKET 1 IS COMMAND CHAINED TO 
TWO MORE FEED COMMANDS. THE SYSTEM IS ENABLED FOR 
INTERRUPTS. COND. CODE 0 SHOULD BE SET ON THE SIO. 
COMMAND REJECT SHOULD BE SET ON INITIAL SELECTION OF THE 
SECOND FEED COMMAND. THIS SHOULO BRING UP UNIT CHECK 
AND BREAK THE COMMAND CHAIN. THE ADDRESS OF THE FIRST 
CCW IN THE CHAIN ♦ 16 SHOULD BE IN THE CSW. DEVICE 
STATUS SHOULD CONTAIN UNIT CHECK ALONE. A RESIDUAL 
COUNT OF 2 - THE COUNT IN THE REJECTED CCW - SHOULD BE 
IN THE CSW. 

A NOP IS NOW ISSUED, FOLLOWEO BY A SENSE. EXPECT NO 
UNIT CHECK, BUT SENSE BIT SHOULO STILL BE SET. ISSUE 
A DIAGNOSTIC CHECK READ FOLLOWED BY A SENSE. EXPECT 
SENSE BIT TO BE RESET. 

A DIAGNOSTIC CHECK READ COMMAND IS ISSUED LAST IN THIS ROUTINE 
TO RESET THE SENSE LATCHES BEFORE ENTERING THE NEXT ROUTINE. 



DATE 
EC 



05MAY65 10AUG65 22FEB< 
124252 125580 12562! 



13JUN67 . 
130498 
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****** *****4********4u********t*********************^^ 



0018E0 


06 






R0UT06 DC 


X»06« 


ROUTINE NUMBER 


0018E1 


00094C 




DC 


AL3CR0UT07-SECN0) 


ADDRESS OF NEXT ROUTINE 


0018E4 


45 40 


F 


6BC 


BAL 


R4t INIT 


BR* TO INITIALIZE 


0018E8 


41 AO 


F 


D38 


LA 


R10.RN0F 


LOAD CCW AODRESS* 


0018EC 


45 BO 


F 


112 


BAL 


RlltlSIO 


BR. TO ISSUE SIO 


0018F0 


2800 






DC 


X«2800* . 


CONTROL SWITCHES 


0018F2 


0130 : 






OC 


X«0130* 


TEST NUMB ER 


0018F4 


F002 






DC 


X«F002» 


EXP COND. CODE AND SENSE* 


0018F6 


FDFO 






DC 


AL2I SEQCSW-SECNO+REG) 


EXP CSW ADDRESS. 


0018F8 


41 AO 


F 


970 


LA 


R10,CHNNQP*8 


LOAD NOP CCW AODRESS 


001 8 FC 


45 BO 


F 


112 


BAL 


RlltlSIO 


BR. TO ISSUE SIO 


001900 


0800 






DC 


X'080O* 


CONTROL SWITCHES 


001902 


0140 






DC 


X«0140« 


TEST NUMBER 


001904 


F102 






OC 


X«F102» 


EXP. COND. CODE AND SENSE 


001906 


F0D8 






DC 


AL2(N3PCSW-SECN0+REG) 


EXP. CSW ADDRESS 


001908 


41 AO 


F 


068 


LA 


R1CDCRD 


PICK UP ADDR OF OIAG CHK RD 


00190C 


45 BO 


F 


112 


BAL 


RlltlSIO 


BR. TO ISSUE SIO 


001910 


0800 






OC 


x^soo* 


CTRL SWITCHES 


001912 


0150 






DC 


X«0150« 


TEST NUMBER 


061914 


FOOO 






DC 


X'FOOO* 


EXP* COND. CODE ANO SENSE 


001916 


FE08 






DC 


AL2( DCRCSW-SECNQ+REG1 


EXP. CSW ADUK 


001918 


41 AO 


F 


050 


LA 


R10,FN0R 


LOAD CCW ADDRESS* 


I 00191C 


45 BO 


F 


112 


BAL 


R11,ISI0 


BR. TO ISSUE SIO 


001920 


2800 






DC 


X*2800« 


CONTROL SWITCHES 


001922 


0160 






DC 


X»0160» 


TEST NUMB ER 


001924 ' 


F080 






DC 


X«F080« 


EXP COND* CODE AND SENSE* 


001926 


FDF8 • 






DC 


AL2CREJCSW-SECNQ+REGI 


EXP CSW ADDRESS* 


001928 


41 AO 


F 


970 ; 


LA 


R10,CHNN0P*8 


PICK UP ADDRESS OF SINGLE NOOP 


00192C 


45 BO 


F 


112 


BAL 


RlltlSIO 


BR TO ISSUE SIO* 


001930 


0800 






DC 


X'0800* 


CTRL SWITCHES 


S 001932 


0170 






DC 


X»0170« 


TEST NUMB ER 


001934 


F180 : 






DC 


X»F180» 


EXP COND* CODE AND SENSE* 


001936 


FDD8 * 






DC 


AL2CN0PCSW-SECN0+REG1 


EXP CSW ADDRESS* 


001938 


41 AO 


F 


068 » 


LA 


R10,0CRD 


PICK UP ADDR OF OIAG CHECK RD. 


00193C 


45 BO 


F 


112 


BAL 


Rll.ISIO 


BR TO ISSUE SIO* 


001940 


0800 






DC 


X»0800« 


CTRL SWITCHES 


001942 


0180 






DC 


X«0180' 


TEST NUMB ER 


i 001944 f 


FOOO : 






DC 


X'FOOO' . 


EXP COND* CODE AND SENSE. 


t 001946 < 


FEOS 






DC , 


AL2(DCRCSW-SECN0«-REGI 


EXP CSW ADDRESS* 


j 001948 


OA 06 






SVC 


X«D6« 


ROUTINE EXIT 


00194A 








CNOF 


0,4 




00194A 


07 00 






BCR 


0,0 





**J********************************************************************* 

♦ ROUTINE 07 - COMMAND CHAIN A NOP -03-, TO ANOTHER NOP. EXPECT CONO* 

* CODE 0 ON THE SIO, DUE TO CHAIN FLAG* EXPECT CHANNEL 

* AND DEVICE END INTERRUPT WITH ADDRESS OF THE SECONO 

• • CCW PLUS 8 STORED IN THE CSW* 

*********************************************************************** 



E R 



00194C 


07 




R0UT07 


DC 


X«07 t 


ROUTINE NUMBER 


001940 


000980 






DC 


AL3CRQUT08-SECN0! 


ADDRESS OF NEXT ROUTINE 


001950 


45 40 F 6BC 






BAL 


R4,INIT 


BR. TO INITIALIZE 


001954 


41 AO F 968- 






LA 


RIO, CHNNOP 


SET UP TO CHAIN NOP 


001958 


45 BO F 112 






BAL 


RlltlSIO 


BR. TO ISSUE SIO 


00195C 


3800 






DC 


X«3800« 


CTRL SWITCHES 


00195E 


0190 






DC 


X«0190» 


TEST NUMB 


001960 


FOOO 






DC 


X«F000» 


EXP CCND* CODE AND SENSE 


001962 


F978 






DC 


AL2(CHNST-SECN0+REG> 


EXP CSW ADORESS 


001964 


OA 06 






SVC 


X«D6 f 


ROUTINE EXIT 


001968 


03 001740 4000 


0001 


CHNNOP 


CCW 


X»03SRDAR,X«40 e ,l 




001970 


03 001740 0000 


0001 




CCW 


X'03«,RDAR 9 X'00* V 1 




001978 


00001978 




CHNST 


DC 


AICHNST) 




00197C 


0C000001 






OC 


X'OC 00000 I • 





*********************************************************************** 

* ROUTINE 08 - ISSUE ALL COMMANDS THAT ARE INVALIO TO THE READER. EACH 

* INVALID COMMAND IS ISSUED IN A SINGLE CCW* EXPECT COND* 

* CODE 1 WITH UNIT CHECK IN THE OEVICE STATUS 8YTE AND 



DATE 

EC 



05MAY65 

124252 



10AUG65 
125580 



22FEB66 
125621 



15JUN67 
130498 
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DATE 

EC 



COMMAND REJECT: IN THE SENSE BYTE. EACH INVALID COMMAND 
ISSUEO IS FOLLOWED BY A 0IA6N0STIC CHECK READ -C6- TO 
v l ! RESET THE COMMAND REJECT LATCH* OPTIONAL FEATURE 

COMMANDS WILL BE ISSUED AS INVALID COMMANDS. IF THE 
V FEATURE IS NOT DEFINED IN THE DEVICE UDT ENTRY IN CM* 



AA • AHA 

UU19S0 


08 ' 


R0UT08 DC 


X*08* 


nmiYf uc tit lunrn 

ROUTINE: NUMBER 


001981 . 


000 ATS ' 




DC 


AL3IR0UT09— SECNO) 


ADDRESS OF NEXT ROUTINE 


001984 : 


49 40 P 6BC 




BAL 


R4t INIT 


BR TO INITIALIZE* 


aai Aao ■ 

0019BB 


M « . <%/% g\ A7A 

41 30 0 Of7 




LA 


R3t 121 


PUT THE NO* OF VALID CMOS IN REG 3* 


AA 1 AO #» 

00198C 


42 30 F AT3 


SY2C 


STC 


R3t SA VCNT 


SAVE NO* OF VALID COMMANDS* 


001990 . 


IB 66 




SR 


R6f R6 


ZERO REG 6. 


001992 


92 00 F AT4 




MVI 


CHDBYT»X 9 00* 


PUT ZERO INTO COMMAND BYTE* 


001996 


41 40 F 9FA 


SIV 


LA 


R4 9 VALCOM 


PUT AODR* OF VALID CMOS. INTO REG 4* 


00199A 


43 30 F A73 




IC 


R3t SAVCNT 


PUT CMD COUNT INTO REG 3* 


00199E 


43 60 F A74 




IC 


R69CMDBYT 


PICK UP THE CMD BYTE ! 


0019A2 


95 FF F A74 


ADD1 


CLI 


CMDBYTtX'FF • 


SEE IF LAST CMD* i 


0019A6 


47 80 F 9F8 




BC 


EQ9FINIS 


BR IF YES* ! 


0019AA 


41 66 0 001 




LA 


R6,1(R6) 


ADD I TO THE COMMAND BYTE* 


0019AE 


42 60 F A74 




STC 


R69CMDBYT 


SAVE IT* j 


0019B2 


91 OF F A74 




TM 


CMDBYT f X*OF« 


SEE IF NO BITS ON IN BITS 4 THRU 8* 


0019B6 


47 80 F 9A2 




BC 


NONE, ADD1 


BR IF NONE ON. \ 


0019BA 


05 00 F A74 4 000 


TOT 


CLC 


CMDBYTC 1) »0f R4) 


SEE IF CMD BYTE IS VALID* 


0019C0 


47 80 F 996 




BC 


EQtSIV 


BR IF YES. j 


0019C4 1 


41 44 0 00 1 




LA 


R4«1(R4) 


ADD 1 TO VALID CMOS ADCR* 


0019C8 


46 30 F 9BA 




BCT 


R3«T0T 


BRANCH UNTIL ALL VALID CMOS CHKED* 


0019CC 


41 AO F EOO 




LA 


RIO9 INVCCW 


PICK UP AODR. OF CCW. 


0019D0 


42 60 F EOO 




STC 


R6,INVCCW 


PUT INV CMD BYTE INTO CCW. 


0019D4 


92 38 F 90C 




MVI 


CS.X*38* 


INITIALIZE CTRL SWITCHES. 


0019D8 


45 BO F 112 




BAL 


RlltlSIO 


BR TO ISSUE SIO. 


0019DC 


3880 


CS 


DC 


X*3880* 


CTRL SWITCHES 


0019DE 


0200 




DC 


X*0200* ■ 


TES T NU MB E R 


0019 EO 


F180 




DC 


X»F180* • 


EXP CONO. CODE AND SENSE. 


0019E2 


FDB8 




DC 


AL2(UC-SECN0*REG) 


ADDRESS OF CSW. 


0019 E4 


41 AO F D68 ' 




LA 


RIO9DCRD 


PICK UP ADDR OF D1AG CHK READ CCW. 


0019E8 


45 BO F 112 




BAL 


RlltlSIO 


BR TO START 1-0. 


0019EC 


2800 




DC 


X*2800* 


CTRL SWITCHES 


0019EE 


0210 




DC 


X*0210* 


T EST NUMB ER 


0019F0 


FOOO 




DC 


X*F000* 


EXP CONO. CODE AND SENSE. 




rfcUo 




DC 


AL2 t DCRCSW-SECNO*REG I 


EXP CSW ADDRESS. 


0019F4 : 


47 FO F 996 




BC 


UNCtSIV 


BR TO CHECK ALL INVALID CMOS. 


0019F8 


OA 06 


FINIS 


SVC • 


X«D6* 


ROUTINE EXIT 












* • 


VALID 


COMMAND BYTES 










0019FA 


04142434 


VALCOM 


DC 


X* 04 142434* 




0019FE 


44546474 




DC 


X* 44546474* 




001 A02 


8494A4B4 




DC 


X*8494A4B4* 




001 A06 


C4D4E4F4 




DC 


X*C4D4E4F4* 




001A0A 


02060A0E 




DC 


X*02060A0E* 




001A0E 


12161A1E 




DC 


X*12161A1E* 




001AI2 


42464A4E 




DC 


X'42464A4E« 




001A16 


52565A5E 




DC 


X*52565A5E* 




001A1A 


82868A8E 




DC 


X*82868A8E* 




001A1E 


92969A9E 




DC 


X»92969A9E« 




001A22 


C2C6CACE 




DC 


X*C2C6CACE« 




001A26 


D2D6DADE 




DC 


X*D2D6DADE • 




001A2A 


23272B2F 




DC 


X*23272B2F* 




001A2E 


3337383F 




DC 


X«33373B3F* 




001A32 


63676B6F 




DC 


X*63676B6F* 




001 A3 6 


73777B7F 




DC 


X*73777B7F* 




001 A3 A 


A3A7ABAF 




DC 


X*A3A7ABAF* 




001A3E 


B3B7BBBF03 




DC 


X*B3B7BBBF03* 




001A43 


081828384858687888 




DC 


X*081828384858687888* 


COMMANDS THAT ANSWER 


001A4C 


98A8B8C8D8E8F8 




OC 


X*98A8B8C8D8E8F8* 


AS TICS. j 


001A53 


22262A2E 


COLBIN 


OC 


X*22262A2E* 




001A5T 


32363A3E 




DC 


X*32363A3E* 




001A5B 


62666A6E 




DC 


X*62666A6E* 





05MAY65 
124252 



10AUG65 
125580 



22FEB66 
125621 



15JUN67 
130498 



10 F8l0r3 
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001 A5F 


72767A7E 


001A63 


A2A6AAAE 


001 A 67 


B2B6BABE 


001A6B 


E2E6EAEE 


001A6F 


F2F6FAFE 


001A73 


00 


001A74 


00 


001 A76 




001 A76 


07 00 



OOIADC 



DATE 
EC 



DC X'72767A7E* . 

DC > X'A2A6AAAE* 

OC X«B2B6BABE« 

DC X 9 E2E6EAEE* 

OC X*F2F6FAFE* 

SAVCNT DC X*00* 

CMDBYT DC X*00* 

CNQP 0*4 

BCR 0.0 

* ROUTINE 09 - ISSUE A READ AND FEED COMMAND -02-. CLEAR CHANNEL END. 

* ISSUE TIO BEFORE DEVICE END OCCURS. EXPECT CONO. CODE 

* 1, WITH DEVICE BUSY ONLY IN THE CSW. REPEAT FOR START 

* I-O. EXPECT SAME RESULTS. REPEAT FOR HALT 1-0. EXPECT 

* COND. CODE 1 WITH A ZEROEO CSW STORED. EACH DEVICE END 

* FROM EACH READ AND FEED WILL BE CLEARED BY ENABLING THE 

* CHANNEL AFTER THE 1-0 OPERATION BETWEEN CHANNEL AND 

* DEVICE END TIME » IS PERFORMED* THIS ROUTINE WILL BE 

* BYPASSED IF SECTION SENSE SWITCH 7 IS ON. 



001A78 


09 






ROUT 09 OC 


X«09* 


ROUTINE NUMBER 




001 A79 


000 ADC 




DC 


AL3CR0UT10-SECN0) 


AOORESS OF NEXT ROUTINE 




001A7C 


45 40 


F 


6BC 


BAL 


R4.INIT 






001A80 


41 AO 


F 


008 


LA 


RIO9RDFD 


SET UP FOR READ AND FEED 




001 A84 ! 


91 01 


F 


004 ' 


TM 


SNSW»X*01* 


CHECK SECTION SENSE SWITCH 7 


001A88 


47 10 


F 


894 


BC 


ALL9SOLONG 


BR. IF ON TO BYPASS ROUTINE 


001A8C 


92 02 


F 


010 


MVI 


CCW,X«02» 


SET UP PRINT AND SKIP TO 


1 


001A90 


45 BO 


F 


112 


BAL 


RlltlSIO 


BR. TO ISSUE SIO 




001 A94 ! 


2A00 






DC 


X«2A00 f 


CTRL SWITCHES 




001 A96 


0220 






DC 


X*0220* 


TEST NUMB 


E 


001 A98 


FOOO 






DC 


X'FOOO* 


EXP COND. CODE AND SENSE 




001A9A 


FDEO 






OC 


AL2 1 NORM-? SECNO+REG ) 


EXP CSW ADDRESS 




001 A9C 


45 BO 


F 


OFE 


BAL 


Rll.ITIO 


BR. TO ISSUE TEST 1-0 




001 A AO : 


3 COO 






OC 


X*3C00« 


CTRL SWITCHES 




001AA2 


0230 






OC 


X*0230* 


TEST NUMB 


• E 


001AA4 : 


F100 






DC 


X«F100» 


EXP CONO. CODE AND SENSE 




001AA6 


FDAO 






DC 


AL2(DBIZ-SECN0*REGI 


EXP CSW ADDRESS 




001AA8 


45 BO 


F 


112 


BAL 


RlltlSIO 


BR. TO ISSUE SIO 




001 A AC 


2A00 






DC 


X*2A00« 


CTRL SWITCHES 




001 A AE 


0240 






DC 


X»0240* 


TEST NUMB 


E 


001 ABO 


FOOO 






DC 


X'FOOO* 


EXP COND. CODE AND SENSE 




001AB2 ~ 


FDEO 






DC 


AL2 C NORM- SECNO+REG ) 


EXP CSW ADDRESS 




001AB4 '. 


45 60 


F 


112 


BAL 


RII9ISIO 


BR. TO ISSUE SIO 




001 AB8 


3 COO : 






OC 


X»3C00* 


CTRL SWITCHES 




001A8A 


0250 






DC 


X*0250* 


TEST NUMB 


E 


001ABC 


FiOO 






DC 


X'FIOO* 


EXP COND. CODE AND SENSE 




001 ABE 


FDAO 






DC 


AL2IDBI Z-SECNO+REG) 


EXP CSW ADDRESS 




001AC0 


45 BO 


F 


112 


BAL 


RlltlSIO 


BR. TO ISSUE START 1-0 




001AC4 


2A00 






DC 


X*2A00* 


CTRL SWITCHES 




001 AC6 


0260 






DC 


X*0260* 


TEST NUMB 


1 


001AC8 


FOOO 






DC 


X*F000* 


EXP CONO CODE AND SENSE 




001ACA 


FOEO 






DC 


AL2 C NORM-SECNG+REG > ' 


EXP CSW ADDRESS 




001ACC 


45 BO 


F 


OEA 


BAL 


RlltlHIO 


BR. TO ISSUE HALT 1-0 




001 ADO 


3C00 






DC 


X*3C00* 


CTRL SWITCHES 




001AD2 


0270 






DC 


X*0270* 


T E ST NUMB 


E 


001A04 . 


FIOO 






DC 


X*F100* 


EXP CONO CODE AND SENSE 




001AD6 


FDCO 






DC 


AL2(CSWO-SECN04REGI 


EXP CSW ADDRESS 




001AD8 


OA 06 






SVC 


X*D6* 


ROUTINE EXIT 




001ADA 








CNOP 


0 9 4 






001 ADA 


07 00 






BCR 


0,0 







10 



05MAY6S 
124252 



* ROUTINE 10 - ISSUE A READ AND FEED COMMAND -02-. CLEAR CHANNEL END 

* ONLY. ISSUE AN INVALID COMMAND TO THE DEVICE. EXPECT 
« COND. CODE It WITH DEVICE END AND DEVICE BUSY ONLY IN 

* • THE CSW. EXPECT NO SENSE BITS TO BE SET. 

ROUT 10 DC X*10* ROUTINE NUMBER 



10AUG65 
125560 



22FEB66 
125421 



15JUN67 
130498 
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001 ADD 


000 816 




OC 


AL3(R0UT11-SECN0) 


ADDRESS OF NEXT ROUTINE* 


001AE0 


45 40 


F 


6BC 


BAL 


R4.INIT 


60i INITIALIZE 


001 AE4 i 


41 AO 


F 


D08 


LA 


RIOfRDFO 


SET UP FOR READ AND FEED 


00IAE8 


45 BO 


F 


112 


BAL 


Rlt, ISIO 


GO TO I-Q HANDLER- OIAG WRITE 


001AEC 


2A00 






DC 


XL2»2A00» 


CONTROL SWITCHES 


001AEE 


0280 






DC 


X i 0280» 


T E S T N U M B E R 


001 AFO 


FO 






DC 


X«FO« 


CONDITION COOE EXPECTED 


001AF1 


00 






DC 


X^OO* 


SENSE DATA EXPECTED 


001AF2 


FDEO 






DC 


AL2(N0RM-SECN04-REGJ 


ADDRESS OF CSW 


001AF4 


92 OC 


F 


DiO 


MVI 


CCW,X f OC« 


SET UP FOR INVALID COMMAND 


001AF8 


58 4E 


0 


198 


L 


R4t NTIR14) 


LOAD WAIT FACTOR 


001AFC 


88 40 


0 


004 


SRL t 


R4»4 


ADJUST WAIT FACTOR 


001B00 


46 40 


F 


BOO 


BCT 


R4,* 


WAIT 


001804 


41 AO 


F 


DIO 


LA 


RIOtCCW 




001B08 


45 BO 


F 


112 


BAL 


RlltlSIO 


GO TO 1-0 HANDLER - INVALID COMMAND 


001 BOC 


3800 






DC 


XL2«3800 f 


EXPECTED A CSW 


001 BOE 


0290 ; 






DC 


*X , 0290« 


T E S T N U M B : E R 


001 BIO 


Fl 






DC 


X«F1« 


EXPECTED CONDITION CODE 


001B11 


00 






DC 


X«00« 


EXPECTED SENSE 


001B12 


FDBO 






OC 


AL2( DBZ Y-SECNO+REGJ 


ADDRESS OF CSW 


001B14 


OA 06 






SVC 


X»D6« 


ROUTINE EXIT 



* ROUTINE 11 - A READ AND FEED -02- IS ISSUED. NO INTERRUPTS ARE 













CLEARED. THE SAME 


COMMAND IS ISSUED AGAIN. EXPECT 










* 


CONOITION CODE 2 DUE TO PENDING CHANNEL END. ISSUE A 












HALT I-C. EXPECT 


CONDITION CODE 0. ISSUE A TEST 1-0 












EXPECT COND. CODE 


It WITH CHANNEL END IN THE CSW. 












ISSUE A HALT 1-0. 


EXPECT COND. CODE 1 WITH A ZEROED 










* 


CSW STORED. ISSUE 


READ AND FEED START 1-0 AGAIN. 












EXPECT COND. CODE 


1 WITH DEVICE END AND DEVICE BUSY 












STORED IN THE CSW. 


ISSUE HALT 1-0. EXPECT COND. CODE 1 












WITH A ZEROED CSW 


STOREO. ISSUE TEST 1-0. EXPECT 










' * 


COND. CODE 0. 














001B16 


11 






ROUT 11 DC 


X«ll» 


ROUTINE NUMBER 


001B1T 


000888 




OC 


AL3(R0UT12-SECN0I 


ADDRESS OF NEXT ROUTINE 


001B1A 


45 40 


F 


6BC 


BAL 


R4.INIT 


BR. TO INITIALIZE 


001Q1E 


41 AO 


F 


008 


LA 


RIOtROFD 


SET UP FOR READ AND FEED 


001B22 


45 80 


F 


112 


BAL 


Rllf ISIG 


BR. TO ISSUE SIO 


001826 


4200 






DC 


X»4200« 


CTRL SWITCHES 


001B28 


0300 






DC 


X«0300« 


TEST NUMBER 


00182A 


FOOO 






DC 


X«F000» 


EXP COND. COOE AND SENSE 


001 B2C 


45 BO 


F 


112 


BAL 


RlltlSIO 


BR. TO ISSUE SIO 


001B30 


4200 






DC 


X«4200« 


CTRL SWITCHES 1 


001B32 


0310 : 






DC 


X«0310» 


TEST NU M B E R 


001B34 : 


F200 






DC 


X«F200« 


EXP COND. CODE AND SENSE 


001 B36 


58 9E 


0 


198 


L 


R9,WT(R14) 


LOAD WAIT FACTOR 


001B3A 


88 90 


0 


004 


SRL 


R9«4 


ADJUST 


001B3E 


46 90 


F 


83E 


BCT 


R9,# 


LOOP UNTIL COUNT OF ZERO 


001B42 


45 BO 


F 


OEA 


BAL 


RlltlHIO 


BR. TO ISSUE HALT 1^0 


001B46 


4200 






DC 


X«4200« 


CTRL SWITCH I 


001 848 


0320 






DC 


X«0320« 


T £ S T N UMBER ! 


001 B4 A 


FOOO 






OC 


X«F000« 


EXP CONO. CODE AND SENSE 


001B4C 


45 BO 


F 


OFE 


BAL 


RU.ITIO 


BR. TO ISSUE TEST 1-0 


001B50 


4A00 






DC 


X«4A00« 


CTRL SWITCHES 


001B52 


0330 






DC 


X'0330* 


TE ST N U MB E R 


0Q1B54 


F100 






DC 


X«F100« 


EXP COND. CODE AND SENSE 


001B56 


FDEO 






DC 


A L2 ( NORM-SECNQ+REG $ 


EXP CSW ADDRESS 


001B58 


45 BO 


F 


OEA 


BAL 


R11*IHI0 


BR. TO ISSUE HALT 1^0 


001 BSC 


4A00 






DC 


X«4A00« 


CTRL SWITCHES 


001 B5E 


0340 






DC 


X«0340« 


T E S T N U M B E R 


00 I860 


F100 






DC 


X'FIOO* 


EXP CONO COSE AND SENSE 


001 B62 


FDCO 






DC 


AL2ICSW0-5ECN0*REGI 


EXP CSW ADDRESS 


001B64 


45 60 


F 


112 


BAL 


Rll.ISIO 


BR. TO ISSUE SIO 


001B68 


0800 






DC 


X»0800» 


CTRL SWITCHES 


001 B6 A 


0350 : 






DC 


X»0350» 


TEST NUMBER 


001 B6C 


F100 






DC 


X'FIOO 1 


EXP COND* CODE AND SENSE 


001 B6E 


FDBO 






DC 


AL2(DBZY-SECN0*REG> 


EXP CSW ADDRESS 



001 B70 
001 B74 
001B76 
001 B78 
001 B7 A 
001 87C 
001B80 
001B82 
001 B84 
001 B86 
001 B88 



001888 
001889 
001B8C 
001 B90 
001 B94 
001B96 
001 B97 
001B98 
G01B9A 
001 B9C 
001 BAO 
001BA4 
001BA8 



45 BO 

4A00 

0360 

F100 

FDCO 

45 BO 

4200 

0370 

FOOO 

OA D6 



F OEA 



F OFE 



BAL RlltlHIO 

DC X'4A00* 

DC X«0360« 

DC X«F100« 

DC AL 2 ( C S WO- SEC NO* REG } 

BAL R11»ITI0 

DC X«4200» 

DC X«0370» 

OC X«FOOO» 

SVC X«D6« 

CNOP 0,4 



BR. TO ISSUE HALT 1-0 
CTRL SWITCHES 
TEST NUMBER 
EXP CONO CODE AND SENSE 
EXP CSW ADDRESS 
BR. TO ISSUE TEST 1-0 
CTRL SWITCHES 
TES T NU MB 
' EXP COND CODE ANO SENSE 
ROUTINE EXIT 



E R 



* ROUTINE 12 - INTERVENTION ROUTINES 



* 

* 
* 

« 

* 

* 

* 
* 

* 

* - 

* . 

* . 
* 

* . 



THESE ROUTINES ARE BYPASSED UNLESS SECTION SENSE SWITCH 
5 IS ON. THE FOLLOWING ACTION OCCURS WHEN THIS PROGRAM 
IS EXECUTED- 

NOT READY TESTING. 

A START 1-0 NOOP CMD IS ISSUED. EXPECTED STATUS IS 

UNIT CHECK ALONE. CONDITION COOE 1 EXPECTED. 

A SENSE START 1-0 ISSUED. EXPECT INTERVENTION REQUIRED. 

IN THE SENSE BYTE. CONDITION CODE 0 FOR START 1-0. 

A TEST 1-0 IS ISSUED. EXPECTED STATUS IS UNIT CHECK 

ALONE. EXPECTED CONDITION CODE IS 1. 

A SENSE START 1-0 IS ISSUED. EXPECT INTERVENTION 

REQUIRED IN SENSE. EXPECT CONDITION CODE 0 FOR SENSE 

START 1-0. 

EXPECT ZERO STATUS RETURNEO. 

1. 



12 

OOFFPF 
91 04 <; 
47 10 I 
OA DO 
04 
OD 
FE23 
OA D6 
45 40 I 
96 80 i 
91 80 I 
47 80 ! 



A HALT 1-0 IS ISSUED. 
EXPECT CONDITION CODE 
END OF FILE TESTING. 

A TEST 1-0 IS ISSUED. EXPECT CONDITION CODE 1. EXPECT 
DEVICE END ALONE IN STATUS DUE TO PENDING INTERRUPT 
GENERATED BY NOT READY TO READY STATE CHANGE WHEN 
OPERATOR MADE READER READY FOR EOF TEST. 
A SENSE START 1-0 IS ISSUED IF UNIT CHECK IS. IN STATUS. 
5 READ, FEED, STACKER SELECT Rl COMMANDS ARE ISSUED 
IN PREPARATION TO RECEIVE UNIT EXCEPTION ON THE NEXT 
READ, FEED » STACKER SELECT Rl. CONDITION CODE 0 IS 
EXPECTED FOR EACH COMMAND. EXPECTED STATUS FOR EACH IS 
CHANNEL END AND DEVICE END SEPERATE. 
ANOTHER READ t FEED, STACKER SELECT Rl IS ISSUED. 
EXPECT UNIT EXCEPTION ALONE IN STATUS. CONDITION CODE 
1 EXPECTED. 

OFF LINE TESTING -BYPASSED UNLESS SSWS 5 AND 8 ARE ON. 
A START 1-0 -NOOP-, A TEST 1-0, AND A HALT 1-0 ARE 
ISSUED IN SEPERATE TESTS. EXPECT CONDITION CODE 3. 
NO STATUS EXPECTED BECAUSE NO DEVICE SHOULD BE ABLE TO 
ANSWER THE ISSUED INSTRUCTIONS. 
EXIT FROM THIS ROUTINE. 

A TEST 1-0 IS ISSUED AFTER OPERATOR PREPARE EXIT FROM 
THIS TEST BY EITHER PLACING BLANK CARDS IN THE REAOER 
OR THE NEXT TEST DECKS. CONDITION CODE 1 IS EXPECTED. 
DEVICE END ALONE IS EXPECTEO IN STATUS DUE TO NOT READY 
TO REAOY INTERRUPT. 



004 
B9C 



6BC 
6A6 

E22 
BD8 



ROUT 12 


OC 


X«12» 


ROUTINE NUMBER 




OC 


X»OOFFFF« 


LAST ROUTINE 




TM 


SNSW,X»04 t 


CHECK SECTION SENSE SWITCH 5 




BC 


ALL,G007 


BR- IF ON 


SOLONG 


SVC 


X«DO« 


PRINT -BY PASS ED- 




OC 


X«04« 






DC 


X^OD* 






DC 


AL 2 ( B YPA SS- SEC NO* REG } 




G007 


SVC 


X«D6« 


EXIT FROM ROUTINE 


BAL 


R4,INIT 


BR. TO INITIALIZE 




01 


SWCH,X«80« 


TURN ON INTERV SWITCH. 




TM 


LOSWtX^O' 


SEE IF ON LOADER DEVICE 




BC 


NONE,NRN 


BR IF NOT. 



DATE 
EC 



05MAY65 
124252 



10AUG65 
125580 



22FEB66 
125621 



15JUN67 
130498 
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00 IB AC 


OA DO 




SVC 


X»DO» 


PRINT A BLANK 


001BAE 


8001 




DC 


X«800l* 




001BB0 


FEAT 




DC 


AL2 ( RTO 1- SECNO+REG ) 




001BB2 


OA DO 




SVC 


X*DO f 


PRINT REMOVE CDS: FROM 


001BB4 


2429 




DC 


X f 2429» 


STACKER OF LOADER DEVICE 


001 BB6 


FEAT 




OC 


A L 2 ( R TD 1- SEC NO* REG 1 




001BB8 


OA DO 




SVC 


X*DO» 


PRINT REMOVE REMAINING TEST DECKS 


001BBA 


A03C 




DC 


X*A03C« 


FROM THE LOADER HOPPER. 


001 BBC 


FEDO : 




DC 


AL2(RTD2~ SECNO+REG) 




001 BBE 


OA DO 




SVC 


^("DO" 


' PRINT RUN CDS OUT OF READER AND 


001BC0 


A040 




DC 


X , A040» < 


PUT THEM ON FRONT OF REMAINING 


0Q1BC2 


FFOC 




DC 


AL2CRTD 3- SECNO+REG) 


TEST DECKS. 


001 BC4 


OA DO 




SVC 


X^DO* . 


PRINT SAVE REMAINING TEST DECKS 


001BC6 


8045 




DC 


X«8045« 


UNTIL A MSG REQUESTS THEM. 


001 BC8 


FF4C 




DC 


AL 2 CRTD4- SECNO+REG 1 




001BCA 


47 FO F 806 




BC 


UNCHLTl 


BR TO HALT 


001BCE 


OA 00 


P5I 


SVC 


X«DO« 


PRINT -PUT 5 CDS IN RDR- 


001BD0 


242 D 




DC 


X f 2420* 




001 BD2 


FE6A 




DC 


AL2( PC I R— SECNO+REG) 




001 BD4 


47 FO P CIE 




BC 


UNC.HLT11 


BR TO HALT. 


001BD8 


OA DO 


NRM 


SVC 


X'DO* 


PRINT -MAKE READER NOT READY- 


001BDA 


04 




DC 


X»04* 




001BDB 


16 




DC 


X»16« 




001 BDC 


FE30 




DC 


AL2 ( MNR- SECNO+REG) 




001BDE 


OA DA 


HLT1 


SVC 


X'DA* 


HALT TO PERFORM INTERVENTION 


001BE0 


OA DO 




SVC 


X'DO* 


PRINT A BLANK 


001BE2 


8001 




DC 


X«8001« 




001BE4 


FEA7 




DC 


AL2 (RTD1- SECNO+REG) 





♦ NOT READY TESTS -ROUTINE 12- 



001 BE6 


45 BO 


F 


112 


BAL 


R1UISI0 


BR. TO ISSUE SIO 




001BEA 


0800 






DC 


X«0800« 


CONTROL SWITCHES 




001BEC 


0380 ; 






DC 


X*0380» 


TEST N U 


M B 


001BEE 


F140 






DC 


X«F140« 


EXP COND. CODE AND 


SENSE 


001BF0 


FDB8 






DC 


AL2CUT>SECNQ+REG) 


EXP CSW ADDRESS 




001BF2 


45 80 


F 


OFE 


BAL 


RllylTIO 


BR. TO ISSUE TIO 




001BF6 


4800 ; 






DC 


X»4800« 


CTRL SWITCHES 




001BF8 


0390 ) 






DC 


X*0390» 


T E S T N U 


M B 


001BFA 


F140 






DC 


X«F140« 


EXP COND. CODE AND 


SENSE 


001BFC 


FDB8 






DC 


AL2(UC-SECNQ+REG) 


EXP CSW ADORESS 




001BFE 


45 BO 


F 


OEA 


BAL 


RlltlHIO 


BR. TO ISSUE HIO 




001C02 


0800 






DC 


X«0800' 


CONTROL SWITCHES 




001C04 


0400 






OC 


X»0400» 


TEST N U 


M 8 


00IC06 


F140 






DC 


X«F140» 


EXP COND. CODE AND 


SENSE 


001C08 


FDCO 






DC 


AL 2 ( C S WO- SECNO+REG ) 







* END OF FILE TEST -ROUTINE 12- 



OOlCOA 


D2 07 


F 


E6F F E9F 


MVC 


0VLY(8),P5 


MOVE -5- TO MSG. 


001C10 


91 80 


F 


E22 


TM 


LDSWtX a 80* 


SEE IF ON LOADER DEVICE. 


001C14 


47 10 


tr 


BCE 


BC 


ALL,P5I 


BR IF YES. 


001C18 


OA DO 






SVC 


X«D0« 


PRINT DO NOPRO, PLACE 5 COS. 


001C1A 


2437 






DC 


X»2437« 


HPR«MAKE RDY, EOF ON. 


001C1C 


FE60 ; 






DC 


AL 2 (DONPRO- SECNO+REG) 


MSG ADDRESS. 


001C1E 


OA DA 




HLTil 


SVC 


X'DA 1 


-HALT- 


001C20 


OA DO 






SVC 


X«DO« 


PRINT A BLANK 


001C22 


8001 






DC 


X'8001» 




001C24 


FEA7 






DC 


AL2CRTD1- SECNO+REG) 




001C26 


45 BO 


F 


OFE 


BAL 


RlltlTIO 


BR TO ISSUE TEST 1-0 


001C2A 


4A00 






DC 


X^AOO* 


CTRL SWITCHES 


001C2C 


0410 : 






OC 


X , 0410« 


TES T NUMB E 


001C2E 


F100 






DC 


X'FIOO* 


EXP COND. CODE ANO SENSE 


001C30 


FDE8 < 






DC 


AL2 ( DONL Y-SECNO+REG ) 


EXP CSW ADDRESS. 


001C32 


41 AO 


F 


008 


LA 


RIOfRDFD 


PUT ADDR. OF RD FD CCW INTO 


001C36 


41 60 


0 


005 


LA 


R6,5 


PUT 5 INTO REG 6. 


001C3A 


45 BO 


F 


112 NSIO 


BAL 


RlltlSIO 


BR TO ISSUE START 1-0. 


001C3E 


3C00 






DC 


X»3C00* 


CTRL SWITCHES 
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001C40 


0420 






OC 


X f 0420* 


T E ST N U M B E R 


001C42 


FOOO 






OC 


X»FOOO« . 


EXP COND. CODE AND SENSE. 


001C44 


FDEO 






DC 


AL2 ( NORM-SECNO+REG ) 


EXP 1ST CSW ADDR. 


001C46 


46 60 


F 


C3A 


BCT 


R6.NSI0 


BR BACK 5 TIMES. 


001C4A 


45 BO 


F 


112 


BAL 


R11,ISI0 


BR TO ISSUE START 1-0. 


001C4E 


2800 ; 






DC 


X»2800» 


CTRL SWITCHES 


001C50 


0430 






DC 


X«0430« 


TEST NUMBER 


001C52 


F140 






DC 


X«F140» 


EXP COND. CODE ANO SENSE. 


001C54 : 


FE10 






OC 


AL2 I UNEX- SECNO+REG ) 


EXP CSW ADDRESS. 


001C56 


45 BO 


F 


OFE 


BAL 


RlltlTIO 


BR TO ISSUE TEST 1-0. 


001C5A 


4800 






DC 


X«4800« 


CTRL SWITCHES. 


001C5C 


0440 






DC 


X«0440* . 


TEST NUMBER 


001C5E 


F140 






DC 


X«F140» 


EXP COND. CODE AND SENSE. 


001C60 


FDB8 






DC 


AL2(UC- SECNO+REG) 





* OFF LINE TESTS -ROUTINE 12- 



001C62 


91 80 


F 


005 








TM 


SNSW+lt X*80* 


TCCT CCU A 
It J 1 JON O • 


001C66 


47 80 


F 


CC8 








BC 


NONE 9 SUMF 


RD T c nee 

On * r Ur r m 


001C6A 


02 02 


F 


E52 


F 


ISA 




MVC 


MUA+12C 3) tOFF 


nu»C Urr I U nSw 


001C70 


OA 00 












SVC 


X*DO' 


DDT NT «.DllT OCinco nee i tut 
' rill n I — ru I KcAUcK Orr L IN£— 


001C72 


24 












DC 


X'24* 




001C73 


14 












DC 


X 1 14* 




001C74 


FE46 












DC 


AL2 ( MUA- SECNO+REG 1 




001C76 


OA OA 












SVC 


X'DA* 


MALI 10 PtRrORM INTERVENTION 


001C78 


OA DO 












SVC 


X^DO* 


DOT)JT t at hkiU 


001C7A 


8001 












DC 


X a 8001 a 




001C7C 


FEA7 












DC 


AL 2 ( R TO 1- SECNO+REG 1 




001C7E 


45 BO 


F 


112 








BAL 


Rllt I SIO 


RD Tn tcciic c in 


001C82 


0200 












DC 


X* 0200 11 


rTai cut Truer 

LiKL SWITCHES 


001C84 


0450 












DC 


X«0450« 


TEST NUMBER 


001C86 


F300 












DC 


X'FSOO" 


EXP CONO. CODE AND SENSE 


001C88 


45 BO 


F 


OFE 








BAL 


R11»ITI0 


BR. TO ISSUE TIO 


001C8C 


4200 












DC 


X»4200* 


CTRL SWITCHES 


001C8E 


0460 












DC 


X«0460' 


TEST NUMBE R 


001C90 


F300 












DC 


X«F300* 


EXP. COND. CODE ANO SENSE 


001C92 


45 BO 


F 


OEA 








BAL 


RlltlHIO 


BR. TO ISSUE HIO 


001C96 


0200 












DC 


X«0200» 


CTRL SWITCHES 


001C98 


0470 












DC 


X'0470« . 


T E S T N U M B E R 


001C9A 


F300 












DC 


X«F300» 


EXP COND. CODE AND SENSE 


001C9C 


02 02 


F 


E52 


F 


E50 




MVC 


MUA+12I3) 9 0N 


MOVE -ON - TO MSG 


001CA2 


OA DO 












SVC 


X*D0« 


PRINT -PUT READER ON LINE- 


001 CA4 


24 












DC 


X«24» 


READY- 


001CA5 


14 












DC 


X»14» 




001CA6 


FE46 












DC 


A L2 ( MUA- SECNO+REG) 




001CA8 


92 AO 


F 


CBA 








MVI 


F1,X'A0» 


SET UP MSG FLAGS. 


001 CAC 


92 AO 


F 


CDC 








MVI 


F2 t X*A0 t 


SET UP MSG FLAGS. 


001CB0 


91 80 


F 


E22 






NMSG 


TM 


LDSW,X«80« 


SEE IF ON LOADER. 


001CB4 


47 80 


F 


C04 








BC 


NONE t NOTO 


BR IF NO. 


001CB8 


OA DO 












SVC 


X«DO« 


PRINT REMOVE THE 5 CDS FROM STKR. 


001CBA 


A01C 










Fl 


DC 


X'AOIC* 




001CBC 


FFCF 












DC 


AL2(R5C- SECNO+REG) 




001CBE 


OA DO 












SVC 


X*DO» 


PRINT 


001CC0 


A03E 












DC 


X»A03E* 




001CC2 


FF91 












DC 


AL2 ( PTDB- SECNO+REG) 




001CC4 


47 FO 


F 


CEO 








BC 


UNC »HLT2 


BR TO HALT. 


001CC8 


92 04 


F 


CBA 






SUMF 


MVI 


F1,X»04« 


SET UP MSG FLAGS. 


001 CCC 


92 04 


F 


CDC 








MVI 


F2,X«04» 


SET UP MSG FLAGS. 


001CD0 


47 FO 


F 


CBO 








BC 


UNC t NMSG 


BR TO MSG. 


001CD4 


02 07 


F 


E6F 


F 


E97 


NOTO 


MVC 


OVLY(8),AB30 


MOVE -ABOUT 30- TO MSG. 


001CDA 


OA DO 












SVC 


X«DO» 


PRINT -DO NOPRO, PLACE 8LNK CDS IN 


001CDC 


A02D 










F2 


DC 


X*A02D» 


HPR, MAKE RDYt EOF ON. 


001CDE 


FE6A 












DC 


AL2(PCIR-SECN0+REG) 




001CE0 


OA DA 










HLT2 


SVC 


X'DA* 


HALT TO PERFORM INTERVENTION 


001CE2 


OA DO 












SVC 


X«DO« 


PRINT A BLANK 


001CE4 


8001 












DC 


X»800l« 




001CE6 


FEA7 












DC 


AL2( RTO 1- SECNO+REG) 





DATE 05MAY65 10AUG65 
EC 124252 125580 



22FEB66 
125621 



15JUN67 
130498 



ID F81CN-3 
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001CE8 
001CEC 
OOICEE 
001CF0 
001CF2 
001CF4 



001CF8 

OOIDOO 

001D08 

001D10 

001D18 

001020 

001028 

001030 

001038 

001D40 

001 048 

001 D50 

001058 

001060 

001D68 



49 BO F OFE 

OAOO 

0480 

F100 

FDE8 

OA 06 



03 001740 
08 001CF8 

02 001740 

03 001740 
C6 001740 
C6 001740 
25 001740 
25 001740 
C2 001740 
C2 001740 
C2 001740 
23 001740 
23 001740 
23 001740 
C6 001740 



001070 

001074 

001 D7 8 

001D7C 

001D80 

001084 

001088 

001D8C 

001 090 

001D98 

001D9C 

00 ID AO 

001DA4 4 

0010A8 

00 10 AC 

001DB0 

001DB4 

0010B8 

001DBC 

001DC0 

001DC8 

001 DCC 

001DD0 

001D04 

001008 

001 DOC 

001DE0 

001DE4 

001DE8 

001DEC 

001 DFO 

001DF4 

001DF8 

001DFC 

001EOO 

001E01 

001E04 

001E08 

001E0C 



DATE 
EC 



4000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
6000 
6000 
0000 
6000 
0000 
0000 
0000 



0001 

0001 

0050 

0001 

004P 

0051 

009F 

00A1 

0001 

0001 

0001 

0001 

0002 

0003 

0050 



0000 1D20 
0C400000 
0000 1D28 
0C400001 
00001D30 
0C400000 
00001D38 
OC400001 

0000000000000000 
0000 1090 

ocoooooo 

00000000 
10000000 
00000000 
04000000 
00000000 
14000000 
00000000 i 

02000000 : 

0000000000000000 
00000000 
04000000 
00001698 

ocoooooo 

00000000 

ocoooooo : 

00001D10 
08000000 
00000000 

04000000 : 

0000 1D48 
OEO 00000 
0000 1060 
02000002 
01 

001740 

00000050 ; 

0000 1D70 

ocoooooo 



t </vrr s N umber 

oc x*0480* coNo ^ code AND $ENSE 

°d C c J^SSnl^secno+regi exp t CSw address 

noptrnccw ■r.;;:^*:s:t?:rf.i 



RDFD 

ccw 

RDSH 
RDLG 
WRSH 
WRLG 
RNOF 



FN0R 



A - - »*wr»" -~ •- 

CCW <X*08*.N0PTRN,X*00*.i 

CCW X*02%RDAR«X*00*t80 

CCW X«03«,RDARiX'00»tl^ 

CCW X*C6*,RDAR*X*00*,79 

CCW X»C6* t R0AR f X*00*t81 

CCW X*25*,RDAR.X*Q0*»159 

CCW X*25* »RDARtX*00* tl^l 

CCW X*C2*tRDAR,X*60*tl 

CCW X«C2«tR0AR,X*60*,l 

CCW X*C2*»RDAR.X*00*»l 

CCW X*23*,RDAR»X*60*,1 

CCW X*23*»RDAR.X*00*»2 

CCW X«23*,RDARfX*00*t3 



READ AND FEED CCW* 



SHORT COUNT 
LONG COUNT 
SHORT COUNT 
. LONG COUNT 



READ CCW. 
READ CCW. 

WRITE CCW. 
WRITE CCW. 



A(RDSH+8) 



RSCSW 
RLCSW 
WSCSW 
WLCSW 



OBIZ 



UC 



DC 
DC 
DC 
DC 
DC 
DC 
OC 
OC 

R12CSW DC 

DC 
OC 
DC 
DC 
DC 
DC 

DBZY DC 
DC 
OC 
DC 

CSWO DC 

DC 
DC 

SNSCSW DC 
DC 

NOPCSW DC 

OC 

NORM DC 

DC 

DONLY DC 

DC 

SEQCSW DC 

OC 

REJCSW DC 
DC 

INVCCW DC 
DC 
DC 

DCRCSW DC 

DC 



X , 0C4000Q0* 
AtRDLG+8) 
X*0C400001* 
ACWRSH+8) 
X*OC 400000* 
A(WRLG+8) 
X*0C400001* 
XL8*0* 
ACR12CSW) 
X* OCOOOOOO* 
XL4*0* 
XUOOOOOOO* 
XL4»0* 
X* 04000000* 
XL4*0* 
X* 14000000* 
XL4*0* 
X* 02000000* 
XL8«0* 
XL4*0* 
X* 04000000* 
AtlSENSE+8) 
X* OCOOOOOO* 
XL4*0* 
X* OCOOOOOO* 
AtRDFD+8) 
X* 08000000* 
XL4«0* 
X« 04000000* 
AIRNOF+16) 
X'OEOOOOOO* 
A<FN0R+16) 
X« 02000002* 
X*01* 
AL3(RDAR) 
X* 00000050* 
AtDCRD+8) 
X* OCOOOOOO* 



INVALID CCW. 



05MAY65 
124252 



10AUG65 
125580 



22FEB66 
125621 



15JUN67 
130498 
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001E10 
0OIE14 



001E18 
001E1C 
001E20 
001E22 



00000000 
01000000 



00000000 
00000000 
0002 
00 



001E23 

001E2C 

001 E30 

001E39 

001E40 

001E46 

001E4F 

001E56 

001E5A 

001E5D 

001E60 

001E69 

001E6A 

001 E6F 

001E78 

001E7F 

001 E88 

001E8F 

001E97 

001 E9F 

001EA7 

001 EBO 

001EB7 

001 ECO 

001EC7 

001 EDO : 

001ED9 

001EE0 

001EE9 

001EF0 

001EF9 

001F00 

001F09 

001F0C 

001F15 

001F1C 

001F25 

001F2C 

001F35 

001F3C 

001F45 

001F4C 

001F55 

001F5C 

001F65 

001F6C 

001F75 

001F7C 

001F85 

001F8C 

001F91 

001F9A 

001FA1 

001 FAA 

001FB1 

001FBA 



DATE 
EC 



40D9E3D540C2E8D7CI 
E2E2C5C4 

40D4C1D2C54009C5C! 

C4C5D940D5D6E3 

40D9C5C1C4E8 

40D7E4E340D9C5C1C4 

C5D940D6C6C640 

D3C9D5C5 

D6C6C6 

D6D540 

40C4D640D5D6D7D906 
6B 

40D7E4E340 

C1C206E4E340F3F040 

C2D3D5D240C3C4 

E240C9D540D9C4D96B 

D4C1D2C540D9C4 

E86BC5D6C640D6D5 

C1C2D6E4E340F3F0 

40404040F5404040 

40D9C5D4D6E5C540C3 

C4E240C6D9D6D4 

40E2E3C1C3D2C5D940 

D6C640D3D6C1C4 

C5D940C4C5E5C9C3C5 

40D9C5D4D6E5C540E3 

C8C540D9C5D4C1 

C9D5C9D5C740E3C5E2 

E340C4C5C3D2E2 

6BC9C640C1D5E86B40 

C6D9D6D440E3C8 

C540D3D6C1C4C5D940 

C8D7D9 

40C4D640D5D6D7D906 

40C1D5C440D7D3 

C1C3C540C3C4E240D9 

E4D54006E4E340 

C9D540C6D9D6D5E340 

D6C640D9C5D4C1 

C9D5C9D5C740E3C5E2 

E340C4C5C3D2E2 

40E2C1E5C540D9C5D4 

C1C9D5C9D5C740 

E3C5E2E340C4C5C3D2 

E240E4D5E3C9D3 

40C140D4E2C74009C5 

D8E4C5E2E3E240 

E3C8C5D440E3D640C2 

C540D7E4E340C9 

D540C807D9 

40D7E4E340D9C5D4C1 

C9D5C9D5C740E3 

C5E2E340C4C5C3D2E2 

40C9D5E3D640D9 

C4D940C8D7D940C1D5 

C440D4C1D2C540 



UNEX OC XL4*00* 

RDR DC F*0* 

PCH DC F*0* 

H2 OC X*0002* cwtTrHFS 
C* RTN BYPASSED* 



BYPASS DC 
MNR DC 



MUA 



DC 
DC 



DC 

OFF DC 
ON DC 
DONPRO DC 

PCJR 
OVLY 



AB30 
P5 

RT01 



C* MARE READER NOT* 
C* READY* 

C* PUT READER OFF • 

C*tINE* 
C*OFF* 
C*ON • 

C* DO NOPROt* 



RTD2 



RT03 



RTD4 



PTOB 



DC 


C* PUT * 


DC 


C* ABOUT 30 BLNK CD* 


DC 


C*S IN RDR t MAKE RD* 


DC 


C • YtEOF ON* 


OC 


C* ABOUT 30* 


DC 


C* 5 * 


OC 


C* REMOVE CDSi FROM* 


DC 


C* STACKER OF LOAD* 


DC 


C*ER DEVICE* 


DC 


C* REMOVE THE REMA* 


DC 


COINING TEST DECKS* 


DC 


C*»IF ANY, FROM TH* 


OC 


C«E LOADER HPR* 


OC 


C* DO NOPRO AND PL* 


OC 


C*ACE CDS RUN OUT • 


DC 


C*IN FRONT OF REMA* 


OC 


C*INING TEST DECKS* 


DC 


C* SAVE REMAINING • 


DC 


CtTEST DECKS UNTIL* 


DC 


C* A MSG REQUESTS * 


OC 


C*THEM TO BE PUT; I* 


DC 


C*N HPR* 


OC 


C* PUT REMAINING T* 


DC 


C*EST DECKS INTO R* 


DC 


C<DR HPR AND MAKE 9 



05 MAY 65 
124252 



10AUG65 
125580 



22FEB66 
125621 



15JUN67 
130498 
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001PC1 
001FCA 
001FCF 
001FD8 
OOIFDF 
001FE8 
OOIFEB 
001FF4 ! 



D9C4D940D9C4E86BC5 

D6C640D6D5 

40D9C50406E5C540C2 

D3D50240C3C4E2 

40C6D9D6D440D9C5CI 

C4C5D9 

4004C1D2C540C4C5E5 
C9C3C540D9C4E8 



DC C*ROR RDY,EOF ON* 

R5C DC C« REMOVE BLNK COS' 

DC C 1 FROM READER • 

NOR DC C* MAKE DEVICE: ROY* 

* EQUATES 



POST ASSEMBLY DATA, 



REFERENCES TO DEFINED SYMBOLS* 



000000 


NEVER 


EQU 


0 


000007 J 


NCCO 


EQU 


7 


OOOOOF 


UNC 


EQU 


15 


000008 ' 


NONE 


EQU 


8 


000004 


SOME 


EQU 


4 


000001 


ALL 


EQU 


1 


000005 


ANY 


EQU 


5 


000008 < 


CCO 


EQU 


8 


000004 


CC1 


EQU 


■ 4 . 


000002 


CC2 


EQU 


2 


00000 I 


CC3 


EQU 


1 


000008 * 


EQ 


EQU 


8 


000004 


LO 


EQU 


4 


000002 


HI 


EQU 


2 


000006 


UNEQ 


EQU 


6 


OOOOOC 


EQLO 


EQU 


12 


OOOOOA 


EQHI 


EQU 


10 


000080 


LOGOUT 


EQU 


X«80* . 


000181 


SYSMOO 


EQU 


XH8i» 


OOFOOO 


REG 


EQU 


X'FOOO* 


00005A 


WHAT 


EQU 


90 


000000 


RO 


EQU 


0 


000001 


Rl 


EQU 


1 


000002 


R2 


EQU 


2 


000003 


R3 


EQU 


3 


000004 ! 


R4 


EQU 


4 


000005 


R5 


EQU 


5 


000006 


R6 


EQU 


6 


000007 


R7 


EQU 


7 


000008 1 


R8 


EQU 


8 


000009 


R9 


EQU 


9 


OOOOOA 


RIO 


EQU 


10 


OOOOOB 


Rll 


EQU 


11 


OOOOOC 


R12 


EQU 


12 


OOOOOD 


R13 


EQU 


13 


OOOOOE 


RI4 


EQU 


14 


OOOOOF 


R15 


EQU 


15 


000198 


WT 


EQU 


408 


000040 


HCSW 


EQU 


64 


000048 


HCAW 


EQU 


72 


0001 AO 


DMSSW 


EQU 


X'OIAO* 


0001B9 


DMIOL 


EQU 


X*01B9» 


0001BC ' 


DMPTR 


EQU 


X«01BC< 






END 


ROUTOl 



DATE 05 MAY 65 10AUG65 22FEB66 15JUN67 
EC i 124252 125580 . 125621 130498 
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DATE 

EC 



2 


19DC 


CS 


1 


8 


EQ 


2 


1C8A 


Fi 


2 


1CDC 


F2 


2 


1E20 


H2 


1 


2 


HI 


1 


4 


LO 


3 


1E5D 


ON 


8 


1E9F 


P5 


1 


0 


RO 


1 


1 


Rl 


1 


2 


R2 


1 


3 


R3 


1 


4 : 


R4 


1 


5 


R5 


1 


6 


R6 


1 


7 


R7 


1 


8 


R8 


1 


9 


R9 


4 


10B8 


UC 


1 


198 


WT 


1 


1 


ALL 


l ; 


5 


ANY 


4 i 


1048 


CAW 


l ; 


8 


CCO 


1 


4 


CCl 


1 


2 


CC2 


1 


1 


CC3 


8 


1D10 


ccw 


8 


1040 ; 


CSW 


4 


180E 


GTN 


2 


100A 


I CM 


4 ; 


1186 


IHI 


2 


10 E8 


ISW 



4 


1566 


IUP 


16 


1FEB 


MDR 


16 


1E30 


MNR 


16 


1E46 


MUA 


2 


1BD8 


NRM 


3 


1E5A 


OFF 


2 


1BCE 


P5I 


4 : 


1E1C 


PCH 


1 ; 


A 


RIO 



05MAY65 
124252 



10AUG65 
125580 



1904 

1362, 

1CA8, 

ICACt 

16F0 



1C9C 
1C0A 



1988, 
I71E» 
1950, 
lAEOt 
1558, 
16E4, 
1990, 
1C36, 

112C« 
1358, 
1478, 
112C, 
126C, 
149A, 
19E2, 
1186, 
114A, 
12FA, 
1A88, 
1550 

1192, 
1184, 
11B8 



I396 f 19A6, 19C0 
ICC 8 

1CCC 



198Ct 


199A, 


I9C8 








1800, 


1824* 


1854, 


1878, 


1894, 


18E4 


1984, 


1996, 


19BA, 


19C4, 


19C4, 


1A7C 


1AF8, 


1AFC, 


1B00, 


1B1A, 


IB9C 




1730 












16E4, 


16E6, 


16EAi 


16EE, 


UFO, 


16F4 


1990, 


199E, 


19AA, 


I9AA, 


19 AE, 


1900 


1C46 












12CA, 


12CE, 


1332, 


1336, 


1354, 


1354 


13B6, 


13BA, 


146C f 


1470, 


1474, 


1474 


156A 












1186, 


118A, 


1196, 


1206, 


120A, 


1216 


12C2, 


12C6, 


12E2, 


1412, 


1440, 


1482 


14B2, 


14CA, 


156A, 


1B36, 


1B3A, 


1B3E 


1BF0, 


1BFC 


1C60 








1206, 


12C2, 


1AF8, 


1B36 






11E6, 


11FE, 


1236, 


128E, 


12AE, 


12EE 


1376* 


138E, 


139E, 


13D6, 


1558, 


1704 


1B90, 


1C14 











HBO 
12DE 



1716, 171A, 187C, 1A8C, 1AF4* 1B04 



116A, 

H9A, 

121E, 

1292, 

134C, 

1534, 

155E 

1574, 

1BDC 

1C6A, 

1BA8 

1C6A 

IC14 

16D0, 

1128, 

1548, 

18CC, 

1954, 

1C32 



22FEB66 
125621 



117A 












119A, 


1IA0, 


UD6, 


11F6, 


1202, 


120E 


122E, 


1232, 


1240, 


1270, 


127E, 


128A 


12A2, 


12B2, 


12EA, 


12F6, 


130A, 


132A 


1366, 


1372, 


I486, 


1486, 


14D4, 


152C 


1554, 


1700, 


172C, 


1734 




1580 












1C74, 


1C9C, 


1CA6 








180E, 


18BC 










1136, 


13F0, 


140C, 


1416, 


141E, 


141E 


171A, 


1828, 


1858, 


1898, 


18A8, 


18B8 


18E8, 


18F8, 


1908, 


1918, 


1928, 


1938 


19CC, 


19E4, 


1A80, 


1AE4, 


1B04, 


1B1E 



15JUN67 
130498 
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1 


8 


Rll : 


H22t • 


1128, 


1146 e 


11DA# 


1IEA, 


UFA* 


1282 








129 At 


130E t 


1318, 


1322, 


1332 1 


1944| 


13A2 








13BA f 


13BC, 


13CE» 


13CE, 


13D2 t 


1442 9 


145E 








146C t 


149E, 


14CE, 


155A, 


1562 9 


1562 9 


1566 








1566, 


156E, 


1804, 


1812, 


182C, 


1836 9 


1842 








185Ct 


1868, 


1880, 


189C, 


18ACt 


18C0, 


1800 








18EC# 


18FC, 


190C 9 


191C, 


192C 9 


193C, 


1958 








1908, 


19E8, 


1A90, 


1A9C, 


IAA8, 


1AB4, 


1AC0 








lACCt 


1AE8, 


1B08, 


1B22, 


1B2C, 


IB42, 


184C 








lB58t 


IB64, 


1B70, 


1B7C, 


1BE6, 


1BF2, 


1BFE 








1C26 9 


1C3A, 


1C4A, 


1C56, 


1C7E, 


1C88, 


1C92 








1CE8 














1 


C 


R12 


115E 9 


116E, 


117E, 


118E, 


11AC, 


1226* 


1202 








120 A 9 


1578, 


16C8, 


16CC, 


16D0, 


1604, 


1608 








16DC 9 


16F4, 


180E, 


18BC 








1 


0 


R13 


1136, 


113A, 


113A, 


1100, 


12CE, 


1302 1 


1548 








16BC, 


16BC, 


16C6 










1 


E 


R14 


1140, 


1140, 


1186, 


1206, 


12C2 9 


14F8, 


1500 








168E, 


16E6, 


16EA, 


16EE, 


lAF8t 


1B36 




1 


F 


R15 


123A» 


1248, 


1278* 


16C6 








16 


1FCF 


R5C 


1CBC 














4 4 


1E18 


ROR 


160C 














1 


FOOO ; 


REG 


125A, 


13B4, 


13CC, 


13E6,, 


1400, 


143E, 


144C 








1452, 


14E8, 


14F6, 


152A, 


1540, 


1546, 


1574 








1580, 


172A, 


1840, 


1866, 


188A, 


18A6, 


18B6 








18CA 9 


180 At 


18F6, 


1906, 


1916, 


1926 1 


1936 








1946, 


1962, 


19E2, 


19F2, 


1A9A, 


1AA6, 


1AB2 








1ABE, 


1ACA, 


1AD6, 


1AF2, 


1B12, 


1B56, 


1B62 








1B6E, 


1B7A, 


1B98, 


1BB0, 


1BB6, 


IBBCt 


1BC2 








1BC8, 


1BD2, 


1BDC, 


1BE4, 


18F0, 


lBFCt 


1C08 








1C1C, 


1C24, 


1C30, 


1C44, 


1C54, 


1C60, 


1C74 








lC7Ct 


1CA6, 


1CBC, 


1CC2, 


1CDE, 


1CE6, 


1CF2 


4: 


1996 


SIV 


19C0, 


19F4 












6 \ 


19BA 


TOT 


19C8 














1 


F i 


UNC 


10FA, 


110E, 


1162, 


1182, 


11C0, 


11C8, 


11EE 








1222, 


1244, 


1274, 


1296, 


12E6, 


12F2, 


12FE 








1422, 


1440, 


1538, 


156E, 


1582 1 


171Et 


1738 








19F4, 


1BCA, 


1BD4, 


ICC 4, 


1C00 






8 < 


IE97 i 


AB30 


IC04 














4! 


19A2 


ADD1 


19B6 














4 I 


198C 


BV2C 
















8 


10C0 


cswo 


1AD6, 


1B62, 


1B7A, 


1C08 








4 


1DA0 


OBIZ 


1AA6, 


1ABE 












4 : 


1DB0 


OBZY , 


1B12, 


1B6E 












8 


1D68 


DCRD 


1908» 


1938, 


19E4, 


IE 08 








1 


A 


EQHI 
















1 


■X ; 


EQLO 
















8 ' 


1D50 


FNOR 


• 1918t 


10F8 












4 ! 


18B8 


G005 
















4 ! 


1B9C 


G007 ; 


1B90 














4 : 


118E 


GREG 


1196 














1 


48 


HCAW 


1136, 


12CE, 


1548 










1 


40 


HCSW 


113A, 


113A, 


1100, 


123A* 


1248 9 


1278, 


1302 


2 


1BDE 


HLT1 


18CA 














2 


1CE0 


MLT2 


1CC4 














16 


17 EO 


HUNG 


172A 














3 


1607 


I ACT t 


1266, 


148E, 


140E 










6 


1318 


IBSN 


12A6t 


12B6, 


128E, 


12E6 








12 : 


15DB 


I CAW 


13F0, 


13F8, 


13FA» 


1400 








3 


15 E A 


ICCW 


1402 














1 ; 


1430 


ICNT \ 


1262, 


1408, 


145A 










3 


15E7 


ICSW. 


125C, 


1454 












4 ' 


I486 


IOID 


14A2 














3 


160A 


I EXP 


1466, 


14A6 












4 ! 


10EA 


IHIO 


lACCt 


1B42, 


1B58, 


1870, 


lBFEt 


1C92 




2 


16BC 


IN IT 


1800, 


1824, 


1854, 


1878, 


1894* 


18E4, 


1950 








1984, 


1A7C, 


lAEOt 


IBlAt 


1B9C 






4 I 


11F6 


INOW 


114A, 


11C0, 


11C8, 


11DE, 


11E6, 


11EE 





4 


1282 


INT3 


1244 


4 


11CC 


IONE 


11B4 


6 


14CE 


IPAS 


148A 


4 


129 A 


IS EN 


11FE, 


4 


1112 


IS 10 


182C, 








18EC, 








19 D8, 








1B08, 








1C7E 


6 


1278 


ISV2 


1236 


4 


12E2 


; ITIC 


1306 


4 


10 FE . 


IT 10 


1804* 








lB7Ct 


4 ! 


11C4 ' 


ITWO 


11B8 


6 


1248 


IUIO 


122A 


6 


119A 


JOHN 


1152, 


1 


1E22 


LDSW - 


16E0, 


1 


16A3 


MSK1 


1212 


1 


16A4 


MSK2 


121A 


1 


7 


NCCO 


1172, 


1 


1000 


NIOU 




4 


1CB0 


NMSG 


1C00 


1 


8 


NONE 


1152, 








12A6 9 








137E, 








1530, 


4 


1DE0 


NORN 


IA9A, 


6 


1C04 


NOTO 


1CB4 


4 


1C3A 


NSIO 


1C46 


16 


1E6F . 


OVLV 


1C0A, 


5 


1E6A 


PCIR 


1BD2, 


16 


1F91 


PTDB 


1CC2 


1 


1740 


RDAR 


1708, 



8 
8 
8 

2 

8 
16 
16 
16 
16 

1 

1 

4 

1 
6 
3 

4 : 

1 

1 

1 : 
1 

4 : 

1 

1 



1008 
1020 
1018 
1570 
1038 
1EA7 
1E00 
1F0C 
1F4C 
16A5 
100C 
1004 

4 

13A2 
1050 
1CC8 
16A6 
10E1 
10E5 
6 

1E10 
5A 

1590 . 



RDFO 

ROLG 

ROSH 

ROYM 

RNOF - 

RT01 

RT02 

RT03 

RT04 

RTSV 

SOMF 

SNSW . 

SOME 
SPRT 
SRET 
SUMF 
SWCH 
U10P 
U20P 
UNEQ 
UNEX 
WHAT 
WORK 



1222, 
185C, 
18FC 9 
19E8, 
1B22, 



1286, 
1880, 
190C, 
1A90, 
1B2C, 



128E 

189C 9 18AC. lOCOt 1800 

19 1C, 192C, 193C, 1958 

1AA8, 1A84, lACOt 1AE8 

1B64, 1BE6, 1C3A, , IC4A 



1036 WRLG 
1028 WRSH 

1700 BLOOP 

1978 CHNST i 

1B9 DM IOt 

1BC DMPTR 

1A0 DMSSW 



1812, 1836, 
1BF2, 1C26, 



1192 

16FC, 18A4t 
12D6, 1906 



1842, 1868 t 1A9C, 
1C56, 1C88, 1CE8 



lClOt 1CB0 



1B4C 



1010, 
1048, 
1A80, 
18A8, 
1898, 
1396, 
18E8, 
1BB0, 
1BBC 
1BC2 
1BC8 
1130, 

114E, 
1B8C, 

138E 



115A, 
1286, 
141A, 
155E, 
1AB2, 



1C04 
1C0E 

170C, 

1018, 

1050, 

1AE4, 

1078 

1070 

139E 

10F0 

1BB6, 



116A, 

12BE, 
1462, 
16C2, 

1ACA, 1AF2, 1B56, 1C44 



117A, 
1326, 
148A, 



11DE, 1286, 129E 
132E, 1348, 1350 
14A2, 14BA, 1408 



19B6, 1BA8, 1C66, 1CB4 



170C, 1968, 1970, 1CF8, 

1020, 1028, 1030, 1038, 

1D58, 1060, 1068, 1E01 

1B1E, 1C32, 10E0 



1BE4, 1C24, 1C7C, 1CE6 



1008 
1040 



1720 

1156 
1C62 



t 1166, 1176, 137A, 154C, 1A84 



1C66 

138A, 1712, 18A0 



lCSV 13l4f Ul6f U40f l5ECf t4FCf W * 



124a, 

147C, 
150C, 

lecc, 

1888, 

16F8, 

1962, 

16E6 

16EA 



Jl*2S f \iH 9 142Cf H26 » l *™ 

1494 f 14AC, 14AC, 14C4* 1500, 150A 

150E, 1514, 15U, 1520 

1088 

1080 

1738 

1978 



OATE 
EC 



05MAV65 
124252 



10AUG65 
125580 



22FEB66 
125621 



15JUN67 
130498 



ID F61IH-3 
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OATE 

EC 



05 MAY 65 

124252 



10AUG65 
125580 



22FEB66 
125621 



15JUN67 
130498 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 

2540 READER FUNCTION TESTS, - SECTION 1 F810 



P/N 840186 
PAGE 18A 



■ 4 t 


1DE8 


DONLY 


> 1C30, 


1CF2 












! 6 


2 


19 F8 


FINIS 


19A6 














6 


1 


100 E 


FLAG1 
















; 6 


1 


100F 


FLAG2 
















6 


2 


1C1E 


HUT 11 ; 


1BD4 














6 


16 


15ED 


IBLAH 


125C, 


1266, 


1402 1 


142E f 
14BE ; 


14344 


143E, 


1454 


< 4 








1466, 


148E, 


14A6, 








j 4 


2 


1426 


ICOUT 


126C, 


1412, 


1482, 


149A; 


14B2, 


14CA 




10 


8 


1676 


ICSW1 


UDOt 
1494 : 


11E2, 


123A, 


12AA, 


133A, 


133A, 


139A 


11 

6 


8 


1686 


ICSH2 


1278, 


12BA, 


135C, 


135C, 


14C4 






1 


• 4 i 


152C 


ICUIO 


14FC 














1 


4 1 


1486 


IDIDI 


1462 














4 


4 1 


116E 


. I HANG 


1182 














6 


16 


15CB 


IL INK 


; 13BC, 


13C4, 


13C6, 


13CC, 


1546 






! • 4 


4 


1302 


ILOKE 


12DE 














4 


4 ! 


USE 


ILOOP 


10F6,. 


1102, 


1116 










I 4 


4 I 


1366 


INDER 


12D6, 
1350 


12EE, 


12FA, 


1314, 


131E, 


132E, 


1340 


1 • 1 
15 


5 


1010 


: INPSW 
















4 


3 


16 AO 


IOADR 


13DE 














8 


6 


1454 


: IOCSW 


13D6 














2 


16 


1623 


IOLOG 


150E t 


1514, 


151A, 


1520, 


152A 






4 


16 


1648 


IOPTl 


10EE, 


1106, 


111A, 


1540 








\ 4 


4 ' 


14F8 


IPASS 


14D8 














' ! 4 


8 


1588 


ISAVE 


112C, 


156A 












8 


4 


11AC 


ISSUE 


10EA, 


10FE, 


1112, 


13E8* 


16A0 






I ' 8 


4'! 


1156 


ITRY1 


1162, 


1172, 


1550 










4 


4 


1166 


ITRY2 


115A 














9 


16 


16A7 


IUNEX 


1254, 


125A 












1 


4 ! 


1206 


IWAIT 


1296, 


1538 












8 


4 


11F2 


IZERO 


11B0 














8 


4 : 


173C 


M0D50 


16CC, 


16D8 












4 


1 


0 


NEVER 
















! 4 


4 


1078 


RLCSW 


18B6 














8 


4 


1D70 


RSCSW 


18A6 














8 


4 


1000 


SECNO 


1130, 


1252, 


1254, 


125A, 


13AC, 


13AE, 


13B4 


8 








13C4, 


13C6, 


13CCt 


13DE, 


13E0, 


13E6, 


13F8 


8 








13FA, 


1400, 


142A, 


142C, 


143E, 


144C, 


1452 


! 4 








14E0, 


14E2, 


14E8, 


14EE, 


14F0, 


14F6, 


150A 


1 








150C, 


152A, 


1540, 


1546, 


1574* 


1580, 


1720 


1 i 








172A, 


17FD, 


1821, 


1840, 


1651, 


1866, 


1875 


l 








188A, 


1891, 


18A6, 


18B6, 


18CA, 


18DA, 


18E1 


j . i 








18F6, 


1906, 


1916, 


1926, 


1936, 


1946, 


194D 


! 1 








1962, 


1981, 


19E2, 


19F2, 


1A79, 


1A9A, 


1AA6 


' 1 I 








1AB2, 


1ABE, 


1ACA, 


1AD6, 


1ADD, 


1AF2, 


1B12 


\ ■ 1 








1B17, 


1B56, 


1B62, 


1B6E, 


1B7A, 


1B98, 


1BB0 


\ 1 








1BB6, 


1BBC, 


1BC2, 


1BC8, 


1BD2, 


1BDC, 


IBE4 


1 








1BF0, 


1BFC, 


1C08, 


1C1C, 


1C24# 


1C30, 


1C44 


I i 








1C54, 


1C60, 


1C74, 


1C7C* 


1CA6, 


1CBC, 


1CC2 


1 








1CDE, 


1CE6, 


1CF2 










1 


4 - 


1804 


START i 
















1 


i 


10 EO 


UNIT! 


16D4 














4 


1 


10 E4 


UNIT2 


. 16C8 














4 


4!. 


1D88 


WLCSW 


18DA 














2 


4 : • 


1D80 


: wscsw 


18CA 














8 
8 


13 


1E23 


BYPASS 


1B98 














8 


1968 


CHNNOP 


18F8, 


1928, 


1954 










I 


1 


1A74 


CMDBYT 


1992, 


199E, 


19A2, 


19AE, 


19B2, 


19BA 




2 


4 


1A53 


COLBIN 
















I 2 


4 f 


1E08 


DCRCSW 


1916, 


1946, 


19F2 










4 


10 


1E60 


DONPRO 


1C1C 














1 


5 


1058 


EXNPSW 


















8 


1018 


EXOPSW 


















6 


1720 


HANGUP 


1704 
















11 


1618 


IACSNS 


11A4, 


130E, 


1392, 


14EE, 


14F0, 


14F6, 


1690 




10 


15B2 


IACTCC 


11A8, 


118C, 


11C A, 


11CC, 


11F2, 


1318, 


1452 




6 


1442 


ICCOUT 


13EC, 


141A 















DATE 

EC 



05MAY65 
124252 



10AUG65 
125580 



22FEB66 
125621 



15JUN67 
130498 



i ID F810*>3 
' PAGE 18 



DATE 
EC 



133A 

135C 
147C 
14AC 
140C 
12C2 
136A 
15A8 
160D 
1122 
13B2 
153E 
155A 
1500 
149E 
12EA 
12F6 
1E00 
15BC 
1078 
1038 
153C 
138A 
1226 
1136 
1690 
1698 
12DA 
163F 
80 
1070 
1030 
16C8 
1DD8 
1CF8 
1068 
1028 
1090 
1DF8 

17 FC 
1820 
1850 
1874 
1890 

18 EO 
194C 
1980 
1A78 
1ADC 
1B16 
1B88 
1A73 
1DF0 
1D00 
1B94 
1060 
1020 

181 
10E2 
10 E6 
19FA 
1000 



ICCSW1 

I CCS W 2 

TCHNG1 

ICHNG2 

ICWOUT 

IDOSNS 

IDUNCK 

IEXPCC 

IEXSNS 

IEYEOH 

I FL AG 1 

IFLAG2 

I LEAVE 

ILOGED 

IMORST 

IN0EX1 

IN0EX2 

INVCCW 

IOADDR 

IONPSW 

IOOPSW 

IOPOUT 

I OUT IT 

IRETRN 

IRETRY 

ISENSE 

ISLAVE 

ITIOLP 

ITSTNO 

LOGOUT « 

MCNPSW 

MCOPSW 

NITWIT 

NOPCSW 

NOPTRN 

PGNPSW 

PGOPSW 

R12CSW 

REJCSW 

ROUT 01 

R0UT02 

R0UT03 

ROUT 04 

R0UT05 

ROUT 06 

ROUT 07 

R0UT08 

ROUT 09 

ROUT 10 

ROUT 11 

ROUT 12 

SAVCNT 

SEQCSW 

SNSCSW 

SOLONG 

SVNPSW 

SVOPSW 

SYSMOD 

U1ADDR 

U2AD0R 

VALCOM 

XF8103 



1336 

1358 

1470 

1478 

1422 

129E, 

12F2, 

1442, 

14CE, 

10FA, 

136A, 

136E, 

137E 

1274 

148A 

1326 

1348 

19CC, 

10F2, 



16C2 
188A, 
1D00 



1D98 

1926 

1015, 

17FD 

1821 

1851 

1873 

1891 

18E1 

1940 

1981 

1A79 

1ADD 

1B17 

198C, 

18F6 

1840, 

1A88 



14F8 
1996 



12AE, 

12FE, 

144C 

14E0, 

110E 

1382 

1386 



1730 
1362 

14E2, 14E8 



1900 

110A, HIE, 13E0, 13E6 
1252 



1226 
1530 
1376 
107C 
1582 

12CA, 1828, 1838, 1000 
1128 
12E2 
1122 
1140 



t 13A2, 13AC, 13AE 9 13B4 
, 1140, 1500 



1906, 1936 



1FFB 



199A 
1866 



NO ERROR DETECTED IN ABOVE ASSEMBLY 



05MAY65 
124252 



10AUG65 
125580 



22FEB66 
125621 



15JUN67 
130498 
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occccccccccccccc 



IBM MAINTENANCE DIAGNOSTIC PROGRAM p/N 840186 

PA6E 19 

F810 2540 RD FUNCTION SEC 1 



PERIODS CORRESPOND TO 

COLS. 1 THROUGH 20 

BESD* AA»*AAXF81 

9 YQ Y9 

99 9 

BTXT. AAA* . A8 . . A A8 AAA 

9 YQY Y9 Y9 QQY / 
999 9 9 9Z9 

BTXT* A A8 . . A8 . . AAA AAA 

9 YQ9 Y9 Y9YYYY 
99 9 9 9999 

BTXT* AAO* . AA. . AAA AAA 

9 YQ4 YQ Y9YYYY , 
99- 99 9 9999 

BTXT* AAS* • A8* • AAAAAA 

9 YQ8 Y9 Y90YYY , 
99 9 9 9 9 

BTXT* AJQ** A8. • AA10BS 
9 Y99 Y9 Y9 8- 
9 9 9 

BTXT. A J4 . • A8 . • AAO DG A 

9 Y9 Y9 Y9 9ZY 
9 9 9 

BTXT. A JH. • A8. . AAAHHA 
9 Y90 Y9 Y99-0Q 
9 9 9 

BTXT. A JO . . A8 . . A AGO 16 

9 Y94 Y9 Y9Z 
9 9 9 

BTXT . A J8 4 . A8 . • A AOY A; 
9 Y9 Y9 Y9 - 
9 9 9 

BTXT. AKA. . A8 . • AAOYA* 

9 Y9Q Y9 Y9 - 
9 Z 9 9 

BTXT . AKQ. • A8 • • AA6 D6G 
9 Y9Z Y9 Y9 9 9 
9 9 9 

BTXT* AKJ* . A8. . AA2BA* 

9 Y9Y Y9 Y9 - 
9 9 9 

BTXT* AKQ* • A8. • AA30EA 
9 Y9 Y9 Y9 ZQY , 
9 9 9 9 

BTXT. ALA. • A8. • AA6NAE 

9 Y9Q Y9 Y9 8Q9 
9 9 9 9 90 

BTXT.ALH** A8«i *AA6A26 
9 Y9Z Y9 Y9ZY 
9 9-9 



BLANK COLUMNS* 

COLS* 21 THROUGH 40 

03..AAAA.AGC 

YYQY Y8Q 
9999 99Z 

AAAAAAAAABOAADAAAAPD 

YYYYYYYYY94Y99YYYY9Q 
999999999 9 9999 Z 

AAA AAAAAA AAAAAAAAAAA 

YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

AAAAADAAAAKW 

YYYY99YYYY99 
9999 9999 

BAAAAABF1MBH6/BH5HBF 
OYYYYY-Q Y- - -Q 
9 999 

6/BS5HKA6DABAL 6HAI5H 
9 ZQ9QY. -QO 0 
0 

1 BAAODGA 10DAO AGO 1 FA . 
Q-Y 9ZY ZQY+YZ R- 
9 9 

ACEA0AGA1BFA1FPA0Y0Y 
Y9QY+YZY QZQ Y 9 
9 9 9 

B25GG016B15GKG660*F* 

- OZ - 0 9 8 



AAGA2BFA0YHFAHHAACFA 
QYZQ Q-Q RQ9-0QY9-Y 
09 9 9 9 

OYGA2HKG660.F.0YG02B 
ZQ R 9 8 - Z 0 

9 0 

EA4WFB0YG05AKG6F0.FJ 

ZQ 9-9 Z Y 9 0 -Y 
9 9 

0YGA3QAB6BGA2BAJ0YGA 
ZY 9-9 OZQ -Y ZY 
9 9 

0AG.3BFA28G03QA.0YGA 

♦YZ 9ZQ QZ 9- ZQ 
9 9 9 

G-30NA 5 G A DG- 30 AHA AGA 
Z Z Y 0Q9Z Z-9QYZY 
9-0 09 

AJ0YGA30AHAH.A3-NG6F 

-Y ZY ZZ0Y9 Y 9 0 
9 9 



COLS. 41 THROUGH 60 
840 : 



AAAAAAA AAAAAAAAAAA A A 

YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

AAAAAAAAAOAAAAAAAAAA 

YYYYYYYYY9YYYYVYYYYY 
999999999 9999999999 



10G01SBE1MBE10BT6/BT 
8Z 9-Q Y-Q 8- 



KA6N0C4NAHPGO.O. PCSA 

Y 0 9 YYZ 9- - 88Y 
9 9 9 

00GA1FEA0AG01FA.0DGA 

9ZY OQY+YZ+ R— 9ZY 
9 9- 

FA0YBX6NBX5GDA0AGA12 

-Y - 8- 0QY4YZY 
9 - 9 9 

0YAAAAGA16AH6BGA16F. 

-YQ9ZY -9 OZQ , - 
0 9 

0YAA6LFA20AA6MD70Y60 ; 
YY OZQ 9YY 0-8 Z 
9 9 

KG5A0.BEABA2FHB0MN6P f 

9 Q 8QY9Y8908-Z9 0^ 
999 99 -9 

0YAAAAGA2BAH0YGA2BFH 
-QQYZY Q-9 ZQ Q-9 
909 9 

3QAB6BGA3QHFAHHAABAA 
9-9 YZY 9RQ9-0QY9ZY 
9 

3QG03+AJOYGA30G03+ED 

ZZ — Y ZQ ZZ —8 
9 9 9 

2KA. OYGA30HCAF . A36 NG 
Y- ZY ZZYY9 Y 8 9 
9 9 9 

6FGA34FA0YBM3BB056AA 

02Y —9 -2 0^* 8-9 
9 



COLS* 61 THROUGH 80 
187* 130498 ..81030001 



AAAAAAAAAAAA81030002 

YYYYYYYYYYYY 
999999999999 

AAAAAA AAA A AA81 030003 

YYYYYYYYYYYY 

999999999999 

............81030004 



5HG01SBD1MBD81030005 
Z 9-Q Y-Q 



SAAAAAGA16A081030006 
8Y-YQYZQ -4 
09 9 

1FDA0 AGO I WHF8 1030007 
0QY4YZ 8RQ 
9 9 

G.1DGJ1DB35G81030008 

2 YZY - 0 
9 9 

AAG016B05GD781030009 

QYZ - 0-8 
09 

2 BAOO 2 G-2 HD78 1 0300 10 
Q8* 8Z Z-8 
9 

KB505XBK45KB810300U 

9 Y -8 8 9 
9 9 9 

OYG02FABAAGA81030012 

Z 9 -9 Q YZY 
09 

6A+EAHDA0AG081030013 
Q YYZQY4Y 1+ 
9 9 9- 

ODG02SFDOYNA81030014 

-ZZ* -9 Y 
9 

6666G^30ADAA81030015 
8 82 Z-9QY 
09 

OYGA38AA00GA81030016 

ZQ Y-r9 9ZY 
9 



DATE 05 MAY 65 10AUG65 22FEB66 15JUN67 
EC 124252 125580 125621 130498 



10 F810-3 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM ■ £/N 840 *5f 

; PAGE 19A 



F810 2540 RO FUNCTION SEC 1 



BTXT . ALA* . A8«i • AA5KBU 
9 Y9Y Y9 Y9 8-9 
9 9 9 

BTXT* ALH* • A8. • AAAOLH 
9 Y90 Y9 Y9Y980 
9 - 9 9 9 9- 

BTXT.ALO.. A8«i • AA+J5S 
9 Y9 Y9 Y9 Y 8 
9 9 9 

BTXT • AMY* • A8* • AAAHEA 
9 Y99 Y9 Y9Y99Q 
9 9 9 9 

BTXT* AM-* • A8«i • AAAAGA 
9 Y9 Y9 Y9QYZY 
9 9 9 09 

BTXT* AMH. • A8* . AA66EA 
9 Y9- Y9 Y9 8ZQ 

9 9 9 

BTXT*AMO** A8* • AA6KAE 

9 Y9- Y9 Y9 9Q9 
9 9 9 0 

BTXT* ANH*. A8. . AAADEA 
9 Y99 Y9 Y9Y89Q 
9 9 9 99 

BTXT « AN* • « A8« • AA6HB0 
9 Y9 Y9 Y9 Z8- 
9 9 9 9 

BTXT* ANH* • AQ* • AAEAOA 

9 Y9R Y9 Y9QY+Y . 
9 0 9 9 9 9 

BTXT.ANQ* • AU* .AA.CC* 

9 Y90 Y9 Y9 

9 9 9 

BTXT* ANC** AJ* • AA* ADR 

9 Y9Y Y9 Y9 

9 9 9 9 

BTXT . ANC. • A8 • • A A. CAW 

9 Y9Q Y9 Y9 

9 9 9 9 

BTXT* AOL. • A8* • AAX* EX 

9 Y99 Y9 Y9 
9 9 9 

BTXT. AOC A8. . AAT.SS 
9 Y98 Y9 Y9 

9 9 9 

BTXT* AOC* *A8.* AAAAAA 
9 Y90 Y9 Y9YYYY 
9 9 9 9999 

BTXT* AOC. *A8** AAXLEA 
9 Y9Q Y9 Y9 8Q- 

9 0 9 9 99 



3BBA56AA60GA3KE.6NGA 
0-Y 8-Y OZQ 0- 8ZY 
- 9 9 9 

+A50BEACEJE0B0JA5CAC 
Q -8QY99 9-8-YQ YZQ 
0 999 9 9 9 0 

BEACEJESB0JC5CKB505K 
8QY99Z988-Y8 Q 9 Y Y 
999 9 9 9 9 9 

EAKG525AKG5C5HB0JK5N 
9Q 9 Q 9 Q -8-Y8 Y 
Z 9 9 9 

4FKB6D6BHCAF.A4AAHAH 
0 9 9 8ZYY9 Y YZ0Y9 
9 9 9 

4WADAAGA4FKB606BKG5A 

9-9QYZY 0 9 9 8 90 
09 - 9 

AD0YGA48BEAAFKFKB0JC 
-9 ZY 8QY999998-Y8 
999 9 9 

EAKA6Y5AKE6T5BKE625B 
9Q 9 9 Q 9 8 - 9 9 Q 
9 

J A5C*NAHA00DG+ 1FAA0Y 
Y9 Y YYZ- 4 9Z R-Y 

9 9 

80AAGLG016GAAAAAAAAA 
8-Y9QYZ 99YYYYYYYYY 

9 Z9 999999999 

•X.EXP*CC**X*ACT*ADR 



•XXXXXX.L INK A.. 

Y 
9 

•XXXXXX*CSWCCW*CSW*X 



P«SNS*XX*ACT*LOG.XX* 



•0*ON«FOR*LOOP*ON*XI 



AAAAAAAAAOAONAAAAAAA 

YYYYYYYYY9Y98YYY9YYY 

999999999 9 9999 999 

• J FGA6HQGH00UD07440F 
Z-ZY 9QR+ R+ 8 *Q 
9 9 2 



50AA6BGA50KA6DABBEAB 
4-9 OZQ 4 9 ZQ98QY9 
9 - 0 999 

AD A A A AG A 4 D BE AC F J E A BO 
Y9-YQYZQ R8QY99Y9 8- 
9 09 9 999 9 

B045KG5A JAEA4HA0 JDGA 
-9 8 9 QYYZQ 9-4Y9ZY 
9 9 

G9KA5NADB0 JB5QB0JB5B 
9 Y YQ98-Y8 08-Y8 0 
9 0 9 9 9 9 - 

•A4AKG5A5AEA4MA.0YGA 

Y Q 9 Q QZQ 9- ZY 

0 

5AEA4WAJ0YGA4FKB6D6G 
QZQ 9-Y ZY Y 9 9 9 
9 9 

6EBEAAFNFN80JC6QEAJA 
88QY998988-Y8 9-QZO 
9999 9 99 9 Z 

KE615KB0JM6TAB0YGA54 

9 8 08- Y8 9-9 ZY 8 
9 9 9 9 

GNAHAAG A50ACABAC AFH I 
99-9QYZY ZZQY9ZQY9-0 

09 09 09 



*XXXXXX*XIOA< 

Y 
9 



XXXXXXX*XXXXXXXX*EXP 



XXXXXX. XXXXXX.XXXXXX 



OT.SS.l.ON.FOR.TIO.S 

8 



AAAAAA JMFAAA .UIO.F RO 

YYYYYY9YQ9YY 
999999 Z 99 

MH 00 SO 0744 OF QB AF S L OC 

8R4 8R4 8 4Q9-YQ98ZZ 
9 9 Z 92 9 



i FDFDBOMA67AA81030017 
9Z9Z8-Z8 8ZY 
9 9 9 

JG50ED1MG-4B81030018 
Y8 Q-Q YZ Z 
9 0 

4BAKAHG04DBE81030019 
ZZYY9Z 88Q 
9 999 

KB505XBK45AH81030020 
9 Y -8 8-9 
9 9 9 

4FKB606GKG5A81030021 
Q 9 9 9 9 Q 



KG5A6FEA4WKA81030022 

9 Q OZQ 9 Y 
9 

G-5UKC5ASABE81030023 
Z 8 8 Q8Y8Q 
9 9 99 

DEOYG02FB00681030024 
-Q Z 98-49 
Z 9 

5HGCBOUAGLBB81030025 

09Q8*9QQY8Q 
Z9 9Z999 

• »»•»• **81030026 



81030027 



*»**.« »*«.* .81030028 



ACTEXP.SNS.X81030029 



. TST .XXXX . SE8 1030030 



I0.L00PAAAAA81030031 

YYYYY 
99999 

M.0EVICE.XXX81030032 



MAIBWADKWC-F81030033 
890889Q888 Q 
- 09 2 



DATE 05MAY65 10AUG65 22FEB66 15JUN67 ' 

EC 124252 125580 125621 13049i PAGE I9A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 
F810 2940 RD FUNCTION SEC 1 



BTXT.AQ3..A8..AAJAFA 

9 Y9 Y9 Y9Y8 Y . 
9 9 9 9 9 

BTXT. APT « • AN* • AASFAO ; 

9 Y98 Y9 Y98-9 
9 9 9 9 



BTXT*APS..A8. 

9 Y98 ' Y9 
9 9 

BTXT.AQQ.* A8« 

9 Y99 Y9 

9 9 



BTXT.AQ+. 
9 Y9 

9 



»A8. 
Y9 
9 



BTXT. AQH«« A8* 
9 Y90 Y9 

9 9 

BTXT.AQ0*.A8«» 
9 Y9* Y9 
9 9 

BTXT.AQ8..A8. 

9 Y9 Y9 
9 9 

BTXT.AJA..A8. 

9 Y8Q Y9 
99Z 9 

BTXT.AJQ..A8. 

9 Y8Z Y9 

99 9 

BTXT.AJJ..A8* 

9 Y8Y Y9 

99 9 

BTXT. AJQ.. A8. 

9 Y8 Y9 

99 9 

BTXT* AKA«* A8* 
9 Y8Q Y9 
999 9 



•AA.PRE 
Y9 
9 

• AAAJOA 

Y9YY Y 
9 99 9 

»AACAHD 

Y99Y9R 

9 9 0 

» AA1AEQ 
Y9 YQ 

9 921 

»AAEALK 
Y9ZQ 9 

9 0 

• AAAJ90 

Y9ZY 
9 

.A AH A AO 
Y99Y9* 

9 9- 

» AACAP* 
Y99Y9 
9 9 

» AABDEG 

Y9QR-Q 
9 20 I 

» AAEA1K 

Y9ZQ 9 
9 0 

. AAKOBF 

Y988ZZ 
9 99 



BTXT. AKH* 
9 Y8Z 
99 

BTXT* AKA* 
9 Y8Y 

99 

BTXT. AKH. 

9 Y80 ; 

99- , 

BTXT.AKO. 

9 Y8 
99 



• A8. • AAHQHH 

Y9 Y9RZR0 
9 9 0 

.A8..AAAJEH 
Y9 Y9ZYQ9 

9 9 Z 

>A8..AA4AB* 

Y9 Y98Y9 
9 9 99 

i A8. .AAOAES 

Y9 Y9 YQ8 
9 9 9Z 



AG-7AFAFSAA0Y6A7JB»7 
YZ Y-YQ9-Y ZQ Y- 

9 9 Z 9 9 

YE+2BBA0YG07AAA7G 
Z -Y Z YYY8Q 
9 9999Z 

V IOUS.HANG.UP .DETECT 



BOGABAH+E. 6DA J 6AEA IK 
3 9Y9Y9 Z QZY QZQ 9 
9 9 9 0 0 

E.6DAJ 6AEA IK SAA- OAEO 

Z QZY QZQ 98YY YQ- 
0 0 999 9Z 

B0GAEAHSE.6DAJEQEAIK 

8 9Y9Y98Z QZYQ9ZQ 9 

9 9 9 0 Z 0 

SAAA0AEAAJEAEA1KSAA J 
8Y9Q YQYZYQQZQ 98Y9Y 
99 9 9Z ZZ 0 99 9 

EA1KHAA* 1BEQAJEQEA1K 
ZQ 99Y9 9Q ZYQZZQ 9 

0 9 Z Z 0 

1AEQAJ EQEA1KHAAA0AFH 
YQ ZYQZZQ 99Y9Y YQ9 
Z Z 0 9 9Z 

• AAACAP.AAAAAAJHOAAA 
YY99Y9 YYY9YY8R8YY9 
99 9 999 9990999 

BDGA98 AO AAB-B OAGBDGA 
QRZY ZZY9Z QR-8QRZY 
ZO 9 ZO 9Z0 

8ABA1AEHAJEQEA1KYABA 
9Y9Y YQOZYQZZQ 99Y9Q 

9 Z- Z 0 9 9 

BFBFKOBFBFBFBFBFBFKO 
88RR8800YY — QQ YY 
99 

HQHHQY8SWSW2626K0+WB 
-00 99889988ZZ-8R 
99 99 0 

AA0DGACDBBEAEA1KSABJ 
-9 9ZQQr-9QQZQ 98Y9Y 
9Z 19 0 99 9 

1AEJ EAIKSAB^OAESEAOK 
YQYZQ 98Y9 YQ8ZQ Y 
9Z 0 99 9Z 0 9 

BDEAHFAHH.ADF.CAAJEA 
-8QQR89~0 Y9Z QYZYQQ 
9Z9 9 Z9 Z9 



.KF7A7.BA60BCEAAJEAG 
Q Z -Y 0-9QQZYQQ9 

9 Z9 29 



EDGAAAH JE. 60EA0FBA AA 
9Y9Y9YZ QZQ Q9YYQ 
9 9 9 0 0 Z 999 

BAAA0AEA0FBAA.1AE0EA 
ZYYQ YZQ Q8YY YQ-ZQ 

99Z 9 0 Z 99 9Z 0 

EAOFBAAOOABODAHAE. 6D 
ZQ Q9YY+ Y8 9Y9QZ Q 
0 Z 99- 99 9 0 

SAAAOAEOAJE JEA1KSAAA 
8YYQ YQ+ZYQYZQ 98Y9Y 
999 9Z- Z9 0 99 9 

0AEHB0GAFAADE.6DAJE8 
YQ08 9Y9Y88Z QZYQ9 
9Z 9 9 99 0 Z 

HAA+0AFHAJE+EA1KYAA- 
9Y9 YQ9ZYQ ZQ 99Y9 
9 9Z Z 0 9 

BOGAGAAAE. 6DA J9QEA1K 

8 9Y9Y8YZ QZY ZZQ 9 

9 9 99 0 0 

HABHE. 6DAAA1 BABCLOBA 
9Y8RZ QZ QY8ZQQR8 Z-Y 
990 0 Z9 ZZ09 9 

9KNABD* AGA9FADAAF A9B 
0 YQR YZY -ZZY9ZQ Q 
9Z0 9 9 Z 0 

0AFHG09FB0DMU4DDMDDD 
YQ9Z -8 9999ZRZR0- i 
9Z 9 0 

BFTXTX3737LPTXCG37LP 
QQ998S9988ZZ88RR8800 
99 99 99 00 

F26K0K0BFBFSWK026BFA 
R8800YY00QQ YY QQY 

0 —00 99 ZZ9 

0AESEA0F4ABAIAE JEA1K 
YQ8ZQ Q8Y9Q YQYZQ 9 
9Z 0 Z99 Z 9Z 0 

4AB01AE0B0GAAAC0E*6D 
BY9* YQ+8 9YQY89Z Q 
99 - 9Z 9 9999 0 

EA1K8ABA1AEAB0JACHE* 

ZQ 99Y9Q YQQ8 9Y80Z 
0 9 9209 99 



P/N 840186 
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4KA0C6NB0MK781030034 

Y 9 08-Z8 
9 9 9 



' .»*««*« 



.81030035 



OAHOFMEAOFBA81030036 
YR+Q8ZQ Q9Y 
9 Z9 0 Z 9 

0FBAA+0AB0GA81030037 
Q9YY Y8 9Y 
Z 99 99 9 

BCEAEA1KHAAA8 1030038 
-9QQZQ 99YYY 
Z9 0 99 

0AEHAJEYH0FM81030039 
YQRZYQ9R4Q8 
9Z0 Z Z9 

EA1KYAAA0BE081030040 

ZQ 99Y9Q 9Q 
0 9 Z 2 

0AE8AJ90EA1K81030041 
YQ ZY +ZQ 9 

Z - 0 

8AAA0A9HB0AA81030042 
9Y9Q Y R8 YY 
9 9 09 99 

BDA.9BCABCC-81030043 
QRZ QZQQRZ 
ZO Z ZZO 

AJFAB-FAB89D81030044 
ZYQYZ CY-9 Q 
Z9 Z9 9 

MDDMU4BF8FK081030045 
00 998899 
99 

LPCGCGCHQY8H81030046 

YY00QQ99999Z 
—00 

AAGAAABDE.6D81030047 
YY9Y8Y8QZ Q 
99 99999 0 

SA8.0AESEA1K81030048 
8Y9 YQ8ZQ 9 
99 9Z 0 

AJEHE A IKS ABA8 1030049 
ZYQ9ZQ 98Y9Y 
Z 0 99 

6DAJEHEA1KBA81030050 
QZYQ9ZQ 9ZY 
0 2 0 9 



DATE 

EC 



09 MAY 65 

124252 



10AUG65 
125580 



22FE866 
125621 



15JUN67 ! 
130498 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 
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F810 2540 RD FUNCTION SEC 1 



BTXT* ALY** A8* • AACAOA 
9 Y89 Y9 Y99Y Y 
99 9 9 9 9 

BTXT • AL-* • A8 • • A Al AEO 

9 Y8 Y9 Y9 YQ+ 
99 9 9 9Z 

BTXT. ALH. • A8 • • AAFT BO 

9 Y8- Y9 Y9Q98 
99 9 9 Z 9 

BTXT. ALO.* A8. • AAUVF+ . 
9 Y8- Y9 Y998Q- 
99 9 9 9Z 

BTXT.AMH** A8. • AAEOKG 
9 Y89 Y9 Y9Q+ 9 
99 9 9 Z 

BTXT. AM. . * A8. • AADJOA 
9 Y8 Y9 Y99Y Y 
99 9 9 9 9 

BTXT. AMH. • A8. • AABOAA 
9 Y8R Y9 Y98-Y9 
990 9 9 9 

BTXT. AMA. • A8. • AAAAFS 
9 Y8Q Y9 Y9-YQ9 
990 ; 9 9 Z 

BTXT. AMY. .A8..AAEA0F 
9 Y8 Y9 Y9ZQ Q 
99 9 9 0 Z 

BTXT. AN J. • A8* . AAFAP* 

9 Y8Y Y9 Y9 Y9 
999 9 9 9 

BTXT. ANN.* A8* • AATAP, 
9 Y8R Y9 Y99Y9 
99 9 9 9 

BTXT • ANA. • A8. • AAAAAA 

9 Y8Q Y9 Y9YYYY 
99 9 9 9999 

BTXT. ANH.. A8. .AAAAAA 
9 Y8 Y9 Y9YYYY / 
99 9 9 9999 

BTXT.A0A..A8..AAAAP* 
9 Y8Y Y9 Y99Y9 

999 9 9 9 

BTXT . A08 . • A8. • A AADER 
9 Y89 Y9 Y9 
99 9 9 

BTXT4A00..A8..AAB0UT 
9 Y8* Y9 Y9 

99- 9 9 

BTXT • AOQ* • A8 • • A AREMO 
9 Y80 ; Y9 Y9 
99 9 9 



EA1KBACA2AHFAHHAADFA 
ZQ 9ZY9Q YRQ9-0QY9ZQ 
0 9 9 9 9 

EAIKHAC+IAEAEAOKBAC^ : 
ZQ 99Y9 YQQZQ Y8Y9 
0 9 9Z0 0 9 9 

E.6DFA60AAFSGACQB0AA 
Z Q-Y 0-YQ9ZYQ 8-Y9 
0 Z Z 9 

GODOBODOFABBBOAAFPEA 
Z Q88-99QQ8Q8-Y9Q0ZQ 
Z99 ZZ999 Z 0 

FXFGAAFSGACFB0U7F-BB 
Q8QQ-YQ9ZQQY8-99Q 8Q 
111 9Z99 Z 99 

ESF-02EA1KYA0A1.FAEA 
Q8Z Q8ZQ 99Y9Q QQZQ 
I 29 0 9 Z Z9 0 

FPEA1KBAD+3AEA0FBAD- 
QOZQ 99Y9 YZQ QZY9 
Z 0 9 9 0 Z 9 

GADMBOJMGGBOJ 6GAG0DS 
ZYQ 8-Y8QY8-Y8Q-Z Q8 
Z 9 9Z99 9Z Z 

BADA1AEYB0AACAP * .AAA 
8Y9Y YQ 8 YY9Y9 YY9 
99 9Z 9 99 9 99 

AAAAVAP.AAAGVAP.AAAJ ' 

YYYR9Y9 YYYQ9Y9 YYYO 
999 9 999 9 999 

AAABTAP. AAACFAP. AAA+ 
YYY99Y9 YYY9 Y9 YYY 
999 9 999 9 999 

AAAAAANADAAAAAAAAAAA 
YYYYYY8Q8YYYYYYYQYYY 
9999999 999999999999 

DAAAAAOHDAAAAAAADAAA 
9YYYYY9-8YYYYYYY8YYY 
99999 999999999999 

AAA4-AAN0DAA AAAAAA AAA 

YYY YY8+8YYYYYYY9YYY 
999 999-99999999 999 

.NOT «READY.PUT.READE 



•30.BLNK.CDS. IN.RDRT 

i 



V E • C DS . FROM .STACKER. 



C6EA0KBACJ0AEA0FBACA 
Q8ZQ YZY9Y YZQ Q8Y9Q 

Z9 0 9 9 9 9 0 Z 9 Z 

1AE0EA0FBAC00AB0KAGG 
YQ+ZQ QZY9* Y8 9YQQ 
9Z 0 Z 9 - 99 9ZZ 

FPB0U/FPB0J4F0B0J.GD 
Q08-98Q08^Y8Q-8-Y Q8 
Z 9 9Z 9 9Z 9 Z9 

1KHACA1* EHEA0FHACA1* 
99Y9Y QOZQ QZY9Q 

9 Z- 0 Z 9 

B0AAFPEA0FBADA1AEYAJ 

8->Y9Q0ZQ Q8Y9Q YQ ZY 
9 Z 0 Z 9 9 9Z 

OF HAD. l.EHAAOEGADHKB 
QZY9 QO-Y 9ZYQ 9 
I 9 Z- Z 

3AEA0KBAD03AKBFBFNB0 
YZQ Y9Y94 Y 9QRQ88- 
9 0 9 9 - 9 Z Z 9 

BDDBBDDDGODAKGFXFGBO 
-9QQ-9QQZ QQ 9Q8Q-8- 
ZO Z9 ZO Z Z 9 

HAM8AAAABAP. AAA^CAP. 
9Y8 YYY99Y9 YYY 9Y9 
99 999 9 999 9 

BAP.— AAABAP.-AAABAP. 

Y9 YY9 Y9 YY9 Y9 

9 99 9 99 9 

AANJD. AAAANYD. AAAANA 
YY8Y8 YYYY898 Y9YY8Q 
99999 99999 9 9 999Z 

AAAADAAAAAAAMAAAAAAA 
YYYY9YYYYYYY9YYYYYYY 
9999 9999999 9999999 

AANAHAAAAAAADAAAAANH 
YY8Q9YYYYYYY9YYYYY82 
9999 9999999 999999 

AAAAAA A AABA. RTN. BYPA 

YYYYYYYYY9Y 
999999999 9 

R. OFF .LI NEOFFON. • DO* 



MA KE * RD YTE OF. ONABOUT 
8 



OF. LOADER* DEVICE* REM 



t 1AESEAOKBAC.81030051 
YQ8ZQ Y8Y9 
9Z 0 9 9 

ADODGACDB0DE81030052 
-9 9ZQQQ8-98 
919 9 

BOAEGDGOCFB081030053 
8-YZQ8Z QQ8- 
9 Z Z99 

EHEA0KHADA1. 81030054 
QOZQ Y9Y9Y 
Z- 0 9 9 9 

EHA-AEEA1K4A81030055 

Q9Z Y9ZQ 98Y 
Z 9 0 99 

FBFKB0UMFFBB81 030056 

QRQ88^99QZ8Q 

Z Z 9 Z 99 

UMFFBJDBBJDD81030057 

99QZ-YQQ-YQQ 
Z ZO Z9 

JVF4BBB0AAFP81030058 

Y8Q-8Q8-Y9Q0 
9Z 999 Z 

A A AAFAP* A A AG8 1030059 
YYY9 Y9 YYY8 
999 9 999 

AAAATAP.-AAA81030060 

YYY99Y9 YY9 
999 9 99 

D.AAAAN8D.AA81030061 

8 YYYY898 Y9 

9 99999 9 9 

BAAAAAAAAAAA81030062 

9YYYYYYYYYYY 
99999999999 

FAAAAAN-8AAB81030063 
8YYYYY8 9YY9 
9999999 99 

SSED* MAKE * RE8 1030064 



N0PR0T.PUT.A81030065 
8 



• 30* •••5»**.81030066 



OV6*TME*REMA81030067 



DATE 05MAY65 10AUG65 22FEB66 15JUN67 { . tn «aiO-3 
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BTXT.A0S..A8..AAININ 

9 Y88 Y9 Y9 
99 9 9 

BTXT.APQ..A8..AAD.PL 

9 Y89 Y9 Y9 
99 9 9 

BTXT.AP+ — A8..AAE.RE 

9 Y8 Y9 Y9 
99 9 9 

BTXT.APH..A8..AAUT.I 

9 Y80 Y9 Y9 
99 9 9 

BTXT . A PO . • A8 . . AA* RDR 

9 Y8+ Y9 Y9 
99 9 9 

BTXT- AP8. . AC* • AARDY . 
9 Y8 Y9 Y9 
99 9 9 

BRLD A8....AAAA 

9 Y9 Y9Y9 

9 9 9 

BRLD* • ....A8.... AAAA 

9 Y9 Y9Y9 

9 9 9 

BRLD. A J.... AAAA 

9 YY Y9Y9 

99 9 9 

BEND* APD. . • .., . AA. • . . 

9 Y9Q V9 
9 1 9 

BOAT. 

9 



G.TEST.DECKSTIF.ANYT 
8 8 



ACE.CDS.RUN.OUT.IN.F 



MAINING*TEST.DECK5*U 



N.HPR.PUT. REMAINING. 



.RDYTEOF. ON. REMOVE. B 
8 



AAANEAA4AA0AAA0JAAJ/ 
8YQ98YQ88Y9-8Y9Y8Y88 
999 999 99 99 999 

A AN/ AAN 1AAN 1A AN AAAN A 
8Y888Y898Y888Y8Z8Y88 
9999999 9999999 999 

EANHEAN0EANSEAN0EAN8 
8Y8-8Y8-8Y888Y8 8Y8 
999 999 999 999 999 



•FROM* THE* LOADER* H PR 



RQNT.OF.REMAINI NG.TE 



NTIL. A. MSG. REQUESTS. 



TEST.DECKS. INTO. RDR. 



LNK.CD S. FROM* READER* 



AAJAEA JHAAM9AANAAANA 
8Y8R8Y8R8Y8 8Y898Y88 
99909990999 999 9999 

AANAAAN JAAN/AAN/EANO 
8Y8R8Y888Y8 8Y888Y8* 
999 999 999 999 999- 

AAOAOAOH**** •• 

8Y898Y89 
999 999 

• • •'• * . . . • . * ••••».••• 



DATE 
EC 



05 MAY 65 
124252 



10AUG65 
125580 



22FEB66 
125621 



15JUN67 
130498 



.D0.N0PR0.AN81030068 

ST. DECKS. SAV81030069 

THEM*TO.BE*P81030070 

HPR.AND.MAKE81030071 

MAKE. DEVICE. 81030072 

81030073 

AANJAANJHAN/81030074 

8Y898Y889Y89 

999 9999 99 

EANHEANADANH8 1030075 
8Y8R8Y8Y8Y80 
9990999 999 

• •••••• 81030076 

81030077 

81030078 

..81030079 

81030080 

.81030081 

81030082 

• •*• ..81030083 

• ••••••81030084 

«••••* 81030085 

•••••••81030086 

••••••••••••81030087 

81030088 

••81030089 

•••••••81030090 
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2540 READER FUNCTION TESTS -SECTION 2 F811 



8112 TITLE 

*********************************************************************** 

* * 

* MODIFICATIONS * 

* * 

* * 

* REVISION LEVEL 2. THIS REVISION DIFFERS FROM VERSION 1 AS FOLLOWS..* 

* 1. THIS SECTION PREVIOUSLY CONTAINED THE RIPPLE READ AND THE * 

* 360 STACKER SELECT TESTS. THIS SECTION NOW EXECUTES A * 

* CONTINUATION OF THE INTERFACE TESTING. * 

* 2. DATA AND COMMAND CHAINING TESTS ARE ATTEMPTED. * 

* 3. 1400 COMPATIBILITY PROVISIONAL FEED TESTING HAS BEEN ADDED * 

* TO THE PROGRAM. * 

* 4. THE PROGRAM HAS BEEN MODIFIED TO INCLUDE TEST NUMBERS AND * 

* COMMON MESSAGE FORMAT. * 

* * 

* E.C. PREREQUISITES * 

* MACHINE . • • NONE * 

* PROGRAM . • • NONE * 

* * 

* USE DESCRIPTION F810* AT EC 130498, DATED 15 JUN 67 OR LATER. * 

* * 
*********************************************************************** 

XF8112 START 4096 
001000 USING *t!5 

* 
♦ 

*********************************************************************** 

* TEST NUMBER DESCRIPTION 

*********************************************************************** 

*********************************************************************** 

* TEST DESCRIPTION 

* . 

* ************** 

* ROUTINE 01 

* ************** 

* 0010 - OPERATION ATTEMPTED 

* A TEST 1-0 IS ISSUED TO THE READER. 
* 

* EXPECTED RESPONSE 
* 

* COND. CODE 0 SHOULD BE SET ON THE TEST 1-0. 

* POSSIBLE FAILURE CAUSES 
* 

* 1. CONDITION CODE 2 INDICATES THE CHANNEL APPEARS TO BE BUSY. 

* 2. CONDITION CODE 3 INDICATES THERE IS NO DEVICE FOR THE 

* ADDRESS USED. THE DM UDT ENTRY COULD BE IN ERROR, THE 

* DEVICE MAY BE OFF LINE t OR IF THE 2821 TWO CHANNEL SWITCH 

* FEATURE IS INSTALLED, THE PARTITIONING SWITCH FOR THIS 

* INTERFACE MAY BE DISABLED. 

* 3. IF CONDITION CODE 1 IS SET, THE CSW MUST BE INSPECTId TO 

* DETERMINE THE CAUSE. UNIT CHECK MIGHT BE DUE TO NOT READY 

* DEVICE. CHANNEL OR DEVICE END INDICATES THAT AN INTERRUPT 

* WAS PENDING IN THE CHANNEL. 
* 

* 0020 - OPERATION ATTEMPTED 

* * A TEST 1-0 IS ISSUiD fO THE WNtH. 
* 

* EXPECTED RESPONSE 
* 

* COND. CODE 6 SWf UlfD #E SET ON THE TEST ' 1 HO* 
* 
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* 




POSSIBLE FAILURE CAUSES 


* 




REFER TO POSSIBLE FAILURE CAUSES GIVEN FOR TEST 0010. 


* 
* 




************** 


* 




ROUTINE 02 


♦ 




************** 


* 


0030 - 


OPERATION ATTEMPTED 


* 
* 




A READ AND FEED COMMAND -02- IS ISSUED AND THE SYSTEM IS 






ENABLED FOR 1 INTERRUPT. 


* 




cvocr Ten occonucc 


♦ 

* 




rnwn rnnc n cuniii n rf <pt nw THF START INTERRUPT DUE 






Tn ruAMuci cun cuniii n nrniQ. 

IU UnAiMIMCL CtMU onUULU UlrLUn* 


* 


0040 - 


OPERATION ATTEMPTED 


* 




a nfAftNncTir yRTTF is; ISSUED TO THE PUNCH WHILE THE READER IS 


* 




BUSY. A SENSE IS THEN PERFORMED. 


* 
* 




EXPECTED RESPONSE 


* 

* 




rnwn rnnp i SHntii n rf sft on THE START 1—43. THE CSW STORED 


* 




SHOULD CONTAIN UNIT CHECK. THE SENSE BYTE SHOULD HAVE THE 


* 
* 




COMMAND REJECT BIT ON. 


* 




POSSIBLE ERROR CAUSES 


* 




IF MORE THAN 1 2540 EXISTS ON THE SYSTEM, THE PUNCH ADDRESS 


* 




BEING USED BY THE TEST MAY NOT BE HOUSED IN THE SAME PHYSICAL 


♦ 




BOX AS THE READER BEING TESTED. THESE ADDRESSES MUST BE 






PUT IN THE DM UDT IN THE FOLLOWING MANNER- READER It PUNCH It 


* 




DFAnFR 9. PtlNfH 7m FTC. 


* 




IF THF ADDRESSES ARE ALL RIGHT* AN EVALUATION OF THE ERROR 


* 




MESSAGE MUST BE MADE TO DETERMINE THE CAUSE OF THE TROUBLE. 


♦ 

* 


0050 — 


DDCOATtnU ATTCUDTCn 






a tfst T— n IS I SStlFD Tfl A RFADFR WITH A PENDING DEVICE END. 


* 

* 




EXPECTED RESPONSE 


* 




rnwn rnnp i cuniii n rf <ft fiN THF TFST i— ri- THF CSW STORED 

vUNU. uUUC i onUULU DC oC 1 Un inc Itoi l u. inc van o i uni.u 


* 




cum n n rnuTATM ncurrc cun nNl V. 
onUULU vUff I AIN ucvitc cnu unt.T. 


* 

* 


0060 - 


OPERATION ATTEMPTED 


* 

* 




A DIAGNOSTIC WRIIfc IS ISSUED -TO THE PUNCH AND THE SYSTEM IS 


* 




ENABLED FOR AN INTERRUPT. A SENSE IS THEN PERFORMED. 


* 
* 




EXPECTED RESPONSE * 


* 
* 




COND. CODE 0 SHOULD BE SET ON THE START IH3. A CHANNEL AND 


* 




DEVICE END INTERRUPT SHOULD OCCUR. THE COMMAND REJECT SENSE 


* 




BIT SHOULD BE RESET. 


* 

* 




*** * * ** ******* 


* 




ROUTINE 03 






************** 


* 

- * 


OOTO - 


OPERATION ATTEMPTED 


* 




A DIAGNOSTIC WRITE IS ISSUED TO THE PUNCH. THE DATA WHICH IS 


♦ 




LOADED INTO THE READER BUFFER INDICATES A 3 AND A 4 HOLE WAS 


* 




READ IN EVERY COLUMN* THE SYSTEM IS ENABLED FOR AN INTERRUPT. 


* 




#£P«C T€D ^RE SPONSE 
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* ■ 

* COND. CODE 0 SHOULD BE SET ON THE START 1-0. A CHANNEL AND 

* DEVICE END INTERRUPT SHOULD OCCUR. 
* 

* 0080 - OPERATION ATTEMPTED 
* 

* A READ AND FEED COMMAND IS ISSUED TO A READER WHICH HAS 

* INVALID DATA IN ITS READ BUFFER* THE SYSTEM IS ENABLED FOR 

* TWO INTERRUPTS. 

* • 

* EXPECTED RESPONSE 
* 

* CONDITION CODE 0 SET ON START 1-0. EXPECTED STATUS IS UNIT 

* CHECK AND CHANNEL END IN THE 1ST CSW. DEVICE END RETURNING 

* AFTER COMPLETION OF FEED CYCLE. 

* A SENSE IS PERFORMED AND DATA CHECK IS EXPECTED. 
* 

41 

* ************** 

* ROUTINE 04 

* ************** 

* . 

* 0090 - OPERATION ATTEMPTED 
* 

* A READ, FEED, STACKER SELECT Rl -02- IS ISSUED. 
* 

* EXPECTED RESPONSE 
♦ 

* CHANNEL END SEPARATELY FROM DEVICE END. CONDITION CODE 0. 

* PRIOR FEED IN TEST 0080 PUTS VALID BLANKS INTO READ BUFFER 

* AND SHOULD ENABLE THIS COMMAND TO FUNCTION WITHOUT ERROR 

* STATUS. 
♦ 

* 

* 0100 - OPERATION ATTEMPTED 
* 

* A READ NO FEED -C2- IS ISSUED. 

* EXPECTED RESPONSE 
* 

* CHANNEL END AND DEVICE END TOGETHER. 1 CSW EXPECTED. 

* CONDITION CODE 0. 
* 

» 0110 - OPERATION ATTEMPTED 
* 

* A FEED, STACKER SELECT Rl -23- IS ISSUED. 

* . 

* EXPECTED RESPONSE 
* 

* CONDITION CODE 1 DUE TO THIS COMMAND BEING A COMMAND IMMEDIATE 

* ON THE 2540. CHANNEL END IS SEPARATE FROM DEVICE END DUE TO 

* FEED CYCLE. 
♦ 

* ************** 

* ROUTINE 05 

* ************** 
* 

* 0120 - OPERATION ATTEMPTED 
* 

* DIAGNOSTIC WRITE -25- IS ISSUED TO THE PUNCH TO WRITE VALID 

* DATA INTO THE READ BUFFER WITHOUT GOING THROUGH THE READ 

* TRANSLATE CIRCUITRY. 
* 

* EXPECTED RESPONSE 
* 

* CONDITION CODE 0. EXPECT CHANNEL AND DEVICE ENDS TOGETHER 

* IN ONE CSW. 
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* 

* WHEN ISSUING A DIAGNOSTIC WRITE COMMAND TO A 2540 READER, THE 

* CCW MUST BE ADDRESSED TO THE ASSOCIATED 2540 PUNCH. 

* BECAUSE THE DIAGNOSTIC WRITE COMMAND UTILIZES THE CARD IMAGE 

* ICOLUMN BINARY) CIRCUITRY, 160 BYTES MUST BE TRANSFERRED TO 

* FILL THE 80 POSITION READ BUFFER. THE CARD IMAGE FEATURE 

* DOES NOT HAVE TO BE INSTALLED FOR DIAGNOSTIC WRITE TO WORK. 
* 

* 

* 0130 - OPERATION ATTEMPTED 

* FEED STACKER SELECT Rl -23- ISSUED TO READER. 

* EXPECTED RESPONSE 

* CONDITION CODE 1. UNIT CHECK IN STATUS DUE TO 2 FEEDS IN A 

* ROW WITH NO INTERVENING READ. FIRST FEED ISSUE IN TEST 0110. 

* SENSE BYTE EXPECTED SHOULD HAVE COMMAND REJECT. 
* 

* ************** 

* ROUTINE 06 

* ************** 

* . 

* 0140 - OPERATION ATTEMPTED 

* . 

* DIAGNOSTIC WRITE TO THE PUNCH -25- FILLS READ BUFFER WITH 

* VALID DATA. 
* 

* EXPECTED RESPONSE 
* 

* CONDITION CODE 0. CHANNEL AND DEVICE ENDS EXPECTED TOGETHER. 
* 

* WHEN ISSUING A DIAGNOSTIC WRITE COMMAND TO A 2540 READER, THE 

* CCW MUST BE ADDRESSED TO THE ASSOCIATED 2540 PUNCH. 

* BECAUSE THE DIAGNOSTIC WRITE COMMAND UTILIZES THE CARD IMAGE 

* CCOLUMN BINARY) CIRCUITRY, 160 BYTES MUST BE TRANSFERRED TO 

* FILL THE 80 POSITION READ BUFFER. THE CARD IMAGE FEATURE 

* DOES NOT HAVE TO BE INSTALLED FOR DIAGNOSTIC WRITE TO WORK. 
* 

* . 

* 0150 - OPERATION ATTEMPTED 
* 

* READ NO FEED -C2- TO READER. 
* 

* EXPECTEO RESPONSE 
* 

* CONDITION CODE 0. CHANNEL AND DEVICE ENDS TOGETHER. 
* 

* 

* 0160 - OPERATION ATTEMPTED 

* . 

* DIAGNOSTIC WRITE TO THE PUNCH -25-. PUTS INVALID DATA MODE I 
» DATA INTO THE READ BUFFER. 

* 

* EXPECTED RESPONSE 

* CONDITION CODE 0. CHANNEL AND DEVICE ENDS TOGETHER. 
* 

* 

* 0170 - OPERATION ATTEMPTED 

* . 

* FEED STACKER SELECT Rl -23- SHOULD FORCE BLANK DATA INTO 

* THE READ BUFFER. 
* 

* EXPECTED RESPONSE 
* 

* CONDITION CODE 1 -C NO IMMEDIATE-. SEPERATE CHANNEL AND DEVICE 

* ENDS. 
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* 0180 - OPERATION ATTEMPTED 

* - 

* READ FEED STACKER SELECT Rl -02- 

* . 

* EXPECTED RESPONSE 
* 

* CONDITION CODE 0. CHANNEL AND OEVICE END STATUS SEPARATELY. 
* 

* ************** 

* ROUTINE 07 

* ************** 
* 

* 0190 - OPERATION ATTEMPTED 
* 

* READ 80 CHARACTERS, FEED, STACKER SELECT Rl -02- COMMAND 

* CHAINED INTO ANOTHER READ 80 CHARACTERS, FEED, STACKER SELECT 

* Rl. NO SUPPRESS LENGTH INDICATOR ON -SLI FLAG. 
♦ 

* EXPECTED RESPONSE 

* CONDITION CODE 0. CHANNEL AND DEVICE ENDS SEPARATELY. 
* 

* 

* ************** 

* ROUTINE 08 

* ************** 
* 

* 0200 - OPERATION ATTEMPTED 
♦ 

* READ 79 CHARACTERS, FEED, STACKER SELECT Rl -02- COMMAND 

* CHAINED INTO A READ 80 CHARACTERS, FEED, STACKER SELECT Rl. 

* • NO SLI FLAG ON IN COMMANDS. 

* EXPECTED RESPONSE 
*% 

* CONDITION CODE 0. CHANNEL END AND WRONG LENGTH RECORD IN 1ST 

* CSN. DEVICE END ALONE IN 2ND CSW. 

* . 

* ************** 

* ROUTINE 09 

* ************** 
* 

* 0210 - OPERATION ATTEMPTED 
* 

* READ, FEED, STACKER SELECT R1.-02- DATA CHAINED INTO 4 

* DIFFERENT PLACES. EACH COMMAND REQUESTING 20 BYTES FOR TOTAL 

* OF 80 BYTES IN THE CHAIN. NO SLI FLAG ON IN COMMANDS. 
* 

* EXPECTED RESPONSE 
* 

* CONDITION CODE 0* CHANNEL END IN 1ST CSW. DEVICE END IN 2ND 

* CSW. 

* 

* ************** 

* ROUTINE 10 

*• *******.*#*#*♦♦ -t 

*. 

* 0220 - OPERATION ATTEMPTED 
* 

* READ, FEED, STACKER SELECT Rl -02- DATA CHAINED INTO 4 

* DIFFERENT PtACES* NO SLI FLAG ON. THE 1ST COMMAND REQUESTS 

* 40 CHARACTERS, THE FOLLOWING 3 CCWS REQUEST 20 EACH. 

* . 
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2540 READER FUNCTION TESTS - SECTION 2 F811 

* EXPECTED RESPONSE 
* 

* CONDITION CODE 0. CHANNEL END, WRONG LENGTH RECORD, AND A 

* RESIDUAL COUNT OF DECIMAL 20 IN THE 1ST CSW. DEVICE END ALONE 

* IN THE 2ND CSW. 
* 

* ************** 

* ROUTINE 11 

* ************** 

* 0230 - OPERATION ATTEMPTED 
* 

* READ, FEED, STACKER SELECT Rl -02- DATA CHAINED INTO 4 

* DIFFERENT PLACES. SLI FLAG IS ON IN 3RD CCW OF CHAIN. 
* 

* EXPECTED RESPONSE 
* 

* CONDITION CODE 0. CHANNEL END AND RESIDUAL COUNT IN 1ST CSW. 

* DEVICE END ALONE IN 2ND CSW. 
* 

* ************** 

* ROUTINE 12 

* ************** 

* * 

* 0240 - OPERATION ATTEMPTED 
* 

* A 1400 COMPATIBILITY READ NO FEED COMMAND CHAINED TO A 1400 

* COMPATIBILITY FEED STACKER SELECT Rl WAS ISSUED TO THE READER* 
* 

* EXPECTED RESPONSE 
* 

* CONDITION CODE 0. CHANNEL END ALONE IN THE FIRST STATUS. 

* DEVICE END ALONE IN THE SECOND CSW RETURNED DUE TO A CARD 

* FEED CYCLE. 

* A RESIDUAL COUNT OF 1 SHOULD BE IN THE CSW BECAUSE THE 

* READER DOES NOT TRANSFER ANY DATA FOR THE STACKER COMMAND. 

* IF THE PROGRAM HANGS IN A LOOP, A POSSIBLE CHANNEL ERROR 

* MAY HAVE OCCURRED. THE OPERATOR SHOULD DO A PSW RESTART TO 

* HAVE THE LAST OPERATION OUTPUT ON THE OUTPUT DEVICE. 
* 

* POSSIBLE ERROR CAUSES 

* ■ 

* THE DM UDT ENTRY FOR THE OPTION BYTE OF THE 2540 MAY HAVE 

* BEEN ERRONEOUSLY SET UP TO INDICATE THAT 1400 COMPATIBILITY 

* HARDWARE EXISTS IN THE 2540. THE 1400 COMPATIBILITY TESTS 

* WILL BE ATTEMPTED AND WILL INDICATE ERRORS. 

* • 

* ALL OTHER ERRORS WILL HAVE TO BE ANALYZED BY THE INDICATIONS 

* GIVEN IN THE ERROR MESSAGE* 
* 

* 1400 PROVISIONAL FEED OPERATION AND DEFINITION. 
* 

* THE FOLLOWING IS AN EXPLANATION OF 1400 PROVISIONAL FEED 

* OPERATION. 

* A 1400 READ NO FEED COMMAND IS ISSUED AND CHANNEL AND DEVICE 

* ENDS RETURN IN TME SAME CSW BECAUSE NO FEED CYCLE IS TAKEN. 

. 

* THE PROGRAM HAS TO ISSUE A FEED AND STACKER SELECT COMMAND 

* WITHIN 6 MILLISECONDS. IF IT DOES NOT, THE PROVISIONAL 

* FEED CIRCUITRY AUTOMATICALLY STACKER SELECTS THE CARD. IF 

* THE PROGRAM ISSUES A STACKER SELECT AFTER THE PROVISIONAL 

* FEED HAS STARTED, THE DEVICE WILL ACT BUSY OR PRESENT BOTH 

* BUSY AND DEVICE ENDS IN STATUS IF THE PROGRAM ACCEPTS THE 

* INTERRUPT* 

* A COMMAND REJECT COULD BE GENERATED ON THE DEVICE UNDER 

* THE CONDITION THAT THE PROVISIONAL FEED WAS DONE AND THE 
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* PROGRAM ATTEMPTS A FEED AND STACKER SELECT ALSO, DUE TO 

* 2 FEEDS IN A ROW BEING ATTEMPTED* 

* . 

* IF THIS ERROR IS INDICATED, THE SINGLE SHOT THAT GOVERNS 

* THE 6 MILLISECOND DELAY FOR THE PROVISIONAL FEED SHOULD BE 

* SCOPED TO INSURE PROPER SETTING* IF THE SINGLE SHOT IS ALL 

* RIGHT, THE MONITOR BEING USED MUST BE TOO SLOW AND THE ERROR 

* IGNORED. 

* • 

* ************** 

* ROUTINE 13 

* ************** 

* , 

* 0250 - OPERATION ATTEMPTED 

* . 

* IF 1400 COMPATIBILITY IS ON MACHINE, ISSUE 1400 COMPATIBILITY 

* READ NO FEED -D2-. 
* 

* EXPECTED RESPONSE 

* . 

* CONDITION CODE 0* CHANNEL END AND DEVICE END TOGETHER. IN 

* ONE CSW. 

* DEVICE END RETURNS AGAIN IN 2ND CSW AFTER 6 MS WAIT DUE TO 

* AUTOMATIC 1400 FEED CYCLE. 

* IF THE PROGRAM HANGS IN A LOOP, A POSSIBLE CHANNEL ERROR 

* MAY HAVE OCCURRED. THE OPERATOR SHOULD DO A PSW RESTART TO 

* HAVE THE LAST OPERATION OUTPUT ON THE OUTPUT DEVICE. 

* . 

* POSSIBLE ERROR CAUSES 

* , 

* SEE POSSIBLE ERROR CAUSES UNDER TEST NUMBER 02*0. 
* 

* 

* 0260 - OPERATION ATTEMPTED 

* . 

* ISSUE 1400 COMPATIBILITY FEED, STACKER SELECT Rl -33- AFTER 

* 2.5 SECOND TIME OUT OF READ. 
* 

* EXPECTED RESPONSE 
* 

* CONDITION CODE 1* UNIT CHECK IN STATUS. SENSE IS DONE ANO 

* COMMAND REJECT IS EXPECTED DUE TO 1400 PROVISIONAL FEED 

* PRIOR TO THIS FEED. 

■ * 

* POSSIBLE ERROR CAUSES 
* 

* SEE POSSIBLE ERROR CAUSES UNDER TEST NUMBER 0240. 
* 

* 

* ************** 

* ROUTINE 14 

* ************** 

* 

* 0270 - OPERATION ATTEMPTED 
* 

* IF 1400 COMPATIBILITY ON MACHINE, ISSUE 1400 COMPATIBILITY 

* READ NO FEED -02- COMMAND CHAINED TO A NO-OP -03- COMMAND 

* WHICH IS COMMAND CHAINED TO A 1400 FEED STACKER SELECT Rl-33- 

* THIS IS TO TEST FOR ANY EXTRANEOUS STATUS THAT MAY BE RETURNED 

* BETWEEN THE READ AND THE FEED COMMANDS IF THE PROVISIONAL 

* FEED CIRCUITRY IS NOT FUNCTIONING PROPERLY. 
* 

* EXPECTED RESPONSE 
♦ 

* CONDITION CODE 0. CHANNEL END IN FIRST STATUS AND DEVICE 

* END ALONE IN THE SECOND CSW DUE TO THE FEED CYCLE. 

* A RESIDUAL COUNT OF 1 SHOULD BE IN THE CSW BECAUSE THE 
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DATE 

EC 



READER DOES NOT TRANSFER ANY DATA FOR THE NO-OP COMMAND. 
POSSIBLE FAILURE CAUSES 

BUSY OCCURS DUE TO PROVISIONAL FEED CYCLE OCCURRING BEFORE 
THE EXPECTED 6 MILLISECOND TIME OUT* 

IF THE PROGRAM HANGS IN A LOOP, A POSSIBLE CHANNEL ERROR 
MAY HAVE OCCURRED. THE OPERATOR SHOULO DO A PSW RESTART TO 
HAVE THE LAST OPERATION OUTPUT ON THE OUTPUT DEVICE. 

SEE POSSIBLE ERROR CAUSES UNDER TEST NUMBER 0240* 
OPERATION ATTEMPTED 
ISSUE SENSE COMMAND -04-. 



* 
* 

* 

* 

* 

* ' 

* . 

* . 
* 

* . 

* 0280 

•* . 
* 

* . 

* 
* 
* 
* 

***************************************************************** ****** 
******************* ******************* 

* SECTION PREFACE *********************************** SECTION PREFACE * 
******************* 



EXPECTED RESPONSE 

CONDITION CODE 0* CHANNEL END AND DEVICE END TOGETHER IN 
STATUS. NO SENSE BITS ON* 



001000 


F81 12000 


SECNO 


DC 


XL4»F81I2000« 


001004 


00000000 


SNSW 


DC 


XL4»00 f 


001008 * 


0000 




DC 


XL2«00 f 


00100A 


0000 


ICM 


DC 


XL2»00« 


00100C 


00 


SDMF 


DC 


XL1«00» 


00100D 


02 


NIOU 


DC 


XL1»02» 


00100E 


CO 


FLAGl 


DC 


X»CO» 


OOIOOF 


00 


FLAG2 


DC 


X*00« 


001010 


0104000000 


INPSW 


DC 


X«0104000000« 


001015 


0017D8 




DC 


AL3(R0UT01) 


001018 


0000000000000000 


EXOPSW 


DC 


XL8«0» 


001020 


0000000000000000 


SVOPSW 


DC 


XL8«00« 


001028 


0000000000000000 


PGOPSW 


DC 


XL8«00» 


001030 


0000000000000000 


MCOPSW 


DC 


XL8»00* 


001038 


0000000000000000 


IOOPSW 


DC 


XL8«00» 


001040 


0000000000000000 


CSW 


DC 


XL8»00« 


001048 


00000000 


CAW 


DC 


XL4«00» 


00104C 


000000000000000000 




DC 


XL12«00* 


001055 


000000 








001058 


0004000000 


EXNPSW 


DC 


X* 0004000000* 


00105D 


000000 


SRET 


DC 


XL3«0» 


001060 


0000000000000000 


SVNPSW 


DC 


XLa^OO* 


001068 


0000000000000000 


PGNPSW 


DC 


XL8«00« 


001070 


0000000000000000 


MCNPSW 


DC 


XL8»00« 


001078 


01040000 


IONPSW 


DC 


XL4«01040000« 


00107C 


00001212 




DC 


AL4C IRETRN) 


001080 






DS 


96C 


0010E0 


81 


UNIT1 


DC 


X»81« 


0010E1 


00 


U10P 


DC 


X«00» 


0010E2 


8000 


U1A0DR 


DC 


X»8000« 


0010E4 


02 


UNIT2 


DC 


X'82* 


0010E5 


00 


U20P 


DC 


X»00« 


0G10E6 


8000 


U2ADDR 


DC 


X«8000» 



******************* 

PROGRAM, SECTION AND REVISION NOS* * 

SECTION SENSE SWITCHES * 

INTERRUPTION CONDITION MASK * 

SECTION DM FLAGS * 

NUMBER OF UNIT TABLE ENTRYS * 

EXCLUSIVE CPU * 

I/O INT ARE ERR, EXT INT TO PROG * 

DISABLEO, SPVSR STATE, NO PGM MASK * 



ADR OF 1ST ROUTINE PREFIX 
SECTION OLD EXTERNAL PSW 
CLEAR ALL OLD PSWS 
PROGRAM OLD PSW 
MACHINE CHECK OLD PSW 
I/O OLD PSW 
CHANNEL STATUS WORD 
CAW 

RESERVED FOR DM USE 



EXTERNAL NEW PSW ♦ 

ADR OF EXT INTRPT ROUTINE * 

SUPERVISOR NEW PSW * 

PROGRAM NEW PSW * 

MACHINE CHECK NEW PSW * 

I/O NEW PSW ♦ 

ADDRESS OF I/O INTRPT ROUTINE * 
96 BYTE REG DUMP AREA FOR DM USE * 
UNIT TYPE - 2540 READER 

OPTIONAL FEATURES BYTE * 

FLAGS AND CHAN/UNIT ADDRESS * 
UNIT TYPE - 2540 PUNCH 
OPTIONAL FEATURES BYTE 
FLAGS AND CHAN/UNIT ADDRESS 
*************************************************^ 

* OPTIONAL FEATURE BYTE DEFINITION 

******** *************4^****4u*****^ 

* * BIT 0 * BIT 1 * BIT 2 * BIT 3 * BIT 4 * BIT >5 * BIT 6 * BIT 7 * 

* * HEX 8 * HEX 4 * HEX 2 * HEX 1 * HEX 8 * HEX 4 :* HEX 2 ♦ 

* * ASCII * CARD * * 51 * 1400 . ♦ ♦ * 

* * * IMAGE * * COL RD* COMP * * ♦ 



HEX 1 * 
2821 * 
2 CHN * 
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1 
2 
3 
4 
5 
6 
7 



***l*******l*******l***^ 

* 2540 READER SENSE BYTE 
**************^ 

0 COMMAND REJECT 

INTERVENTION REQUIRED 
BUS OUT CHECK 
EQUIPMENT CHECK 

o D Oe^Vot VA u^d DITY CHECK - INVAU ° CARD C0DE 

NOT S USED COMMAND SEQUENCE ~ 2 READS MAHOUT INTERVENING FEED 
****^***********^ 

* 2540 READER STATUS BYTE »»**»** 
*********f***£*^ 

ATTENTION - 1400 COMPATIBILITY FEATURE ONLY - INDICATES 
SENSE WAS ISSUED BEFORE 6 MS TIME OUT AFTER 
A 1400 COMPATIBILITY READ. 
STATUS MODIFIER - 2 CHANNEL SWITCH FEATURE ONLY 
DEVICE L BUSY T ^ " * CHANNEL SWITCH MATURE ONLY 
CHANNEL END 
DEVICE END 
UNIT CHECK 

UNIT EXCEPTION - LAST CARD PREVIOUSLY READ, AND END OF 

*****************************^^ 

* PARAMETERS USED TO ENTER 

* ^ THE HANDLER ROUTINE 
*******************^ 

t nr 5. JlnnnS. LINK T0 HANDLER 

! °£ 5inn???° CONTROL SWITCHES 

* DC 5 b2J* I EST N °- IN DEC EXPRESSED IN HEX 

* ^ J n2 EXPECTED COND. CODE 
1 X 00 EXPECTED SENSE DATA 

* DC AL2 I ADR-BASE+REG ) ADDR« OF EXPECTED CSW IP NFPnrn 

, 1-0 HANDLER CONTROL SWITCHES 

* 2 BYTE PARAMETER FOLLOWING BAL 



* 



♦ 
♦ 



DESCRIPTION 

OFF - ISSUE AN 1-0 COMMAND 
ON - DO NOT ISSUE AN 1-0 COMMAND 
OFF - ENABLE 
ON - DO NOT ENABLE 
OFF - EXPECT NO INTERRUPT 
ON - EXPECT AN INTERRUPT 
OFF - DO NOT EXPECT 2 INTERRUPTS 
ON - EXPECT 2 INTERRUPTS 
OFF - EXPECT NO CSWS 
ON - EXPECT A CSW 
OFF - DO NOT EXPECT 2 CSWS 
ON - EXPECT 2 CSWS 
OFF - ALWAYS TRY TO ISSUE SENSE 
ON - SENSE ON UNIT CHECK ONLY 

!!!!!!!**********^^ 
*****************^**********^^^ 

SWITCHES USED BY 1*0 HANDLER 

:~"cT*"*o^^^ — — 

* ' 0 ~ OFF - NO HANGUP ON INTERFACE 

* ON - HANGUP OCCURRED 



2 



4 



6 ■ 



DATE 

EC 



05MAY65 
124252 



10AUG65 
125580 



15JUN67 
130498 
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0010E8 



0000 



0010EA 


92 


9E 


F 


1AC 






0010EE 


92 


C8 


F 


649 






0010F2 


92 


C8 


F 


580 






0010F6 


92 


9E 


F 


15E 






0010FA 


47 


FO 


F 


122 






0010FE 


92 


9D 


F 


1AC 






001102 


92 


9D 


F 


15E 






001106 


92 


E3 


F 


649 






00110A 


92 


E3 


F 


5 BO 






00110E 


47 


FO 


F 


122 






001112 


92 


9C 


F 


1AC 






001116 


92 


9C 


F 


15E 






001 11 A 


92 


E2 


F 


649 






00111E 


92 


E2 


F 


5B0 






001122 


02 


01 


F 


62C 


B 


002 


001128 


90 


AB 


F 


680 






00112C 


90 


89 


F 


570 






001130 


D2 


00 


F 


68D 


F 


003 


001136 


50 


AD 


0 


048 






00113A 


D7 


07 


D 


040 


D 


040 


001140 


D7 


OB 


E 


080 


E 


080 


001146 


91 


80 


B 


000 






001 14 A 


47 


10 


F 


1E2 






001I4E 


91 


CO 


F 


004 






001152 


47 


80 


F 


19A 






001156 


91 


80 


F 


004 






00115A 


47 


80 


F 


166 






00115E 


9C 


00 


C 


000 







* 




OFF 




NO CSWS STORED 


* . 




ON 




ONE CSW STORED 


* 


2 , 


OFF 




SECOND CSW NOT RECEIVED 


* 




ON 




SECOND CSW RECEIVED 




3 


OFF 




DID NOT ENABLE 


* 




ON 




ENABLED ONCE 






OFF 




DID NOT ENABLE TWICE 


* 




ON 




ENABLED TWICE 


* 


5 


OFF 




NO SENSE DATA RECEIVED 


* 




ON 




SENSE DATA RECEIVED 


* 


6 


OFF 




NO UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 


* 




ON 




UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 


* 




OFF 




NO ERROR DETECTED 


* 




ON 




AN ERROR WAS DETECTED 



***^****************************************^^ 

* REGISTERS USED IN 1-0 HANDLER 

******************************************^ 



* 

* 

* 
* 
* 

* 

* 

** 
ISW 



REG 
5 



8 

9 

10 
11 
12 



COMMENTS 

USED AS LINK TO ERROR OUTPUT FROM INITIALIZE ROUTINE IF 
PREVIOUS HANGUP ON INTERFACE DETECTED. 

USED AS WORK REGISTER. WILL BE RESTORED UPON RETURN. 

USED AS WORK REGISTER. WILL BE RESTORED UPON RETURN. 

MUST CONTAIN CCW ADDRESS UPON ROUTINE ENTRY 

MUST BE USED AS LINK REG TO THIS ROUTINE 

MUST CONTAIN DEVICE ADDRESS 



♦♦fc*************************************^**^^ 
ISW DC XL2«0» A 
************************************^**********^^ 
********************************************^ 

* * 1-0 HANDLER SUB-ROUTINE * 

********************************************^^ 

IHIO MVI ISSUE, X«9E« SET UP FOR HA! T I-n 



IHIO MVI ISSUE, X , 9E* 

MVI I0PT1+25,X«C8« 

MVI I0ADDR+12,X«C8« 

MVI IL00P,X«9E« 

BC UNC , IEYEOH 

ITIO MVI ISSUE, X«9D* 

MVI IL00P,X«9D« 

MVI I0PT1+25,X«E3* 

MVI I0ADDR+12,X«E3« 

BC UNC , IEYEOH 

ISIO MVI ISSUE, X«9C« 

MVI IL00P,X«9C» 

MVI I0PT1+25,X«E2* 

MVI I0ADDR+12,X«E2» 

IEYEOH MVC ITSTN0+5f2>,2CRll) 

STM R10,R11,ISLAVE 

STM R8,R9,ISAVE 

MVC RTSV(l),SECN0+3 

IRETRY ST R10,HCAWCR13) 

XC HCSW(8,R13),HCSW(R13) 

XC LOGOUT! 12,R14) , LOGOUT ( R14) 

TM 0(RU),X'80« 

BC ALL,INOW 

TM SNSWtX'CO* 



SET UP FOR HALT 1-0 
MOVE -H— TO OPTION MSG. 



BR. UNCONDITIONAL 
SET UP FOR TEST 1-0 

MOVE -T- TO OPTION MSG. 

BR. UNCONDITIONAL 
SET UP FOR START 1-0 

MOVE -S- TO OPTION MSG. 

SAVE TEST NUMBER 
SAVE REG 10 AND REG 11 
SAVE REGS 8 AND 9 
SAVE RT NO. FOR HANGUP. 
STORE COMMAND ADDRESS. 



CHECK CONTROL SWITCH FOR NO 1-0 
BR. IF ON 



BC NONE, JOHN 
***************************************^^ 

* SENSE SWITCH LOOPS 

****************************************** w 

ITRY1 TM SNSW,X*80* CHECK SECTION SENSE SWITCH 0 

BC NflMP. I TRV9 no tc nee 



******** 



ILOOP 



BC 

SIO 



NONE, ITRY2 
0IR12J 



BR. IF OFF 
SIO, TIO, OR H10 



DATE 

EC 
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124252 
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001162 


47 


FO 


F 


156 




BC 


001166 


91 


40 


F 


004 : 


ITRY2 


TM 


00116A 


47 


80 


F 


186 




BC 


00116E 


9D 


00 


C 


000 


I HANG 


TIO 


001172 


47 


70 


F 


156 




BC 


001 176 


91 


40 


F 


004 




TM 


00117A 


47 


80 


F 


186 




BC 


00117E 


9C 


00 


C 


000 




SIO 


001182 


47 


FO 


F 


16E 




BC 


001186 


58 


9E 


0 


198 


IHI 


L 


001 18 A 


88 


90 


0 


003 




SRL 


001 18E 


9D 


00 


C 


000 


GREG 


TIO 


001192 


47 


80 


F 


19A 




BC 


001196 


46 


90 


F 


18E 




BCT 


00119A . 


D7 


01 


F 


0E8 "p 0E8 


JOHN 


XC 


001 1 AO 


96 


80 


F 


0E8 




01 


001 1A4 


92 


E7 


F 


605 




MVI 


001 1A8 


92 


E7 


F 


59F 




MVI 


00 11 AC 


9C 


00 


C 


000 


ISSUE 


SIO 


001 1 BO 


47 


80 


F 


IDE 




BC 


001 1B4 


47 


40 


F 


ICC 




BC 


001 1B8 


47 


20 


F 


1C4 




BC 


0011BC 


92 


F3 


F 


59F 




MVI 


00 11 CO 


47 


FO 


F 


1E2 




BC 


0011C4 


92 


F2 


F 


59 F 


ITWO 


MVI 


0011C8 


47 


FO 


F 


1E2 




BC 


on i i rr 

VIU 1 X v»L 


05 

v& 


pi 


c 
r 




IONE 


MVI 


0011D0 


D2 


07 


F 


666 D 040 




MVC 


0011D6 


96 


40 


F 


0E8 




01 


001 IDA 


47 


FO 


F 


1E2 




BC 


001 IDE 


92 


FO 


F 


59F 


I ZERO 


MVI 


0011E2 


94 


7F 


F 


0E8 


INOM 


NI 


0011E6 


91 


40 


B 


000 




TM 


0011EA 


47 


10 


F 


286 




BC 


0011E6 


96 


10 


F 


0E8 




01 


0011F2 


58 


9E 


0 


198 


IWAIT 


L 


001 1F6 


88 


90 


0 


003 




SRL 


0011FA 


96 


80 


F 


0E8 




01 


0011FE 


80 


00 


F 


68B 




SSM 


001202 


46 


90 


F 


202 




BCT 


001206 


80 


00 


F 


68C 




SSM 


00120A 


94 


7F 


F 


0E8 




NI 


00120E 


47 


FO 


F 


286 




BC 



UNCylTRYl 

SNSWyXHO 1 

NONE f IHI 

0CR12) 

NCCOylTRYl 

SNSW,X , 40 t 

NONE* IHI 

0CR12) 

UNCI HANG 

R9.WTIR141 

R9» 3 

01R12) 

CCO, JOHN 

R9 9 GREG 

ISW(2),ISW 

ISW,X«80* 

IACSNS+5,C«X« 

IACTCC*5tC»X» 

0(R12) 

CCOtlZERO 

CClylONE 

CC2 9 ITM0 

IACTCC*5,X»F3« 

UNCI NOW 

IACTCC*5yX«F2« 

UNCtlNOW 

IACTCC+5,X«F1« 

ICSWlC8),HCSWIRi3) 

ISW»X«40' 

UNCI NOW 

IACTCC+SyX^FO* 

ISWyX^F^ 

0<RU)«X«40* 

ALL, ISEN 

ISWyX'lO' 

R9t WTCR14) 

R9,3 

ISWyX«80" 

MSK1 
R9,* 
MSK2 

ISM,X , 7F« 
UNCtlSEN 



BR. UNCONDITIONAL 

CHECK SECTION SENSE SWITCH 1 

BR. IF OFF 

TEST 1-0 

BR. IF NOT COND. CODE 0 

CHECK SECTION SENSE SWITCH 1 

BR. IF OFF 

START 1-0 

BR. UNCONDITIONAL 

PICK UP DM WAIT FACTOR. 

CUT IT DOWN TO 1.25 SECS. 

TEST 1-0 TO DEVICE. 

BR IF AVAILABLE. 

LOOP UNTIL TIME OUT. 

ZERO THE 1-0 HANDLER SWITCHES. 

TURN ON THE HANG SWITCH. 

MOVE AN X INTO ACTUAL SENSE BYTE. 

MOVE IN A -X- 

1-0 COMMAND- SIO, TIO* OR HIO 

BR. IF COND. CODE 0 

BR. IF COND. CODE 1 

BR. IF COND. CODE 2 

INDICATE COND. CODE 3 

BR. UNCONDITIONAL 

INDICATE COND. CODE 2 

BR. UNCONDITIONAL 

INDICATE COND. CODE 1 

SAVE CSW 

INDICATE 1 CSW 

BR. UNCONDITIONAL 

INDICATE COND. CODE 0 

TURN OFF HANG UP SWITCH 

CHECK CONTROL SWITCH FOR NO ENABLE 

BR. IF ON 

INDICATE ENABLED ONCE 
LOAD DM WAIT FACTOR 
ADJUST 

TURN ON HANG UP SW 

ENABLE 

WAIT 

DISABLE 

TURN OFF HANG SW 



001212 


49 CO 


F 


03A 






IRETRN CH 


R12,I0QPSW*2 


001216 


47 60 


F 


234 






BC 


UNEQ,IUIO 


00121A 


94 7F 


F 


0E8 






NI 


ISW t X"7F« 


00121E 


91 40 


F 


0E8 






TM 


ISW,X»40« 


001222 


47 10 


F 


264 






BC 


ALL,ISV2 


001226 


D2 07 


F 


666 


F 


040 


MVC 


ICSW1(8),HCSW(R15) 


00122C 


96 40 


F 


0E8 






01 


ISW,X«40« 


001230 


47 FO 


F 


26E 






BC 


UNCINT3 


001234 


D2 07 


F 


578 


F 


040 


IUI0 MVC 


W0RK(8) ,HCSW(R15) 


00123A 


OA DO 










SVC 


X»DD« 


00123C 


0002 










DC 


AL2(2) 


00123E 


003 A 










OC 


AL2U00PSW+2-SECN0) 


001240 


069 F 










DC 


AL2< IUNEX+17-SECN0) 


001242 


OA DO 










SVC 


X'DO* 


001244 


64 










DC 


X«64« 


001245 


15 










DC 


X«15« 


001246 


F68E 










DC 


AL2UUNEX- SECNO+REG ) 


001248 


D2 02 


F 


5D6 


F 


5CF 


MVC 


IBLAH+lt3),ICSW 


00124E 


92 1A 


F 


421 






MVI 


ICNT,X«1A» 


001252 


D2 02 


F 


SEC 


F 


5EF 


MVC 


IBLAH+23C3) ,IACT 


001258 


45 90 


F 


40 A 






BAL 


R9,IC0UT 


00125C 


96 02 


F 


0E8 






01 


ISW,X«02" 



BR. UNCONDITIONAL 

* ALL I-Q INTERRUPTS RETURN HERE 

************************************* 

COMPARE FOR CURRENT 1-0 ADDRESS 
BR. IF UNEQUAL 
RESET HANG UP SW 

BR. IF 1 CSW ALREADY STORED 
SAVE CSW 1 

INDICATE 1 CSW STORED 
BR. UNCONDITIONAL 

CONVERT AODRESS 
2 BYTES OF 1-0 OLD PSW. 
FROM HERE. 
TO HERE 

PRINT UNEXPECTED INTERRUPT DEVICE 
ADDRESS 



MOVE -CSW- TO MESSAGE 
ADJUST COUNT 
MOVE -ACT- TO MESSAGE 
BR. TO OUTPUT CSW 
INDICATE UIO 



DATE 
EC 



05 MAY 65 
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001260 


47 


FO 


c 


4E4 








BC 


UnL , A LUUCU 


do i iMrnian iti nuii 

DK« UrlvUfMUl 1 1 Un AL 


001264 i 


D2 


07 


F 


66E 


F 


040 


lot ft 


n vl 


i I* o wic. 1 u I t nl* all 1 ft a if f 


cai/c rcu o 

OAVC Ian £. 


00126A 


96 


20 


c 


0E8 








0 1 


A Off f A CU 


tNnir atc o rcuc cTnocn 
1 nut LA 1 C C. Lolla alUKCU 


00126E 


91 


10 


B 


000 






INT"* 


TM 


nfniii yitnf 


LncLl\ LlRL on rUR i INTR eXPeCTED 


001272 


47 


80 


p 


286 








or 
DL 


unMC T Ccfcl 
rlUlHC t 1 ocnt 


DK« a r NUI 


001276 i 


91 


08 


p 


0E8 








TM 


tcu.yt no t 




00127 A 


47 


10 


p 


286 








Rr - 
DL 


All .1 CCM 
ALL. f 1 OCI>l 


BK« If* ALRcAUT cNAdlcD TNICc 


on 1 ? 7 F 

WW 1C 1 k 


96 


08 


p 


0E8 








n i 

U 1 


i cu- v • no t 


INLIILAIC CNAoLcU IWACc 


001282 


47 


FO 


F 


1F2 








or 

DL 


1 Ifcir t UA T T 
UNU r I MA 1 1 




001 7RA 


91 


02 




000 






f C.CM 


TM 

1 n 


Ul l\ J. 1 i f A U* a 


rucry rnwTDni cuttru cno cue am iic 
LlicLiN LUNIKUL oMllLn rUR 5 No ON UC 


nni ?ra 

uvs icon 


47 


80 


F 


2AE 








or 
DL 




do t c ncc Tn icciic ccMtc 
DKt IP Urr 10 ISbUc ScNSc 


00128E 


91 


40 


c 

r 


0E8 








TM 


t cu v t /. n • 


CCC TC 1CT rcii TM 

5tt Ir lil Loll IN* 






an 


c 
r 


304 ! 






Or 

BL 


udmc fa CM 
NUNC y IB SN 


BR* IF NO CSW STORED TO BYPASS SENSE 


001296 


91 


02 


F 


66A 








TM 




rucrv cno iimtt rucrv 
LncLlv rUR UNI 1 tricCK 


001 29 A 


47 


i n 


c 
r 


2AE 








or 


ALL, lUUoNo 


Tc %/cc d is T*rt i rriir ^ cue r 

IF YES BR* TO ISSUE SENSE 


00 1 2 9 E 


Q 1 


ot\ 

cU 


C 
P 


0E8 








TM 


t cu vtoni 
12>WtA'<cU* 


CHECK FOR SECOND CSW 


00 1 2 A2 


&7 
H f 


on 
Ovl 


- e 
r 


304 








Br 
DL 


MnkiC TO CM 

NUNt y loSN 


BR* IF NOT TO BYPASS SENSE 


nni 7 a a 


91 


02 


p 


672 








TM 




rucfu rnn IIMTT rucrif 

LMtLR PUR UNIT CHcCK 


om 9 A A 


47 


on 
OU 


' C 

r 


304 










KinKlC ID CM 

NUNC, lboN 


BR* IP NUT TO BYPASS SENSE 


001 2 AE 


58 


if c 


u 


198 






f run cmc 


L 


D G UT f Dili 


LUAU Un WAIT FACTOR 


0012B2 


88 


90 


;Q 


004 








CD! 


DO A. 


ADJUST - 


nni 7RA 


41 


80 


c 
r 


678 








i A 
LA 


o a T CCMCC 
Roy 1 ocNoc 


I nin ccmcc f nuuitin innnttc 
LOAD ScNSc CUnnAND ADPRcSS 


001 2BA 


50 


8D 


o 


048 








ST 


dr. ur Aumm 

K o y nv# A II 1 n A 3 t 


CTnoc tm riu 
O 1 UKC A N LAN 


0012BE 


9C 


00 


C 


000 








C ffl 


Ul rvxc | 


ICCIIC CCMCC 


001 2C2 


47 


70 


P 


352 








DL 


NLuUy lriUCR 


do tc MfiT irrcDTen 
dR* IP NUT ALLcPTtD 


on \ ?rf% 


9D 


00 


r 
L 


000 






it int d 


T 1ft > 
1 IU 




• TEST I~0 


0012CA 


47 


40 


p 


ice 








RP 
DL 


rr 1 _ 1 1 rurc: 

Ll> A y 1 LUISC 


db tc rcu CTnocn 
dr* Ir taw dluKcu 


001 2 CE 


46 


90 


p 


2C6 






IT tr 
1 I IL 


or* 
DU 1 


Da I Ttm d 
KVy 1 I lULr 




0012D2 


47 


FO 


p 


304 








BC 


HKir . T a cm 


no nwr nwniT t nu ai 

Dn« UrILUnUA 1 lUniAL 


0012D6 


91 


40 


p 


0E8 






IN0EX1 


TM 


I SWy X , 40* 




0012DA 


47 


10 


p 


352 








BC 


All. INnFR 


rr tc rcu cTnncn 

On* lr LoW dIUKCU 


0012DE 


47 


FO 


F 


ODO 








BC 


nwr « TntiNrK 

UHw y & u UmV# in 


rr i ihir nun T T T DM AI 
on* unuunui i aunal 


0012E2 


91 


20 


p 


uco 






IN0EX2 


TM 


I cu. V » 70 • 




0012E6 


47 


10 


p 


352 








BC 


At I _ I MnpR 


rd tc rcu o CTnocn 

On* lr LoW €. jIUKCU 


0012EA 


47 


FO 


F 


33D 








BC 


%tri v y A L/Uriw IV 


rd iiMrnwniTT nu ai 

Dn* UlNLUnul 1 1 UN AL 


00 12 EE 


95 


OC 




044 






ILOKE 


LL A 




rt-icrtf cno rc nc nui v 
LncLlv run Lc uc uNLT . 


0012F2 


47 


70 


p 


or c 








BC 


Nrr o* i tip 


RR. TP NflT 

On* A r nu 1 


0012F6 


96 


04 


p 


0E8 








01 




TNOfrATP ccmcc rtATA Rpncucn 

AnUALAIC dCIIOC UAIA KCwlCV cu 


0012FA 


D5 


00 


p 


605 


B 


005 




CLC 




rnMDAoc cno cvocrTcn ccmcc 
LUnrAKC run CArcLlcU oCNoc 


001300 


47 


60 


p 


352 








BC 


kji* cut t mj c i\ 


Dp. tc IIMCnilAI 
Dn* A r UnCViUAL 


001304 


05 


00 


p 


59F 


B 


004 


IBSN 


CLC 


I ATTrr+Sf 1 i .A( Rl 1 1 


rnMDAoc cno cvocrTcn rnun rnne 
LUnrAnc run CArcLlcU LUNU* LUUC 


00130A 


47 


60 


p 


352 








BC 




RD TC IIMCnilAI 
On* lr UNCVIUAL 


00130E 


91 


08 




000 








TM 


AID 1 1 t.yi OR t 

Ul nil I | A UO 




001312 


47 


80 


p 


2D6 








BC 


nunc t inuc ai - 


dd tc un rcu cvocrTcn 
On* lr NU' Loll CArcLlcU 


001316 


91 


40 


p 


0E8 








TM 


f cu.y t a>o» 
i on t a iu 




00131 A 


47 


80 


p 


352 








BC 


nunc y inucn 


rd tc Ain rcu Dcncucn 

On* ir nU Low KcLlcVcU 


00131E 


48 


8B 


o 


006 








LH 




I nAn rcu Anna 

LUAU LOW AUUn 


001322 


40 


80 


p 


32A 








STH 




CTnoc IM mMDADC fMCTD 
o 1 UKC In LUHrAKC INo IK* 


001326 


D5 


07 


p 


666 


F 


666 


ICCSW1 


ri r 


ircui fRi _tr cui 

IliOHllOl y 11* alt 1 


rntiDADC cno cvocrTcn rcu 
LUnrARc rUR caPcLicU Low 


00132C 


47 


60 


p 


352 








rt 


i iMcn. i Ainco 


DD TC IIMCnilAI 

oR* IP UNcWUAL 


001330 


91 


04 


B 


000 








TM 


0(Rll)yX*04* 




001334 


47 


80 


F 


2E2 








BC 


N0NE«IN0EX2 


BR* IF NO CSW 2 EXPECTED 


001338 


91 


20 


F 


0E8 








TM 


ISWyX«20" 




00133C 


47 


80 


F 


352 








BC 


NONE y INDER 


BR* IF NO CSW 2 RECIEVED 


001340 


41 


88 


0 


008 








LA 


R8y8(R8) 


UPDATE TO SECOND CSW 


001344 


40 


80 


F 


34C 








STH 


R8WCCSW2+4 




001348 


D5 


07 


F 


66E 


F 


66E 


ICCSW2 


CLC 


ICSM2I8)*ICSM2 


COMPARE FOR EXPECTE0 CSW 2 


00134E 


47 


80 


F 


356 








BC 


EQ, IDUNCK 


BR* IF EQUAL 


001352 


96 


01 


F 


0E8 






INDER 


01 


ISW,X«01» 


INDICATE AN ERROR 


001356 


92 


64 


F 


396 






IDUNCK 


MVI 


IFLAG1,X«64» 


SET UP FOR ERROR PRINTOUT 


00135A 


92 


CO 


F 


522 








MVI 


IFLA62y X'CO 9 




00135E 


91 


01 


F 


0E8 








TM 


ISMyX«01« 


CHECK FOR A DETECTED ERROR 


001362 


47 


10 


F 


376 








BC 


ALL, IOUTIT 


BR* IF ERROR DETECTED 


001366 


91 


01 


F 


004 








TM 


SNSWrX'Ol* 


CHECK SECTION SENSE SWITCH 7 


00136A 


47 


80 


F 


53 E 








BC 


NONE y I LEAVE 


BR* IF OFF 


00136E 


92 


24 


F 


396 








MVI 


IFLA61yX«24 t 


SET UP FOR CORRECT PRINTOUT 


001372 


92 


80 


F 


522 








MVI 


IFLAG2yX»80« 




001376 


95 


40 


F 


605 






IOUTIT 


CLI 


IACSNS+5,X»40' 


SEE IF INTERVENTION REQUIRED* 



DATE 
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00 137 A 


47 80 


F 


554 






BC 


EQtRDYM 


00 1 3 7 E 


91 01 


F 


66A 






TM 


ICSWl+4tX v 01* 


nn \ nw7 


47 10 


F 


554 






BC 


ALLtROYM 


nm 


D2 01 


F 


62 C B 


002 




MVC 


ITSTN0+5(2) t2(Rll) 




OA DD 










SVC 


X'DD* 




0002 










DC 


AL2(2) 


001390 


062 C 










DC 


AL2t ITSTN0+5-SECN0) . 


nni loo 


062 C 










DC 


AL2(ITSTN0+5-SECN0) 


001394 


OA 00 










SVC 


X f D0« 


001396 


64 








IFLAG1 


DC 


X , 64 t 




09 










DC 


X«09« 


Art 1 o n o 


F627 










DC 


AL2UTSTN0-SECN0+REG) 


00139A 


41 80 0 004 






LA 


R8»4 


uu* J7C 


IB B8 










SR 


R11,R8 




50 B0 


F 


5B8 






ST 


RlltILINK+5 


nn i ^ 
uu i d A*r . 


OA 00 










SVC 


X'DD 1 


nn i iia 


0003 










DC 


AL2( 3) 


nm iAQ 


05B9 










DC 


AL2C ILINK+6-SECN0) 


00 13 AA 


05B8 










DC 


AL2( ILINK+5-SECN0) 


nn i a »r 
UU 1 3 AU 


OA 00 










SVC 


X«D0' 


0013AE 


AO 










DC 


X^AO 1 


001 3 AF 


10 










DC 


X'lO* 


nn i n d a 


F5B3 










DC 


AL2( ILINK-SECN04REG) 


001 3 B2 


41 BB 


0 


004 






LA 


Rllt4(Rll) 


001 3 B6 


91 80 


B 


000 






TM 


0(R11),X«80 8 


nni aa* 

UU 1 JDA 


47 10 


F 


438 * 






BC 


ALLt IOCSM 


00 13 BE 


OA DO 










SVC 


X^DD" 


nni irn 


0003 










DC 


AL2( 3) 


001 3 C2 


0688 










DC 


A L 2 ( I OADR- SEC NO I 


00 1 3C4 


05A9 










DC 


AL2( I0ADDR+5~SECN0) 


on i ^ r a 


n a nn 










SVC 


X'DO^ 


ww A 3 wO 


An 

AU 










DC 


X'AO" 


001 3 C9 


AC 

ur 










DC 


X'OF 1 


00 1 3 C A 


F5A4 










DC 


AL2C I OADDR-SECNO+REGJ 


0013CC 


or or 


r 


i *r 
1 AC 






CL I 


ISSUEtX , 9C* 


0013D0 


47 60 


F 


426 






BC 


UNEQt ICCOUT 


001304 


50 AO 


' £ 
r 


era i 






w 1 


Din in u c 


001308 


OA 0D 










SVC 


X'DD 1 


00130A 


0003 










DC 


AL2( 3 ) 


0013DC 


05C9 










DC 


AL2l ICAW+6~*SECN0f 


00130E 


05C8 










DC 


AL2( I CA w+ 5- SEC NO I 


0013E0 


OA DO 










SVC 


X'DO* 


0013E2 


AO 










UU 


X'AO* - 


0013E3 


0B 










uu 


y • nn • 


0013E4 : 


F5C3 










nr 
uu 


ALU 1UAW~ 5cuNU+Rcwf 


0O13E6 


02 02 


F 


5D6 F 






MVU 


IBLAH+1 1 3 # t ICCN 


00 13 EC 


92 16 


F 


421 






MVI 


ICNTtX , 16' 


0013F0 


D2 07 


F 


578 A 


nnn 
uuu 


ICWOUT 


MVC 


WORK! 8) »0(R10) 


0013F6 


45 90 


F 


40 A 






BAL 


R9,IC0UT 


0013FA 


91 CO 


A 


004 






Til 


xfoint v ■ f* ft 

*l RIOI fA'CO 1 


0013FE 


47 80 


F 


426 






BC 


NONE* ICCOUT 


001402 


41 AA 


0 


008 






LA 




001406 


47 F0 


F 


3F0 






BC 


UNC, ICWOUT 


00140A 


OA DD 








IC0UT 


SVC 


X«DD« 


00140C 


0008 










DC 


AL2C8) 


00140E 


0578 










DC 


AL2( WORK-SECNO) 


001410 


0578 










DC 


AL2(W0RK-*SECN0) 


001412 


02 07 


F 


5 DA F 


578 




MVC 


IBLAH+5C8),W0RK 


001418 


02 07 


F 


5E3 F 


580 




MVC 


IBLAH+14C 81 tWORM-8 


00141E 


OA DO 










SVC 


X«DO f 


001420 


AO 










DC 


X^O* 


001421 


1A 








ICNT 


DC 


X»1A« 


001422 


F5D5 










DC 


A L 2 ( I BLAH- SEC NO+REG 1 


001424 


07 F9 










BCR 


UNCR9 


001426 


02 00 


F 


595 B 


004 


ICC0UT 


MVC 


IEXPCC+5(1),4(R11) 


00142C 


OA DO 










SVC 


X»D0« 


00142E 


AO 










DC 


X«A0« 


00142F 


OA 










DC 


X»0A« 


0ATE 


05 MAY 65 




10AUG65 


15JUN67 







BR IF YES. 

SEE IF UNIT EXCEPTION. 
BR IF YES. 

MOVE TEST NUMBER TO PRINT 
CONVERT TEST NUMBER 



PRINT TEST NUMBER 

ADJUST LINK ADDRESS FOR PRINTOUT 
CONVERT LINK ADDRESS 

PRINT LINK ADDRESS 



BR. IF NO 1-0 COMMAND ISSUED 
CONVERT 1-0 ADDRESS 



PRINT 1-0 ADDRESS 



COMPARE FOR SIO COMMAND 
BR. IF NOT 
STORE CCW ADDR. 
CONVERT CAW 



PRINT CAW 



MOVE -CCW- TO MESSAGE 

ADJUST COUNT 

MOVE CCW TO WORK AREA 

BR. TO OUTPUT CCW 

CHECK FOR ANY CHAIN FLAGS 

BR. IF NONE 

UPDATE TO NEXT CCW 

BR. UNCONDITIONAL 

CONVERT 



MOVE TO MESSAGE 
PRINT 



RETURN VIA REG 9 

MOVE EXP CC TO MESSAGE 

PRINT EXPECTED COND. CODE 



EC 



124252 



125580 



130498 
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001430 


F590 












DC 


Al 7i IEXPCf—SfrCNfl+RFGl 




001432 


OA 


DO 












SVC 


X'DO* 


print ArTiiAi rnNn. rnnp 


001434 


AO 














DC 


X'AO' 




001435 


OA 














DC 


X ' OA ' 




001436 


F59A 












DC 


Al 71 I AC Tff*— SEC NO+RFfi 1 

HLL 1 1HU lww< ObwIIU'nCV 1 




001438 


no 

uc. 


nt> 


p 


506 


p 


5CF 


I0CSW 


MVC 




huvc Uoif iu ncjanuc 


00143E 


Q5 


1 A 

J. A 


p 


421 








MVI 


ITKIT. V • 1 A • 


An iii^t rniiisiT" 


001442 


91 


no 
U o 


a 


000 








TM 


n(Dii l « y« na * 
ui nil i t a \#a 




00 1446 




a n 


p 


46 A 








BC 


KiriMP - mini 
nunc t luiiii 


nn if Kin r^u fypfptfo 


00 I 44 A 


n? 


n j 


p 


5EC 


p 


5F2 




MVC 


1 Al AM+73C %l mt FXP 

lDLAnT£3| 3 # f 1 C Ar 


MnvF -Pv P— Tn mf^^arf 


001450 


48 


8B 


o 


006 








LH 






001454 


40 


80 


p 


464 








STH 


Da. Tr HNG 14>4 




001458 


41 


88 


0 


008 








LA 


RR.R(RR) 
nutoinoi 




00145C 


40 


80 


p 


494 








STH 


R ft- TfHKIft7+4 




001460 


D2 


07 


p 


578 


p 


578 


ICHNG1 


MVC 


WDRKf ft) . ynRK 


MnVF FVPFTTFn r<iu Tn UflQK arfa 


001466 


45 


90 


p 


40 A 








RAI 

DHL 


pq, irmiT 


do, Tn nilTPHT FYPFTTPn T^U 
DK. IU UU 1 r U 1 CArCUl CU UwW 


00146A 


91 


40 


p 


0E8 






I0IDI 


TM 


1 On f A "r\J 




00146E 


47 


80 


p 


482 








BC 


NRNF . T MHR 




001472 


D2 


02 


p 


5EC 


p 


5EF 




MVC 


IAI AH+?^t ^11 . I ACT 


MnVF -AfT- Tfl MFt^AHF 


001478 


D2 


07 


p 


578 


p 


666 




MVC 


UflR K( R | ml C <y 1 
nursivi Of tlbORl 


MnvF ArTtiAi r<wU Tn unnic arfa 


00147E 


45 


90 


p 


40 A 








BAL 


do. irmiT 


RR Tn ni IT PI IT ATTIIAI C<iU 
DR* IU UUI rul AtlUAL U^rl 


001482 


91 


04 


A 


000 






IMORST 


TM 


0 1 R 1 1 1 .X* 04 * 




001486 


47 


80 


p 


49 A 








BC 


Kin kip • min 

Nunc t iuiu 


RR IF KinT FXPFTTfKIR 9 P^y^ 
Df\. Ir nU 1 CArCUl ino €. liOHo 


00 148 A 


D2 


02 


p 


SEC 


f 


5F2 




MVC 


IRI AH+?3t 31 .IFXP 


MnVF — FXP- Tn MF^LSAfiF 


001490 . 


02 


07 


p 


578 


f 


578 


ICHNG2 


MVC 


WORKf 81 • WORK 


MOVF EXPECTED C<tU TO WORK ARFA 


001496 


45 


90 


F 


40A 








BAL 


R9t ICOUT 


BR. TO OUTPUT EXPECTED CSW 2 


00149A 


91 


20 


p 


0E8 






IDIO 


TM 


ISWtX , 20* 




00149E 


47 


80 


p 


4B2 








BC 


NONEt IPAS 


BR. IF NO SECOND CSW STORED 


0014A2 


02 


02 


p 


SEC 


p 


'5EF 




MVC 


IBLAH+231 35 t I ACT 


MOVE —ACT— TO MESSAGE 


0014A8 


02 


07 


p 


578 


F 


66E 




MVC 


WORK C 8! t!CSW2 


MOVE CSW TO WORK AREA 

nw w %m %0 *p ft I w mini* r*f\K»M 


0014AE 


45 


90 


F 


40 A 








BAL 


R9f ICOUT 




0014B2 


02 


00 


F 


5FA 


B 


005 


IPAS 


MVC 


IEXSNS*5C 1! -. 5(R11 J 


MOVE EXP SENSE TO MESSAGE 


0014B8 


91 


04 


F 


0E8 








TM 


I SW«X*04 9 




0014BC 


47 


80 


F 


4 DC 








BC 


NONE # IPASS 


BR. IF NO SENSE DATA RECIEVED 


0014C0 


OA 


00 












SVC 


X'DD* 


CONVERT EXPECTED SENSE 


0014C2 


0001 












DC 


AL2( 1) 




0014C4 


05FA 












DC 


AL2( I EXSNS+5-SECN0) 




0014C6 


05FA 












DC 


AL2( IEXSNS+5-SECN0) 




0014C8 


OA 


DO 












SVC 


X'DO' 


PRINT EXPECTED SENSE 


0014CA 


AO 














DC 


X^O" 




0014CB 


OB 














DC 


X , 0B» 




0014CC 


F5F5 












DC 


AL 2 U E XSN S- SEC NO+REG J 




0014CE 


OA 


OD 












SVC 


X'DD' 




0014D0 . 


0001 












DC 


AL2C 1 ) 




00 1402 


0605 












DC 


AL2( IACSNS+5-SECN0) 




0014D4 


0605 












DC 


AL2UACSNS+5-SECN0) 




001406 


OA 


DO 












SVC 


X«D0» 


PRINT ACTUAL SENSE DATA 


001408 


AO 














DC 


X»A0« 




001409 


OB 














DC 


X'OB* 




0014DA 


F600 












DC 


AL2C IACSNS-SECNO^REG) 




0014DC 


95 


30 


E 


181 






IPASS 


CLE 


SYSM0D(R14>,X«30» 


CHECK FOR MODEL 30 


0014E0 


47 


60 


F 


510 








BC 


UNEQvICUIO 


BR IF NOT. 


0014E4 


02 


OB 


F 


578 


E 


080 


I LOG ED 


MVC 


WORK! 121 » LOGOUT (R14I 


MOVE LOG OUT TO WORK AREA 


0014EA 


OA 


00 












SVC 


X*DD« 


CONVERT 


00I4EC 


000 C 












DC 


AL2(12) 




0014EE 


0578 












DC 


AL2« WORK-SECNO) 




0014F0 


0578 












DC 


AL2C WORK-SECNO) 




0014F2 


D2 


01 


F 


610 


F 


578 




MVC 


I0L0G-t-5(2) 9 W0RK 


MOVE LOG OUT TO MESSAGE 


00I4F8 


02 


05 


F 


613 


F 


57A 




MVC 


I0L0G48(6) 9 W0RK«2 




0014FE 


D2 


05 


F 


61 A 


F 


582 




MVC 


I0L0G^15(6) tWORK-i-10 




001504 


02 


05 


F 


621 


F 


58A 




MVC 


I0L0G*22(6) 9 W0RK+18 




00150A 


OA 


DO 












SVC 


X^DO* 


PRINT LOG OUT 


001 50C 


AO 














DC 


X»A0« 




00150D 


1C 














DC 


X»lC f 




001 50E 


F60B 












DC 


AL2(I0L0G-SECN0^RE6) 




001510 


91 


02 


F 


0E8 






ICU10 


TM 


ISWtX'02* 


SEE . IF UIO. 


001514 : 


47 


80 


F 


520 








BC 


NONEt IOPOUT 


BR. IF NOT UIO 


001518 


94 


FO 


F 


0E8 








NI 


ISWtX*FD* , 


RESET UIO SWITCH 



DATE 

EC 
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00 1 5 1 C 


47 FO 


F 


1F2 


EH* 


001520 


OA DO 






IOPOUT iSVC 


001522 


CO 






IFLAG2 DC 


001523 


36 






DC 


001524 


F630 






DC 


001526 


OA DO 






SVC 


001528 


AO 






DC 


001529 


01 






DC 


00152A 


F5B3 






DC 


00152C 


50 AD 


0 


048 


ST 


001530 


91 CO 


F 


004 


TM 


001534 : 


47 50 


F 


156 


BC 


001538 


91 80 


F 


0E8 


TM 


00153C 


07 15 






BCR 


00153E 


91 08 


B 


000 


ILEAVE TM 


001542 


47 80 


F 


54A 


BC 


001546 


41 BB 


0 


002 


LA 


00154A 


41 BB 


0 


006 


IUP LA 


00154E 


98 89 


F 


570 


LM 


001552 


07 FB 






BCR 



UNCI WAIT 
X»DO* 
X*CO* 
X*36* 

AL2C I0PT1-SECNQ+REG) 

X*DO* 

X*AO* 

X*01* 

AL2ULINK-SECN0+REG) 
R10,HCAW(R13! 
SNSW,X*C0* 
ANYt ITRY1 
ISW,X*80* 
ALL yR5 
0IR11),X*08* 
NONE* I UP 
RU,2(RU) 
R11,6(R11) 
R8,R9,ISAVE 
UNCRlT 



BR. UNCONDITIONAL 
PRINT LOOP OPTIONS 



SPACE A LINE 



STORE CAW 

CHECK SECTION SENSE 
BR. IF ANY ON 



SWITCH 0 AND 1 



RETURN VIA REG 5 IF HANG UP 



BR. IF 

UPDATE 



NO CSW EXPECTED 
LINK ADDRESS FOR 



RETURN 



RESTORE REGS 8 AND 9 
RETURN VIA REG 11 

* INTERVENTION REQUIRED MESSAGE 



001554 : 


OA DO 




RDYM SVC 


X*DO* 


PRINT -MAKE DEVICE 


001556 


2410 




DC 


X«2410* 


001558 


F6B0 




DC 


AL 2 1 MDR- SEC NO* REG I 




00155A 


OA DA 




SVC 


X*DA* 


-HALT- 


00155C 


90 00 


C 000 


TIO 


0IR121 


TEST 1-0 


001560 


OA DO 




SVC 


X*DO* 


PRINT A BLANK. 


001562 


8001 




DC 


X*8001* 




001564 


F6B0 




DC 


A L 2 ( MDR- SEC NO+REG } 




001566 


47 FO 


F 136 


BC 


UNC, IRETRY 


BR TO CONTINUE. 



* 1-0 HANDLER WORK AREA. 



00156A 






CNOP 


0,8 




00156A 


07 00 


BCR 


0,0 




00156C 


07 00 


BCR 


0*0 




00156E 


07 00 


8CR 


0,0 




001570 


0000000000000000 


ISAVE 


DC 


XL8*0* 




001578 




WORK 


DS 


24C 




001590 ; 


40C3C34040E740C5E7 


IEXPCC 


DC 


C* CC 


X EXP* 


001599 


D7 








00159A 


40C3C34040E740C1C3 


IACTCC 


DC 


c* CC 


X ACT" 


0015A3 


E3 










0015A4 


40C 1 C4D940 E7E7E7E7 


IOADDR 


DC 


C ADR 


XXXXXX XI 


0015A0 


E7E740E7C9D6 








0015B3 


00 




DC 


X*00* 




0015B4 


0015B3 




CNOP 
ORG 


0,4 
*-l 




0015B3 


40C1C4D940E7E7E7E7 


ILINK 


DC 


C* ADR 


XXXXXX LI 


0015BC 


E7E740D3C9D5D2 








0015C3 


00 




DC 


X*00* 




0015C4 : 


0015C3 




CNOP 
ORG 


0,4 
*~1 




0015C3 


40C3C1E640E7E7E7E7 


ICAW 


DC 


C* CAW 


XXXXXX • 


0015CC 


E7E740 










0015CF 


C3E2E6 


ICSW 


DC 


C*CSW* 




0015D2 


C3C3E6 


ICCW 


DC 


C*CCW* 




0015D5 


40C3E2E640E7E7E7E7 


IBLAH 


DC 


C* CSW 


xxxxxxxx 


0015DE 


E7E7E7E740E7E7 










0015E5 


E7E7E7E7E7E740C5E7 




DC 


C« XXXXXX EXP* 


0015EE 


D7 










0015EF ■ 


C1C3E3 


IACT 


DC 


C«ACT* 




0015F2 


C5E7D7 


IEXP 


OC 


C*EXP* 




0015F5 


40E205E240E7E740C5 


IEXSNS 


DC 


C* SNS 


XX EXP* 


0015FE 


E707 








001600 


40E2D5E240E7E740C1 


IACSNS 


DC 


C* SNS 


XX ACT* 
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001609 


C3E3 








00160B 


40D306C740E7E740E7 


IOLOG 


DC 


C* LOG XX XXXXXX X* 


001614 


E7E7E7E7E740E7 








00161B 


E7E7E7E7E740E7E7E7 




DC 


C'XXXXX XXXXXX* 


001624 : 


E7E7E7 








001627 


40E3E2E340E7E7E767 


ITSTNO 


DC 


C* TST XXXX* 


001630 


40E2C5E340E2E240F0 


IOPTl 


DC 


C* SET SS 0 ON FOR* 


001639 


4006D540C6D6D9 








001640 


40D3D6D6D740D6D540 




DC 


C* LOOP ON XIO, SS* 


001649 


E7C9D66B40E2E2 








001650 ; 


40F 140D6D540C6D6D9 




DC 


< C* 1 ON FOR TIO SI*. 


001659 


40E3C9D640E2C9 








001660 


D640D3D6D6D7 




DC 


C*0 LOOP* 


001666 


0000000000000000 


ICSW1 


DC 


XL8*0* 


00166E 


0000000000000000 


ICSW2 


DC 


XL8*0« 


001678 


04 001605 0000 0001 


ISENSE 


CCW 


X»04«,IACSNS+5,X«0G*,1 


001680 


0000000000000000 


ISLAVE 


DC 


XL8*0* 


001688 


0011AC 


IOADR 


DC 


AL3( ISSUE} 


00168B 


FE 


MSK1 


DC 


X*FE* 


00168C 


01 


MSK2 


DC 


X*01* 


001680 


00 


RTSV 


DC 


X*00* 


00168E 


40E4C9D640C6D9D6D4 : 


IUNEX 


DC i 


C* UIO FROM DEVICE* 


001697 


40C4C5E5C9C3C5 








00169E 


40E7E7E7E7 




DC 


C« XXXX» 


0016A3 


40D9E3D540C2E8D7C1 


BYPASS 


DC 


C« RTN BYPASSED 1 


0016AC 


E2E2C5C4 








0016B0 


40D4C102C540C4C5E5 


MDR 


DC 


C« MAKE DEVICE RDY« 


0016B9 


C9C3C540D9C4E8 









DATE 
EC 



REGISTER SAVE AREA 



SAVE RT NO. FOR HANGUP. 



4^ 4^*****4^*******************^ 

* INITIALIZE ROUTINE 

4^******4*********^^ 



0016C0 


IB 


DO 






INIT 


SR 


R13,R13 


ZERO REG 13 


0016C2 


91 


40 


E 


196 




TM 


406CR14),X i 40 f 


CHECK FOR FORCED PROBLEM STATE 


0016C6 


47 


80 


F 


6CC 




BC 


NONE, NITWIT 


BR. IF NOT 


0016CA 


18 


DF 








LR 


R13,R15 


SET UP FOR PROBLEM STATE 


0016CC 


58 


CO 


F 


0E4 


NITWIT 


L 


R12,UNIT2 


PICK UP THE PUNCH UNIT TABLE. 


0016D0 


54 


CO 


F 


718 




N 


R12,M0D50 


SAVE ONLY THE PUNCH ADDR. 


0016D4 


50 


CO 


F 


69 C 




ST 


R12,PCH 


SAVE IT 


001608 


58 


CO 


F 


OEO 




L 


R12,UNIT1 


LOAD REG 12 WITH UNIT TABLE ENTRY 


0016DC 


54 


CO 


F 


718 




N 


R12,M0D50 


SAVE ONLY THE READER ADDR. 


0016E0 


50 


CO 


F 


B98 




ST 


R12,RDR 


SAVE IT 


0016E4 


91 


80 


F 


0E8 


8L00P 


TM 


ISW,X«80* 


CHECK FOR HANG UP 


0016E8 


47 


10 


F 


6FC 




BC 


ALL, HANGUP 


BR. IF DETECTED 


0016EC 


92 


40 


F 


71C 




MVl 


RDAR,C * • 


CLEAR WORK AREA. 


0016F0 


D2 


9E 


F 


710 F 71C 




MVC 


RDAR+ 1(159), RDAR 




0016F6 


41 


AO 


F 


B20 




LA 


R10,N00P 


PUT ADDR OF NOOP INTO 10. 


0016FA 


07 


F4 








BCR 


UNCR4 t , 


RETURN VIA REG 4 


0016FC 


02 


00 


F 


003 F 680 


HANGUP 


MVC 


SECN0+3U),RTSV 


RESTORE RT NO. 


001702 


OA 


DO 








SVC 


X«DO* 


PRINT 


001704 


64 










OC 


X«64« 


-PREVIOUS HANGUP DETECTED- 


001705 


1A 










DC 


X* 1A* 




001706 


F7BC 








DC 


AL2(HUNG-SECN0+REG) 




001708 


96 


01 


F 


0E8 




01 


ISW,X*01* 


TURN ON ERROR SWITCH. 


00170C 


45 


50 


F 


2AE 




BAL 


R5,I0OSNS 


BR. TO OUTPUT AVAILABLE INFO 


001710 


92 


00 


F 


0E8 




MVI 


ISWvX'OO* 


RESET HANGUP SWITCH 


001714 


47 


FO 


F 


6E4 




BC 


UNCBLOOP 




001718 












CNOP 


0,4 




001718 


00003FFF 


M0D50 


DC 


X«00003FFF« 




00171C 










RDAR 


DS 


160C 




0017BC 


400709C5E5C9D6E4E2 


HUNG 


DC 


C« PREVIOUS HANG U 9 




0017C5 


40C8C1D5C740E4 










0017CC 


0740C4C5E3C5C3E3C5 




DC 


C*P DETECTED* 




0017D5 


C4 
















0017D6 












CNOP 


0,4 




0017D6 


07 00 






BCR 


0,0 





* ROUTINE 01 - ISSUE A TEST 1-0 TO THE READER AND THE PUNCH. THE 

* EXPECTED CONDITION CODE FROM EACH DEVICE SHOULD BE 



05MAY65 
124252 



10AUG65 

125580 



15JUN67 
130498 



ID F811-2 
PAGE 8A 



ooooooooooooooo 



c C C C C C C 0 c C C C C I 



IBN MAINTENANCE DIAGNOSTIC PROGRAM 

25*0 READER FUNCTION TESTS - SECTION 2 F811 



P/N 8401|8 
PAGE % 



ZERO. 

IF CONDITION CODE 1 IS RETURNED, THE DEVICE IS EITHER 
NOT READY OR SOME STATUS WAS STILL PENDING IN THE 
DEVICE FROM THE LAST START 1-0 EXECUTED ON THE DEVICE. 
IF CONDITION CODE 2 IS RETURNED, CHANNEL END FROM THE 
PREVIOUS START 1-0 IS STILL PENDING. 
IF CONDITION CODE 3 IS RETURNED, THE ADDRESS OF THE 
DEVICE THAT THE TEST 1-0 WAS ISSUED TO MAY BE WRONG 

i?L5^ °* THE C0NTR0L UN1T C0UL0 



001 7D8 


01 






R0UT01 DC 


* fi* J* WWW WW w * 

X»01» 


************♦♦*♦♦♦♦♦♦♦***** 

ROUTINE NUMBER 


0017D9 






DC 


AL3(R0UT02-SECNQ) 


ADDRESS OF NEXT ROUTINE 


0017DC 




r 


6C0 


BAL 


R4,INIT 


BR. TO INITIALIZE 


0017E0 


45 BO 


F 


OFE 


START BAL 


RU,ITIG 


BR TO ISSUE TEST 1-0. 


0017E4 


0000 






DC 


X'OOOO* 


CTRL SWITCHES 


0017E6 


0010 






DC 


X«0010» 


TEST NUMB 


0017E8 


FOOO 






DC 


X«FOOO» 


EXP COND. CODE AND SENSE 


0017EA 


58 CO 


F 


B9C 


L 


R12«PCH 


PICK UP THE PUNCH ADDR. 


0017EE 


45 BO 


F 


OFE 


BAL 


R11,ITI0 


BR TO ISSUE TEST 1-0 


0017F2 


0000 






DC 


X»0000« 


CTRL SWITCHES. 


0017F4 


0020 






DC 


X«0020« 


TEST NUMB 


0017F6 


FOOO 






DC 


X'FOOO" 


EXP COND. CODE AND SENSE 


0017F8 


OA D6 






SVC 


X«D6» 


ROUTINE EXIT 


0017FA 








CNOP 


0,4 




0017FA 


07 00 






BCR 

************ 


0,0 





E R 



**********^*****^ 

* ROUTINE 02 - ISSUE A READ AND STACKER SELECT Rl TO THE REAOER* 

* ALLOW ONLY CHANNEL END TO BE ACCEPTED. ISSUE A 

J^hTrEA^ PUNCH ~ ATTeMPTS T ° OAT A 

: s F T ^ ^ D eT ch sense byt *- 

* RE-ISSUE p DIAGNOSTIC WRITE AND CHECK TO SEE IF COMMAND 
♦♦♦♦♦♦♦♦♦♦♦*************W^ 



0017FC 


02 






R0UT02 DC 


X«02« 


********************** ***** 

ROUTINE NUMBER 


*********** 


0017FD 






DC 


AL3(R0UT03-SECN0) 


ADDRESS OF NEXT ROUTINE 




001800 




i- 


6C0 


BAL 


R4»INIT 


BR. TO INITIALIZE 




001804 


58 CO 


F 


B98 


L 


R12,RDR 


PUT READER ADDR INTO REG 




001808 


41 AO 


F 


B30 


LA 


R10,RD1 


PUT RD FD STK SEL Rl ADDR 


12. 


00180C 


45 BO 


F 


112 


BAL 


R11,ISI0 


BR TO ISSUE START 1-0. 


INTO 10. 


001810 


2A00 






DC 


X«2A00« 


CTRL SWITCHES 




001812 


0030 






DC 


X'0030« 


TEST NU MB 




001814 : 


FOOO 






DC 


X»FOOO» 


EXP COND. CODE AND SENSE. 


E R 


001816 


FBAO 






DC 


AL2CEXP1-SECN0+REG) 


EXP CSW ADDRESS 




001818 


45 40 


F 


AE6 


BAL 


R4,DWBF 


BR TO GENERATE DIAGNOSTIC 




00181C 


0001 






DC 


X«0001» 


DATA 


WRITE OAT A 


00181E 


41 AO 


F 


BOO 


LA 


R10,DGWR 


PUT ADDR. OP m AC uditc iutn «n 


001822 


58 CO 


F 


B9C 


L 


R12,PCH 


PUT ADDR OF PCH INTO 12. 


I1IU IV* 


001826 


45 BO 


F 


112 


BAL 


R11,ISI0 


BR TO ISSUE START 1-0. 




00182A 


4800 






DC 


X«4800» 


CTRL SWITCHES 




001 82 C 


0040 






DC 


X , 0040« 


T EST NUMB 




00182E 


F180 






DC 


X«F180* 


EXP COND. CODE AND SENSE 


i r 


001830 


FBBO 






DC 


AL2(EXP2~SECN0+REGS 


EXP CSW ADDRESS. 




001832 


58 9E 


0 


198 


L 


R9,WTCR14J 


PUT 10 SEC WAIT IN REG 9. 




001836 


88 90 


0 


002 


SRL 


R9,2 


CUT IT DOWN TO 2.5 SECS. 




00183A 


46 90 


F 


83A 


BCT 


R9,* 


TIME OUT. 




00183E 


58 CO 


F 


B98 


L 


R12,RDR 


PUT RDR ADDR. INTO 12. 




001842 


45 BO 


F 


OFE 


BAL 


R11,ITI0 


BR TO ISSUE TEST 1*0. 




001846 


4800 ; 






DC 


X»4800» 


CTRL SWITCHES 




001848 


0050 






DC 


X'0050* 


TEST NUMB 




00184A 


F100 






DC 


X'FIOO* 


EXP COND. CODE AND SENSE. 


E R 


00184C 


FBB8 






DC 


AL2CEXP3— SECNO+REG) 


EXP CSW ADDRESS. 




00184E 
001852 


45 40 


F 


AE6 


BAL 


R4,DWBF 


BR TO GENERATE COL BINARY 


DATA. 




0001 






DC 


X«0001» 


DATA 




001854 : 


58 CO 


F 


B9C 


L 


R12,PCH 


PUT ADDR. OF Pry Tfcrrn %*» 




001858 


41 Ao: 


F 


BOO 


LA 


RIOvDGWR 


PUT ADDR OF DIAG WRITE CCW INTO 10. 



DATE 05MAY65 10AUG65 15JUN67 

EC 124251 125580 130498 10 
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00185C 


45 BO F 112 


001860 


2800 


001862 


0060 


001864 


FOOO 


001866 


FBCO 


001868 


OA D6 


00186A 




00186A 


07 00 



00186C 
00186D 
001870 
001874 
001878 
00187C 
001880 
001882 
001886 
001888 
00188A 
00188C 
00188E 
001892 
001896 
00189A 
00189C 
00189E 
001 8 AO 
0018A2 
0018A6 
0018A8 
0018AA 
0018AC 
0018AE 
0018BO 



O018B0 

0018B1 

0018B4 

0018B8 

0018BC 

0018C0 

0018C4 : 

0018C6 

0018C8 

0018CA 

0018CC 

0018D0 ; 

0018D4 ! 

001 806 

0018D8 

00 18 DA 

0018DC 

0018DE 



03 

0008B0 
45 40 F 
58 CO F 
41 AO F 
45 40 F 
0120 
45 BO 
2800 
0070 
FOOO 
FBCO 
58 CO 
41 AO 
45 BO 
3C00 
0080 
F008 
FC20 
45 BO 
3C00 
0090 
FOOO 
FBAO 
OA 06 



6C0 
69 C 
BOO 
AE6 



F 112 



B98 
B30 
112 



F 112 



04 

000 8 EO 
45 40 F 
58 CO F 
41 AO F 
45 BO F 
2800 
0100 
FOOO 
FBDO 
41 AO F 
45 BO F 
3C00 
0110 
F100 : 
FC60 
OA 06 



6C0 
B98 
808 
112 



B38 
112 



BAL R11,ISI0 

DC X , 2800« 

DC X«0060» 

DC X'FOOO" 

DC AL2(EXP4-SECN0+REG> 

SVC X»D6» 

CNOP 0,4 

BCR 0,0 



BR TO ISSUE START 1-0. 
CTRL SWITCHES 
T ES T NU MB 
EXP COND. CODE AND SENSE. 
EXP CSW ADDRESS. 
ROUTINE EXIT 



***********************************************^^ 

* ROUTINE 03 - ISSUE A DIAGNOSTIC WRITE TO LOAD THE READ BUFFER WITH 

* MORE THAN ONE DIGIT BETWEEN ROWS 1 THRU 7. 

* ISSUE A READ AND FEED AND TEST FOR UNIT CHECK IN STATUS 

* AND DATA CHECK IN THE SENSE BYTE. 

* ISSUE ANOTHER READ AND FEED TO THE READER AND TEST 

* FOR AN ACCEPTED COMMAND DUE TO THE BUFFER BEING READ 

* INTO WITH VALID DATA FROM THE FIRST READ. 
********************************^ 

R0UT03 DC X»03» (miiTiNC kiiimrcd 



R0UT03 DC 
DC 
BAL 
L 

LA 
BAL 

DC 
BAL 

DC 
DC 
DC 
DC 

L 

LA 
BAL 

DC 
DC 
DC 
DC 
BAL 
DC 
DC 
DC 
DC 
SVC 
CNOP 



X«03« 
AL3(R0UT04-SECN0> 
R4,INIT 
R12,PCH 
R10,DGWR 
R4,DWBF 
X«0120* 
RlltlSIO 
X'2800" 
X»Q070* 
X«FOOO« 

AL2(EXP4-SECN0+REG) 

R 12, RDR 

R10,RD1 

R11,ISI0 

X«3C00* 

X«0080» 

X«F008* 

AL2( EXP14-SECN0+REG) 

R11,ISI0 

X«3C00« 

X»0090« 

X»FOOO» 

AL2CEXP1-SECN0+REGI 
X«D6» 
0,4 



ROUTINE NUMBER 
ADDRESS OF NEXT ROUTINE 
BR. TO INITIALIZE 
PUT THE PCH ADDR. INTO REG 12. 
PUT ADDR. 

BR TO COL BINARY GENERATOR. 
DATA 

BR TO ISSUE START 1-0. 
CTRL SWITCHES 

TEST NUMBER 

EXP COND. CODE AND SENSE 

EXP CSW ADDRESS 

PUT RDR ADDR INTO REG 12. 

PUT RD CCW ADDR INTO 10. 

BR TO ISSUE START I— 0. 

CTRL SWITCHES 

TES T NU MBER 

EXP COND. CODE AND SENSE 

EXP CSW ADDRESS. 

BR TO ISSUE START 1-0 

CTRL SWITCHES 

TEST NUMBER 
EXP COND. CODE AND SENSE 
EXP CSW ADDRESS. 
ROUTINE EXIT 



***************************************************^^ 

* ROUTINE 04 - ISSUE A READ NO FEED AND THEN FOLLOW BY * — — 



_ ..... ...... . w , A FEED AND 

STACKER SELECT Rl. STATUS IS TESTED FOR CHANNEL END AND 
DEVICE END TOGETHER FOR THE READ NO FEED COMMAND. 
STATUS FOR THE FEED AND STACKER SELECT IS TESTED FOR 
SEPARATE CHANNEL AND DEVICE END INTERRUPTS. 
*****************************************^^ 

ROUTINE NUMBER 
ADDRESS OF NEXT ROUTINE 
BR. TO INITIALIZE 
PUT THE RDR ADDR. INTO REG 12. 
PUT READ NO FEED CCW ADDR INTO 10. 
BR TO ISSUE START 1-0 
CTRL SWITCHES 

T E S T N U M B E R 
EXP COND. CODE AND SENSE. 
EXP CSW ADDRESS. 
PUT FEED CCW ADDR. INTO 10. 
BR TO ISSUE START 1-0 
CTRL SWITCHES 

T E S T N U* H B E R 
EXP COND. CODE AND SENSE 

ROUTINE EXIT 



DC 


X«04» 


DC 


AL3(R0UT05-SECN0) 


BAL 


R4,INIT 


L 


R 12, RDR 


LA 


R10,DGRD 


BAL 


RlltlSIO 


DC 


X«2800« 


DC 


XV0100* 


DC 


X»F00Q« 


DC 


AL2C£XP6~SECN0*R£G) 


LA 


RIOtRFSl 


BAL 


RlltlSIO 


DC 


X»3C00» 


DC 


X»01I0« 


DC 


X»F100» 


DC 


AL2<eXP15-$ECN0*RE6l 


SVC 


X«06* 


CNOP « 





DATE 05MAY65 10AU665 15JUN67 fn Kfltl - 
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0018DE 0? 00 



0018E0 

0018E1 

001 8 E4 

0018E8 

0018EC 

0018F0 : 

0018F4 

0018F6 

0018FA 

0018FC 

0018FE 

001900 

001902 

001906 

00190A 

00190E 

001910 

001912 

001914 

001916 

001918 



05 

000918 
45 40 F 
58 CO F 
41 AO F 
45 40 F 
3F3F 

45 BO F 112 
2A00 
0120 
FOOO 
FBCO 
58 CO 
41 AO 
45 BO 
2800 
0130 
F180 
FBBO 
OA D6 



6C0 
B9C 
BOO 
AE6 



B98 
B38 
112 



001918 


06 






001919 


000990 




00191C 


45 40 


F 


6 CO 


001920 


58 CO 


F 


B9C 


001924 


41 AO 


F 


BOO 


001928 


45 40 


F 


AE6 


00192C 


0001 






00192E 


45 BO 


F 


112 


001932 


2800 






001934 L 


0140 






001936 


FOOO 






001938 


FBCO 






00193A 


58 CO 


F 


B98 


00193E 


41 AO 


F 


B08 


001942 


45 BO 


F 


112 


001946 


2800 






001948 


0150 






00194A 


FOOO 






00194C 


FBDO 






00194E 


58 CO 


F 


B9C 


001952 


41 AO 


F 


BOO 


001956 


45 40 


F 


AE6 


00195A 


3F3F 







BCR 0 9 0 

* ROUTINE 05 - ISSUE A DIAGNOSTIC WRITE TO THE PUNCH WHICH SHOULD 

* FILL THE READ BUFFER WITH DATA THAT IS INVALID TO A 

* NORMAL READ COMMAND. 

* ISSUE A FEED AND STACKER SELECT Rl TO THE READER. 

* THIS COMMAND SHOULD BE REJECTED DUE TO TWO FEEDS IN A 

* ROW BEING PERFORMED ON THE READER. A SENSE COMMAND IS 

* ISSUED TO THE READER AND TESTED FOR THE COMMAND REJECT 

* BIT ON THE SENSE BYTE. 



DC 


X»05» 


ROUTINE NUMBER 


DC 


A L 3 ( R 0UT06- SECNO ) 


ADDRESS OF NEXT ROUTINE 


BAL 


R4,INIT 


BR. TO INITIALIZE 


L 


R12 T PCH 


PUT THE PCH ADDR. INTO REG 12. 


LA 


RlOtDGWR 


PUT ADDR OF DI AG WR CCW INTO 10 


BAL 


R4,DWBF 


BR TO COL BINARY GENERATOR. 


DC 


X«3F3F» 


WRITE DATA. 


BAL 


RlltlSIO 


BR TO ISSUE START 1-0 


DC 


X»2A00« 


CTRL SWITCHES 


DC 


X»0120» 


TEST NU MB E R 


DC 


X'FOOO* 


EXP COND. CODE AND SENSE 


DC 


AL2IEXP4- SECNO+REG) 


EXP CSW ADDRESS. 


L 


R12,RDR 


PUT RDR ADDR INTO REG 12. 


LA 


R10.RFS1 


PUT FEED CCW ADDR. INTO 10. 


BAL 


RlltlSIO 


BR TO ISSUE START 1-0 


DC 


X«2800« 


CTRL SWITCHES 


DC 


X«0130» 


T EST NUMBER 


DC 


X»F180« 


EXP COND. CODE AND SENSE 


DC 


AL2 ( E XP2- SECNO+REG ) 


EXP CSW 1 ADDR. 


SVC 


X»D6» 


ROUTINE EXIT 


CNOP 


0,4 



* ROUTINE 06 - ISSUE A DIAGNOSTIC WRITE COMMAND TO THE PUNCH TO FILL 
THE READ BUFFER WITH VALID DATA MODE 1 DATA. 
ISSUE A READ NO FEED WITH A SENSE COMMAND FOLLOWING 
TO ALLOW TESTING THE SENSE BYTE. 

ISSUE A DIAGNOSTIC WRITE COMMAND TO WRITE INVALID DATA 
INTO THE READ BUFFER. 

ISSUE A FEED AND STACK SELECT Rl FOLLOWED BY A SENSE 
COMMAND AND TEST FOR EXPECTED NORMAL OPERATION. 
ISSUE A READ FEED AND STACK SELECT Rl AND EXPECT NORMAL 
OPERATION DUE TO THE READ BUFFER BEING FILLED WITH 
VALID DATA BY THE LAST FEED OPERATION. 



DC 


X»06« 


ROUTINE NUMBER 


DC 


AL31R0UT07-SECN0* 


ADDRESS OF NEXT ROUTINE 


BAL 


R4,INIT 


BR. TO INITIALIZE 


L 


R12.PCH 


PUT THE PCH ADDR. INTO REG 12. 


LA 


R10.DGWR 


PUT DI AG WR. CCW ADDR. INTO 10. 


BAL 


R4,DWBF 


BR TO COL BINARY GENERATOR. 


DC 


X«0001» 


VALID MODE 1 DATA. 


BAL 


Rll.ISIO 


BR TO ISSUE START 1-0 


DC 


x^eoo* 


CTRL SWITCHES 


DC 


X»0140« 


T E S T N U M B E R 


DC 


X'FOOO* 


EXP COND. CODE AND SENSE. 


DC 


AL2(EXP4~ SECNO+REG* 


EXP CSW ADDRESS. 


L 


R12t RDR 


PUT THE RDR ADDR. INTO REG 12. 


LA 


RlOtOGRO 


PUT RD NO FD CCW ADDR INTO 10. 


BAL 


RlltlSIO 


BR TO ISSUE START I-C. 


DC 


X«2800» 


CTRL SWITCHES 


DC 


X«0150« 


TEST NUMBER 


DC 


X«F000» 


EXP COND. CODE AMD SENSE. 


DC 


AL2<EXP6-SECN0+REG) 


EXP CSW ADDRESS. 


L 


R12,PCH 


PUT ADDR OF PCH INTO REG. 12. 


LA 


RlOtDGWR 


PUT DIAG WR CCW ADDR INTO 10. 


BAL 


R4,DWBF • 


BR TO COL BINARY GENERATOR. 


DC 


X«3F3F« 


INV. DATA* 



DATE 

EC 



05MAY65 
124252 



10AUG65 
125580 



15JUN6? 
130498 
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00195C 


45 BO 


F 


112 


BAL 


RlltlSIO 


BR TO ISSUE START 1-0 | 


001960 


2800 






DC 


X*2800« 


CTRL SWITCHES ; ! 


001962 


0160 






DC 


X*0160 9 


TEST NUMBER f 


001964 


FOOO 






DC 


X^FOOO' 


EXP COND. CODE AND SENSE. 


001966 


FBCO 






DC 


AL2( E XP4- SECNO+REG > 


EXP CSW ADDRESS. 


001968 


58 CO 


F 


B98 


L 


R12 9 RDR 


PUT RDR ADDR INTO REG 12. 


00196C 


41 AO 


F 


B38 ' 


LA 


RIOtRFSl 


PUT FD SK SEL Rl CCW ADDR., IN 10. 


001970 


45 BO 


F 


112 


BAL 


RlltlSIO 


BR TO ISSUE START 1^0. 


001974 ! 


3C00 ; 






DC 


X«3C00» 


CTRL SWITCHES 


001976 


0170 






DC 


X«0170» 


T EST NUMBER 


001978 


F100 






DC 


X»F100« 


EXP COND CODE AND SENSE. 


00197A 


FC60 






DC 


AL2tEXP15~SECN0+REG> 




00197C 


41 AO 


F 


B30 ; 


LA 


RlOtRDl 


PUT RD FD CCW ADDR. INTO 10. 


001980 


45 BO 


F 


112 


BAL 


RlltlSIO 


BR TO ISSUE START 1-0. 


001984 


3C00 






DC 


X , 3C00« 


CTRL SWITCHES 


001986 


0180 






DC 


X«0180 f 


T EST NU MBER 


001988 


FOOO 






DC 


X'FOOO* 


EXP COND. CODE AND SENSE. 


00198A 


FBAO 






DC 


A L 2 C E XP 1- SECNO+REG ) 


EXP CSW ADDRESS. 


00198C 


OA D6 






SVC 


X"D6» 


ROUTINE EXIT 


00198E 








CNOP 


Ot4 




00198E 


07 00 






BCR 


0,0 






















* ROUTINE 07 


- ISSUE A READ FEED 


STACKER SELECT Rl COMMAND CHAINED 










* 


INTO ANOTHER READ 


FEED STACKER SELECT Rl. THE SLI FLAG ! 










* 


IS LEFT OUT OF THE 


COMMANDS AND 80 CHARACTERS REQUESTED 










* . 


BY EACH READ SHOULD NOT BRING WRONG LENGTH RECORD INTO 












STATUS. 














001990 : 


07 






R0UT07 DC 


X«07« 


ROUTINE NUMBER j 


001991 


0009B0 




DC 


AL3(R0UT08-SECN0) 


ADDRESS OF NEXT ROUTINE j 


001994 


58 CO 


F 


B98 


L 


R12.RDR 


PUT THE READER ADDR INTO REG 12. 


001998 


41 AO 


F 


B40 


LA 


RIO.CHRD 


PUT ADDR OF CHAINED CCWS INTO-10. '! 


00199C 


92 50 


F 


B47 


MVI 


CHRD+7,80 


PUT COUNT OF 80 INTO COMMAND 1., I 


0019A0 


45 BO 


F 


112 


BAL 


RlltlSIO 


BR TO ISSUE START IH) I 


001 9 A4 


3C0O 






DC 


X^COO 1 


CTRL SWITCHES 


0019A6 


0190 






DC 


X , 0190 i 


T EST NU M B ER 


0019A8 


FOOO 






DC 


X'FOOO 1 


EXP COND. CODE AND SENSE 


0019AA 


FBE8 






DC 


AL2CEXP8- SECNO+REG! 


EXP 1ST CSW ADDR. 


0019AC 


OA D6 






SVC 


X«D6« 


ROUTINE EXIT 


00I9AE 








CNOP 


0,4 




0019AE 


07 00 






BCR 


0*0 





*************************************^ 

* ROUTINE 08 - ISSUE TWO READ FEED STACKER SELECT Rl COMMANDS COMMAND 

* CHAINED WITH THE FIRST COMMAND REQUESTING ONLY 79 

* CHARACTERS. CHAINING IS EXPECTED TO BE BROKEN BY THE 

* WRONG LENGTH RECORD INDICATION AND STATUS IS TESTED 

* FOR THIS CONDITION. 



0019B0 


08 




ROUT08 DC 


X«08* 


ROUTINE NUMBER 


0019B1 


0009 D4 




DC 


AL31ROUT09-SECNO) 


ADDRESS OF NEXT ROUTINE 


0019B4 


45 40 F 


6C0 


BAL 


R4.INIT 


BR. TO INITIALIZE 


0019B8 


41 AO F 


B40 


LA 


RIOtCHRD 


PUT CHAIN CMD CCW ADDR. INTO 10. 


0019BC 


58 CO F 


B98 


L 


R12tRDR 


PUT RDR ADDR. INTO REG 12. 


0019C0 


92 4F F 


B47 


MVI 


CHRD+7»79 


MOVE 79 INTO CCW COUNT. 


0019C4 


45 BO F 


112 


BAL 


RlltlSIO 


BR TO ISSUE START 1-0. 


0019C8 


3C00 




DC 


X^COO' 


CTRL SWITCHES 


0019CA 


0200 




DC 


X»0200 f 


TES T NU MB ER 


0019CC 


FOOO 




DC 


X'FOOO* 


EXP COND. CODE ANO SENSE 


0019CE 


FBF8 




DC 


AL2 ( E XP9- SECNO+REG } 


EXP CSW ADDRESS. 


0019D0 


OA D6 




SVC 


X«D6« 


ROUTINE EXIT 


0019D2 






CNOP 


0,4 




0019D2 


07 00 




BCR 


OtO 





* ROUTINE 09 - ISSUE A READ FEED STACKER SELECT Rl COMMAND WHICH DATA 

* CHAINS INTO FOUR DIFFERENT; PLACES. THE TOTAL COUNT WILL 

* BE EQUAL TO 80, THEREFORE, NO WRONG LENGTH RECORD 

* INDICATION SHOULD APPEAR IN STATUS • 
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0019D4 


09 






R0UT09 DC 


X«09« 


ROUTINE NUMBER 


0019D5 


0009FC 




DC 


AL3(R0UT10-SECN0I 


ADDRESS OF NEXT ROUTINE 


0019D8 


45 40 


F 


6C0 


BAL 


R4 9 INIT 


BR. TO INITIALIZE 


0019DC 


58 CO 


F 


898 


L 


R12t RDR 


PUT THE RDR ADDR. INTO REG 12. 


0019E0 


41 AO 


F 


B50 


LA 


RIO, DCNRD 


PUT ADDR. OF CCW INTO REG 10. 


0019E4 


92 14 


F 


B57 


MVI 


DCNRD+7,20 


PUT 20 INTO THE FIRST CCW. 


0019E8 


92 80 


F 


B64 


MVI 


DCNRD+20,X*80« 


PUT CHAIN FLAG ON IN THIRD CCW. 


0019EC 


45 BO 


F 


112 


BAL 


Rll, ISIO 


BR TO ISSUE START I-O. 


0019F0 


3C00 






DC 


X«3C00« 


CTRL SWITCHES 


0019F2 


0210 






DC 


X«0210* 


TEST NUMBER 


0019F4 


FOOO 






DC 


X»FOOO t 


EXP COND. CODE AND SENSE. 


0019F6 


FC08 






DC 


AL2 ( E XP 1 0- SEC NO* REG ) 


EXP 1ST CSW AODR. 


0019F8 


OA D6 






SVC 


X«D6« 


ROUTINE EXIT 


0019FA 








CNOP 


0,4 




0019FA 


07 00 






BCR 


0,0 





* ROUTINE 10 - ISSUE A READ FEED STACKER SELECT Rl COMMAND WHICH DATA 

* CHAINS INTO FOUR DIFFERENT PLACES. THE TOTAL COUNT WILL 

* BE EQUAL TO 100 THEREFORE, WRONG LENGTH RECORD SHOULD 

* APPEAR IN STATUS, AND CHAINING SHOULD BE BROKEN. 



0019FC 


10 






ROUT 10 DC 


X»10« 


ROUTINE NUMBER 


0019FD 


000 A24 




DC 


AL3(R0UTll-SECN0l 


ADDRESS OF NEXT ROUTINE. 


001 AOO 


45 40 


F 


6 CO 


BAL 


R4,INIT 


BR TO INITIALIZE. 


001A04 I 


58 CO 


F 


B98 


L 


R 12, RDR 


PUT RDR ADDRESS INTO REG 12. 


001A08 


41 AO 


F 


B50 


LA 


RlOt DCNRD 


PUT CCW ADDRESS INTO REG 10. 


001A0C 


92 28 


F 


B57 


MVI 


DCNRD+7,40 


PUT COUNT OF 40 INTO 1ST CCW. 


001 AlO 


92 80 


F 


B64 ! 


MVI 


DCNRD*20,X«80» 


TURN ON ONLY CHN DATA FLAG. 


001A14 


45 BO 


F 


112 


BAL 


R11,I5I0 


BR TO ISSUE START I-O 


001A18 


3C00 






DC 


X^COO 1 


CTRL SWITCHES 


001A1A 


0220 






DC 


X«0220 i 


TES T NUMBE 


001A1C 


FOOO 






DC 


X»FOOO f 


EXP COND. CODE AND SENSE. 


001A1E 


FC70 






DC 


AL2CEXP1I— SEC NO+REG) 


EXP 1ST CSW ADDR. 


001A20 


OA D6 






SVC 


X«D6» 


ROUTINE EXIT 


001A22 








CNOP 


0,4 




001 A22 


07 00 






BCR 


0,0 





* ROUTINE 11 - ISSUE A READ FEED STACKER SELECT Rl COMMAND DATA CHAINED 

* INTO FOUR DIFFERENT PLACES WITH THE SLI FLAG ON IN THE 

* COMMAND THAT REACHES TOTAL RECORD COUNT. EXPECT CHAINING 

* TO BE BROKEN BUT WRONG LENGTH RECORD SHOULD NOT APPEAR 

* IN STATUS. 



001 A24 ! 


11 






ROUT 1 1 DC 


X*ll» 


ROUTINE NUMBER 


001 A25 


000 A4C 




DC 


AL3(R0UT12-SECN0> 


ADDR OF NEXT ROUTINE. 


001A28 


45 40 


F 


6C0 


BAL 


R4,INIT 




001A2C 


58 CO 


F 


B98 


L 


R12,RDR 


PUT RDR ADDR INTO REG 12. 


001 A30 


41 AO 


F 


B50 


LA 


RIO, DCNRD 


PUT CCW ADDR INTO 10. 


001 A34 


92 28 


F 


B57 


MVI 


DCNRD+7,40 


PUT 40 INTO CCW COUNT. 


001 A38 


92 AO 


F 


B64 


MVI 


DCNRD+20tX'A0« 


TURN ON THE SLI FLAG IN THIRD CCW. 


001 A3C 


45 BO 


F 


112 


BAL 


R11,ISI0 


BRTO ISSUE START I-O. 


001A40 


3C00 






DC 


X»3C00* 


CTRL SWITCHES 


001 A42 


0230 






DC 


X , 0230 t 


TEST NUMBER 


001A44 


FOOO 






DC 


X*FOOO f 


EXP COND. CODE AND SENSE. 


001 A46 


FC70 






DC 


AL2CEXP11-SECN0+REG! 


EXP 1ST CSW ADDR. 


001 A48 


OA D6 






SVC 


X«D6« 


ROUTINE EXIT 


001 A4 A 








CNOP 


0,4 


ALIGN 


001 A4 A 


07 00 






BCR 


0,0 





* ROUTINE 12 - IF THE 1400 COMPATIBILITY BIT IS ON IN THE UDT ENTRY 



* FOR THE 2540, THE FOLLOWING TEST IS PERFORMED ON THE 

* READER- 

* A 1400 COMPATIBILITY READ NO FEED COMMAND CHAINED TO A 

* 1400 COMPATIBILITY FEED AND STACKER SELECT Rl IS ISSUED 

* • TO THE 2540 READER. 

* EXPECTED STATUS IS CHANNEL END IN THE FIRST CSW AND 

* DEVICE END IN THE SECOND CSW AFTER THE FEED CYCLE IS 

* COMPLETED. 
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A RESIDUAL COUNT OF I SHOULD BE IN THE CSW BECAUSE 
THE READER DOES NOT TRANSFER ANY DATA FOR THE STACKER 
COMMAND. 

IF THE PROGRAM HANGS IN A LOOP, A POSSIBLE CHANNEL 
ERROR MAY HAVE OCCURRED. THE OPERATOR SHOULD DO A PSW 
RESTART TO HAVE THE LAST OPERATION OUTPUT ON THE OUTPUT 
DEVICE 

**♦♦***♦**♦♦*******♦**♦****♦»♦***♦*♦♦**♦**♦♦***♦***♦*»* 



001A4C 


12 






ROUT 12 DC 


X«12» 


ROUTINE NUMBER 


001A4D 


000 A74 




DC 


AL3CR0UT13-SECN0) 


ADDRESS OF NEXT ROUTINE 


001A50 


45 40 


F 


6C0 


BAL 


R4,INIT 


BR TO INITIALIZE 


001A54 


91 08 


F 


0E1 


TM 


UNIT1+1,X»08» 


SEE IF 1400 COMPATIBLE 2540. 


001A58 


47 80 


F 


A70 


BC 


NONE t EXTl 


BR IF NO. 


001A5C 


41 AO 


F 


B88 


LA 


R10,CH14 


PUT ADDR OF 1400 RD CHAIN INTO 10. 


001A60 


58 CO 


F 


B98 


L 


R 12, RDR 


PUT RDR ADDR. INTO REG 12. 


001A64 


45 BO 


F 


112 


BAL 


R11,ISI0 


BR TO ISSUE START I-O. 


001A68 


3C00 






DC 


X»3C00« 


CTRL SWITCHES 


001A6A 


0240 






DC 


X»0240 t 


TEST NUMBER 


001A6C 


FOOO 






DC 


X»FOOO» 


EXP COND. CODE AND SENSE 


001A6E 


FCAO 






DC 


AL2 ( E XP1 8-SECNO+REG ) 




001 A70 


OA D6 






EXT1 SVC 


X»D6» 


ROUTINE EXIT 


001A72 








CNOP 


0,4 


ALIGN 


001 A72 


07 00 






BCR 


0,0 





*********************************************************************** 

* ROUTINE 13 - IF THE 1400 COMPATIBILITY BIT IS ON IN THE 2540 READER 

* UDT ENTRY THE FOLLOWING TEST WILL BE PERFORMED- 

* A READ NO FEED IS ISSUED TO THE READER. EXPECTED 

* STATUS IS CHANNEL AND DEVICE ENDS TOGETHER IN 1 CSW. 

* . A TIME LOOP IS EXECUTED TO ALLOW EXPECTED AUTOMATIC 

* FEED CYCLE DUE TO 6 MS PROVISIONAL FEED FOR THE 1400 

* FEATURE. 

* DEVICE END ALONE RETURNS AFTER AUTOMATIC PROVISIONAL 

* FEED CYCLE. 

* A FEED AND STACKER SELECT Rl IS ISSUED AND UNIT CHECK 

* IS EXPECTED IN STATUS OUE TO 2 FDS IN A ROW WITHOUT 

* INTERVENING READ. SENSE SHOULD HAVE THE COMMAND REJECT 

* BIT ON. 

* IF THE PROGRAM HANGS IN A LOOP, A POSSIBLE CHANNEL 

* ERROR MAY HAVE OCCURRED. THE OPERATOR SHOULD DO A PSW 

* RESTART TO HAVE THE LAST OPERATION OUTPUT ON THE OUTPUT 

* DEVICE 

*********************************************************************** 



001A74 


13 






R0UT13 DC 


XU3» 


ROUTINE NUMBER 


001A75 


000 ABO 




DC 


AL3«R0UT14^SECN0) 


ADDR OF NEXT ROUTINE 


001A78 «. 


91 08 


F 


0E1 


TM 


UNITl+l^OS 1 


SEE IF 1400 COMPATIBLE 2540. 


001A7C 


47 80 


F 


AAC 


BG 


N0NE,EXT2 


BR IF NO. 


001A80 


45 40 


F 


6C0 


BAL 


R4,INIT 


BR TO INITIALIZE. 


001A84 


41 AO 


F 


BIO 


LA 


R10,DGRD1 


PUT ADDR OF 1400 RD NO FD Rl IN 10. 


001 A88 


58 CO 


F 


B98 


L 


R12,RDR 


PUT RDR ADDR INTO 12. 


001 A8C 


45 BO 


F 


112 


BAL 


Rll, ISIO 


BR TO ISSUE START I-O. 


001A90 


3E00 






DC 


X*3E00« 


CTRL SWITCHES 


001 A92 


0250 






DC 


X«0250» 


T EST NUMBER 


001 A94 


FOOO 






DC 


X , FOOO» 


EXP COND. CODE AND SENSE. 


001 A96 


FC30 






DC 


AL2 ( E XPCOM-SECNO+REG } 


EXP CSW ADDRESS. 


001 A98 


41 AO 


F 


B18 


LA 


R10,RFS14 


PUT ADDR OF 1400 FD STK Rl IN 10. 


001 A9C 


58 CO 


F 


B98 


L 


R12,RDR 


PUT RDR ADDR INTO 12. 


001 AAO 


45 BO 


F 


112 


BAL 


Rll, ISIO 


BR TO ISSUE START I-O 


001AA4 : 


2800 






DC 


X'2800* 


CTRL SWITCHES 


001 AA6 


0260 






DC 


X'0260* 


T ES T NUMBE R 


001 AA8 


F180 






DC 


x'fiso* 


EXP COND. CODE AND SENSE. 


001 AAA 


FBBO 






DC 


AL2(E XP2- SEC NO+REG } 


EXP CSW ADDRESS. 


001 A AC 


OA D6 






EXT2 SVC 


XU>6* 


ROUTINE EXIT 


001 A AE 








CNOP 


0,4 


ALIGN 


001 AAE 


07 00 






BCR 


0,0 





* ROUTINE 14 ~ IF THE 1400 COMPATIBILITY BIT IS ON IN THE 2540 READER 

* UDT ENTRY THE FOLLOWING TEST IS PERFORMED. 

* A 1400 COMPATIBILITY READ NO FEED COMMAND CHAINED TO A 
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001 ABO 


14 






001AB1 


OOFFFF 




001 A84 


91 08 


F 


OEl 


001AB8 


47 80 


F 


AE4 


001ABC 


45 40 


F 


6C0 


001 ACO 


58 CO 


F 


B98 


001 AC* 


41 AO 


F 


B70 


001AC8 


45 BO 


F 


112 


001 ACC 


3E00 






001ACE 


0270 






001AD0 


FOOO 






001A02 


FC90 ; 






001 AD4 


41 AO 


F 


B28 


001 AOS 


45 BO 


F 


112 


001 ADC 


2A00 






001 ADE 


0280 






001 AEO 


FOOO 






001AE2 


FC50 






001 AE4 


OA D6 







NOOP COMMAND WHICH IS COMMAND CHAINED TO A 1400 FEED 
AND STACK SELECT Rl, IS ISSUED TO THE READER* 
THE NO-OP COMMAND SERVES AS AN INTERMEDIATE COMMAND 
BETWEEN THE 1400 READ AND SEPARATE FEED COMMANDS TO 
INSURE THAT NO EXTRANEOUS OATA IS RETURNED BETWEEN 
THESE TIMING CRITICAL 1400 COMMANDS. 

EXPECTED STATUS IS CHANNEL END RETURNED IN THE FIRST 
CSW AND DEVICE END RETURNED IN THE SECOND DUE TO THE 
FEED CYCLE. 

A RESIDUAL COUNT OF I SHOULD BE IN THE CSW BECAUSE 
THE READER DOES NOT TRANSFER ANY DATA FOR THE NO-OP 
COMMAND. 

A SENSE COMMAND IS ISSUED AND EXPECTED STATUS IS 
CHANNEL END AND DEVICE END IN ONE CSW. NO SENSE BITS 
ARE EXPECTED TO BE ON. 

IF THE PROGRAM HANGS IN A LOOP* A POSSIBLE CHANNEL 
ERROR MAY HAVE OCCURRED. THE OPERATOR SHOULO 00 A PSW 
RESTART TO HAVE THE LAST OPERATION OUTPUT ON THE OUTPUT 
DEVICE 



DC X«14* ROUTINE NUMBER 


OC 


X* OOFFFF 1 


LAST ROUTINE. 




TM 


UNITl+l,X-08* 


SEE IF 1400 COMPATIBLE 2540. 




BC 


N0NE V EXT3 


BR IF NO. 




BAL 


R4,INIT 


BR TO INITIALIZE 




L 


R12.RDR 


PUT RDR ADDR INTO REG 12. 




LA 


RIOtDRCN 


PUT ADDR OF 1400 RD CHAIN INTO 10. 


BAL 


R11*ISI0 


BR TO ISSUE START 1-0. 




DC 


X»3E00» 


CTRL SWITCHES 




DC 


X'0270» 


TEST NUMBE 


R 


DC 


X*FOOO» 


EXP COND. CODE AND SENSE. 




DC 


AL2(EXP17-SECN0+REG> 


EXP CSW ADDRESS. 




LA 


RIOtSNS 


PUT SENSE ADDR INTO REG 10. 




BAL 


R1UISI0 


BR TO ISSUE START I-C 




DC 


X»2A00* 


CTRL SWITCHES 




DC 


X'0280* 


TES T NUMBE 


R 


DC 


X"FOOO* 


EXP COND. CODE AND SENSE. 




DC 


A L2 ( E XP SN2- SECNO+REG ) 


EXP CSW ADDRESS. 




SVC 


X'D6« 


ROUTINE EXIT- 





001 AE6 


41 


50 


0 


050 


DWBF 


LA 


R5,80 


001 AE A 


41 


60 


F 


71C 




LA 


R6fRDAR 


001AEE 


D2 


01 


6 


000 4 000 


DTLP 


MVC 


0(2,R6) ,0(R4) 


001 AF4 


41 


66 


0 


002 




LA 


R6 f 2(R6) 


001 AF8 


46 


50 


F 


AEE 




BCT 


R5,DTLP 


001 AFC 


47 


F4 


0 


002 




BC 


UNC«2CR4) 



001 BOO 


25 


00171C 


0000 


OOAO 


DGWR 


CCW 


001 B08 


C2 


00171C 


0000 


0050 


DGRD 


CCW 


001B10 


D2 


00171C 


2000 


0050 


DGRD1 


CCW 


001B18 


33 


00171C 


2000 


0001 


RFS14 


CCW 


001B20 


03 


00171C 


2000 


0001 


NOOP 


CCW 


001 B28 


04 


00171C 


2000 


0001 


SNS 


CCW 


001 B30 


02 


00171C 


0000 


0050 


RD1 


CCW 


001 B38 


23 


00171C 


0000 


0001 


RFS1 


CCW 


001 B40 


02 


00171C 


4000 


0050 


CHRD 


CCW 


001 B48 


02 


00171C 


0000 


0050 




CCW 


001 B50 


02 


00171C 


8000 


0014 


DCNRO 


CCW 


001B58 < 


02 


001744 


8000 


0014 




CCW 


001 B60 


02 


00176C 


8000 


0014 




CCW 


001B68 


02 


001794 


0000 


0014 




CCW 


001 B70 


02 


00171C 


6000 


0050 


DRCN 


CCW 


001 B78 


03 


00171C 


6000 


0001 




CCW 


001 680 : 


33 


00I71C 


2000 


0001 




CCN 



EXT3 

* SET UP DIAGNOSTIC WRITE DATA HERE 

PUT 80 INTO REG 5. 
PUT ADDR OF BUFFER INTO REG 6 
MOVE TWO BYTES TO BUFFER 
ADD 2 TO BUFFER ADDR. 
BR UNTIL 160 CHARS MOVED. 
RETURN TO PROGRAM. 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦^^^^^^^^^^^^^^^^ 

♦ CCW AREA 

*+*******++**++**+**+****+*++****++**+****+++^^ 
X«25»,RDAR,X«00 , ,160 DI AG WR. CCW. 



X , C2 , tRDAR t X«00S80 
X , D2 , t RDAR,X , 20 , t80 
X»33«,RDAR, X«20%1 
X*03«tRDAR»X v 20 4 tl 
X»04 f tRDAR,X«20Sl 
X»02*tRDAR 9 X*00*t80 
X»23» ,RDAR,X»00' .1 
X , 02SRDAR,X«40S80 
X*02*,RDAR,X«00»,80 
X«02SRDAR 9 X'80*f20 
X • 02 • , RDAR+40 , X • 80 • t 20 
X 1 02 • »RDAR+80 »X • 80 %20 
X»02*tRDAR+120,X«00",20 

X"D2»,RDAR,X'60%80 1400 RD NO FO WITH CMD CHN. 
X»03«,RDAR,X«60S1 NO-OP 
X*33«,RDAR,X'20«,1 1400 FD STK SEL Rl. 



DIAG RD CCW. 

1400 READ NO FEED* 

1400 FEED STK SEL. 

NO-OP CCW 

SENSE CMD. 

RDt FDt STK SEL Rl. 

FD AND STK SELECT Rl. 

COM CHAIN CCWS. 

DATA CHAIN CCWS. 



DATE 

EC 



05MAY65 
124252 
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001B88 02 00171C 6000 0050 

001 B90 33 00171C 2000 0001 

001B98 00000000 

001 B9C 00000000 



1400 RD NO FD -CMD CHAIN- 
1400 FO STK SEL Rl. 



CH14 CCW X«D2 t tRDAR«X > 60 # »80 

CCW X'33*»RDAR»X*20*»1 

RDR DC F«0« 

PCH OC F'0« 

* EXP CSW AREA 



An 1 d in 
001 D AO 


00001B38 


EXP1 


DC 


A(RDl+8) 


001BA4 ! 


08000000 




DC 


X' 08000000* 




flAnnnnnn 
OOOOOOOO 




DC 


XL4* 00' 


001 B AC 


04000000 




DC 


X* 04000000 1 


001 BBO 


OOOOOOOO 


EXP2 


DC 


! XL4"00 t 


001 DD"r 


ft *>i\nn nnn • 

OOOOOOOO 




DC 


1 X* 02000000* 


Aft 1 DDB . 

UUl D DO 


OOOOOOOO 


EXP 3 


DC 


« XL4'00* 


nni nor 

UUl DDU 


UHUUUUUU « 




DC 


X* 04000000* 


nni nrn 
UUl otu 


UUUU 1 DUO 


CAP* 




a 1 r\r* ut» ±111 

AlDGWK+81 ' 


nni nrt 1 

UUl Dvt 


uuuuuuuu . 




DC 


X OCOOOOOO* 


nni nrn 
uu 1 DUO 


nnnnnnnn 
uuuuuuuu 


CAP? 


ft 4" 

DC 


' XL4'00* ■ 


om Rf r 






UU 


- A'lHUUUUUU* 


001 Rnn 


nnnn 1 ri n 

UUUU 1 DiU 


CAr O 


nr 


if nrnnxot 
At UuKutoi 


nni RD4 


nrnnnnnn ■ 




nr* 


A * utuuuuuu 


nni boa < 


onnniR4n 


EXD7 


fir 

uu ■ 


A f DC CI xftt 


001 ROC 

ww JL w> L/w 


oaoooooo 

w O v# w w w w w 




nf 
uu 


A " uouuuuuu w 


001BF0 

ww JL w w 


oonooono 

wwwwwwW 




nr 
uu 


yi xi nni 

AUH UU 


001BE4 l 


04000000 ' 




DC 


if • nrnnnnnn • 


001BE8 


0000 1B50 


EXP8 


DC 1 




001 BEC 


08000000 




DC 


x* oflonooon* 


001 BFO 


OOOOOOOO 




DC 


XL 4* 00* 


001 BF4 - 


04000000 




DC 


X* 04000000* 

A w^wWWwWW 


001 BF8 


00001B48 


EXP9 


DC 1 




001BFC 


08400000 




DC 


X' 08400000* 

f\ w W • www 


001 COO 


OOOOOOOO 




DC 


XL4*00* 


001C04 : 


04000000 ; 




DC 


X* 04000000* 

A w ~ w w w w w w 


001C08 


0000 1B70 


EXP10 


DC 


Al nrNRD+321 


001C0C 


08000000 




DC 


x* nflonnnnn* 


001C10 


OOOOOOOO 


EXP 12 


DC 


XL4'00* 


001C14 : 


04000000 




DC 


x * 04nonnnn* 


001C18 


OOOOOOOO 


EXP 13 


DC 


XL4"00* 


001C1C 


14000014 ' 




DC 


yi 1 4nnnm 4* 


001C20 


00001 B38 


EXP 14 


DC 


n 1 ISU X » O / 


001C24 ! 


OAOOOOOO 




DC 


y*nAnnnnnn* 


001C28 


OOOOOOOO 




nr 

UU 


XL4 * 00 * 


001C2C 


04noonnn 




nr 
uu 


A" UOUUUUUU' 


001C30 


00001B18 


EXPCOM 


DC 


At DGRDl-f 8) 


001C34 


nrnnnnnn 




nr 
uu 


A uuuuuuuu 


001C38 


OOOOOOOO 




DC 


XL4-00* 


001C3C 


f\L.nnnnnn 




Uu 


X' 04000000" 


001C40 


OOOOOOOO 


RD14 


nr 

uu 


xi 41 nn • 

AL1 UU ■ 


001C44 


08000000 




DC 


X» 08000000* 


001C48 


OOOOOOOO 




DC 


XL4»00* 


001C4C 


04000000 




DC 


X» 04000000" 


001C50 


0000 1B30 


EXPSN2 


DC 


AlSNS+8) 


001C54 


OCOOOOOO 




DC 


X- OCOOOOOO* 


001C58 


OOOOOOOO 


EXPNOP 


DC 


XL4»00» 


001C5C 


OCOOOOOO 




DC 


X* OCOOOOOO* 


001C60 


OOOOOOOO 


EXP 15 


DC 


XL4«00* 


001C64: 


08000000 




DC 


X # 08000000* 


001C68 


OOOOOOOO 




DC 


XL4*00» 


001C6C 


04000000 




DC 


X • 04000000* 


001C70 


00001B70 


EXP11 


DC 


A( DCNRD+32) 


001X74 ; 


08400014 




DC 


X* 08400014* 


001C78 


OOOOOOOO 




DC 


XL4*00* 


001C7C 


04000000 




DC 


X< 04000000" 


001C80 


OOOOOOOO 


EXP 16 


DC 


XL4«00* 


001C84 


08000000 




DC 


X* 08000000* 


001C88 


OOOOOOOO 




DC 


XL4»00» 


001C8C 


04000000 




DC 


X* 04000000 • 


001C90 


0000 1B88 


EXP17 


DC 


AfDRCN+24> 


DATE 


05 MAY 65 10AUG65 


15JUN67 






EC 


124252 125580 


130498 
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001C94 ! 
001C98 
001C9C 
001 C AO 
001CA4 1 
001CA8 ' 
001CAC 



08000001 
00000000 
04000000 
0000 1B98 
08000001 
00000000 
04000000 



DATE 
EC 



05MAY65 
124252 



EXP 18 



DC 
DC 
DC 
DC 
DC 
DC 
DC 



X • 08000001* 

XL4«00* 

X* 04000000* 

A1CM14416) 

X» 08000001* 

XL4*00' 

X» 04000000* 



POST ASSEMBLY DATA. 



REFERENCES TO DEFINED SYMBOLS. 



10AUG65 
125580 



15JUN67 
130498 







1 


8 


EQ 


134Et 


13 f A 














* . 


EQUATES 


1 


2 


HI 




















i 

i 


4 . 


i n 
LU 
















000000 


NEVER 


EQU 


o 


L 


n 


Qfi 
















000007 


NCCO 


EQU 






I 


Rl 
















OOOOOF 


UNC 


EQU ' 


15 




2 


R2 
















000008 


NONE 


EQU 


8 




3 


R3 
















000004 


SOME 


EQU 


4 






R4 ' 


16FAf 


17DC* 


1800* 


1818* 


184E * 


1870* 


187C 


000001 


ALL 


EQU 


1 








18B4, 


18E4* 


18F0y 


191C * 


1928, 


1956* 


19B4 


000005 


ANY 


EQU 


5 








19D8t 


1A00* 


1A28* 


1A50* 


1A80* 


1ABC* 


1AEE 


000008 


CCO 


EQU 


8 








1AFC 














000004 


CCl 


EQU 


4 


I 


5 


R5 


153C, 


170C* 


1AE6* 


1AF8 








000002 


CC2 


EQU 


2 


I 


6 


R6 


lAEAt 


1AEE* 


1AF4* 


1AF4 








000001 


CC3 


EQU 


1 


I 


7 


R7 
















000008 


EQ 


EQU 


8 


I 


8 


R8 


112Ct 


12B6* 


12BA* 


131E* 


1322* 


1340* 


1340 


000004 


LO 


EQU 


4 








1344t 


139A* 


139E* 


1450* 


1454* 


1458* 


1458 


000002 


HI 


EQU 


2 








145Ct 


154E 












000006 


UNEQ 


EQU 


6 


I 


9 


R9 


112Ct 


1186, 


118A* 


1196* 


11F2, 


1IF6* 


1202 


OOOOOC 


EQLO 


EQU 


12 








1258, 


12AE, 


12B2* 


12CE* 


13F6* 


1424* 


1466 


OOOOOA 


EQHI 


EQU 


10 








147 E 9 


1496, 


14AE* 


154E, 


1832* 


1836* 


183A 


000080 


LOGOUT 


EQU 


X»80* 


I 


198 


WT 


1186t 


11F2* 


12AE* 


1832 








000181 


SYSMOD 


EQU 


X'161 9 - 


1 


1 


ALL 


114At 


HEAy 


1222* 


127A* 


129A* 


120 A y 


It 16 


00 FOOD 


REG 


EQU 


X*FOOO* 








1362* 


1382* 


13BA* 


153C* 


16E8 






00005A 


WHAT 


EQU 


90 


1 


5 


ANY 


1534 














000000 


RO 


EQU 


0 


4 


1048 


CAW 
















000001 


Rl 


EQU 


1 


1 . 


8 


CCO 


1192* 


HBO 












000002 


R2 


EQU 


2 


1 


4 


CCl 


llB4t 


12CA 












000003 


R3 


EQU 


3 


1 


2 


CC2 


11B8 














000004 


R4 


EQU ' 


4 


1 


1 


CC3 
















000005 


R5 


EQU 


5 


8 


1040 • 


CSW 
















000006 ' 


R6 


EQU 


6 


2 


100 A 


I CM 
















000007 • 


R7 


EQU 


7 


.41 


1186 


I HI 


) 116 Ay 


117A 












000008 


R8 


EQU 


8 


2 


10 E8 


ISW - 


: 119 Ay 


H9A* 


11A0* 


HD6* 


HE 2* 


11 EE, 


UFA 


000009 


R9 


EQU 


9 








120 Ay 


121A* 


121E* 


122C* 


12!SC* 


126A* 


1276 


OOOOOA 


RIO 


EQU 


10 








127E, 


128E, 


129E, 


1206* 


12E2* 


12F6* 


1316 


000008 


Rll 


EQU 


11 








1338y 


1352* 


135E* 


146A* 


149A * 


1488 y 


1510 


OOOOOC 


R12 


EQU 


12 








1518, 


1538, 


16E4, 


1708* 


1710 






OOOOOD 


R13 


EQU 


13 


4 


154 A 


IUP 


1542 














OOOOOE 


R14 


EQU 


14 


16 


1680 


MDR 


1558, 


1564 












OOOOOF 


R15 


EQU 


15 


4 


1B9C 


PCH 


1604, 


17EA, 


1822* 


1854* 


1874* 


18E8* 


1920 


000198 


WT 


EQU 


408 








194E 














000040 


HCSM 


EQU 


64 


• 1 


A 


RIO 


1128* 


1136i 


13D4, 


13F0* 


13FA* 


1402* 


1402 


000048 


HCAN 


EQU 


72 








152C, 


16F6, 


1808* 


181E, 


1858* 


1878, 


1892 


0001A0 - 


DMSSW 


EQU 


X'OIAO* 








18BC, 


18CC, 


18EC, 


1906* 


1924* 


193E, 


1952 






END 


R0UT01 








196C, 


197C# 


1998, 


19B8, 


19E0, 


1A08, 


1A30 
















lA5Cy 


1A84* 


1A98, 


1AC4, 


1AD4 














1 


8 


Rll 


1122, 


1128* 


1146, 


11E6* 


126E, 


1286* 


12FA 
















1304* 


130E, 


131E, 


1330* 


1386* 


139E* 


13A0 
















13B2y 


13B2* 


1386* 


1426* 


1442* 


1450* 


1482 
















14B2y 


153E, 


1546, 


1546* 


154A* 


154A* 


1552 
















17E0, 


17EE* 


180C* 


1826* 


1842* 


185C* 


1882 
















1896, 


18A2* 


18C0* 


1800* 


18F6* 


190A* 


192E 
















1942, 


195C* 


1970* 


1980* 


19A0* 


19C4* 


19EC 
















U|4y 


1A3C* 


1A64* 


1A8C* 


1AA0, 


1AC8# 


1A08 










1 


C 


Rll : 


115E, 


116E, 


117E* 


118E, 


11AC* 


1212* 


12BE 
















12C6* 


155C* 


16CC, 


16D0, 


1604* 


1608# 


16DC 
















16E0* 


17EA* 


1804* 


1822* 


183E* 


1854, 


18T4 
















188E, 


18B8* 


18E8, 


1902, 


1920, 


193Ay 


194E 
















1968* 


1994| 


19BC, 


19DC, 


1A04, 


IA2C, 


1A60 
















1A88* 


1A9C, 


1AC0 


















1 


D 


R13 


1136* 


113A, 


113A* 


11D0, 


12BA, 


itti» 


152C 
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1 


E 


R14 


1 


F 


R15 


8 


1830 


RD1 


4 


1898 


RDR 



8 
8 
8 
6 

4 
1 
1 
4 

4 
4 

4 . 

4 : 

4 

4 

4 : 

4 

2 

2 

2 

4 

1 

1 
16 

3 

6 
12 : 

3 

1 

3 

4 

3 

4 

2 

4 

4 i 

4 

6 

4 1 

4 : 



FOOO 



1B28 
F 



1B88 
1B40 
1B08 
1600 
1B70 
1AEE 
1AE6 
A 
C 

1BA0 
IBBO 
18B8 
1BC0 
1BC8 
1BD0 
1BD8 
1BE8 
1BF8 
1A70 
1AAC 
1AE4 
118E 
48 
40 ; 
17BC 
15EF 
1304 i 
15C3 
15D2 
1421 
15CF 
149A 
15F2 
10EA 
16C0 

11E2 
126E 
11CC 
14B2 
1286 
1112 



1264 
12CE . 
10FE . 
11C4 : 



REG 



SNS 
UNC 



CH14 

CHRD 

DGRD 

DGWR 

DRCN 

DTLP 

DWBF 

EQHI 

EQLO 

EXP1 

EXP2 

EXP3 

EXP4 

EXP5 

EXP6 

EXP7 

EXP8 

EXP9 

EXT1 . 

EXT2 

EXT3 

GREG 

HCAW 

HCSW 

HUNG 

IACT 

IBSN 

I CAW 

ICCW 

ICNT 

ICSW 

IDID 

IEXP 

IHIO 

INIT 

INOW 
INT3 
IONE 
IPAS 
ISEN 
ISIO 



ISV2 
ITIC 
ITIO 
ITHO 



DATE 
EC 



05 MAY 65 

124252 



10AUG65 
125580 : 



16C0, 16C0t 

1140 f 1140t 

16C2, 1832 

1226, 1234, 

1808, 1892, 

16E0, 1804* 

1968, I994t 

1A88, 1A9C, 

1246, 1398t 

1436, 14CCt 

1564, 1706 t 

18A0, 18AC, 

194C, 1966» 

1A1E, lA46t 

1AD4, 1C50 

10FA, HOEt 

120E, 1230, 

1406, 1424, 
1AFC 

1A5C, 1CA0 

1998, 199Ct 

I8BC9 193E, 

181E, 1858» 

1AC4, 1C90 
1AF8 

1818, 184E 9 187C« 18F0, 1928, 1956 



1966 



1188 



16CA 










1 186, 


a Arc , 


ICAC 9 


l^Ufc 9 


1*C4 


1264, 


iOUA 








1 OTP * 


1DAU, 


IvZO 






183E, 


188E, 


I8B89 


1902 9 


193A 


19BC» 


19DC, 


1A04, 


1A2C# 


1A60 


1AC0 








13B0, 


13CA, 


13E4, 


1422 v 


1430 


14DA, 


150E, 


1524, 


152A, 


1558 


1816, 


1830* 


184C, 


I8669 


188C 


18CA, 


18DA* 


1900, 


19149 


1938 


197A, 


198A, 


19AA, 


19CE, 


19F6 


1A6E, 


1A96, 


1AAA, 


1AD2, 


1AE2 


1162, 


1182» 


IICO9 


IIC89 


11DA 


1260, 


1282t 


12D2, 


12DE9 


12EA 


151C, 


15529 


1566 9 


I6FA9 


1714 


19B8, 


19C0» 


IBE89 


1BF8 




1BD0 










1878, 


18EC# 


1924 f ' 


1952 9 


IB CO 



1816, 


I8AC9 


198A 




18309 


1914 v 


1AAA 




184C 








I8669 


I88C9 


1900, 


1938 9 


I8CA9 


194C 






19AA 








19CE 








1A58 








1A7C 








1AB8 








1196 








1136, 


12BA, 


152C 




113A, 


113A, 


IIDO9 


12269 


1706 








12529 


1472 f 


14A2 




1292* 


12A2, 


12AA 9 


1202 


13D4, 


13DC, 


13DE, 


13E4 


13E6 








124E, 


13EC, 


143E 




1248 9 


1438 






1486 








144A V 


148A 






17DC, 


I8OO9 


18709 


18B4, 


19D8, 


IAOO9 


1A28, 


1A50, 


114A, 


IICO9 


11C 89 


11DA 


1230 








11B4 








149E 








11EA, 


120E9 


12729 


127A 


I8OC9 


18269 


185C, 


1882 9 


18D0, 


I8F69 


190 A 9 


192E, 


1980, 


19A0, 


19C4, 


19EC, 


1A8C, 


1AA0, 


1AC8, 


1AD8 


1222 








12F2 








17E0, 


17EE, 


1842 





12349 1264# 12EE 



18E49 



191C, 



1984 



1896 v 18A2, 18C0 
1942 v 195C, 1970 
U14, 1A3C, 1A64 



15JUN67 
130498 



ID F811-2 
PAGE 14 



DATE 
EC 



6 


1234 : 


IUIO 


6 


1 19A 


JOHN 


1 . 


168B 


MSK1 


* 


168C 


MSK2 


1 * 


7 < 


NCCO 


* 


100D 


NIOU 


* 


8 ' 


NONE 


O 


IDcU ■- 


Kinno 

IMUUr 


4 i 


1C40 


RD14 


1 


171C 


RDAR 


2 


1554 ' 


RDYM 


8 ' 


1B38 


RFS1 


1 


168D 


RTSV 


I 


100C 


SDMF 


4 ! 


1004 


SNSW 


1 


4 


SOME 


3 


105D 


SRET 


1 


10E1 


U10P 


1 . 


10 E5 


U20P 


1 


6 


UNEQ 


1 


5A 


WHAT 


1 


1578 


WORK 



1 

4 

4 : 
4 
4 
4 : 
4 : 
4 : 
4 
4 
1 
1 
16 



8 
4 
4 
4 
16 
4 

4 : 
4 

5 

3 

6 
16 
16 

4 

8 

4 

4 



16 E4 
1B50 

1B10 
1A0 
1C08 
1C70 
1C10 
1C18 
1C20 
IC60 
1C80 
1C90 
1CA0 
100E 
100F 
15D5 

140A 
1666 
166E 
1510 
146A 
116E 
15B3 
12EE 
115E 
1352 

1010 : 

1688 

1438 

160B 

1630 

14DC 

1570 

11AC 

1156 



BLOOP 
DCNRD 

DGRD1 
DMSSW 
EXP 10 
EXP11 
EXP12 
EXP13 
EXP 14 
EXP15 
EXP16 
EXP17 
EXP 18 
FLAG1 
FLAG2 



05 MAY 65 
124252 



10AUG65 

125580 : 



1216 

1152, 

11FE 

1206 

11729 

1152, 
12A2, 
13FE, 
1542, 
16F6 

I6EC9 
1B18, 
1B50, 
1B88, 
137A, 
I8CC9 
1130, 

114E, 



1216, 

1234, 

1460, 

14F0, 

1714 

19E0, 

1A34, 

1A84, 

19F6 
IAIE9 



18A0 
18DA, 

1AD2 
1A6E 



1192 



12C2, 


12F2 










1 15A, 


II6A9 


117A, 


1272 # 


128A 9 


1292 


12AA, 


13129 


131A, 


1334 4 


133C 9 


136A 


14469 


146E, 


1486, 


149Et 


14BC9 


1514 


I6C69 


1A58, 


lA7C f 


1AB8 






I6FO9 


I6FO9 


IAEA, 


IBOO9 


IBO89 


1810 


1B20, 


18289 


IB 30 9 


1B38, 


1B40, 


1B48 


1B58, 


1B60, 


IB 68 9 


1B70, 


1B76# 


1880 


1B90 












1382 












1906, 


196C9 


1BD8 








16FC 












1156, 


1166, 


1176 t 


1366, 


1530 




1300, 


130A, 


132C, 


13D0, 


14E0 




13F0, 


140E, 


1410, 


1412 f 


I418 t 


1460 


14789 


1490, 


1490, 


14A8, 


14E4, 


14EE 


14F2« 


14F89 


14FE, 


1504 






19E4 f 


19E8, 


1A08, 


IAOC9 


1A10» 


1A30 


1A38, 


ICO89 


1C70 









1C30 



1A46 



197A 



I BLAH 


1248, 


1252, 


13E6, 


14129 


1418, 


14229 


1438 




144A, 


1472, 


148A, 


14A2 








ICOUT 


1258, 


13F6, 


1466, 


147E f 


1496, 


14AE 




ICSW1 


11D0, 


1226, 


1296 9 


1326, 


1326, 


137E, 


1478 «. 


ICSW2 


1264, 


12A6, 


1348 9 


1348* 


14A8 






ICUIO 


14E0 














IDIDI 


1446 














IHANG 


1182 














IL INK 


> 13A0, 


13A8» 


13AA, 


13B0, 


152 A 






ILOKE 


12CA 














ILOOP 


10F6, 


11029 


1116 










INDER 


12C2, 


12DA, 


12E69 


1300, 


130A9 


131A, 


132C 




133C 














INPSW 
















IOADR 


13C2 














IOCSW 


13BA 














IOLOG 


14F2, 


14F8, 


14FE, 


1504, 


150E 






I0PT1 


10EE* 


1106* 


IIIA9 


1524 ' 








IPASS 


14BC 














ISAVE 


112C, 


154E 












ISSUE 


10EA, 


10FE, 


1112 9 


13CC# 


1688 






ITRY1 


1162, 


1172 9 


1534 .: 











15JUN67 
130498 
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DATE 

EC 



4 I 


1166 


ITRY2 


16 


168E 


IUNEX 


4 


11F2 


IWAIT 


4 


11DE 


IZERO 


4 l 


1718 


M0D50 


1 


0 


NEVER 


8 


1B18 


RFS14 


4 


1000 


SECNO 



4 
1 

l ; 

13 
5 
8 

.4 : 

4 

4 

6 
11 
10 

6 

6 

6 

6 

6 

6 
.4 
-.4 ' 

*o: 
11 

6 

l 
l 

.,4 ! 
6 

;.4 ! 
.4 : 

4 ! 
15 

4 ! 

8 

2 

4 I 
4 
4 ! 
8 

8 < 
4 

9 « 
1 
8 
8 

.4 ' 
8 4 
8 
I 
1 
1 



17E0 
10E0 
10E4 
16A3 
1058 
1018 
1C30 
1C58 
1C50 
16FC 
1600 
159A 
1426 
1326 
1348 
1460 
1490 
13F0 
12AE 
1356 
1590 
15F5 
1122 
1396 
1522 
153E 
14E4 
1482 
12D6 
12 E2 
15A4 
1078 
1038 
1520 
1376 
1212 
1136 
1678 
1680 
12C6 
1627 
80 
1070 
1030 
16CC 
1068 
1028 
17D8 
17FC 
186C 



START 
UNIT! 
UNIT2 
BYPASS 
EXNPSW 
EXOPSW 
EXPCQM 
EXPNQP 
EXPSN2 
HANGUP 
IACSNS 
IACTCC 
ICCOUT 
ICCSW1 
ICCSW2 
1CHNG1 
ICHNG2 
ICWQUT 
IDOSNS 
IDUNCK 
IEXPCC 
IEXSNS 
IEYEOH 
IFL AG1 
IFfcAG2 
REAVE 
I LOG ED 
IMORST 
IN0EX1 
IN0EX2 
I OADDR 
IONPSW 
100PSW 
IOPOUT 
IOUTIT 
IRETRN 
I RETRY 
ISENSE 
ISLAVE 
ITIOLP 
ITSTNO 
LOGOUT 
MCNPSW 
MCOPSW 
NITWIT 
PGNPSW 
PGOPSW 
ROUT 01 
R0UT02 
ROUT 03 



05 MAY 65 

124252 



10AUG65 
125580 



115A 

1240 t 

1282, 

11B0 

16D0, 

1A98 



16CC 



1A96 

1AE2 

16E8 

11A4« 

11A8, 

13D0, 

1322 

1344 

1454 

145C 

1406 

128A, 

12DE. 

1426, 

14B2, 

lOFAt 

1356, 

135A, 

136A 

1260 

146E 

1312 

1334 

10F2, 

1212, 

1514 : 

1362 

107C 

1566 

12B6 

1128 

12CE 

1122, 

1140, 



16C6 



1015, 

17D9 

17FD 



1246 
151C 



16DC 



1130, 


123E, 


1240, 


1246, 


1390, 


1392, 


1398 


13A8, 


13AA, 


13B0, 


13C2, 


13C4, 


13CA, 


13DC 


13DE, 


13E4, 


140E, 


1410, 


1422, 


1430, 


1436 


14C4, 


14C6, 


14CC, 


14D2, 


14D4« 


14DA, 


14EE 


14F0, 


150E, 


1524, 


152A, 


1558, 


1564, 


16FC 


1706, 


17D9, 


17FD, 


1816, 


1830, 


184C, 


1866 


186D, 


188C, 


18A0, 


18AC, 


18B1, 


18CA, 


18DA 


18E1, 


1900, 


1914, 


1919, 


1938, 


194C, 


1966 


197A, 


198A, 


1991, 


19AA, 


19B1, 


19CE, 


19D5 


19F6, 


19FD, 


1A1E, 


1A25, 


1A46, 


1A4D, 


1A6E 


IA75, 


1A96, 


1AAA, 


1AD2, 


1AE2 






16D8, 


1A54, 


1A78, 


1AB4 









UFA, 
11BC, 
13FE 



1376, 
11C 4, 



1402* 1404^ 
UCC, 1 1 IDE , 



14DA, 1678 
1304, 1436 



lUMi 170C 

mm* 134E 

1430 

IW4, 1406, I4CC 
UPE 

»ME 

1372 



110A, 
123E 



111E« 13C4» 13CA 



1386, 
1140, 



1CB0 



1390, 
14E4 



1392, 1398 



1 


18B0 


ROUT 04 


I860 


1 


18E0 


ROUT 05 


18B1 


1 


1918 


ROUT 06 


18E1 


1 


1990 


R0UT07 


1919 


1 


19 BO 


ROUT 08 


1991 


1 


19 D4 


R0UT09 


19B1 


1 


19FC 


ROUT 10 


19D5 


1 


1A24 


ROUT 11 


19FD 


1 


1A4C 


ROUT 12 


1A25 


1 


1A74 


ROUT 13 


1A4D 


1 


1AB0 


ROUT 14 


1A75 


8 


1060 


SVNPSW 




8 


1020 


SVOPSW 




1 


181 


SYSMOD 


140C 


2 


10E2 


U1ADDR 




2 


10 E6 


U2ADDR 




1 


1000 


XF8112 





15JUN67 
130498 



ID F8U-2 
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NO ERROR DETECTED IN ABOVE ASSEMBLY 



DATE 
EC 



05MAY65 
124252 



10AUG65 
125580 : 



15JUN67 
130498 
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F811 2540 RO FUNCTION SEC 2 



PERIODS CORRESPOND TO BLANK COLUMNS* 



COLS* 1 THROUGH 20 



BESD. « 
9 



BTXT. AAA. 

9 YQY 
999 

BTXT. AA8. 

9 YQ9 
99 

BTXT.AAO. 

9 YQ+ 
99- 

BTXT.AAS. 
9 YQ8 
99 



•AA..AAXF81 

YQ Y9 
99 9 

• A8. • AA8 JJA 

Y9 Y9 9YY , 
9 9 99 

• A8* • AAAAAA 
Y9 Y9YYYY 
9 9 9999 

• AA* • AAAAAA 
YQ Y9YYYY 
99 9 9999 

• A8. • AAAAAA 

Y9 Y90YYY . 
9 9 9 9 



COLS. 21 THROUGH 40 



12..AAAA.ADA... 

YYQY Y8Q 
9999 990 

AAAAAAAAABOAADAAAAPQ l 
YYYYYYYYY9+Y99YYYY9 
999999999 9 9999 

AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 



A AAAADAAAAKK •••..»•• 

YYYY99YYYY99 

9999 9999 

BAAAAABF 1MBH6ABH5ABF 
OYYYYY-Q Y- 8- Q-Q 
9 999 0 



COLS* 41 THROUGH 60 
......840 



AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

AAAAAAAAADAAAAAAAAAA 
YYYYYYYYY9YYYYYYYYYY 
999999999 9999999999 



10G01 SBE 1 MBE 1 0BT6 ABT 
8Z 9-Q Y-Q 8- 8- 



COLS* 61 THROUGH 80 
189* 130498 . .81 120001 



AAAAAA AAAAAA81 120002 

YYYYYYYYYYYY 

999999999999 

AAAAAAAAAAAA81 120003 

YYYYYYYYYYYY 

999999999999 



.81120004 



5AG01SBD1MBD81120005 
QZ 9-Q Y-Q 
0 



BTXT.AJQ..A8..AA10BS 
9 Y99 Y9 Y9 8- 
9 9 9 

BTXT. AJ+.. A8. • AAODGA 
9 Y9 Y9 Y9 9ZY 
9 9 9 

BTXT* A JH. . A8* • AAAHHA 
9 Y90 Y9 Y99-0Q 
9 9 9 

BTXT.AJ0..A8..AAG01S 
9 Y9* Y9 Y9Z 
9 9 9 

BTXT. AJ8. . A8. . AAACFA 
9 Y9 Y9 Y9Y9-Y 
9 9 9 9 

BTXT* AKA* • A8 • . AAG02M 
9 Y9Q Y9 Y9Z 8 
9 Z 9 9 

BTXT . AKQ. . A8* . A AO • F J 

9 Y9Z Y9 Y9 -Y 
9 9 9 9 

BTXT . AK J. • A8. . AAOYGA 
9 Y9Y Y9 Y9 ZY 
9 9 9 

BTXT* AKQ.. A8.. AAOYGA 
9 Y9 Y9 Y9 ZQ 
9 9 9 9 

BTXT. ALA. .A8.. AAAAGA 
9 Y9Q Y9 Y9QYZY , 
9 9 9 9 09 

BTXT. ALH* . A8. • AANG6W 
9 Y9Z Y9 Y9 9 8 
9 9 9 



6ABS5AK A6UABAL 6AA 1 50 
8- Q 9 8Q9QY YQO ♦ 
0 90 

1BAA0DGA1ODA0AG01FA. 
Q-Y 9ZY ZQY+YZ R- 
9 9 

ACEA0AGA1BFA 1FPA0Y0Y 
Y9QY+YZY QZQ Y 9 
9 9 9 

B25GG01SB15GKG600.F. 
- QZ - Q9I-- 



OYAA6CFA2BAA6DD70YG0 
YY YZQ 9YY Y-8 Z 
9 9 

KG5H0.BEABA2FGB0MN6F 
9 R 8QY9Y89Q8-Z9 Y 
0 999 99 9 

0YAAAAGA2FAH0YGA2FFH 
-QQYZY 0-9 ZQ 0-9 
909 9 

3DAB6BGA3DHFAHHAADAA 
9-9 RZY 9RQ9-0QY9ZY 
0 9 

3BG03FAJOYGA38G03FED 
RZ R-Y ZQ RZ R-8 
9 9 9 

20A.0YGA3BHCAF.A3SNG 
• : ZY RZYY9 Y 8 9 
9 9 

6WGA3FFA0YBM3FB05SAA 
8ZY R-9 -2 — ♦ 9-9 



KA6E0C+NAHPG0.0. PCSA 

Y Y 9 YYZ 9 88Y 

9 9 9 

0DGA1FEA0AG01FA.0DGA 
9ZY OQY+YZ+ R- 9ZY 
9 9 - 

FA0YBX6EBX5GDA0AGA1F 
-Y - 9- QQY+YZY Q 
9 9 9 

0YG01 SB05GD70YA. AAG A 
Z - Q-8 - QYZQ 
09 9 

2FA002G-24D70YA.0YGA 
08*82 9-8 - ZQ 
9 9 

KB 505GB K4/KB5M5PEA4B 
9 Y-8 9 9 Y YZQ 8 
9 9 9 9 9 

0YG012ABAAGA20A* OYGA 
Z -9QYZY Y- ZY 
09 

6H+EAHDA0AG03BEA0AG* 
R YYZQY+YZ* RQY+YZ 
0 9 9 9 - 9 9 

0DG02FFD0YNA6E AEG— 3 0 
-ZZ* Y-9 Y 9Q9Z R 
- 9 9 0 

6060G-3BADAAGA2SAJ0Y 
Z ZZ R-9QYZY -Y 
09 9 

0YGA3FAA0DGA56BU3FBA 
ZQ R-9 9ZY 8-9 — Y 
9 0 9 



SAAAAAGA1SA081 120006 
8Y-YQYZQ -* 
09 9 

1F0A0AG01WHF81 120007 
OQY+YZ 8RQ 
9 9 

G.1DGJ1DB35G81120008 
Z YZY - Q 
9 9 

2FFA0YHFAHHA81120009 
0-Q RQ9-0Q 
9 

2MKG600.F.0Y81 120010 
Z 9 Z - 



FB0YG04UKG6W81 120011 
-9 Z 9 8 



3DAB6+GA20AJ81 120012 
9-9 -ZQ Y-Y 
9 9 

20FA2FG03DA.81 120013 
YZQ Z 9- 

9 

NA5GADG-3BAH81 120014 
Y QQ9Z R-9 
9 0 

6A3BAHAH.A3D81 120015 
ZY RZ0Y9 Y 8 
9 

5SE.6EGA5DAA81 120016 
9- 9ZY R-9 



OATE 

EC 



05MAY65 
124252 



10AUG65 
125580 



15JUN67 
130498 



ID FBI 1-2 
PAGE 16 
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F811 2540 RD FUNCTION SEC 2 



BTXT.ALA.. A8. • AA6+GA 
9 Y9Y Y9 Y9 -ZQ 
9 9 9 9 

BTXT. ALH. . A8» • AAAAGA 
9 Y90 \ Y9 Y9QYZQ 
9 - 9 9 09 9 

BTXT* ALO.* A8* • AAKG5H 
9 Y9 Y9 Y9 9 R 
9 9 9 0 

BTXT. AMY. • AB* • AA5E AD 
9 Y99 Y9 Y9 -Q9 
9 9 9 0 

BTXT* AM-* • A8* • AAKG5H 
9 Y9 Y9 Y9 9 R 
9 9 9 0 

BTXT.AMH.. A8. . AA4BAJ 

9 Y9- Y9 Y9 8-Y / 
9 9 9 9 9 

BTXT* AMO». A8« • AAAAFE 
9 Y9- Y9 Y9Y999 
9 9 9 9 

BTXT* ANH* • A8 • • AA5 BBO 
9 Y99 Y9 Y9 Y8- 

9 9 9 9 

BTXT. AN... A8. -AAAAGA 
9 Y9 Y9 Y9QYZY 
9 9 9 09 

BTXT. ANA.. AU..AA.CC. 
9 Y9Q Y9 Y9 
9 9 9 

BTXT. ANC..AJ..AA. ADR 

9 Y90 Y9 Y9 
9-9 9 

BTXT. ANC. . A8. • AA.CAW 

9 Y9 Y9 Y9 
9 9 9 

BTXT. ANC. . AS. • AAX .EX 

9 Y9Q Y9 Y9 
9 Z 9 9 

BTXT. A03«. A8« • AAT.SS 
9 Y99 Y9 Y9 
9 9 9 

BTXT. A0T..A8.. AAAAAA 
9 Y98 Y9 Y9YYYY 
9 9 9 9999 

BTXT. AOL*. A8. • AA.RTN 
9 Y90 ; Y9 Y9 
9 9 9 

BTXT,A0C..A8..AASD07 
9 Y9Q Y9 Y98R* 
9 9 9 9 



5DK A6UABBEABFUFUB0MA 
R 9 8Q98QY998988-Z8 
90 999 9 99 9 

48BEACFHERB0JG5MED1M 
98QY990908-Y8 0-Q Y 
999 9 9 

J AE A4B AO J DGA4W AK AHGO 
YYZQ.8-+Y9ZY 9ZYY9Z 
9 9 9 

B0JB5AB0JB5BKB505GBK 
8-Y8 Q8-Y8 Q 9 Y-8 
9 9 9 9 9 9 

5HEA4BA.0YGA4BKB5M5P 
RZQ 8- ZY 0 9 Y Y 
0 9 9 9 

0YGA4BKB5M5PKG5H6WEA 
ZY 0 9 Y Y 9 R 8ZQ 
9 9 0 

FEB0JC6AEAJAG-5AKC5H 
998-Y8 Y-QZOZ Q 8 R 
9 9 9 Z 9 9 0 

JM6CABOYGA5JDEOYG012 
Y8 8-9 ZY Y-Q Z 
9 9 9 Z 

5BACABACAFHI 50GCBOUA 
8ZQY9ZQY9-0 +9Q8-9Q 
09 09 - Z9 9 

.X.EXP.CC..X.ACT.ADR 



.XXXXXX.LINKA....... 

Y 
9 

•XXXXXX*CSWCCM*CSM*X 



P. SNS.XX.ACT.LOG. XX. 



.0. ON. FOR. LOOP. ON. XI 



AAAAAAAAADAOEAAAAAAA 
YYYYYYYYY9Y99YYY9YYY 
999999999 9 999 999 

•BYPASSED. MAKE. DEVIC 



Q+0CHAA0YGA6DB.7MKF? 
9 *Q— ?Y ZQ Q- 8 Q 
Z 9 Z 9 



6XAAADLH4-A5HBEACEIEH 
9ZYY980 Q 08QY99090 
9 9- 0 -999 - - 

G-4W+ J5HBEACE1EHB0JC 
Z 9 Y 8QY99 9 8-Y8 
999 9 9 

30BEAHEHEHKG5B5HKG5T 
8QY99R9R 9 Q R 9 
999 0 0 9 0 

4/AHAAGA4+KB5M52HCAF 
9-9QYZY - 9 Y ZYY9 
09 9 9 

KG5H60EA4BADAAGA4BKB 
9 R ZZQ 8-9QYZY Q 9 
0 9 09 

4BKA5BAEAD0YGA4DBEAA 

8 Y QQ9-9 ZY Q8QY9 

9 9 ZO 9999 

SABEADEHEHKA6A5HKE6L 
8Y8QY89R9R 9 Q R 9 9 
9999 0 0 9 0 

B0066AB0JA5C+NAHA00D 
8-+9 Q8-*Y9 0 YYZ** 9 
9 Z9 - 9 

6ABBEA0AB0AA6AG016GA 
Q8QQY+Y8-Y9 QZ 99Y 
099 9 99 0 9 



•XXXXXX.XIOA* 

Y 
9 



XXXXXXX* XXXXXXXX.EXP 



xxxxxx*xxxxxx*xxxxxx 



OT.SS.l.ON.FOR.TIO.S 
8 



AAAAAA JMFAA. UIO. FROM 

YYYYYY9YQ9Y 

999999 Z 9 

E.RDYLEA. JFGA6DQGH00 
8Q- Z-ZY Y9QR+ 
99 9 9 

N7MAJC JG4KA0C6EB0MK7 

8 8ZYQY9 Y 9 Y8-Z8 

9 9 29 9 9 9 



B0JA5CACADAA81120017 
8-YQ 0ZQY9-Y 
9 9-09 

5CKB505KB04/81120018 
9 -9 9 



5AB0JK5NG9KA81 120019 
Y8-Y8 9 Y 
9 9 9 

• A4MAHAH. A4D81 120020 

Y ZZ0Y9 Y - 

9 

5M52KG5H5HEA81120021 

Y 9 R RZQ 
9 0 0 

; EBEBB0JC55BE81120022 
9Q9Q8-Y8 8Q 
Z Z9 9 99 

52KE6K5BKE6/81 120023 
8 9 8 0 9 9 
9 

G+1FAA0YGNAH81 120024 
2 R-Y 99-9 



GAGAAAAAAAAA81 120025 
9Y9YYYYYYYYY 
9 999999999 



•81120026 



.81120027 



ACTEXP.SNS .X8 1120028 



•TST« XXXX . SE81 120029 



I 0. LOOPAAA AA81 120030 
YYYYY 
99999 

• DEV I CE. XXXX8 1 12003 1 



UD07Q+0CDH0081 120032 
R+ 9 +QQR+ 
Z 

DFA0YE+20BA081120033 
Q-9 Z Y-Y 
0 9 



DATE 05MAY65 10AUG65 15JUN67 10 F811-2 

EC 124252 125580 130498 ^6E 16A 
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BTXT • A PL . . A A. . A AY G06 

9 Y99 Y8 Y9 Z 
9 99 9 

BTXT.APD..A8..AA.PRE 

9 Y9Q Y9 Y9 
9 0 9 9 

BTXT. AP4. • A8«i . AAAJOA 
9 Y9 Y9 Y9YY Y 
9 9 9 99 9 

BTXT. AQU..A8.. AAA. 1A 

9 Y98 Y9 Y9Y Y 
9 9 9 9 9 

BTXT . A QM . . A8 . . A AO ACO 

9 Y92 Y9 Y9 YQ* 
9 9 9 91 



BTXT.AQD. 
9 Y9Q 
9 

BTXT.AQM. 
9 Y9 
9 

BTXT.AJD. 
9 Y88 
999 

BTXT.AJD. 

9 Y8Z 
99 

BTXT.AJ4. 
9 Y88 
99 

BTXT.AJD. 

9 Y80 
99- 

BTXT.AJM. 

9 Y8Y 
999 

BTXT.AKU. 
9 Y89 
99 

BTXT.AKM. 

9 Y88 
99 

BTXT.AKD. 

9 Y8-^ 
99 

BTXT.AKD. 
9 Y8Y 
999 

BTXT.ALD. 
9 Y89 
99 



» A8. . AAAAOH 
Y9 Y9YY 9 
9 9 9 

*A8. • AA4AAA 
Y9 Y98Y9Q 
9 9 99 9 

» A8. . AA1KYA 
Y9 Y9 99Y 
9 9 9 

. A8. . AA1KYA 
Y9 Y9 99Y 
9 9 9 

►A8..AAAJCA 
Y9 Y9ZYQQ 
9 9 Z2 

>A8..AAE.60 
Y9 Y9Z + 
9 9 

. A8. • AAEA1K 
Y9 Y9ZQ 9 
9 9 0 

•A8..AAJABD 
Y9 Y99Y88 
9 9 99 

►A8..AAAJCH 
Y9 Y9ZYQ0 
9 9 Z 

» A8. • AAOADA 
Y9 Y9 YQQ 
9 9 9ZZ 

.A8..AA6AB0 
Y9 Y98Y9* 
9 9 99 - 

> A8..AAAAAJ 
Y9 Y9YYYY 
9 9 999 



UAA7G. 

YY8Q 
999Z 

VIOUS. HANG. UP. DETECT 



BOGABAHUE . 60H0CHA JC A 

8 9Y9Y98Z +R+Q-ZYQQ 

9 9 9 Z ZZ 

C AH F AHH A A B F A 8 2H0C HE A 
QQRQ9-0QY9ZQ 8R+Q-ZQ 
ZO 9 9 Z 0 

B0GACAHAE.60H0CDAJCA 

8 9Y9Y9QZ ♦R+QQZYQY 

9 9 9 0 Z Z9 

DJEA1K4AAA0ACJB0DAHS 
QYZQ 98YYQ YQY8 9Y98 
Z9 0 999 9Z 9 9 

1AD-B0GAEAAQE.60H0CD 
YQ 8 9Y9Y89Z +R+QQ 

91 9 9 99 Z 

AA1ACAB0FAAAE .60H0CD 
9Q YQQ8 9Y8QZ +R+QQ 
Z Z09 99 Z 

A40AC0H0CDAJCAE.BW77 
9 YQ-R+QQZYQYZ Q 88 
9Z Z Z9 Z 99 

EA1K4AAA0ACJB0GAGAAA 
ZQ 98Y9Y YQY8 9Y9Y8Q 
0 99 9Z 9 9 990 

AJC.H0CHBGCGEA1K4ABA 
ZYQ R+Q — 8QZZQ 98Y9Y 
Z Z Z 0 99 9 

4ABA0ADHB0GAAABUE.60 
8Y9Q YQ98 9YQY89Z ♦ 
99 9 9Z 9 9999 

E.60H0CHAJC+BYCGBJCM 
Z +R+Q-ZYQ -9QR-YQZ 

z z z z 

H0CHEA1K4AB.0ADJB0GA 
R+Q-ZQ 98Y9 YQY8 9Y 
Z 0 99 9Z 9 9 

AJCQH0CHEA1KYAB-1ACA 
ZYQ9R+Q-ZQ 99Y9 YQQ 
Z Z 0 9 ZO 

0ADAAJCYEA1KSABA0AD+ 
YQQ2YQ9ZQ 98Y9Y YQ 

92 Z 0 99 9Z 

BAPMAAA+KAPMJAA+3APM 
Y98YYY Y98YYY 9Y98 
9 9999 9 9999 9 9 



EDGAAAGDE.60EA0FAAAA 
9Y9Y9QZ +ZQ QYYYQ 
9 9 Z 0 Z9999 

EA1KSAAA0AC JE. BWAAA J 
ZQ 98YYQ YQYZ Q Y9ZY 
0 999Z 9Z Z 9 

0FHAA4 1 ACHE. B WAAHOCD 
QZYY YQOZ Q Y9R+QQ 
Z 99 9Z- 2 9 Z 

E.BWA JEA1KYAA00AC0H0 
Z Q 9YZ0 99YY* YQ+-R+ 
Z 9 0 99- 9Z 

E.60H0CHA JCHEA1KYAAA 
Z *R*Q-2YQ9ZQ 99Y9Y 
Z Z 0 9 9 

AJCAE. B M77E A 1KSAA JO A 
ZYQYZ Q 88ZQ 98Y9Y Y 
19 Z 99 0 99 9 9 

AJCAE. BWAAEA1KYAA. OA 
ZYQYZ Q Y9ZQ 99Y9 Y 
Z9 Z 9 0 9 9 

EA 1KYAA-0AC0H0CHA JC8 
ZQ 99Y9 YQ+R+Q-ZYQ9 
0 9 9Z Z Z 

H0CHAJC.B+CGEA1K4AAA 
R+Q-ZYQ - QZZQ 98Y9Q 
Z Z Z 0 99 

OAC8BOGAAAADE.60HOCH 
YQ 8 9Y8Y8QZ +R+Q- 
9Z 9 9999Z Z 

HOCHA JC+BYCGBACMEA1K 
R+Q-ZYQ -9QR-YQZZQ 9 
Z Z Z Z 0 

EA 1K4ABA0AD0B0GAKABD 
ZQ 98Y9Q YQ*8 9Y9Y8R 
0 99 Z 9Z-9 9 990 

LABAAH0JGABME.60AJCA 
9Y8Q-9 ZZYQYZ 4-ZYQQ 
990 Z Z9 

B0GAMAGGAH0JGABUE.60 

8 9Y9YQQ-9 ZZYQ Z 4 . 

9 9 9ZZ Z 

B0A+A+A-7MKA-A. AAOAB 

8 Z Y Z 8 9 Y YZZY9 

9 9 9 9 9 9 

JAAACAPMJAAADAPMJAAA 
YYY99Y98YYY99Y98YYY9 
999 9 9999 9 9999 



•81120034 



0 AHOCDE AO FAA8 1120035 
YR+QQZQ QYY 
9 Z 0 Z99 

CAH0CDEA1KHA81 120036 
QYR4QQZQ 9ZY 
Z9 Z 0 9 

AJCAEA1KYAA-81 120037 
ZYQYZQ 99 YY 
Z9 0 99 

CHAJCAEA1K4A81 120038 
Q-ZYQQZQ 98Y 
Z ZZ 0 99 

0AC0AJC8EA1K81 120039 
YQ-ZYQ9ZQ 9 
9Z Z 0 

C0H0CHAJC8EA81 120040 

Q+R+Q-ZYQ9ZQ 

Z Z Z 0 

C0H0CHAJCHEA81 120041 

Q+R+Q-ZYQ9ZQ 

Z Z Z 0 

EA1K4AA01AD-81 120042 
ZQ 98Y9* YQ 
0 99 - 9Z 

0ACYB0GAHAAM81 120043 
YQ 8 9Y9Y8 
9Z 9 9 99 

AJC+BMCGBACM8 1120044 
ZYQ -9QR-YQZ 
Z Z Z 

4ABJ0AD0B0GA81 120045 
8Y9Y YQ*8 9Y 
99 9 9Z-9 9 

E.60AH0JGAB081 120046 
Z +-9 ZZYQ+ 
Z- 

H0CHEA1K6AB+81 120047 
R+Q-ZQ 98Y9 
Z 0 99 

HOCHAJCOE A 1K8 1 120048 
R+Q-ZYQ+ZQ 9 
Z 2-0 

: F+B0G4ABVAPM81120049 
2 QYZ Y99Y98 
29 9 9 9 

BAPMAAA+TAPM81 120050 
9Y98YYY 9Y98 
9 9999 9 9 
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BTXT. AL4. . A8. • AAAAAA 
9 Y88 Y9 Y9YYY9 
999 9 9 999 

BTXT. ALD. . A8. . AA-AA+ 
9 Y8R Y9 Y9 YY 
990 9 9 99 

BTXT. ALM. • A8. . AADAAA 
9 Y8Y Y9 Y99YYY 
99 9 9 999 

BTXT. ALU. . A8. • AADAAA 
9 Y8 Y9 Y99YYY 
99 9 9 999 

BTXT. AMM«. A8. • A AM A AM 

9 Y88 Y9 Y99YY9 
999 9 9 99 

BTXT. AMD. .A8.. AADAAA 
9 Y8R Y9 Y98YYY 
99 9 9 9999 

BTXT .'AMD. • AU* • AADAAA 

9 Y8Y Y9 Y99YYY 
99 9 9 999 

BRLD......A8....AAAA 

9 Y9 Y9Y9 

9 9 9 

BRLD...... A8. ... AAAA 

9 Y9 Y9Y9 

9 99 

BRLD. . . . . • AU. . . . AAAA 
9 Y8 Y9Y9 

99 9 9 

BEND.APQ AA.... 

9 Y9 Y9 
9 9 

BOAT 

9 

..... ... • • * '• ..... * . . . 

... e * * • . . » ...... . 



BAPM .AA+BAPM AAA+BAPM 
9Y98 YY 9Y98YYY 9Y98 
9 9 99 9 9999 9 9 

CAPM-AAA3APMJAAAKAPM 
9Y98 YY99Y98YYY9 Y98 
9 9 99 9 9999 9 9 

AAAABAAAAAAADAAAAALH 
YYYY9YYYYYYY9YYYYY89 
9999 9999999 999999 

AAL +HAAAAAAADAAAAALH 
YY8 9YYYYYYY9YYYYY82 
999 9999999 999999 

AAL 8BAA AAAA ADA AAA ALQ 
YY898YYYYYYY9YYYYY89 
999 99999999 999999 

AAAADAAAAAAAHAAAAAAA 
YYYY8YYYYYYY9YYYYYYY 
999999999999 9999999 

AAL HHAAAAAAADAAAAALH 
YY809YY9YYYY9YYYYY8- 
999 99 9999 999999 

AAANEAA4A AO 1AA0HAALA 
8YQ98YQ88Y988Y908Y89 
999 999 99 99 999 

AAL A AAL A AAL J AAL /AAL / 
8Y888Y8R8Y888Y8 8Y88 
999 999 999 999 999 

EALQEALYEAL8EAMHEAMJ 
8Y8 8Y8 8Y8 8Y898Y8Y 
999 999 999 999 9999 



AAAMBAPDAAAMBAPUAAAM 
YYY99Y9ZYYY99Y98YYY9 
99 9 99 9 99 

-AA+3APMJAAAAAAAAAAA 
YY 9Y98YYY9YYYYYYYY 
99 9 9999 99999999 

DAAAAAAAMAAAAALADAAA 
8YYYYYYY9YYYYY8Q8YYY 
99999999 99999999999 

H. AAAAAADAAAAALOHAAA 
9 YYYYYY9YYYYY8+9YYY 
999999 999999- 999 

DAAAAAAADAAAAAAAHAAA 
8YYYYYYY9YYYYYYY9YYY 
99999999 9999999 999 

DAAAAALOH. AMAAAADAAA 
9YYYYY8+9 Y9YYYY9YYY 
999999- 9 9999 999 



HAAAAA AADAAA.. 

9YY9YYYY9YYY 
99 9999 999 

AALAAALJAALJAAL/AAL/ 
8Y888Y898Y888Y898Y88 
9999999 9999999 9999 

AALAAAL1AALAAALI AALA 
8Y8R8Y888Y808Y808YB^ 
9990999 999 999 999 

EAMAEAM+EAMOEAMADAMJ 
8Y8Q8Y8 8Y8+8Y8Q8Y8Y 
9992999 999-999 999 



» * . • » * • •«•*•• 



• • • . * • . i» . » . . . • ■ 



BAPDAAAMKAPM81 120051 
9Y9-YYY9 Y98 
9 999 9 9 

AAL8HA AAAA AA81 120052 

YY899YYYYYYY 

999 9999999 

AAL. HA AAAA AA81 120053 
YY8 9YYYYYYY 
999 9999999 

AAAADAAAAAAA81 120054 

YYYY9YYYYYYY 

9999 9999999 

AAAADA AAA ALA81 120055 

YYYY9YYYYY8Q 

9999 999999Z 

AAAAHAAAAAAA81 120056 

YYYY9YYYYYYY 

9999 9999999 



.81120057 



AAL1AAL1HALA81 120058 

8Y898Y889Y8Z 

999 9999 99 

EALJEAL0DAL081120059 

8Y8Y8Y8+8Y8- 

999 999 999 

». ...•••.*. .81 120060 



> .81120061 

» ....81120062 

•• .81 120063 

,..••....••81120064 

...........81120065 

.81120066 
...........81120067 

...........81120068 

...••••...•81120069 

..81 120070 
...... *.*..»1 120071 

<». ..Al 120072 

m.mi 120073 
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BLDT. 
9 



.81120074 
•81120075 
•81120076 
•81120077 
•81120078 
•ftl 120079 
•81120080 
•81120081 
.81120082 
.81120083 
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2540 READER FUNCTION TESTS - SECTION 3 F812 



8120 TITLE 

*********************************************************************** 

* * 

* MODIFICATIONS * 

* * 

* REVISION LEVEL 0. INITIAL RELEASE OF THE PROGRAM. * 

* EXPANSION TO THIS SECTION WAS THE RESULT OF THE TESTING ADDED * 

* TO SECTIONS 810 AND 811. * 

* I. THIS SECTION IS THE RIPPLE READ TEST, WHICH WAS FORMERLY * 

* LOCATED IN SECTION F811 VERSION 1. * 

* 2. THE PROGRAM INCLUDES TEST NUMBERS AND THE COMMON ERROR * 

* ERROR MESSAGE FORMAT. * 

* * 

* E.C. PREREQUISITES * 

* MACHINE ... NONE * 

* PROGRAM ... NONE * 

* * 

* USE DESCRIPTION F810* AT EC 130498, DATED 15 JUN 67 OR LATER. * 
f ♦ * 

*********************************************************************** 
XF8120 START 4096 
001000 USING *• 15 

* 
* 

*********************************************************************** 

* TEST NUMBER DESCRIPTION 

*********************************************************************** 
************************************************************^ 

* TEST DESCRIPTION 

* 

* ************** 

* ROUTINE 01 

* ************** 

* 

* 0010 - OPERATION ATTEMPTED 
* 

* A WRITE, FEED, AND STACKER SELECT P2 COMMAND -41- IS ISSUED 

* TO THE PUNCH 

* A SENSE COMMAND IS ISSUED IF UNIT CHECK OCCURS DURING THE 

* WRITE COMMAND. 
• * 

* EXPECTED RESPONSE 
* 

* CONDITION CODE 0 WITH CHANNEL AND DEVICE END SEPARATELY IN 

* TWO CSWS. 

* IF AN ERROR OCCURS IN THIS ROUTINE, THE PROGRAM WILL RETRY 

* IF EXECUTION IS CONTINUED. IF SEVERAL ERRORS OCCUR, IT IS 

* SUGGESTED THAT THE PUNCH DIAGNOSTICS BE CALLED INTO STORAGE. 

* 
* 

* ************** 

* ROUTINE 02 

* ************** 

* 

* 0020 - OPERATION ATTEMPTED 
* 

* ISSUE A READ NO FEED COMMAND -C2- TO THE READER. THE READ 

* DATA IS COMPARED TO EXPECTED DATA AND ERRORS ARE INDICATED 

* IF ACTUAL AND EXPECTED DATA ARE NOT EQUAL. TWO DIAGNOSTIC 

* CHECK READ COMMANDS ARE ATTEMPTED. THE DIAGNOSTIC CHECK 

* READ DATA IS TEST, ED COLUMN BY COLUMN FOR ANY ERRORS. 

* THE FOLLOWING HEADING WILL BE OUTPUT AFTER THE INITIAL 

* INFORMATION MESSAGE WHICH IS EXPLAINED IN THE DESCRIPTION 

* UNDER -STATUS MESSAGES*. 
* 



DATE 
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♦ 
* 
* 
* 
* 
* 
* 
♦ 
* 
* 
* 
♦ 
* 
♦ 
* 
* 
* 
* 
♦ 
* 
* 
* 
* 
* 
* 
♦ 
* 
* 
* 
* 

* 

* 
* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

• * 

* 0030 



DATA ERROR MESSAGE EXPLANATION 



-READ ERROR 
-CARD IN PRESTKR STA 
EXPECTED SHD 



BUF 



-CO 



PUNCHES 
I 
I 
I 
I 
I 
I 
I 



RD RD XU XL PAR ADR TRAN 
I 

I I I 
I 
I 

I 



I READER TRANSLATE CHK* 

— READ BUFFER ADDRESS CHECK* 

I READ BUFFER PARITY CHECK. 

X LOWER CHECK PLANE. 

— -X UPPER CHECK PLANE. 

-DATA BYTE READ FROM THE READER. 

EXPECTED DATA BYTE. 

I HOLE PUNCHES EXPECTED TO BE IN THIS COLUMN. 

COLUMN OF CARD WHERE ERROR WAS DETECTED. 

NOTE- THE INDICATION FOR XU, XL, PAR, BUF ADR, AND TRAN 
WILL BE AS FOLLOWS- 

0 IF NO ERROR. 

1 IF ERROR. 



POSSIBLE ERROR CAUSES 

1. IT IS POSSIBLE UNDER LOOPING CONDITIONS FOR THE PROGRAM 
TO LOSE TRACK OF THE DETAIL CARD SEQUENCE. IF ALL 80 COLS 
INDICATE AN ERROR IN THE DATA BYTES IT IS POSSIBLE THAT 
THIS IS THE CAUSE. THE WAY TO DISTINGUISH BETWEEN A 
MACHINE FAILURE AND A SEQUENCE PROBLEM IS TO VISUALLY 
SCAN THE DATA BYTE READ FROM THE READER FOR EACH CARD 
COLUMN, IF THE DATA IN EACH SUCCESSIVE COLUMN IS 
INCREMENTED BY 1 THE READ DATA IS GOOD. 

2. ANY OTHER ERRORS INDICATED SHOULD BE VALID MACHINE ERRORS 
WHICH THE PROGRAM ERROR MESSAGE SHOULD GIVE SUFFICIENT 
INFORMATION ON TO POINT TO THE MACHINE PROBLEM. 

3. X LOWER OR X UPPER INDICATIONS THAT DO NOT INDICATE A 
DEFINITE PATTERN OF TROUBLE MAY BE DUE TO A READER 
SKEW PROBLEM. 

4. IF LOOPING USING SENSE SWITCH 10 -READ FEED STACKER SELECT 
Rl- WITH SENSE SWITCH 2 OFF -COMPARE DATA- AND AN ERROR 

IS INDICATED IN COLUMN 1, ANALYZE ONLY THE FIRST ERROR 
MESSAGE INDICATED IF THE MESSAGES THAT FOLLOW INDICATE 
ERRORS IN ALL 80 COLUMNS. THIS IS BECAUSE COLUMN 1 IS 
USED TO GENERATE THE COMPARE DATA FOR ALL 80 COLUMNS 
OF THE CARD READ. 

REFER TO 2821 MOM FOR DETAILED ERROR ANALYSIS PROCEDURE. 

EXPECTED RESPONSE 

CONDITION CODE 0 WITH CHANNEL AND DEVICE ENDS RETURNED IN THE 

SAME CSW BECAUSE NO FEED CYCLE OCCURS. 

READ DATA SHOULD BE EQUAL TO EXPECTED DATA. 

DIAGNOSTIC READ DATA SHOULD RETURN WITH 80 BYTES ALL ZERO. 



OPERATION ATTEMPTED 
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* 
* 

* 

* 

* 

* 0040 

* 

* 

* 



A FEED, STACKER SELECT Rl -23- IS ISSUED TO THE READER* 
EXPECTED RESPONSE 

CONDITION CODE 1 -COMMAND IMMEDIATE WITH CHANNEL AND DEVICE 
ENDS IN TWO SEPARATE CSWS. SENSE IS ISSUED IF UNIT CHECK IS 
DETECTED DURING THE FEED COMMAND. 

OPERATION ATTEMPTED 

A READ, FEED, STACKER SELECT Rl -02- IS ISSUED IF SECTION 
SENSE SWITCH 10 IS ON. IF AN ERROR IS DETECTED A SENSE 
COMMAND IS ISSUED IN THE 1-0 HANDLER, AND TWO DIAGNOSTIC 
CHECK READ COMMANDS ARE ISSUED TO ALLOW TESTING THE RETURNED 
CHECK READ INFORMATION. IF AN ERROR IN THE NORMAL READ DATA 
OR THE CHECK READ DATA OCCURS, THE ERROR INDICATION LISTED 
UNDER TEST NUMBER 0020 WILL BE OUTPUT. 



* EXPECTED RESPONSE 
* 

* CONDITION CODE 0 WITH CHANNEL AND DEVICE ENDS RETURNED 

* IN SEPARATE CSWS. SENSE IS ISSUED IF UNIT CHECK OCCURS. 
* 

* 

*******************************************************^ 
******************* ******************* 

* SECTION PREFACE *********************************** SECTION PREFACE * 



******************* 



001000 


F81 20000 


SECNO 


DC 


XL4»F8120000« 


001004 


00000000 


SNSW 


DC 


XL4»00« 


001008 


0000 




DC 


XL2*00» 


001 004 


0000 


ICM 


DC 


XL2«00» 


00100C 


00 


SOMF 


DC 


XL1«00» 


00100D 


02 


NIOU 


DC 


XL1'02» 


00100E 


CO 


FLAG1 


DC 


X«CO« 


OOIOOF 


00 


FLAG2 


DC 


X»00« 


001010 


0104000000 


INPSW 


DC 


X 4 0104000000» 


001015 


001AF8 




DC 


AL3(R0UT01) 


001018 


0000000000000000 


EXOPSW 


DC 


XLS *0« 


001020 


0000000000000000 


SVOPSW 


DC 


XL8«00« 


001028 


0000000000000000 


PGOPSW 


DC 


XL8»00 9 


001030 


ooooooooocoooooo 


MCOPSW 


DC 


XL8»00» 


001038 


0000000000000000 


I00PSW 


DC 


XL8»00" 


001040 


0000000000000000 


csw 


DC 


XL8*Q0« 


001048 


00000000 


CAW 


DC 


XL4»00« 


00104C 


000000000000000000 




DC 


XL12»00« 


001055 


000000 








001058 


0004000000 


EXNPSW 


DC 


X •0004000000' 


00 10 50 


000000 


SRET 


DC 


XL3»0* 


001060 


0000000000000000 


SVNPSW 


DC 


XL8«00 S 


001068 


oooooooooooooooo 


PGNPSW 


DC 


XL8«00« 


001070 


000 0000000000000 


MCNPSW 


DC 


XL8«0Q« 


001078 


01040000 


IONPSW 


DC 


XL4«0 1040000 • 


00107C 


000011F2 




DC 


AL4 ( I RETRN) 


001080 






DS 


96C 


0010E0 


81 


UNIT1 


DC 


X»81* 


00 IDE 1 


00 


U10P 


DC 


X«00« 


0010E2 


8000 


U1ADDR 


DC 


X«8000» 


0010E4 


82 


UNIT2 


DC 


X'82« 


0010E5 


00 


U20P 


DC 


X»00 9 


0010E6 


8000 


U2ADDR 


DC 


X«8000« 



******************* 

PROGRAM, SECTION AND REVISION NOS. * 
SECTION SENSE SWITCHES * 

* 

INTERRUPTION CONDITION MASK * 
SECTION DM FLAGS * 
NUMBER OF UNIT TABLE ENTRYS * 
EXCLUSIVE CPU * 
I/O INT ARE ERR, EXT INT TO PROG * 
DISABLED, SPVSR STATE, NO PGM MASK 



ADR OF 1ST ROUTINE PREFIX 
SECTION OLD EXTERNAL PSW 
CLEAR ALL OLD PSWS 
PROGRAM OLD PSW 
MACHINE CHECK OLD PSW 
I/O OLD PSW 
CHANNEL STATUS WORD 
CAW 

RESERVED FOR DM USE 



EXTERNAL NEW PSW * 

ADR OF EXT INTRPT ROUTINE * 

SUPERVISOR NEW PSW * 

PROGRAM NEW PSW * 

MACHINE CHECK NEW PSW * 

I/O NEW PSW * 

ADDRESS OF I/O INTRPT ROUTINE * 
96 BYTE REG DUMP AREA FOR DM USE * 
UNIT TYPE - 2540 READER 

OPTIONAL FEATURES BYTE * 

FLAGS AND CHAN/UNIT ADDRESS * 
UNIT TYPE - 2540 PUNCH 
OPTIONAL FEATURES BYTE 
FLAGS AND CHAN/UNIT ADDRESS 
*********************************************************************** 

* OPTIONAL FEATURE BYTE DEFINITION 

*********************************************************************** 

* * BIT 0 * BIT 1 * BIT 2 * BIT 3 * BIT 4 * BIT 5 * BIT 6 * BIT 7 * 

* * HEX 8 * HEX 4 * HEX 2 * HEX 1 * HEX 8 * HEX 4 * HEX 2 * HEX 1 * 

* * ASCII * CARD * * 51 * 1400 * * * 2821 * 
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* * * IMAGE * * COL RD* COMP * * * 2 CHN * 

* * * * * * * * * SW. * 
*********************************************************************** 

* 2540 READER SENSE BYTE 

*********************************************************************** 

* BIT MEANING 

* 0 COMMAND REJECT 

* 1 INTERVENTION REQUIRED 

* 2 BUS OUT CHECK 

* 3 EQUIPMENT CHECK 

* 4 DATA CHECK - VALIDITY CHECK - INVALID CARD CODE 

* 5 OVERRUN - NOT USED 

* 6 UNUSUAL COMMAND SEQUENCE-2 READS WITHOUT INTERVENING FEED 

* 7 NOT USED 

*********************************************************************** 

* 2540 READER STATUS BYTE 

*********************************************************************** 

* BIT MEANING 

* 0 ATTENTION - 1400 COMPATIBILITY FEATURE ONLY - INDICATES 

* SENSE WAS ISSUED BEFORE 6 MS TIME OUT AFTER 

* A 1400 COMPATIBILITY READ. 

* 1 STATUS MODIFIER - 2 CHANNEL SWITCH FEATURE ONLY 

* 2 CONTROL UNIT END - 2 CHANNEL SWITCH FEATURE ONLY 

* 3 DEVICE BUSY 

* ' 4 CHANNEL END 

* 5 DEVICE END 

* 6 UNIT CHECK 

* 7 UNIT EXCEPTION - LAST CARD PREVIOUSLY READ, AND END OF 

* FILE WAS ON. 

*********************************************************************** 

* 2540 READER DIAGNOSTIC CHECK READ BYTE DEFINITION 
*********************************************************************** 



* 


BIT 


MEANING 


* 


0 


NOT USED 


* 


1 


NOT USED 


* 


2 


NOT USED 


* 


3 


XU CHECK PLANE 


* 


4 


XL CHECK PLANE 


* 


5 


BUFFER PARITY CHECK 


* 


6 


READ TRANSLATE CHECK 


* m 


7 


READER BUFFER ADDRESS CHECK 



*********************************************************************** 
*********************************************************************** 
*********************************************************************** 

* PARAMETERS USED TO ENTER 

* THE 1-0 HANDLER ROUTINE 

*********************************************************************** 

* BAL R11,ISI0 LINK TO 1-0 HANDLER 

* DC XL2»0000« CONTROL SWITCHES 

* DC X«0014» TEST NO. IN DEC EXPRESSED IN HEX 

* DC X 4 F0» EXPECTED COND. CODE 

* DC X'00» EXPECTED SENSE DATA 

* DC AL2 ( ADR-BASE+REG) ADDR. OF EXPECTED CSW IF NEEDED 
*********************************************************************** 
*********************************************************************** 

* 1-0 HANDLER CONTROL SWITCHES 

* 2 BYTE PARAMETER FOLLOWING BAL 

*********************************************************************** 

* SWITCH DESCRIPTION 

* 0 OFF - ISSUE AN I~G COMMAND 

* ON - DO NOT ISSUE AN 1-0 COMMAND 

* 1 OFF - ENABLE 

* ON - DO NOT ENABLE 

* 2 ■* OFF - EXPECT NO INTERRUPT 

* ON - EXPECT AN INTERRUPT 

* 3 opp - D0 NOT EXPECT 2 INTERRUPTS 

* ON - EXPECT 2 INTERRUPTS 

* 4 OFF - EXPECT NO CSWS 
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0010E8 



0000 



ON 
OFF 
ON 
OFF 
ON 
OFF 
ON 



EXPECT A CSW 
DO NOT EXPECT 2 CSWS 
EXPECT 2 CSWS 
ALWAYS TRY TO ISSUE SENSE 
SENSE ON UNIT CHECK ONLY 

DO NOT ISSUE 2 DIAGNOSTIC CHECK READ START 1-0 CMDS 
ALWAYS ISSUE 2 DIAGNOSTIC CHECK READ COMMANDS 



* 

* 6 

* 8 

* SWITCHES USED BY 1-0 HANDLER 



* 


SWITCH 


DESCRIPTION 




0 




OFF 




NO HANGUP ON INTERFACE 


♦ 






ON 




HANGUP OCCURRED 




1 




OFF 




NO CSWS STORED 


* 






ON 




ONE CSW STORED 


* 


2 




OFF 




SECOND CSW NOT RECEIVED 


* 






ON 




SECOND CSW RECEIVED 


* 


3 




OFF 




DID NOT ENABLE 








ON 




ENABLED ONCE 


* 


4 




OFF 




DID NOT ENABLE TWICE 








ON 




ENABLED TWICE 


* 


5 




OFF 




NO SENSE DATA RECEIVED 


* 






ON 




SENSE DATA RECEIVED 


* 


6 




OFF 




NO UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 


* 






ON 




UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 


* 


7 




OFF 




NO ERROR DETECTED 


* 






ON 




AN ERROR WAS DETECTED 



* REGISTERS USED IN 1-0 HANDLER 





REG 




COMMENTS 




* 


5 


USED 


AS LINK TO ERROR OUTPUT FROM INITIALIZE 


ROUTINE IF 


* 




PREVIOUS HANGUP ON INTERFACE DETECTED. 




* 
* 


8 


USED 


AS WORK REGISTER. WILL BE RESTORED UPON 


RETURN. 


♦ 
* 


9 


USED 


AS WORK REGISTER. WILL BE RESTORED UPON 


RETURN. 


* 


10 


MUST 


CONTAIN CCW ADDRESS UPON ROUTINE ENTRY 




* 
* 


11 


MUST 


BE USED AS LINK REG TO THIS ROUTINE 




* 

* 


12 


MUST 


CONTAIN DEVICE ADDRESS 





ISW DC XL2«0» 

* * 1-0 HANDLER SUB-ROUTINE * 

SET UP FOR START 1-0 
MOVE -S- TO OPTION MSG. 



0010EA 


92 


9C 


F 


18C 






ISIO 


MVI 


ISSUE, X«9C« 


SET U 


0010EE 


92 


9C 


F 


132 








MVI 


IL00P,X»9C 




0010F2 


92 


E2 


F 


889 








MVI 


I0PT1+25,X«E2 # 


MOVE 


0010F6 


92 


E2 


F 


7F0 








MVI 


I0ADDR+12,X«E2» 




0010FA 


D2 


01 


F 


86C 


B 


002 


IEYEOH 


MVC 


ITSTN0+5(2),2<R11) 


SAVE 


001100 


90 


09 


F 


778 








STM 


R0.R9, ISAVE 


SAVE 


001104 


D2 


00 


F 


98F 


F 


003 




MVC 


RTSVU),SECN0+3 


SAVE 


00110A 


50 


AD 


0 


048 






CONP 


ST 


R10,HCAW(R13) 


STORE 


001 10E 


D7 


07 


D 


040 


D 


040 




XC 


HCSW(8,R13),HCSWtR13> 




001114 


D7 


OB 


E 


080 


E 


080 




XC 


LOGOUT 1 12 , R 14 ) , LOGOUT (R14) 


00 1 1 1A 


91 


80 


B 


000 








TM 


0(Rll)»X a 80* 


CHECK 


00 11 IE 


47 


10 


F 


1C2 








BC 


ALL t I NOW 


BR. I 


001122 


91 


CO 


F 


004 








TM 


SNSW«X*C0« 




001126 


47 


80 


F 


16E 








BC 


NONE t JOHN 





F ON 



* SENSE SWITCH LOOPS 
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00112A 


' 91 


80 


F 


004 


ITRY1 


TM 


SNSWfX'SO* 


CHECK SECT ION ScNSc 5W1 ICH U / 


00112E 


47 


80 


F 


13A 




BC 


NONEf I T RY 2 


BR. IF OFF 


001132 


9C 


00 


C 


000 


I LOOP 


SI 0 


0 ( R12 ) 


cTn tin no u T n 
S 10 , T 1U , OR HIU 


001136 


47 


FO 


F 


12A 




BC 


UNC 1 1 TRY 1 


do iiMrnKiniTtnMAi 
oK . UNLUNU 1 1 1UIM AL 


00113A 


91 


40 


F 


004 


I TRY2 


TM 


SNSWtX'40' 


CHECK SECT IUN ScNSc owl 1 l*n & 


00113E 


47 


80 


F 


15A 




BC 


fcf flM C TUT 

NONE, IHI 


BR . Ir Urr 


001142 


9D 


00 


C 


000 


IHANG 


T I 0 


0 ( R12 ) 


TEST I— 0 


001146 


47 


70 


F 


12A 




BC 


NCCO , I 1 RY 1 


dd tc mot r nxir* c nn c t\ 
bK • 1 r NU I UUNU • UUUt U 


001 14A 


91 


40 


F 


004 




TM 


5 NSW ,X *40* 


c ucrv c crT i ni\i ccki cc cut Tru % 


001 14E 


47 


80 


F 


15A 




BC 


KlFlKI C TUT 

NONE, IHI 


UK • 1 1 Urr 


001152 


9C 


00 


C 


000 




SI 0 


0 ( R12 ) 


C T A D T T n 

S I AK 1 1 U 


001 156 


47 


FO 


F 


142 




BC 


UNC , I HANG 


nn 1 IMf* f"IM nTTI OKI A 1 
bK . UNUUNU 1 1 1UNAL 


001 15A 


58 


9E 


0 


198 


IHI 


L 


R9 , WT I R14 1 


nTfl/ 1 in r»l* LI A t T CAT TflO 

HlLiS Ur Un MA 1 1 r Al# 1 UK . 


00115E 


88 


90 


0 


003 




SRL 


R9 ,3 


r*llT TT T\C\ LJM Tfl 1 ?R CEP C 

L,U I 11 DUWN IU ImCO ocU o. 


001162 


9D 


00 


C 


000 


GREG 


. TIG 


0 ( R12 ) 


FE5 1 l—U IU Ut V lUt . 


001166 


47 


80 


F 


16E 




BC 


CCO , JOHN 


DD tC At/All ADI C 

BK ir AVAILAdLC. 


00116A 


46 


90 


F 


162 




BCT 


R9 ,GREG 


i nnn niirti ttuc ni it 

LOOP UNTIL Tine OUT. 


00116E 


D7 


01 


F 


0E8 F 0E8 


JOHN 


XC 


I SW (2 ) t ISW 


7 con TUC T O UAtJrtl CD Cut TfUCC 

ZcKU I HE I—U HANULtK oNl Unco* 


001 174 


96 


80 


F 


0E8 




01 


I SW ,X ' 80 ■ 


TIIDM nM TUC UAKIT CUTTfU 
1 UKlM UN 1 nt nAiMu oil 1 ltn« 


001178 


94 


00 


F 


AD9 




NI 


CK5W »X " 00 w 


L tKU U 1 Ab nib on • 


00117C 


94 


00 


F 


ADC 




Nt 


DEK5»X ■00" 


7 CD n TUC nATA CDD CU 

L cKU I nt UA 1 A tKK oil. 


001180 


94 


00 


F 


AD7 




NI 


uncu y mm 


L CKU 1 nt nCAU 1 IX V> Owl I lu rl. 


001184 


92 


E7 


F 


845 




MVI 


f APCMClE tf* t Y • 

I AtoNo+5| t* A' 


unu c am y twin TMP ATTIiAi CPN^F nATA 
nu v c aim a i hi i u inc au i l ocn oc uaia 


001188 


92 


E7 


F 


7DF 




MVI 


lALl a' 


unu C TKI A _ V_ 
nu V t IN A ~ A*~ 


00 1 18C 


9C 


00 


C 


000 




cm 


n f ni )i 
U 1 Kl£ # 


T~n rnMMAiun— c,in . Tin. nn Hf n 


00 1 190 


47 


80 


F 


1BE 




or 


UtU , 1 tCKU 


dd tc rnxin- rnnF n 


001 194 


47 


40 


F 


1AC 




QC 
°V 


, 1 UNC 


do tc rnwri rnnp i 


001198 


47 


20 


F 


1A4 




BC 


\,\*c. t 1 1 nil 


do tc rriKin rnnp 7 

DK . 1 r UUNU . uuue c 


00 1 19C 




ca 


p 


fur 




MVI 




INDICATE COND. CODE 3 


0011A0 


47 


FO 


F 


1C2 




BC 


UNCINOW 


BR. UNCONDITIONAL 


0011A4 


92 


F2 


F 


7DF 


I TWO 


MVI 


IACTCC+5,X«F2» 


INDICATE COND. CODE 2 


0011A8 


47 


FO 


F 


1C2 




BC 


UNCI NOW 


BR. UNCONDITIONAL 


0011AC 


92 


Fl 


F 


7DF 


I ONE 


MVI 


I ACTCC+5, X • Fl • 


INDICATE COND. CODE 1 


0011B0 


02 


07 


F 


7A0 0 040 




MVC 


ICSW1(8),HCSW(R13) 


SAVE CSW 


0011B6 


96 


40 


F 


0E8 




01 


ISW,X«40« 


INDICATE 1 CSW 


0011BA 


47 


FO 


F 


1C2 




BC 


UNC, I NOW 


BR. UNCONDITIONAL 


0011BE 


92 


FO 


F 


7DF 


I ZERO 


MVI 


IACTCC+5,X«F0» 


INDICATE COND. CODE 0 


0011C2 


94 


7F 


F 


0E8 


1N0W 


NI 


ISW,X»7F« 


TURN OFF HANG UP SWITCH 


0011C6 


91 


40 


B 


000 




TM 


0<R11),X«40* 


CHECK CONTROL SWITCH FOR NO ENABLE 


0011CA 


47 


10 


F 


266 




BC 


ALL, ISEN 


BR. IF ON 


0011CE 


96 


10 


F 


0E8 




01 


ISW,X'10» 


INDICATE ENABLED ONCE 


0011D2 


58 


9E 


0 


198 


IWAIT 


L 


R9,WT(R14) 


LOAD DM WAIT FACTOR 


0011D6 


88 


90 


0 


003 




SRL 


R9,3 


ADJUST 


001 IDA 


96 


80 


F 


0E8 




01 


ISW,X«80« 


TURN ON HANG UP SW 


0011DE 


80 


00 


F 


98D 




SSM 


MSK1 


ENABLE 


0011E2 


46 


90 


F 


1E2 




BCT 


R9,* 


WAIT 


0011E6 


80 


00 


F 


98E 




SSM 


MSK2 


DISABLE 


00 1 I E A 


94 


7F 


F 


0E8 




NI 


ISW,X«7F» 


TURN OFF HANG SW 


0011EE 


47 


FO 


F 


266 




BC 


UNC, ISEN 


BR. UNCONDITIONAL 



******************************^ 

* ALL 1-0 INTERRUPTS RETURN HERE 



0011F2 


49 CO 


F 


03A 




. IRETRN 


CH 


/ R12,I00PSW+2 


COMPARE FOR CURRENT 1-0 ADDRESS 


0011F6 


47 60 


F 


214 






BC 


UNEQtlUIO 


BR. IF UNEQUAL 


0011FA 


94 7F 


F 


0E8 






NI 


ISW,X»7F« 


RESET HANG UP SW 


0011FE 


91 40 


F 


0E8 






TM 


ISW,X«40« 




001202 


47 10 


F 


244 






BC 


ALL,ISV2 


BR. IF 1 CSW ALREADY STORED 


001206 


02 07 


F 


7A0 F 


040 




MVC 


ICSW1 <8),HCSW(R15) 


SAVE CSW 1 


00120C 


96 40 


F 


0E8 






01 


ISWtX«.40« 


INDICATE 1 CSW STORED 


001210 


47 FO 


F 


24E 






BC 


UNCINT3 


BR. UNCONDITIONAL 


001214 


02 07 


F 


7B8 F 


040 


IUIO 


MVC 


W0RK(8),HCSW(R15) 




00121A 


OA DD 










SVC 


X«DD« 


CONVERT ADDRESS 


00121C 


0002 










DC 


AL2(2) 


2 BYTES OF 1-0 OLD PSW. 


00121E 


003A 










DC 


AL2 C 1 00PSW+2-S ECNO ) 


FROM HERE. 


001220 


09A1 










DC 


AL2 C IUNEX-H7-SECN0 ) 


TO HERE 


001222 


. OA DO 










SVC 


X«00« 


PRINT UNEXPECTED INTERRUPT DEVICE 


001224 


64 










DC 


X«64« 


ADDRESS 
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001225 


15 






r»r 
uv 


001226 


F990 






DC 


001228 


02 02 F 


816 F 8 OF 




MVC 


00122E 


92 1A F 


435 




MVI 


001232 


02 02 F 


82C F 82F 




MVC 


001238 


45 90 F 


41E 




BAL 


00123C 


96 02 F 


0E8 




01 


001240 


47 FO F 


4F8 




BC 


001244 


02 07 F 


7A8 F 040 


I SV2 


MV/f* 


00124A 


96 20 F 


OE 8 




Ui 


00124E 


91 10 B 


000 




TM 

i n 


001252 


47 80 F 


266 




BC 


001256 


91 08 F 


0E8 




TM 
i n 


00125A 


47 10 F 


266 




■BC 


00125E 


96 08 F 


0E8 






001262 


47 FO F 


1D2 




DP 


001266 


91 02 B 


ooo 


i ac n ~ 


T M 

i n 


00126A 


47 80 F 


28E 




or 
ou 


00126E 


91 40 F 


OE 8 




TM 


001272 


47 80 F 


318 




BC 


001276 


91 02 F 


7A4 




TM 


00127A 


47 10 F 


28E 




Old. 


00127E 


91 20 F 


OE 8 * 




TM 


001282 


47 80 F 


318 




or 


001286 


91 02 F 


7AC 




TM 


O0128A 


47 80 F 


318 




Of 


00128E 


41 80 F 


768 * 




i A 


001292 


45 70 F 


5F2 




BAL 


001296 


91 80 F 


0E9 




TM 


00129A 


47 80 F 


2B4 




BC 


00129E 


96 04 F 


0E8 




01 


0012A2 


94 7F F 


0E9 




NI 


0012A6 


05 00 F 


845 8 005 




CLC 


0012AC 


47 80 F 


284 




BC 


O012B0 


96 01 F 


0E8 




01 


0012B4 


91 80 B 


001 


f IFUR 


TM 


00128*8 


47 80 F 


318 




BC 


0012BC 


41 80 F 


770 




LA 


O012C0 


45 70 F 


5F2 




BAL 


0012C4 


91 80 F 


0E9 




TM 


0012C8 


47 80 F 


204 




BC 


0012CC 


96 40 F 


0E9 




01 


0012D0 


94 7F F 


0E9 




NI 


001204 


41 80 F 


770 


I SEA 


LA 


0012D8 


45 70 F 


5F2 




BAL 


00120C 


91 80 F 


0E9 




TM 


0012E0 


47 80 F 


2EC 




BC 


0012E4 


96 20 F 


0E9 




01 


00121:8 


94 7F F 


0E9 




NI 


0012EC 


45 10 F 


574 


BTCO 


BAL 


0012F0 


91 60 F 


0E9 




TM 


0012F4 


47 50 F 


318 






0012F8 


96 01 F 


0E8 




01 


0012FC 


47 FO F 


318 




BC 


001300 


91 40 F 


0E8 


IN0EX1 


TM 


001304 


47 10 F 


366 




BC 


001308 


47 FO F 


36A 




BC 


00130C 


91 20 F 


0E8 


IN0EX2 


TM 


001310 


47 10 F 


366 




BC 


001314 


47 FO F 


36A 




BC 


001318 


05 00 F 


7DF B 004 


ISSN 


CLC 


00131E 


47 60 F 


366 




BC 


001322 


91 08 B 


000 




TM 


001326 


47 80 F 


300 




BC 


00132A 


91 40 F 


0E8 




TM 


00132E 


47 80 F 


366 




BC 


001332 


48 88 0 


006 




LH 


001336 


40 80 F 


33E 




STH 


DATE 


15JUM67 








EC 


130498 
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X«15» 

AL2UUNEX-SECN0+REG) 

IBLAH+1(3),ICSW 

ICNT,X»1A« 

IBLAH+23C3J, I ACT 

R9,IC0UT 

ISW,X*02» 

UNCt ILOGED 

ICSW2(8)*HCSW(R15) 

ISW,X»20« 

0<R11),X«10» 

NONE, I SEN 

ISW,X«08» 

ALL, ISEN 

isw,x«08* 

UNCtlHAIT 
0<R11),X«02« 
NONE,IDOSNS 
ISW,X«40» 
, NONEt I BSN * 
ICSW1+4,X»02« . 
ALL v I DOSNS 
ISW,X«20» 
NONE v I BSN 
ICSW2+4,X , 02* 
N0NE»I8SN 
R8,ISENSE 
R7,ISTRT 
ISW*lfX*80* 
NONE, IFUR 
ISW,X»04» 
ISW+1,X»7F»' 
IACSNS+5(1),5!R11) 
EQ, IFUR 
ISW,X*01« 
1(R11),X»80« 
NONE, IBSN 
R8,0CRD 
R7,ISTRT 
ISW+l<tX*80* 
NONE, IS EA 
ISW+1,X«40 S 
ISW+ltX^F" 
R8 , DCRD 
R7,ISTRT 
ISW+ljX'SO* 
NONE, BTCD 
ISW+1,X»20» 
ISW+1,X»7F» 
R1,ICDT 
ISW+l,X«60 t 
ANY, IBSN 
ISW,X»01« 
UNCIBSN 
ISW,X»40» 
ALL , I NDER 
UNCIOUNCK 
ISW,X»20* 
ALL, I NDER 
UNCIDUNCK 
IACTCC+5(1),4(R11) 
UNEQ, INOER 
0<Rli) ,X»08« 
NONE, IN0EX1 
ISW,X«40* 
NONEt I NDER 
R8,6«R11) 
R8, ICCSWl+4 



MOVE -CSW- TO MESSAGE 

ADJUST COUNT 

MOVE -ACT- TO MESSAGE 

BR. TO OUTPUT CSW 

INDICATE UIO 

BR. UNCONDITIONAL 

SAVE CSW 2 

INDICATE 2 CSWS STORED 

CHECK CTRL SW FOR 2 INTR EXPECTED 

BR. IF NOT 

BR. IF ALREADY ENABLED TWICE 
INDICATE ENABLED TWICE 

CHECK CONTROL SWITCH FOR SNS ON UC 

BR. IF OFF TO ISSUE SENSE 

SEE IF 1ST CSW IN. 

BR IF NONE. 

CHECK FOR UNIT CHECK 

IF YES BR. TO ISSUE SENSE 

CHECK FOR SECOND CSW 

BR IF NONE. 

CHECK FOR UNIT CHECK 

BR IF NONE. 

LOAD SENSE COMMAND A DDR. 
BR TO AUX START 1-0. 
CHK FOR OATA RECEIVED 
BR IF NOT. 

INDICATE SENSE RECIEVED 
TURN OFF DATA RECEIVED. 
COMPARE FOR EXPECTED SENSE 
BR IF EQUAL. 
INDICATE AN ERROR. 

SEE IF ONE DIAGNOSTIC CHK RD WANTED. 
BR IF NOT. 

PUT ADDR. OF CHK RD INTO 8. 
BR TO AUX, START 1-0. 
TEST FOR DATA RECIVED 
BR IF NOT. 

INDICATE 1ST CHK REAO OA TA RECEIVED. 

TURN OFF DATA RECEIVED SW. 

PUT ADDR. OF CHK RD INTO 8. 

BR TO AUX, START 1-0. 

SEE IF DATA RECEIVED 

BR IF NOT. 

INDIC 2ND CHK READ DATA RECEIVED. 
TRN OFF GENERAL DATA REC. SW. 
BR TO CHK DATA. 

SEE IF ANY OF THE CHK READS OK. 

BR IF YES. 

TURN ON ERROR SW. 

BR TO CONTINUE. 

BR. IF CSW STORED 
BR. UNCONDITIONAL 

BR. IF CSW 2 STORED 

BR. UNCONDITIONAL 

COMPARE FOR EXPECTED COND. CODE 

BR. IF UNEQUAL 

BR. IF NO CSW EXPECTED 

BR. IF NO CSW RECIEVED 

LOAD CSW ADDR 

STORE IN COMPARE INSTR. • 
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00133A 


D5 


07 


F 


7A0 


F 


7 AO 


ICCSW1 


CLC 


ICSW1 (8), ICSW1 


COMPARE FOR EXPECTED CSW 


001340 


47 


60 


F 


366 








BC 


UNEQ, INDER 


BR. IF UNEQUAL 


001344 


91 


04 


B 


000 








TM 


0(R11) ,X«04« 




001348 


47 


80 


F 


30C 








BC 


N0NE,IN0EX2 


BR. IF NO CSW 2 EXPECTED 


00134C 


91 


20 


F 


0E8 








TM 


ISWtX^O' 




001350 


47 


80 


F 


366 








BC 


NONE, INDER 


BR. IF NO CSW 2 RECIEVED 


001354 


41 


88 


0 


008 








LA 


R8,8 (R8) 


UPDATE TO SECOND CSW 


001358 


40 


80 


F 


360 








STH 


R8,ICCSW2+4 




00135C 


D5 


07 


F 


7A8 


F 


7A8 


ICCSW2 


CLC 


ICSW2(8),ICSW2 


COMPARE FOR EXPECTED CSW 2 . 


001362 


47 


80 


F 


36A 








BC 


EQ, IDUNCK 


BR. IF EQUAL 


001366 


96 


01 


F 


0E8 






I NDER 


01 


ISWtX'Ol" 


INDICATE AN ERROR 


00136A 


92 


64 


F 


3AA 






IDUNCK 


MVI 


IFLAG1,X»64« 


SET UP FOR ERROR PRINTOUT 


00136E 


92 


CO 


F 


542 








MVI 


IFLAG2,X , C0« 




001372 


91 


01 


F 


0E8 








TM 


ISW,X»01« 


CHECK FOR A DETECTED ERROR 


001376 


. 47 


10 


F 


38A 








BC 


ALL, I OUT IT 


BR. IF ERROR DETECTED 


00137A 


91 


01 


F 


004 








TM 


SNSW,X»01« 


CHECK SECTION SENSE SWITCH 7 


00137E 


47 


80 


F 


55E 








BC 


NONE, I LEAVE 


BR. IF OFF 


001382 


92 


24 


F 


3AA 








MVI 


IFLAG1,X»24» 


SET UP FOR CORRECT PRINTOUT 


001386 


92 


80 


F 


542 








MVI 


IFLAG2,X , 80» 




00138A 


95 


40 


F 


845 






10UTIT 


CLI 


IACSNS*5,X»40« 


SEE IF INTERVENTION REQUIRED. 


00138E 


47 


80 


F 


5DC 








BC 


EQ, RRM 


BR IF YES. 


001392 


91 


01 


F 


7A4 








TM 


ICSWH^X'OP 


SEE IF UNIT EXCEPTION. 


001396 


47 


10 


F 


5DC 








BC 


ALL, RRM 


BR IF YES. 


001 39A 


D2 


01 


F 


86C 


B 


002 




MVC 


ITSTN0+5(2),2(RU> 


MOVE TEST NO. TO PRINT AREA. 


0013A0 


OA 


DD 












SVC 


X'DD* 


CONVERT TEST NUMBER 


0013A2 


0002 












DC 


AL2C2J 




0013A4 


086C 












DC 


AL2U TSTN0+5-S ECNO ) 




0013A6 


086C 












DC 


AL2UTSTNQ+5-SECN0) 




0013A8 


OA 


DO 












SVC 


X'DO 1 


PRINT TEST NUMBER 


0013AA 


64 












IFLAG1 


DC 


X«64« 




0013AB 


09 














DC 


X'09« 




0013AC 


F867 












DC 


AL2 (ITSTNO-SECNO+REG) 




0013AE 


41 


80 


0 


004 








LA 


R8,4 


ADJUST LINK ADDRESS FOR PRINTOUT 


0013B2 


IB 


B8 












SR 


R11,R8 




0013B4 


50 


BO 


F 


7F8 








ST 


Rll,ILINK+5 




0013B8 


OA 


DD 












SVC 


X«DD» 


CONVERT LINK ADDRESS 


0013BA 


0003 












DC 


AL2I3) 




0013BC 


07F 9 












DC 


AL2 ( I L I NK+6-S ECNO ) 




0013BE 


07F8 












DC 


AL2ULINK+5-SECN0) 




0013C0 


OA 


DO 












SVC 


X«D0« 


PRINT LINK ADDRESS 


0013C2 


AO 














DC 


X'AO* 




0013C3 


10 














DC 


X«10« 




0013C4 


F7F3 












DC 


AL2ULI NK-S ECNO+REG ) 




0013C6 


41 


BB 


0 


004 








LA 


R11,4(R11) 




0013CA 


91 


80 


8 


000 








TM 


0<R11),X«80« 




0013CE 


47 


10 


F 


44C 








BC 


ALL,IOCSW 


BR. IF NO 1-0 COMMAND ISSUED 


001302 


OA 


DD 












SVC 


X'DD* 


CONVERT 1-0 ADDRESS 


001304 


000 3 












DC 


AL2(3) 




0013D6 


098A 












DC 


AL2 ( 1 0 ADR—S ECNO ) 




0013D8 


07E9 












DC 


A L2 U 0 ADDR+5-S ECNO > 




0013DA 


OA 


DO 












SVC 


X«D0« 


PRINT 1-0 ADDRESS 


0013DC 


AO 














DC 


X»A0« 




0013DD 


OF 














DC 


X«OF« 




0013DE 


F7E4 












DC 


AL2 ( I OADDR-S ECNO+REG ) 




0013E0 


95 


9C 


F 


18C 








CLI 


ISSUE, X'9C 


COMPARE FOR SIO COMMAND 


0013E4 


47 


60 


F 


43A 








BC 


UNEQ,ICCOUT 


BR. IF NOT 


0013E8 


50 


AO 


F 


808 








ST 


RlO,ICAW+5 


STORE CCW ADDR. 


0013EC 


OA 


OD 












SVC 


X«DD» 


CONVERT CAW 


0013EE 


0003 












DC 


AL2(3) 




0013F0 


0809 












DC 


AL2UCAW+6-SECN0) 




0013F2 


0808 












DC 


AL2UCAW+5-SECN0) 




001 3F4 


OA 


DO 












SVC 


X^DO* 


PRINT CAW 


0013F6 


AO 














DC 


X«AO« 




0013F7 


08 














DC 


X«OB« 




0013F8 


F803 












DC 


AL2( I CAW-S ECNO+REG) 




0013FA 


D2 


02 


F 


816 


F 


812 




MVC 


IBLAH+K3), ICCW 


MOVE -CCW- TO MESSAGE 


001400 


92 


16 


F 


435 








MVI 


ICNTtXU6* 


ADJUST COUNT 


001404 


D2 


07 


F 


7B8 


A 


000 


ICWOUT 


MVC 


W0RM8>,0 IR1Q) 


MOVE CCW TO WORK AREA 



DATE 

EC 



15JW67, 
130498 



ID F 812-0 
PAGE 4A 
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00140A 


45 


► 9( 


) F 


41E 








BAL 


po trruiT 


BR. TO OUTPUT CCW 


00140E 


91 


C( 


) A 


004 








TM 


4 f Din 1 .¥ i rn 9 


CHECK FOR ANY CHAIN FLAGS 


001412 


47 


8( 


) F 


43A 








BC 


MriMP , i rem it 


BR. IF NONE 


001416 


41 


A/1 


C 


00* 








LA 


Bin o [Din t 

f\lU ft) IKIU J 


UPDATE TO NEXT CCW 


00141A 


47 


FC 


) F 


40« 


^ 






BC 




BR» UNCONDITIONAL 


00141E 


OA 


DC 










ICOUT 


SVC 


X • DO* 


LUNVERT 


001420 


UUUo 












DC 


AL2 (8 ) 




001422 


078 8 












DC 


AL2 (WORK— SECNO) 




001424 


078 8 












DC 


Al 7 ( WORK — <I Ff NO \ 




001426 


Ud 


VI 


F 


81A 


F 


7B8 




MVC 


I fU AH+*> f ft \ - UHRK 


MOVE TO MESSAGE 


00142C 


02 


07 


F 


823 


F 


7C0 




MVC 


I BLAH+14 (ft ) .WORK+fl 

* utnllTXT \ o 9 , HUM\— O 




001432 


OA 


DC 












SVC 


X • DO • 


PR INT 


001434 


AO 














DC 


X • AO • 




001435 


1A 












ICNT 


DC 


X * 1 A 1 




001436 














DC 


AL2 ( I BLAH—*; FTNin+ftPn \ 




001438 


U 1 


f-9 












BCR 


UNC t R9 


RETURN VIA RfcG 9 


0014 3A 


02 


00 


F 


705 


8 


004 


ICCOUT 


MVC 


I EXPCC+5 ( 1 ) ,41 Rll ) 


nuvt cAr tC TO MESSAGE 


001440 


OA 


00 












SVC 


X • DO 1 


PRINT EXPECTED CUND. CODE 


001442 


AO 














DC 


X • AO^ 




001443 


OA 














DC 


X 'OA* 




001444 














DC 






001446 


UA 


DO 












SVC 


X • DO • 


PRINT ACTUAL C0ND» CODE 


001448 


AO 














DC 


X • AO • 




001449 


OA 














DC 


X 'OA* 




00144A 


r fUA 












DC 


\ l At, 1 fcLIMU+Kfcb I 




00144C 


Ud 


Vd 


F 


816 


F 


8 OF 


I ocsw 


MVC 


T D| AL1.&.1 111 TPCLf 


MOVE -CSW- TO MESSAGE 


001452 


92 


1A 


F 


435 








MVI 


I C NT .ytf Al 


ADJUST COUNT 


001456 


91 


08 


B 


000 








TM 


K/ \ t\ L l 1 9 A U 0 




00145A 


47 


80 


F 


47E 








BC 


NfiNF . mini 


BR. IF NO CSW EXPECTED 


00145E 


D2 


02 


F 


82C 


F 


832 




MVC 


1 tJL AM+23 I 3 J , I EXP 


MOVE -EXP- TO MESSAGE 


001464 


48 


8B 


0 


006 








LH 


no » o i k 1 1 I 




001468 


40 


80 


F 


478 








STH 


do i ruMfi a/ 
KB » I L.HNG1 t4 




00146C 


41 


88 


0 


008 








LA 


t\o to I Ko J 




001470 


40 


80 


F 


4A8 








STH 


R8 f ICHNG2+4 




001474 


02 


07 


F 


7B8 


F 


788 






WUKK (o)i WORK 


MOVE EXPECTED CSW TO WORK AREA 


00147A 


45 


90 


F 


41E 








BAL 


R9 t ICOUT 


BR. TO OUTPUT EXPECTED CSW ' 


00147E 


91 


40 


F 


0E8 






lUlUl 


TM 


I SW »X *40 • 




001482 


47 


80 


F 


496 








BC 


WflMC TMDDCT 

niuiNt 9 i nUKo 1 


BR. IF NO CSW STORED 


001486 


02 


02 


F 


82C 


F 


82F 




MVC 


I BLAH+23 (3) 9 I ACT 


MOVE -ACT- TO MESSAGE 


00148C 


02 


07 


F 


788 


F 


7A0 




MVC 


WORK (8 ) f I CSW1 


MOVE ACTUAL CSW TO WORK AREA 


001492 


45 


90 


F 


41E 








DAL 


DO T r* ni it* 

K9 9 ICOUT 


BR. TO OUTPUT ACTUAL CSW 


001496 


91 


04 


3 


000 








T M 


0 ( Rll ) ,X *04* 




00149A 


47 


80 


F 


4AE 








BC 


KID MET Tr»Tr\ 

nunc * lulu 


BR. IF NOT EXPECTING 2 CSWS 


001 49E 


02 


02 


F 


82C 


F 


832 




MVC 


lDLAM + 2d»l3l9 I EXP 


MOVE -EXP- TO MESSAGE 


0014A4 


02 


07 


F 


788 


F 


7B8 


ICHNG2 


MVC 


WUi\l\ I O J 9 n UK!\ 


MOVE EXPECTED CSW TO WORK AREA 


0014AA 


45 


90 


F 


41E 








DAI 

DAL. 


DO If* O ! IT 

KV 9 I LOUT 


BR. TO OUTPUT EXPECTED CSW 2 


0014AE 


91 


20 


F 


0E8 






1 01 D 


T M 


1 5W 9 A * C.U ■ 




0014B2 


47 


80 


F 


4C6 








BC 


MflMp .IP AC 
11 U ll C 9 i rAO 


BR. IF NO SECOND CSW STORED 


001486 


02 


02 


F 


82C 


F 


82F 




MVC 


1 dL 13} 9 I ACT 


MOVE -ACT- TO MESSAGE 


0014BC 


02 


07 


F 


7B8 


F 


7A8 




MVC 


ft UIMS l O # 9 1 tON£ 


MOVE CSW TO WORK AREA 


0014C2 


45 


90 


F 


41E 








BAL 


R9 9 ICOUT 




nn l Ar a. 

UU l HL, o 


02 


00 


F 


83A 


8 


005 


I PAS 


MVC 


IEXSNS*5U),5(R11) 


MOVE EXP SENSE TO MESSAGE 


0014CC 


91 


04 


F 


0E8 








TM 


ISW,X«04» 




00 1400 


47 


80 


F 


4F0 








BC 


NONE 9 I PASS 


BR. IF NO SENSE DATA RECIEVED 


0014D4 


OA 


DO 












SVC 


X»DD» 


CONVERT EXPECTED SENSE 


0014D6 


UUUl 












DC 


AL2U) 




0014D8 


083A 












DC 


AL2UEXSNS+5-SECN0) 




0014DA 


083A 












DC 


AL2UEXSNS+5-SECN0) 




0014DC 


UA 


DO 












SVC 


X«D0» j 


»RINT EXPECTED SENSE 


0014DE 


AO 














DC 


X«A0» 




0014DF 


08 














DC 


X •0B» 




0014E0 


r-85!> 












DC 


AL2 ( I EXSNS-SECNO+REG ) 




0014E2 


UA 


UU 












SVC 


X»DD« 




0014E4 


0001 












DC 


AL2U) 




0014E6 


084 5 












DC 


AL2 f I ACSNS+5-S ECN0 ) 




0014E8 


084 5 












DC 


AL2UACSNS+5-SECN0) 




0014EA 


OA 


DO 












SVC 


X»D0* f 


»RINT ACTUAL SENSE DATA 


0014EC 


AO 














DC 


X f A0» 
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0014ED 
0014EE 
0014F0 
0014F4 
0014F8 
0014FE 
001500 
001502 
001504 
001506 
00150C 
001512 
001518 
00151E 
001520 
00 1521 
00 152 2 
001524 
001528 
00152C 
001530 
001534 
001538 
00153C 
001540 
001542 
001543 
001544 
001546 
001548 
001549 
00154A 
00154C 
001550 
001554 
001558 
00155C 
00155E 
001562 
001566 
00156A 
00156E 
001572 



OB 

F840 
95 30 
47 60 
02 OB 
OA DD 
000C 
07B8 
078 8 
02 01 
02 05 
D2 05 
02 05 
OA DO 
AO 
1C 

F84B 
91 02 
47 80 

94 FD 



47 FO F 
91 80 B 
47 80 F 
45 10 F 
OA DO 
CO 
36 

F870 
OA DO 
AO 
01 

F7F3 
50 AO 0 
91 CO F 
47 50 F 
91 80 F 
07 15 
91 08 B 
47 80 F 
41 BB 0 
41 BB 0 
98 09 F 
07 FB 



181 
524 

7B8 E 080 



850 F 7B8 

853 F 7BA 

85A F 7C2 

861 F 7CA 



0E8 
534 
0E8 
102 
001 
540 
574 



048 
004 
12A 
0E8 

000 
56A 
002 
006 
778 



DC X'0B« 

DC AL2 (I ACSNS-SECN0+R6G) 

IPASS CLI SYSM0D(R14),X«30* 

BC UNEQ,ICD 

ILOGED MVC W0RK(12),L0G0UT(R14) 

SVC X'DD 1 

DC AL2U2) 

DC AL2 CWORK-SECNO) 

DC AL2(W0RK-SECN0) 

MVC I0L0G+5(2),W0RK 

MVC I0L0G+8 (6),W0RK+2 

MVC I0L0G+15(6),W0RK+10 

MVC I0L0G+22(6),W0RK+18 

SVC X«D0« 

DC X«A0« 

DC X»1C« 

DC AL2U0L0G-SECN0+REG* 

TM ISW,X«02» 

BC NONE9 IBCD 

NI ISW,X»FD« 

BC UNCIWAIT 

TM l(Rll) ,X»80» 

BC NONE, I0P0UT 

BAL R1,ICDT 

SVC X»D0» 

DC X«C0« 

DC X»36» 

DC AL2 ( I 0PT1-S ECNO+REG > 

SVC X«00« 

DC X • AO • 

DC X»01» 

DC AL2 ( I LINK-S ECNO+REG) 

ST R10,HCAW(R13) 

TM SNSW,X , C0 t 

BC ANY 9 I TRY 1 

TM ISWtX'SO* 

BCR ALL,R5 

I LEAVE TM 0{R11),X«08« 

BC NONE, IUP 

LA R11,2(R11) 

IUP LA R11,6(R11) 

LM R0,R9tISAVE 

BCR UNC, Rll 



ICD 



IBCD 



I0P0UT 
1 FLAG2 



CHECK FOR MOO 30. 
BR. IF NOT 

MOVE LOG OUT TO WORK AREA 
CONVERT 



MOVE LOG OUT TO MESSAGE 



PRINT LOG OUT 



SEE IF UIO. 
BR IF NO 

RESET UIO SWITCH 

BR. UNCONDITIONAL 

SEE IF DIAG. CHK READ DONE. 

BR. IF NOT UIO 

BR TO INDICATE ANY DATA ERRORS. 
PRINT LOOP OPTIONS 



SPACE A LINE 



STORE CAW 

CHECK SECTION SENSE 
BR. IF ANY ON 



SWITCH 0 AND i 



RETURN VIA REG 5 IF HANG UP 

BR. IF NO CSW EXPECTED 

UPDATE LINK ADDRESS FOR RETURN 



001574 


41 


20 


0 


001 


* « ~7- -V- -IT ~T- T- T -V I* -T- -1* -7. T» -V- <^ .f*. ^ 

ICDT LA R2,l 


001578 


IB 


33 








SR 


R3,R3 


00157A 


43 


30 


F 


ADA 




ic 


R3, FIRST 


00157E 


42 


30 


F 


AD8 


IT80 


STC 


R3,IC0DAT 


001582 


41 


42 


F 


A 83 




LA 


R4,CHKBUF-HR2) 


001,586 


41 


72 


F 


A33 




LA 


R7,BUFFER-1(R2) 


00158A 


D2 


24 


F 


923 F 922 




MVC 


G00DY+1 (37) , GOODY 


001590 


91 


20 


F 


004 




TM 


SNSW,X»20« 


001594 


47 


10 


F 


5A2 




BC 


ALL, ITCO 


001598 


05 


00 


7 


000 F AD8 




CLC 


0(1,R7),IC0DAT 


00159E \ 


47 


60 


F 


5C8 




BC 


UNEQ,ISIP1 


0O15A2 


91 


60 


F 


0E9 


ITCO 


TM 


ISW+1,X«60» 


0015A6 


47 


80 


F 


5B2 




BC 


NONE, IRTU 


0015AA 


91 


FF 


4 


000 




TM 


0<R4) ,X«FF« 


0015AE 


47 


50 


F 


5CC 




BC 


ANY,ISIP 


0015B2 


41 


33 


0 


001 


IRTU 


LA 


R3,1(R3) 


00 158 6 


41 


22 


0 


001 




LA 


R2 9 1(R2) 


0015BA 


55 


20 


F 


A28 




CL 


R2 , ATE1 


0015BE 


47 


60 


F 


57E 




BC 


UNEQ 9 IT80 


0015C2 


96 


02 


F 


0E9 


ISSM 


01 


ISW+lfX'OZ 1 


0015C6 


07 


Fl 








BCR 


UNC9RI 


0015C8 


96 


80 


F 


AOC 


I SI PI 


01 


DERS t X*80« 



RESTORE WORKING REGS. 
RETURN VIA REG 11 

* DATA COMPARE ROUTINE 

PUT A 1 INTO REG 2. 
ZERO REG 3. 
PICK UP EXP 1ST BYTE. 
SAVE THE BYTE FOR COMPARE. 
PICK UP ADDR OF CHK DATA BYTE. 
PICK UP ADOR OF DATA BYTE. 
BLANK DATA PRINT AREA. 
SEE IF BYPASS DATA COMPARE 
BR IF YES. 

SEE IF DATA BYTE AS EXPECTED. 
BR IF NOT EQUAL • 
SEE IF ANY CHK READS DONE. 
BR IF NO. 

SEE IF ANY CHK BITS ON. 
BR IF YES. 

ADD 1 TO EXP DATA BYTE. 
ADD 1 TO INDEX VALUE. 
SEE IF END OF COMPARE 
BR IF NO. 

TURN ON 1ST PASS SW. 
RETURN. 

TURN ON DATA ERR SW. 
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0015CC 


91 


02 


F 


0E9 


ISIP 


TM 


ISW+1,X»02» 


SEE IF 1ST PASS SW ON. 


0015D0 


47 


10 


F 


634 




BC 


ALL, IGOP 


BR |F YES 


0015D4 


96 


01 


F 


0E8 




01 


ISW,X«01» 


INDICATE AN ERROR 


0015D8 


47 


FO 


F 


5C2 




BC 


UNC, ISSW 


BR TO EXIT ROUTINE 
























* 


INTERVENTION REQUIRED ROUTINE 


0015DC 












OA 


00 






RRM 


SVC 


X*DO« 


PRINT -MAKE DEVICE READY- 


0015DE 


2410 








DC 


X*2410« 


0015E0 


F954 








DC 


AL2 ( MDR-S ECNO+REG ) 




0015E2 


OA 


OA 








SVC 


X'DA* 


HALT 


0015E4 


9D 


00 


C 


000 




TIO 


0IR12I 


TEST 1-0 


0015E8 


OA 


DO 








SVC 


X'DO* 


PRINT A BLANK. 


0015EA 


8001 








DC 


X*8001* 


0015EC 


F954 








DC 


AL2 (MDR-S ECNO+REG) 




0015EE 


47 


FO 


F 


10A 




BC 


UNCCONP 


BR TO CONTINUE. 
























* 


AUXILIARY START 1-0 ROUTINE 




0015F2 












58 


9E 


0 


198 


ISTRT 


L 


R9,WT(R14) 


LOAD DM WAIT FACTOR. 


0015F6 


88 


90 


0 


002 




SRL 


R9,2 


CUT IT DOWN TO 2.5 SECS. 


0015FA 


50 


80 


0 


048 




ST 


R8,HCAW(R13) 


STORE IN CAW 


0015FE 


9C 


00 


c 


000 


1 


SIO 


0(R12) 


START 1-0 


001602 


47 


70 


F 


622 




BC 


NCCO, IBACK 




001606 


90 


00 


c 


000 


ITIOLP 


TIO 


0(R12) 


TEST I~Q 


00 160 A 


47 


40 


F 


614 




BC 


CC1,ILQKE 


BR. IF CSW STORED 


00160E 


46 


90 


F 


606 


ITIC 


BCT 


R9, ITIOLP 


001612 


07 


F 7 








BCR 


UNCR7 


RETURN • 


001614 


91 


04 


D 


044 


IL0K6 


TM 


HCSW+4(R13I,X«04« 


CHECK FOR DEVICE END. 


001618 


47 


80 


F 


60E 




BC 


NONE, ITIC 


BR IF NOT IN YET. 


00161C 


96 


80 


F 


0E9 




01 


ISW+1,X S 80« 


INDICATE THE DATA RECEIVED. 


001620 


07 


F7 








BCR 


UNCR7 


RETURN. 


001622 


91 


01 


F 


7A4 


I BACK 


TM 


ICSW1+4,X«01« 


SEE IF UNIT EXCEPTION. 


001626 


47 


10 


F 


10A 




BC 


ALL, CONP 


BR IF YES. 


00162A 


91 


F4 


F 


845 




TM 


IACSNS+5,X«F4» 


SEE IF INTERVENTION REQUIRED. 


00162E 


47 


10 


F 


10A 




BC 


ALL, CONP 


BR IF YES. 


001632 


07 


F7 








BCR 


UNC,R7 


RETURN. 


























DATA 


PRINTOUT ROUTINE 
















001634 


91 


60 


F 


0E9 


IGOP 


TM 


ISW+1 ,X«60* 


SEE IF AT LEAST ONE CHK READ OK. 


001638 


47 


50 


F 


652 




BC 


ANY, COPT 


BR IF YES. 


00163C 


91 


80 


F 


AD9 




TM 


CRSW,X«80« 


SEE IF MSG ALREADY PRINTED. 


001640 


47 


10 


F 


6A2 




BC 


ALL , NTC 


BR IF YES. 


001644 


OA 


00 








SVC 


X»D0' 


PRINT BOTH CHK READS FAILED. 


001646 


8026 








DC 


X »8026» 


001648 


F964 








DC 


AL2 (TCRA-SECNO+REG) 




00164A 


96 


80 


F 


AD9 




01 


CRSWjX^SO 1 


TURN ON SWITCH FOR MSG. 


00164E 


47 


FO 


F 


6A2 




BC 


UNC, NTC 


GO TO MSG. 


001652 


92 


FO 


F 


938 


COPT 


MVI 


G00DY+22,C , 0» 


MOVE ZERO INTO PRINT AREA. 


001656 


91 


10 


4 


000 




TM 


0(R4),X'10» 


SEE IF XU ON IN DI AG CHK READ BYTE. 


00165A 


47 


80 


F 


662 




BC 


NONE,NXU 


BR IF NOT ON. 


001656 


92 


Fl 


F 


938 




MVI * 


G00DY+22,C , 1* 


MOVE ONE INTO PRINT AREA. 


001662 


92 


FO 


F 


93B 


NXU 


MVI 


G00DY+25,C»0» 


PUT ZERO INTO PRINT AREA. 


001666 


91 


08 


4 


000 




TM 


0(R4) ,X«08» 


SEE IF XL ON IN DI AG CHK DATA. 


00166A 


47 


80 


F 


672 




BC 


NONE, NXL 


BR IF NOT ON. 


00166E 


92 


Fl 


F 


935 




MVI 


G00DY+25,C» !• 


MOVE ONE INTO PRINTOUT 


001672 


92 


FO 


F 


93E 


NXL 


MVI 


GC0DY+28,C , 0« 


MOVE ZERO INTO PRINTOUT. 


001676 


91 


04 


4 


000 




TM 


0(R4) ,X'04« 


SEE IF BUFFER PARITY ON IN CHK DATA. 


00167A 


47 


80 


F 


682 




BC 


NONE, NBP 


BR IF NOT ON. 


00167E 


92 


Fl 


F 


93E 




MVI 


G00DY+28,C» 1« 


MOVE A ONE INTO PRINTOUT. 


001682 


92 


FO 


F 


942 


NBP : 


MVI 


GG0DY+32,C'0« 


MOVE A ZERO INTO PRINTOUT. 


001686 


91 


01 


4 


000 




TM 


0(R4) ,X'01« 


SEE IF A DDR CHK IN CHK DATA 


00168A 


47 


80 


F 


692 




BC 


NONE, NAC 


BR IF NOT. 


00168E 


92 


Fl 


F 


942 • 




MVI 


GG0DY+32,C t l* 


MOVE A ONE INTO THE PRINTOUT. 


001692 


92 


FO 


F 


947 


MAC 


MVI 


G0QDY+37,C*0 # 


MOVE A ZERO INTO PRINTOUT. 


001696 


91 


©2 


4 


000 




TM 


0CR4),X , 02» 


SEE IF TRANSLATE CHK 


00 169 A 


47 


80 


F 


6A2 




BC 


NONE, NTC 


BR IF NO. 
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00169E 


92 


Fl 


F 


947 






0016A2 


91 


80 


F 


AD7 






0016A6 


47 


10 


F 


6CC 






0016AA 


OA 


00 










0016AC 


A009 










0016AE 


F8A6 










0016B0 


OA 


DO 










0016B2 


A014 










0016B4 


F8AF 










0016B6 


OA 


DO 










0016B8 


A001 










0016BA 


F8D9 










0016BC 


OA 


DO 










0016BE 


A022 










0016C0 


F80 9 










0016C2 


OA 


DO 










0016C4 


A027 










0016C6 


F8FB 










0016C8 


96 


80 


F 


AD7 






0016CC 


18 


42 










0016CE 


4E 


40 


F 


7B0 






0016D2 


F3 


11 


F 


924 


F 


786 


0016D8 


96 


FO 


F 


925 






0016DC 


91 


20 


F 


004 






0016E0 


47 


10 


F 


75E 






0016E4 


02 


00 


F 


7B0 


7 


000 


0016EA 


OA 


DD 










0016EC 


000 1 










0016EE 


07B0 










0016F0 


0934 










0016F2 


OA 


DO 










0016F4 


0001 










0016F6 


0AD8 










0016F8 


0930 










0016FA 


90 


04 


F 


D54 






0016FE 


Id 


11 










001700 


IB 


22 










001702 


IB 


33 










001704 


41 


40 


0 


002 






001708 


43 


30 


F 


AD8 






00170C 


18 


13 










00170E 


10 


24 










001710 


1A 


31 










001712 


43 


13 


F 


D6A 






001716 


89 


10 


0 


008 






00171A 


43 


13 


F 


D68 






00171E 


41 


30 


0 


OFF 






001722 


14 


23 










001724 


47 


50 


F 


72C 






001728 


88 


10 


0 


004 






00172C 


50 


10 


F 


7B0 






001730 


41 


40 


0 


006 






001734 


41 


30 


0 


OOC 






001738 


41 


00 


0 


001 






00173C 


43 


23 


F 


947 






001740 


58 


10 


F 


78 0 






001744 


14 


10 










001746 


47 


80 


F 


752 






00174A 


42 


24 


F 


927 






00174E 


46 


40 


F 


752 






001752 


89 


00 


0 


001 






001756 


46 


30 


F 


73C 






00175A 


98 


04 


F 


0 54 






00175E 


OA 


DO 










001760 


8026 










001762 


F922 










001764 


47 


FO 


F 


5B2 







NTC 



PIK 



NXT 



PRGD 



MVI 


GaODY+37,C , l l 


MOVE A ONE INTO PRINTOUT. 


TM 


HDSW,X *80« 


SEE IF HEADING PRINTED. 


BC 


ALL, I PDA 


BR IF YES. 


SVC 


X •DO t 


PRINT 1ST HDR. 


DC 


X ^009* 




DC 


AL2 (HD1-SECN0+REG) 




SVC 


X »D0* 


PRINT CARD LOCATION IN READER. 


DC 


X 1 A014« 




DC- 


AL2 (HD1 A-S ECNO+REG ) 




SVC 


X , D0» 


PRINT A BLANK. 


DC 


X • A001» 




DC 


AL2 (BIG-S ECNO+REG) 




SVC 


X 'DO" 


PRINT HEADING 3. 


DC 


X«A022 f 




DC 


AL2 (BIG-S ECNO+REG) 




SVC 


X'DO* 


PRINT HEADING 4. 


DC 


X , A027» 




DC 


AL2 ( BE AUTY-S ECNO+REG ) 




01 


HDSW,X*80' 


TURN ON THE HEADING SW. 


LR 


R4 , R2 


PUT THE COLUMN NO. INTO REG 4. 


CVD 


R4, DBWD 


CONV IT TO DECIMAL. 


UNPK 


GOODY+2 (2), DBWD+6 ( 2 ) 


PUT IT INTO PRINT AREA. 


01 


GOODY+S^FO 1 


COVER SIGN UP FOR PRINTING. 


TM 


SNSW,X»20» 


SEE IF SSW 2 ON. 


BC 


ALL, PRGD 


BR IF YES TO PRINT ONLY DI AG DATA. 


MVC 


DBWD(l) ,0(R7) 


MOVE ACTUAL DATA TO CONVERT AREA. 


SVC 


X«DD« 


CONVERT FROM HEX TO BINARY. 


DC 


AL2(01) 


1 BYTE. 


DC 


AL2(DBWD-SECNQ) 


FROM HERE. 


DC 


AL2(G00DY+18-SECN0) 


TO HERE 


SVC 


X*DD« 


CONVERT FROM HEX TO BINARY. 


DC 


AL2(01) 


1 BYTE. 


DC 


AL2 ( I CODAT-SECNO) 


FROM HERE 


DC 


AL2 (G000Y+14-S ECNO ) 


TO HERE 


STM 


R0,R4, TWENTY 


SAVE REGISTERS 


SR 


Rl.Rl 


ZERO REG 1 


SR 


R2,R2 


ZERO REG 2. 


SR 


R3,R3 


ZERO REG 3. 


LA 


R4,2 


LOAD DIVISOR 


IC 


R3,IC0DAT 


PICK UP HEX CHARACTER 


LR 


R1,R3 


SAVE HEX CHARACTER 


DR 


R2,R4 


DIVIDE HEX CHARACTER BY 2 


AR 


R3,R1 


ADD DIVIDEND TO CHARACTER 


IC 


R1,H0LES(R3) 


PICK UP FIRST BYTE 


SLL 


Rl,8 


SHIFT 


ic 


Rl,H0LES+l(R3) 


PICK UP SECOND BYTE 


LA 


R3,255 


LOAD MASK 


NR 


R2,R3 


AND WITH REMAINDER 


BC 


ANY,*+8 


BR. IF THERE WAS A REMAINDER 


SRL 


Rl,4 


SHIFT OFF UNUSED 4 BITS 


ST 


Rl , DBWD 


SAVE REG 1. 


LA 


R4,6 


SET UP FOR 6 POSSIBLE PUNCHES 


LA 


R3,12 


SET UP TO CHECK 12 PUNCHES 


LA 


RO,l 


LOAD MASK 


IC 


R2,PUNCHS-1(R3) 


PICK UP PRINTABLE CHARACTER 


L 


Rl , DBWD 


RESTORE REG 1. 


NR 


R1,R0 


TEST FOR PUNCH 


BC 


NONE, NXT 


BR. IF NONE 


STC 


R2, GOODY +5 (R4) 


STORE PRINTABLE CHARACTER 


BCT 


R4,*+4 


DECREMENT PRINT AREA INDEX 


SLL 


R0,1 


SHIFT MASK FOR NEXT BIT 


BCT 


R3,PIK 


BR. UNTIL 12 CHECKED 


LM 


R0,R4, TWENTY 


RESTORE REGISTERS 


SVC 


X'DO 1 


PRINT THE DATA. 


DC 


X«8026» 




DC 


AL2 (GOODY -S ECNO+REG) 




BC 


UNCIRTU 


RETURN TO COMPARE RTN. 



*********************************************************************** 



DATE 15JUN67 i D F812-0 

EC 130498 PAGE 6A 
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001768 


04 001845 0000 0001 


ISENSE 


CCW 


X»04«,IACSNS+5,X 


001770 


C6 001 A 84 2000 0050 


DCRD 


CCW 


X»C6 # ,CHKBUF,X«2 


001778 


00000000 


I SAVE 


DC 


10F«0« 


00177C 


00000000 








001780 


00000000 








001784 


000 00000 








001788 


00000000 








00178C 


00000000 








001790 


oooooooo 








001794 


00000000 








001798 


oooooooo 








00179C 


oooooooo 








0017A0 


0000000000000000 


' IGS'Wl 


DC 


XL8 f 0» 


0017A8 


0000000000000000 


ICSW2 


DC 


XL8*0« 


0017B0 


+00. 00000000000000 


DBWD 


DC 


D«0» 


0017B8 




WORK 


DS 


24C 


0017DO 


40C 3C34040E740C5E7 


IEXPCC 


DC 


C» CC X EXP» 


0017D9 


D7 








0017DA 


40C3C34040E740C1C3 


IACTCC 


DC 


C« CC X ACT' 


0017E3 


E3 








0017E4 


40C1C4D940E7E7E7E7 


IOADDR DC 


C« ADR XXXXXX XI 


0017ED 


E7E 740E7C9D6 








0017F3 


00 




DC 


X«00» 


0017F4 






CNOP 


0,4 




0017F3 




ORG 


*-l 


0017F3 


40C 1C4D940E7E7E7E7 


I LINK 


DC 


C» ADR XXXXXX LI 


0017FC 


E7E740D3C9D5D2 








001803 


00 




DC 


X«00» 


001804 






CNOP 


0,4 




001803 




ORG 


*-l 


001803 


40C3C1E640E7E7E7E7 


ICAW 


DC 


C« CAW XXXXXX • 


00180C 


E7E740 








00180F 


C3E2E6 


ICSW 


DC 


C'CSW* 


001812 


C3C3E6 


ICCW 


DC 


C»CCW« 


001815 


40C3E2E640E7E7E7E7 


I BLAH 


DC 


C« CSW XXXXXXXX 


00181E 


E7E7E7E740E7E7 








001825 


E7E 7E7E7E7E740C5E7 




DC 


C'XXXXXX EXP' 


00182E 


D7 








00182F 


C1C 3E3 


IACT 


DC 


C»ACT« 


001832 


C5E7D7 


IEXP 


DC 


C«EXP» 


001835 


40E 2D5E240E7E740C5 


IEXSNS 


DC 


C« SNS XX EXP« 


00183E 


E70 7 








001840 


40E 2D5E240E7E740C1 


IACSNS 


DC 


C» SNS XX ACT* 


001849 


C3E3 








00184B 


40D 3D6C740E7E740E7 


IOLOG 


DC 


C« LOG XX XXXXXX 


001854 


E7E7E7E7E740E7 








00185B 


E7E7E7E7E740E7E7E7 




DC 


C'XXXXX XXXXXX* 


001864 


E7E7E7 








001867 


40£ 3E 2E 340E 7E 7E 7E 7 


ITSTNO 


DC 


C« TST XXXX» 


001870 


40E 2C5E340E2E240F0 


I0PT1 


DC 


C« SET SS 0 ON F 


001879 


40D 6D540C6D6D9 








001880 


40D 3D6D6D740D6D540 




DC 


C« LOOP ON XIO, 


001889 


E7C 9D66B40E2E2 








001890 


40F 140D6D540C6D6D9 




DC 


C« 1 ON FOR TIO 


001899 


40E 3C9D640E2C9 








0018A0 


D640D3D6D6D7 




DC 


C«0 LOOP* 


0Q18A6 


40D 9C 5C 1C 440C 5D 9D 9 


HD1 


DC 


C 1 READ ERR' 


0018AF 


40C 3C ID 9C 440C 90 54 0 


HD1A 


DC 


C» CARD IN « 


0018B8 


D709C5E 2E 3D2D940E2 




DC 


C* PRESTKR STA« 


0018C1 


E3C1 








0018C3 


D7D9C5E2E3D2D940E2 


PRES 


DC 


C* PRESTKR STA* 


0018CC 


E3C1 






0018CE 


E2E 3C1C3D2C 50 94009 


STK1 


DC 


C'STACKER Rl.« 


0018D7 


F14B 








0018D9 


404 0404 040C 5E 7D 7C 5 


BIG 


DC 


C« EXPECTED 


0018E2 


C3E3C5C440E2C8 









* 1-0 HANDLER WORK AREA. 

*******************#******************^ 
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on i oca 


r nAn AnAHAnAnAnAn 

U HH UHU*fU*f U*tU**-UfU*f U 




nr 
uu 


C 1 D B' 




nn l qp o 

uu jl or c. 


AnA nA.nA.nA.nA.nr o 

HUH U*t-UHU*tU*frUU C. 










00 1 8F 9 


C At* A 




nr 
uu 


C Ur 1 




nn l oca 

UU lorD 


/. n ontm/.nmc/.nKn 
HUu JUouinUL) ftHUDL-J 


BEAUTY 


DC 


c 1 cat nnurucc ont 
U UUL PUNUntb RD" 




UU IVUH 


r or rc *> a funr> or a 
Low Dt /iHUHUU VU 4 










nn i o nn 

UU lVUo 


An a nn or itnc *7C AAnc T 
HUH UU VI, HHUt ICHHUt i 




DC 


ft DA VII VI DAD At 

U KU All XL rAK A 




nn 1 o l a 

UU l7lf 


n ~x a nn 7r i noAnr 1 

ujHUU II/1U7HUU1 










nn iqib 
uu iv Id 


r An OAnc mr\ or in<: 

UHU 7HUt 1LID 




DC 


r 1 no td ami 
U UK 1 KAN • 




nn loo? 

UU L*J £.£. 


An A HAHA HAH AHAnAnAH 
HUH UHUHUHUHUHUHUHU 


nnnn v 


nr 
uu 


r 1 t 

u 




nn i o 5r 

UU l7tQ 


An a nAnAHAnAnAn 

HUH UHUHUHUHUHU 










nn i on 
UU IV 3d 


J. r\i. r\ /, rv /. o /. n A A A A A A A A 

HUH UHUHUHUHUHUHUHU 




rfr 
UU 


C 1 * 




aa 1 rt id 
00 193B 


A AA AA AA AA A A AA A 

404 04040404040 










aa i a y o 

00 1942 


404040404040 




DC 


C« • 




nn i oaq 

UU l7*fO 


c t»c nc 1C AC RP A 
t o\» ->r Ur lr c.r or Hr 3ro 


PUNCHS 


DC 


C t TE0123456789« 




00 1951 


F 7F 8F 9 










00 19 54 


Ann ap mor «iinp at rpcs 

HUU HU lU'U HL3C3 


MDR 


DC 


C« MAKE DEVICE RDY* 




nn i o *%n 

UU 


r or "xr *>Ann or ac a 
U Vv, 3U ->HUu 7U Ht o 










nn l o a a 

UU l70t 


/.nc t a nr at or i r TAnr 
HUr ZHUv. HU VU 1U f HUU j 


TCRA 


DC 


C« 2 DI AG CHK RDS • 




nn i o An 


on *> a a a nr a n o a a 
Coll240Uvu4t240 










nn iota 
UU 1 V I H 


L It 3t 3C DU40 ft 3C DL.4 




DC 


C • ATTEMPTED -BOTH • 




nn i oin 
UU 1 V t U 


a a a nr *> a a.c ^ir o t. a 
HUD Ul* tU Ot OK, BHU 










nn l on. a. 

UU 170H 


r ap i r on <;r a 




DC 


C'FAILED* 




nn i onA 

UU A 70fl 


nni i ftr 
UUl 1 ou 


I0ADR 


DC 


AL3USSUE) 




nn i onn 
uu l 7ou 


CC 

rC 


MSK1 


DC 


X'FE' 




00 1 98F 


n l 

U 1 


MSK2 


DC 


X»01« 




00 198F 


nn 
uu 


RTSV 


DC 


X^OO 1 


SAVE RT NO. FOR HANGUP. 


nn loon 
UU 1 WU 


Anc Ar on AAnr AnonAnA 
HUfc HU VL> OHUUOU VUOl/H 


IUN.EX 


DC 


C« UI0 FROM DEVICE 1 




nn i nno 
•UU IVVV 


Anr at t;r or hi* k 
HUU HU PC !>U VU 3U D 










nn i oa n 

UU 1 jA U 


Hue f C f C f C 1 




DC 


C* XXXX» 














* 




INITIALIZE ROUTINE 








nn i oa a 

UU JL VA O 


1 ft nn 

ID UU 


I NIT 


SR 


R13,R13 


ZERO REG 13 


nn l oa a 

UU X 7A o 


Q1 AA C 1 OA 
7i HU t l7D 




TM 


406(Ri4),X«40» 


CHECK FOR FORCED PROBLEM STATE 


nn l a a r 

UU l'JAU 


A"7 on C Oft? 
H f OU r 7D A 




BC 


NONE, NITWIT 


BR. IF NOT 


nm onn 


1 8 DF 




LR 


R13,R15 


SET UP FOR PROBLEM STATE 


00 19B 2 


30 U U r UC H 


NITWIT 


L 


R12,UNIT2 


PICK' UP THE PUNCH UNIT TABLE. 


nn 1 on a 

\J\J 1. J & +J 


54 rn f A3n 




N 


R12,M0D50 


SAVE ONLY THE PUNCH ADDR. 


00 19BA 


JyJ KrSJ r HA"T 




ST 


R12,PCH 


SAVE IT 


00 19BE 


sft rn p npn 




L 


R12,UNIT1 


LOAD REG 12 WITH UNIT TABLE ENTRY 


00 19C 2 


«;a r n p a "*n 

->H U U 1 A jU 




N 


R12,MOD50 


SAVE ONLY THE READER ADDR. 


nn i or a 

UU l7l.O 


cn r n p A?n 

3U U U r A aU 




ST 


R12 , RDR 


SAVE IT 


00 19CA 


H7 H^> P AHA P AfiA 
U f Ua r AUH r AUH 




XC 


MSSW(3) ,MSSW 


ZERO AUXILIARY SWITCHES. 


nn l onn 

UU i. 7UU 


IB 66 




SR 


R6,R6 


ZERO REG 6. 


00 1902 


a - ^ ap n i a 0 

H3 OC U Ib7 




IC 


R6,DMI0L(R14) 


PUT LENGTH OF DM 10 TABLE INTO 6. 


nn l qh a 


AA AP n 1 Rf 




AH 


R6,DMPTRCR14) 


ADD OFFSET ADDRESS TO LENGTH. 


nn i on a 


1A 6E 




AR 


R6,R14 


ADD BASE REG VALUE. 


nn i onr 

UU 1 7Ul» 


06 60 




BCTR 


R6,0 


SUBTRACT 2 TO GET 


00 190E 


06 60 




BCTR 


R6,0 


TO LOADER ADDR. 


00 19E0 


aq pa n nnn 




CH 


R12,0(R6) 


SEE IF TEST DEVICE IS LOADER. 


0019E4 


47 60 F 9EC 




BC 


UNEQ, BL00P 


BR IF NOT. 


00 19E 8 


OA ftn P AHA 




01 


LDSW,X»80« 


TURN ON LOADER SW. 


0019EC 


91 80 F 0E8 


BL00P 


TM 


ISW,X»80» 


CHECK FOR HANG UP 


00 19F0 


47 10 F A04 




BC 


ALL, HANGUP 


BR. IF DETECTED 


0019F4 


92 40 F A34 




MVI 


BUFFER, C* • 


CLEAR DATA AREA. 


0019F8 


D2 9E F A35 F A34 




MVC 


8UFFER+1 (159), BUFFER 


CLEAR DATA AREA. 


0019FE 


41 AO F D48 




LA 


R10,N00P 


PUT ADDR OF N00P INTO REG 10. 


001A02 


07 F4 




BCR 


UNCR4 


RETURN VIA REG 4 


001A04 


02 00 F 003 F 98F 


HANGUP 


MVC 


SECN0+3(1),RTSV 


RESTORE RT NO. 


001A0A 


OA DO 




SVC 


X * DO 1 


PRINT 


001A0C 


64 




DC 


X«64» 


-PREVIOUS HANGUP DETECTED- 


001AOD 


1A 




DC 


X«1A« 




001A0E 


FAOD 




DC 


AL2 (HUNG-SECN0+REG) 




001A10 


96 01 F 0E8 




01 


ISW,X»0l« 


TURN ON ERROR SWITCH. 


001A14 


45 50 F 28E 




BAL 


R5,ID0SNS 


BR. TO OUTPUT AVAILABLE INFO 


001A18 


92 00 F 0E8 




MVI 


ISW,X«00» 


RESET HANGUP SWITCH 


001A1C 


47 F0 F 9EC 




BC 


UNCBL00P 




001 A 20 






CNOP 


0,4 




DATE 


15JUX67 








ID F812- 



EC 



130498 



PAGE 



7A 



/ 



IB* MAINTENANCE DIAGNOSTIC PROGRAM 
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001A20 


00000000 


RDR 


DC 


001A24 


00000000 


PCH 


DC 


001A28 


00000051 


ATE1 


DC 


001A2C 


00000000 


CNTR 


DC 


001A30 


00003FFF 


M0D50 


DC 


001A34 




BUFFER 


DS 


001A84 




CHKBUF 


OS 


001AD4 


00 


MSSW 


DC 


001AD5 


00 


PS 


DC 


001A06 


00 


LDSW 


DC 


001AD7 


00 


HOSW 


DC 


001AD8 


00 


ICOOAT 


DC 


001A09 


00 


CRSW 


DC 


001ADA 


00 


FIRST 


DC 


001AD8 


00 


SFLE 


DC 


001ADC 


00 


DERS 


DC 


001A0D 


400 7D9C 5E5C906E4E2 


HUNG 


DC 


001AE6 


40C 8C105C740E4 






001AED 


0740C4C5E3C5C3E3C5 




DC 


001AF6 


C4 




001AF8 






CNOP 



* AUXILIARY WORK AREA* 

F«0« 
F»0" 
F»81« 
F«0« 

X«00003FFF« 
80C 
80C 
X'OO' 
X«00« 
X»00» 
X«00« 
X«00« 
X«00« 
X«00« 
X«00 8 
X«00 f 

C« PREVIOUS HANG U« 
C«P DETECTED* 
0,4 

* ROUTINE 01 - IF SECTION SENSE SWITCH 9 IS ON, THIS ROUTINE WILL 

* PUNCH A SET OF DATA CARDS FOR USE IN THE RIPPLE READ 

* ROUTINE. IF SECTION SENSE SWITCH 4 IS ALSO ON, MANY 

* SETS WILL BE PUNCHED CONTINUOUSLY. 



001AF8 


01 








R0UT01 


DC 


001AF9 


OOOBDC 






DC 


001AFC 


91 


40 


F 


005 




TM 


001600 


47 


80 


F 


B9E 




BC 


001B04 


45 


40 


F 


9A6 




BAL 


001B08 


96 


80 


F 


AOS j? 




01 


OOlBdc 


18 


77 






DAG 


SR 


001B0E 


45 


40 


F 


BAO 




BAL 


00 IB 12 


41 


60 


0 


01B 




LA 


001B16 


58 


CO 


F 


A24 




L 


001B1A 


41 


AO 


F 


038 




LA 


00 IB IE 


45 


80 


F 


OEA 


PSIO 


BAL 


001B22 


3E00 








DC 


001B24 


0010 








DC 


001B26 


FOOO 








DC 


001B28 


FF04 








DC 


001B2A 


91 


02 


F 


7A4 




TM 


001B2E 


47 


10 


F 


BBA 




BC 


001B32 


91 


02 


F 


7AC 




TM 


001B36 


47 


10 


F 


BBA 




BC 


001B3A 


91 


01 


F 


0E8 




TM 


001B3E 


47 


10 


F 


B IE 




BC 


001B42 


94 


7F 


F 


AOS 




NI 


001B46 


18 


77 








SR 


001B48 


43 


70 


F 


A3B 




IC 


001B4C 


45 


40 


F 


BAO 




BAL 


001B50 


46 


60 


F 


B IE 




BCT 


001B54 


91 


08 


F 


004 




TM 


001B58 


47 


10 


F 


BOC 




BC 


0OIB5C 


D2 


00 


F 


AOB F A34 ' 




MVC 


001B62 


45 


40 


F 


9A6 




BAL 


001866 


58 


CO 


F 


A24 




L 


001B6A 


41 


AO 


F 


038 


PBLK 


LA 


001B6E 


45 


BO 


F 


OEA 




BAL 


001872 


3E00 








DC 


001B74 


0010 








DC 


001876 


FOOO 








DC 


001B78 


FF04 








DC 



X«01« 

AL3 (R0UT02-SECN0I 

SNSW*1,X»40« 

NONE, EXTP 

R4,INIT 

PS,X«80» 

R7,R7 

R4, INDAT 

R6,27 

R12,PCH 

R10,PCHCMD 

R11,IS10 

X*3E00« 

X«0010« 

X«FO0O« 

AL2 1EXP3-SECN0+REG) 

ICSW1+4,X«02» 

ALL,BU102 

ICSW2+4,X*02« 

ALL,BU102 

ISW,X«01» 

ALL, PSIO 

PS,X«7F« • 

R7,R7 

R7 , BUFFER+7 
R4, INDAT 
R6,PSI0 
SNSW,X«08« 
ALL, DAG 

SFLE(l), BUFFER 

R4,INIT 

R12,PCH 

R10,PCHCMD 

R11,ISI0 

X«3E00» 

X«0010» 

X«FOOO» 

AL2 i EX P3-S ECNO+REG ) 



ROUTINE NUMBER 

ADDRESS OF NEXT ROUTINE 

SEE IF SENSE SW 9 I S ON. 

BR IF NOT. 

BR TO INITIALIZE. 

TURN ON 1ST PASS SU. 

INITIALIZE 1ST BYTE TO ZERO. 

BR TO SET UP PUNCH DATA. 

PUT 27 INTO REG 6. 

PUT PUNCH A DDR. INTO REG 12. 

PUT PUNCH CMD A DDR. INTO REG 10. 

BR TO ISSUE START 1-0. 

CTRL SWITCHES 

TEST NUMB ER 
EXP COND. CODE AND SENSE. 
EXP CSW AODR f 

SEE IF UNIT CHECK IN 1ST CSW. 
BR IF ON. 

SEE IF UNIT CHECK IN 2ND CSW. 
BR IF ON. 

SEE IF ERROR OTHER THAN UNIT CHK. 
BR IF YES. 

TURN OFF 1ST PASS SW. 
ZERO REG 7. 

PICK UP 8TH COLUMN OF DATA IN BUFFER 
BR TO SET UP NXT CARD DATA. 
BR TO PCH ALL 27 CARDS. 
SEE IF SENSE SW 4 IS ON. 
BR IF YES. 

SAVE LAST BUFFER CHAR. 

BR TO INITIALIZE. 

PUT PCH ADDR INTO REG 12. 

PUT THE PCH CMD INTO REG 10. 

BR TO ISSUE START 1-0 

CTRL SWITCHES 

TEST NUMBER 
EXP COND CODE AND SENSE. 
EXP CSW ADDRESS. 



DATE 
EC 



15JUN67 
130498 



ID F812-0 
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001B7A 


IB 


66 








SR 


R6,R6 


ZERO REG 6. 


001B7C 


D2 


00 


F 


A34 F ADB 




MVC 


BUFFER ( 1 ) ,SFLE 


RESTORE LAST CHAR IN BUFFER. 


001B82 


91 


02 


F 


7A4 




TM 


ICSW1+4 V X*02' 


SEE IF UNIT CHK IN 1ST CSW. 


001B86 


47 


10 


F 


BBA 




BC 


ALL,BU102 


BR IF YES. 


001B8A 


91 


02 


F 


7AC 




TM 


ICSW2+4,X«02* 


SEE IF UNIT CHK IN 2ND CSW. 


001B8E 


47 


10 


F 


BBA 




BC 


ALL, BU102 


BR IF YES. 


001B92 


92 


40 


F 


A34 




MVI 


BUFFER, C« « 


MOVE A BLANK TO BUFFER. 


001B96 


91 


01 


F 


0E8 




TM 


ISW,X«01» 


SEE IF ERROR OTHER THAN UNIT CHK. 


001B9A 


47 


10 


F 


B6A 




BC 


ALL, PBLK 


BR IF YES. 


001B9E 


OA 


D6 






EXTP 


SVC 


X»D6» 


ROUTINE EXIT 












********************************^ 












* 


SET UP PUNCH DATA HERE 
















001BA0 


41 


80 


F 


A 34 


INDAT 


LA 


R8 , BUFFER 


PUT ADDR OF BUFFER INTO REG 8. 


001BA4 


41 


50 


0 


050 




LA 


R5,80 


PUT 80 INTO REG 5. 


001BA8 


• 42 


78 


0 


000 


PIB 


STC 


R7,0(R8) 


STORE THE CHARACTER INTO THE BUFFER. 


001BAC 


41 


77 


0 


001 




LA 


R7,1(R7) 


ADD 1 TO THE DATA BYTE 


001BB0 


41 


88 


0 


001 




LA 


R8,1(R8) 


ADD 1 TO BUFFER ADDR. 


001BB4 


46 


50 


F 


BA8 




BCT 


R5,PIB 


BR UNTIL FULL BUFFER. 


001BB8 


07 


F4 








BCR 


UNCR4 


RETURN. 
























♦ 


PUNCH 


ERROR ROUTINE. 
















001BBA 


91 


80 


F 


AD5 


BU102 


TM 


PS,X»80« 


SEE IF 1ST PASS. 


001BBE 


47 


10 


F 


B1E 




BC 


ALL, PSIO 


BR IF YES. 


001BC2 


18 


77 








SR 


R7,R7 


ZERO REG 7. 


001BC4 


43 


70 


F 


A34 




IC 


R7, BUFFER 


PICK UP 1ST BYTE IN BUFFER. 


001BC8 


4B 


70 


F 


068 




SH 


R7,SEV 


SUB. 7 FROM THE 1ST BYTE. 


OOlBCC 


45 


40 


F 


BAO 




BAL 


R4, INDAT 


BR TO GEN PREVIOUS CARD DATA. 


001BD0 


41 


66 


0 


001 




LA 


R6,l (R6) 


ADO 1 TO CD COUNTER TO COMPENSATE. 


001BD4 


96 


80 


F 


AD5 




01 


PS,X«80* 


TURN ON PASS SW. IN CASE 2 ERRS. 


001BD8 


47 


FO 


F 


B1E 




BC 


UNCPSIO 


BR TO PUNCH ROUTINE. 


001BDC 












CNOP 


0,4 














**************************4^*!M*^ 












* ROUTINE 02 


- RIPPLE READ TEST. READ 27 DETAIL CARDS. 














001BDC 


02 








R0UT02 


DC 


X'02« 


ROUTINE NUMBER 


001B0D 


OOFFFF 






DC 


X'OOFFFF* 


LAST ROUTINE 


001BE0 


45 


40 


F 


9A6 




BAL 


R4.INIT 


BR TO INITIALIZE 


001BE4 


D7 


03 


F 


A2C F A2C 




XC 


CNTR, CNTR 


ZERO THE CARD COUNTER 


001BEA 


91 


80 


F 


AD6 




TM 


LDSW,X«80« 


SEE IF LOADER IS TEST DEVICE. 


001BEE 


47 


10 


F 


C12 




BC 


ALL, IN2 


BR IF YES. 


001BF2 


OA 


DO 








SVC 


X'DO" 


PRINT -DO NOPROt PUT DETAIL CDS INTO 


001BF4 


043 5 








DC 


X«0435» 




001BF6 


FF24 








DC 


AL2 (DONPRO-SECNO+REG) 




001BF8 


91 


40 


F 


005 




TM 


SNSW+1,X«40« 


TEST SSW 9. 


001BFC 


47 


10 


F 


C06 




BC 


ALL, HALT 


BR IF ON. 


001C00 


OA 


DO 








SVC 


X • 00 « 


PRINT HOW TO GET DETAIL CDS. 


001C02 


A03A 








DC 


X« A03A« 




001C04 


FF85 








DC 


AL2 (SSW9-SECN0+REG) 




001C06 


OA 


DA 






HALT 


SVC 


X'DA' 


-HALT- 


001C08 


OA 


DO 








SVC 


X'DO^ 


PRINT A BLANK. 


001C0A 


8001 








DC 


X«8001« 




001C0C 


FF24 








DC 


AL2 ( DONPRO-SECNO+REG ) 




001C0E 


90 


00 


C 


000 




TIO 


0(R12) 


CLEAR NOT READY TO READY INTERRUPT. 


001C12 


94 


7F 


F 


AD4 


1N2 


NI 


MSSW,X«7F« 


ZERO THE MSG BYPASS SW. FOR LOOPS. 


001C16 


92 


00 


F 


ADA 




MVI 


FIRST, X«00« 


ZERO THE EXPECTED DATA BYTE. 


001C1A 


58 


CO 


F 


A 20 


RETN 


L 


R12,RDR 


PICK UP READER ADDR. 


001C1E 


41 


AO 


F 


D28 


LRNF1 


LA 


RIO »RDNF 


PUT ADDR OF RD NO FD CCW INTO 10. 


001C22 


D2 


OA 


F 


8B8 F 8C3 




MVC 


HD1A+9(11),PRES 


MOVE WORD -PRESTK- TO MSG. 


001C28 


45 


BO 


F 


OEA 




BAL 


R11,ISI0 


BR TO ISSUE START 1/0. 


001C2C 


2A80 








DC 


X»2A80» 


CTRL SWITCHES 


001C2E 


002 0 








DC 


X«0020« 


TEST NU MBER 


001C30 


FOOO 






ESNS 


DC 


X«FOOO f 


EXP COND. CODE AND SENSE. 


001C32 


FEEC 








DC 


AL2CEXP1-SECN04REG) 


EXP CSW ADDRESS. 


001C34 


91 


80 


F 


ADC 




TM 


DERS,X»80« 


SEE IF DATA ERROR. 


001C38 


47 


10 


F 


C42 




BC 


ALL » DOF 


BR IF YES. 


001C3C 


D2 


00 


F 


ADA F A34 




MVC 


FIRST(I), BUFFER 


MOVE THE DATA BYTE FROM BUFFER. 



DATE 15JUN67 i D F812-0 

EC 130498, PAGE 8A 
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001C42 


41 


AO 


F 


D30 


DOF 


LA 


RIO »FSS1 


001C46 


45 


BO 


F 


OEA 




BAL 


R11,ISI0 


001C4A 


2E00 








DC 


X'2E00« 


001C4C 


0030 








DC 


X '0030' 


001C4E 


F100 








DC 


X 'F100' 


001C50 


FEF4 








DC 


AL2 (EXP2-SECN0+REG) 


001C52 


58 


40 


F 


A2C 




L 


R4 f CNTR 


001C56 


41 


44 


0 


001 




LA 


R4,1(R4) 


001C5A 


50 


40 


F 


A2C 




ST 


R4 1 CNTR 


001C5E 


IB 


44 








SR 


R4,R4 


001C60 


43 


40 


F 


ADA 




IC 


R4, FIRST 


001C64 


41 


44 


0 


007 




LA 


R4 , 7 ( R4 ) 


001C68 


42 


40 


F 


ADA 




STC 


R4, FIRST 


001C6C 


91 


20 


F 


005 




TM 


SNSW+1,X'20» 


001C70 


47 


80 


F 


C9E 




BC 


NONEf N0R1 


001C74 


91 


80 


F 


AD6 




TM 


LDSW»X '80' 


001C78 


47 


80 


F 


CEA 




BC 


NONE? LPS 


001C7C 


91 


80 


F 


AD4 




TM 


MSSW,X '80' 


001C80 


47 


10 


F 


CEA 




BC 


ALLf LP5 


001C84 


OA 


DO 








SVC 


X • DO 1 


001C86 


042C 








DC 


X •042C* 


001C88 


FF59 








DC 


AL? (TLD-SFTNn+RFGl 


001C8A 


OA 


DA 








SVC 


X • DA* 


001C8C 


9D 


00 


c 


000 




TI 0 


0 ( R12 ) 


00 1C90 


96 


80 


p 


AD4 




ni 

Ul 




001C94 


OA 


DO 








SVC 


y * nn t 


001C96 


8001 








DC 


X '8001 • 


001C98 


FF24 








DC 


«L£ 1 UUlMrl\U~otV»liUTKCb| 


001C9A 


47 


FO 


p 


CEA 




BC 




001C9E 


95 


IB 


F 


A2F 


N0R1 


CLI 


WIN 1 tS'O , c. 1 


001CA2 


47 


80 


F 


CAA 




BC 


EQ»EXT1 


001CA6 


47 


FO 


F 


CIA 




BC 


UNCRETN 


001CAA 


D7 


03 


F 


A2C F A2C 


EXT1 


XC 


CNTR, CNTR 


001CB0 


92 


00 


F 


ADA 




MVI 


FIRST, X'OO' 


001CB4 


91 


20 


F 


005 




TM 


SNSW+1,X'20« 


001CB8 


47 


10 


F 


CEA 




BC 


ALL i LP5 


001CBC 


91 


08 


F 


004 




TM 


snsw,x'08» 


001CC0 


47 


80 


F 


CE8 




BC 


NONE , EXT2 


001CC4 


91 


80 


F 


AD 4 




TM 


MSSW,X'80« 


001CC8 


47 


10 


F 


CIA 




BC 


ALL , RETN 


OOICCC 


91 


80 


F 


AD6 




TM 


LDSW,X'80' 


001CD0 


47 


80 


F 


CIA 




BC 


NONE, RETN 


001CD4 


OA 


DO 








SVC 


X • DO • 


001CD6 


042C 








DC 


X'042C 


001CD8 


FF59 








DC 


AL2 (TLD-S ECNO+ REG ) 


001CDA 


OA 


DA 








SVC 


X'DA' 


001CDC 


9D 


00 


C 


000 




TIO 


0(R12) 


OOICEO 


96 


80 


F 


AD4 




01 


MSSW,X'80' 


001CE4 


47 


FO 


F 


CIA 




BC 


UNC, RETN 


001CE8 


OA 


06 






EXT2 


SVC 


X'D6' 



PUT FEED STK SEL Rl CCW ADDR. 
BR TO ISSUE START 1-0. 
CTRL SWITCHES 

TEST NUMBE 



IN 10. 



001D20 



47 FO F CEA 



BC UNCLP5 LOOP Rp FD. 

*********************************************************************** 

* CCW AREA 

*********************************************************************** 



001CEA 
001CEE 
001CF2 
001CF8 
OOICFC 
001CFE 
001000 
001D02 
001D04 
001D0A 
001 DOC 
001D10 
001014 
001DL8 
001 DiC 



DATE 
EC 



EXP COND. CODE AND SENSE. 


001D28 


C2 001A34 


2000 


0050 


RDNF 


CCW 


X • C2 * , BUFFER, X 


20 • 


,80 


RD NO FEED CCW. 


EXP CSW ADDRESS. 


001D30 


23 001A34 


2000 


0001 


FSS1 


CCW 


X • 23 * , BUFFER, X 


20 • 


,1 




PICK UP CD COUNTER. 


001D38 


41 001A34 


2000 


0050 


PCHCMD 


CCW 


X '41 • , BUFFER, X 


20 • 


,80 


PCH AND STK SEL P2. 


ADD 1 TO CD COUNTER • 


001D40 


02 001A34 


0000 


0050 


RDFD 


CCW 


X'02' , BUFFER, X 


00 • 


,80 




SAVE IT. 


001D48 


03 001A34 


0000 


0001 


NOOP 


CCW 


X'03' , BUFFER, X 


00 • 


1 1 




ZERO REG 4. 


001D50 


OOOOOOOF 






OF 


DC 


X 'OOOOOOOF' 








PICK UP EXP DATA BYTE. 


001D54 








TWENTY 


DS 


20C 








ADD 7 TO IT TO POINT TO NXT CD DATA. 


001068 


0007 






SEV 


DC 


H'0007' 









41 AO 
58 CO 
D2 OA 
45 BO 
3E80 
0040 
FOOO 
FF14 
D2 00 
. IB 44 
, 43 40 

41 44 

42 4,0 
91 20 
47 80 



15JUM67 

13049S 



PUT IT IN THE EXP DATA BYTE. 
SEE IF SENSE SW 10 IS ON. 
BR IF OFF. 

SEE IF TESTING LOAD DEVICE. 
BR IF NO. 

SEE IF MSG BYPASS SW IS ON. 
BR IF ON. 

PRINT -LOOPING LOADER- KEEP ONLY 
DETAIL CARDS IN RDR. 

-HALT- 
CLEAR NOT READY TO READY INTERRUPT. 
TURN ON MSG BYPASS SW. 
PRINT A BLANK. 



BR TO LOOP RD, COMP, FD. 
SEE IF 27 CDS READ. 
BR IF YES. 

BR TO CONTINUE TEST. 
ZERO THE CARD COUNTER. 
ZERO THE EXP DATA BYTE. 
SEE IF SSW 10 IS ON. 
BR IF YES. 
TEST SSW 4. 
BR IF NO. 

SEE IF MSG BYPASS SW ON. 
BR IF YES. 
SEE IF ON LOADER. 
BR IF NOT. 

PRINT LOOPING LOADER- KEEP ONLY 
DETAIL CARDS IN RDR. 

-HALT- 

TIO TO CLEAR NOT RD Y TO RDY. 
TURN ON MSG BYPASS SW. 
BR TO LOOP RTN. 
ROUTINE EXIT 
*********************************************** 

* SENSE SWITCH 10 LOOP RD, FDt STK SEL Rl SET UP HERE 

******************************************************+****++*+++++++++ 



F 


D40 




LPS 


LA 


RIO, RDFD 


PUT ADDR OF RD FD STK Rl CCW IN 10. 


F 


A20 






L 


R12 , RDR 


PUT RDR ADDR INTO 12. 


F 


8B8 F 


8CE 




MVC 


HD1A+9(11),STK1 


MOVE WORD -STK R 1- TO MSG* 


F 


OEA 




FF 


BAL 


Rll.ISIO 


BR TO ISSUE START 1-0. 










DC 


X'3E80« 


CTRL SWITCHES 










DC 


X'0040« 


TEST NUMBER 










DC 


X'FOQO' 


EXP COND. CODE AND SENSE. 










DC 


AL2(EX P4-SECN0+REG) 


EXP CSW ADDR. 


F 


ADA F 


A34 




MVC 


FIRST CI), BUFFER 


MOVE 1ST POS. TO EXP DATA. 










SR 


R4,R4 


ZERO REG 4. 


F 


ADA 






IC 


R4, FIRST 


PICK UP EXP DATA BYTE. 


0 


007 






LA 


R4»7(R4) 


BUMP TO NXT EXP BYTE. 


F 


ADA 






STC 


R4, FIRST 


PUT IT BACK. 


F 


005 * 




TST10 


TM 


SNSW+1,X'20' 


TEST SSW 10. 


F 


CE8 






BC 


NONE, EXT2 


BR IF NOT ON. 



ID F 812-0 
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*************** 

* HOLES TABLE * 
*************** 



001D6A 


B039018818418218 


HOLES DC 


X • B0390 188 184182 18 • 


001D72 


1180980580390388 


DC 


X • 1180980580390388* 


001D7A . 


384382381380B807 


DC 


X '384382381380B807' 


001D82 


0035014814414214 


DC 


X'D035014814414214« 


00108A 


1140940540350348 


DC 


X • 1140940540350348 • 


001D92 


344 342 341 340B 407 


DC 


X '344342341340B407' 


001D9A 


7033012812412212 


DC 


X '7033012812412212' ; 


001DA2 


1120920520330328 


DC 


X' 1120920520330328* \ 


001DAA 


324322321320B207 


DC 


X '3243223213208207' 


001DB2 


F031010810410210 


DC 


X'F031010810410210' 


001DBA 


1100900500310308 


DC 


X '1100900500310308' 


001DC2 


304302301300B007 


DC 


X' 304302301 300 B007' 


001DCA 


000B01A81A41A21A 


DC 


X'000B01A81A41A21A» | 


001DD2 


11A09A05A 0390288 


DC 


X '11A09A05A0390288' 


001PDA 


2842822 81 2 80A 806 


DC 


X '28428228 1280 A806' i 


001DE2 


800D01C81C41C21C 


DC 


X'800D01C81C41C21C j 


001DEA 


11C09C05C0350248 


OC 


X '11C09C05C0350248' \ 


001DF2 


244242241240A406 


DC 


X '244242241240 A406« 


001DFA 


4003006816416216 


DC 


X '4003006816416216' j 


001E02 


11609605603302CO 


DC 


X' 11609605603302C0' [ 


001E0A 


024 22 22 21 22 OA 2 06 


DC 


X'024222221220A206' [ 


001E12 


E00F01E81E41E21E 


DC 


X'E00F01E81E41E21E« 


001E1A 


HE 09E05E0310208 


DC 


X'11E09E05E0310208' ! 


001E22 


204202201200A006 


DC 


X'204202201200A006« ! 


001E2A 


B02B00A80A40A2OA 


DC 


X»B02BQ0A80A40A20A' ! 


00 IE 32 


10A08A04A02A01A8 


DC 


X'10A08A04A02A01A8' * 


001E3A 


2A42A22A12A0AA06 


DC 


X'2A42A22A12A0AA06' I 


001E42 


D02D00C80C40C20C 


DC 


X'D02000C80C40C20C \ 


001E4A 


10C08C04C02C01C8 


DC 


X'10C08C04C02C01C8' j 


001 E 52 


2C42C22C12C0AC06 


DC 


X'2C42C22C12C0AC06' { 


001E5A 


702 7006806406206 


DC 


X '7027006806406206' 


001E62 


1060860460260168 


DC 


X' 1060860460260168* 


001E6A 


264262261260A606 


DC 


X'264262261260A606' I 


001E72 


F02F00E80E40E20E 


DC 


X'F02F00E80E40E20E' j 


001E7A 


10E08E04E.02E01E8 


DC 


X «10E08E04E02E01E8' 


001^82 


2E42E22E12E0AE06 


DC 


X'2E42E22E12E0AE06' 


0Q1E8A 


AOO 9008808408208 


DC 


X • A009008808408208' 


001E92 


108G8804802801A8 


DC 


X'10808804802801A8' 


001E9A 


3A43A23A13A0BA07 


DC 


X'3A43A23A13A0BA07« 


001EA2 


6005004804404204 


DC 


X '6005004804404204' 


001EAA 


10408404402401C8 


DC 


X'10408404402401C8' 


001EB2 


3C43C23C13C0BC07 


DC 


X'3C43C23C13C0BC07' 


001EBA 


282 7012802402202 


DC 


X '2827012802402202' 


001EC2 


1020820420220168 


DC 


X • 1020820420220168' 


001ECA 


364362361360B607 


DC 


X'364362361360B607' 


001ED2 


2001000800400200 


DC 


X '2001000800400200' 


001EDA 


10008004002001E8 


DC 


X'10008004002001E8' 


001EE2 


3E43E23E13E0BE07 


DC 


X'3E43E23E13E0BE07« 






*********************************************************************** 






* EXP 


CSW AREA 






*********************************************************************** 


00 I E EC 


00001D30 


EXP1 DC 


AiRDNF+81 


001EF0 


OCOOOOOO 


DC 


X«OCOOOO0O* 


DATE 


15JUN67 




ID F 812-0 


EC 


130498 
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001EF4 
001EF8 
001EFC 
001F00 
001F04 
001F08 
001F0C 
001F10 
001F14 
001F18 
001F1C 
00 IF 20 



00000000 
08000000 
00000000 
04000000 
00001D40 
08000000 
00000000 
04000000 
00001048 
08000000 
00000000 
04000000 



EXP2 DC XL4»00« 

DC >P08000000» 

DC X14'0« 

DC X»04000000» 

EXP3 DC A(PCHCMD+8> 

DC X »08000000* 

DC XL4»0* 

DC X '04000000 • 

EXP4 DC A (RDFD+8 ) 

DC X»08000000* 

DC XL4*00* 

DC X •04000000* 

* MESSAGES 



00 IF 24 


40C4D640D5D7D9D66B 


DONPRO 


DC 


C DO NPROt PLACE D f 


001F2D 


D7D3C1C3C540C4 








001F34 


C5E3C1C9D340C3C4E2 




DC 


CETAIL CDS IN RDR« 


00 IF 3D 


40C9D54009C4D9 








001F44 


4B40C8D7D96BD4C1D2 




DC 


C. HPR» MAKE RDYf E* 


001F4D 


C540D9C4E868C5 








00 IF 54 


D6C 640D605 




DC 


COF ON* 


001F59 


400 3D 6D 6D 7C 90 5C 740 


TtD 


DC 


C LOOPING LOADER-* 


001F62 


D306C1C4C5D960 








001F69 


40 




DC 


C t t 


001F6A 


D2C 5C5D740D605D3E8 




DC 


CKEEP ONLY DETAIL ' 


001F73 


40C4C5E 3C1C9D3 








001F7A 


40C 3C 4E 240C 9D 540D9 




DC 


C CDS IN RDR 1 


001F83 


C40 9 








001F85 


40E 2C5E340E2E2E640 


SSW9 


DC 


C SET SSW 9 ON* D» 


001F8E 


F940D6D56B40C4 








001F95 


D640D7E2E 6400 9C5E2 




DC 


CO PSW RESTART IF* 


001F9E 


E3C 1D9E340C9C6 








00 IF A 5 


40E 2C 5E 3400 6C 6 4 OC 4 




DC 


C SET OF DETAIL C 1 


001FAE 


C5E3C1C90340C3 








001FB5 


C 4E 240C 4C5E2C9D9C5 




DC 


CDS DESIRED* 


001FBE 


C4 









* EQUATES 



000000 


NEVER 


EQU 


0 


000007 


NCCO 


EQU 


7 


OOOOOF 


UNC 


EQU 


15 


000008 


NONE 


EQU 


8 


000004 


SOME 


EQU 


4 


000001 


ALL 


EQU 


1 


000005 


ANY 


EQU 


5 


000008 * . 


CCO 


EQU 


8 


000004 


CCi 


EQU 


4 


000002 


CC2 


EQU 


2 


000001 


CC3 


EQU 


1 


OOOOOA 


CC02 


EQU 


10 


000006 


CC12 


EQU 


6 


000008 


EQ 


EQU 


8 


000004 


LO 


EQU 


4 


000002 


HI 


EQU 


2 


000006 


UNEQ 


EQU 


6 


OOOOOC 


EQLO 


EQU 


12 


OOOOOA 


EQHI 


EQU 


10 


000080 


LOGOUT 


EQU 


X*80* 


000181 


SYSMOO 


EQU 


X*18l* 


OOF 000 , 


REG 


EQU 


X*F000* 


00005A 


WHAT 


EQU 


90 


000000 


RO 


EQU 


0 


000001 


Rl 


EQU 


1 


000002 


R2 


EQU 


2 


000003 


R3 


EQU 


3 


000004 


R4 


EQU 


4 
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000005 


R5 


EQU 


5 


000006 


R6 


EQU 


6 


000007 


R7 


EQU 


7 


000008 


R8 


EQU 


8 


000009 


R9 


EQU 


9 


OOOOOA 


RIO 


EQU 


10 


OOOOOB 


Rll 


EQU 


11 


OOOOOC 


R12 


EQU 


12 


OOOOOD 


R13 


EQU 


13 


OOOOOE 


R14 


EQU 


14 


OOOOOF 


R15 


EQU 


15 


000198 


WT 


EQU 


408 


000040 


HCSW 


EQU 


64 


000048 


HCAM 


EQU 


72 


0001A0 


DMSSW 


EQU 


X«01A0* 


0001B9 


DMIOL 


EQU 


X*01B9» 


0001BC 


DMPTR 


EQU 


X»01BC* 






END 


R0UT01 
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POST ASSEMBLY DATA. 



REFERENCES TO DEFINED SYMBOLS. 



1 


8 


EQ 


4 


1CF8 


FF 


1 


2 


HI 


1 


4 


LO 


4 


ID 50 


OF 


1 


1AD5 


PS 


1 


0 


RO 


1 


1 


Rl 


1 


2 


R2 


1 


3 


R3 


1 


4 


R4 


1 


5 


R5 


1 


6 


R6 


1 


7 


R7 


1 


8 


R8 


1 


9 


R9 


1 


198 


WT 


1 


1 


ALL 


1 


5 


ANY 


16 


18D9 


BIG 


4 


1048 


CAW 


1 


8 


CCO 


1 


4 


CC1 


1 


2 


CC2 


1 


1 


CC3 


8 


1040 


CSW 


2 


1B0C 


DAG 


4 


1C42 - 


DOF 


9 


18A6 


HD1 


4 


1524 


ICD 


2 


100A 


ICM 


4 


115A 


IHt 


4 


1C12 


IN2 


2 


10E8 


ISM 



12AC, 1362, 



1B08, 
1100, 
12EC, 
1712, 
1574, 
1700, 
1578, 
1702, 
1722, 
1582, 
16CC, 
174E, 
1BB8, 
1C5E, 
1D0A, 
155C, 
19D0, 
19E0, 
1292, 
1632, 
1BA8» 
128E, 
1358, 
,1470, 
1100, 
1238, 
156E, 
115A, 
111E, 
1376, 
162E, 
1B3E, 
lBFCt 
12F4, 
16BA, 

1166, 
1194, 

^198 



1B58 
IC38 
16AE 
14F4 



1B42, 
156E, 
153C, 
1716, 
1582, 
1700, 
1578, 
1708, 
1734, 
15AA, 
16CE, 
175A, 
1BCC, 
1C5E, 
1D0C, 
1A14, 
19D0, 
1B12, 
12C0, 
16E4, 
1BAC, 
12BC, 
13AE, 
15FA, 
115A, 
140A, 
15F2, 
11D2, 
11CA, 
1396, 
1640, 
1B58, 
1C38, 
1554, 
16C0 

1190 
160A 



138E, 


1CA2 








1BBA, 


1BD4 








16FA, 


1738, 


1744, 


1752, 


175A 


15C6, 


16FE, 


16FE, 


170C, 


1710 


171A, 


1728, 


172C, 


1740, 


1744 


1586, 


15B6, 


15B6, 


15BA, 


16CC 


170E, 


1722, 


173C, 


174A 




157A, 


157E, 


15B2, 


15B2, 


1702 


170C, 


1710, 


1712, 


171A, 


171E 


173C, 


1756 








1656, 


1666, 


1676, 


1686, 


1696 


16FA, 


1704, 


170E, 


1730, 


174A 


1A02, 


1B04, 


1B0E, 


1B4C, 


1B62 


1BE0, 


1C52, 


1C56, 


1C56, 


1C5A 


1C60, 


1C64, 


1C64, 


1C68, 


1D0A 


1D10, 


1D10, 


1D14 






1BA4, 


1BB4 








19D2, 


19D6, 


19DA, 


19DC, 


19DE 


1B50, 


1B7A, 


1B7A, 


1BD0, 


1BD0 


12D8, 


1586, 


1598, 


1612, 


1620 


1B0C, 


1B0C, 


1B46, 


1B46, 


1B48 


1BAC, 


1BC2, 


1BC2, 


IBC4, 


1BC8 


12D4, 


1332, 


1336, 


1354, 


1354 


13B2, 


1464, 


1468, 


146C, 


146C 


1BA0, 


1BA8, 


f 1BB0, 


1BB0 




115E, 


116A, 


1102, 


1106, 


11E2 


1438, 


147A, 


1492, 


14AA, 


14C2 


15F6, 


160E 








15F2 










1202, 


125A, 


127A, 


1304, 


1310 


13CE, 


155C, 


1594, 


1500, 


1626 


16 A6, 


16E0, 


19F0, 


1B2E, 


1B36 


1686, 


1B8E, 


1B9A, 


1BBE, 


1BEE 


1C80, 


1CB8, 


1CC8 






15AE, 


1638, 


1724 







113E, 


114E 












1BEE 














116E, 


116E, 


1174, 


11B6, 


11C2, 


11CE, 


11DA 


ilEA, 


UFA, 


11FE, 


120C, 


123C, 


124A, 


1256 


125E, 


126E, 


127E, 


1296, 


129E, 


12A2, 


12B0 


12C4, 


12CC, 


12D0, 


12DC, 


12E4, 


12E8, 


12F0 


12F8, 


1300, 


130C, 


132A, 


134C, 


1366, 


1372 


147E, 


14AE, 


14CC, 


1524, 


152C, 


1558, 


15A2 


15C2, 


15CC, 


15D4, 


161C, 


1634, 


19EC, 


1A10 


1A18, 


1B3A, 


1B96 
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4 


156A 


I UP 


1562 














4 


1CEA 


LP5 


1C78, 


1C80, 


1C9A, 


1CB8, 


1D20 






16 


1954 


MDR 


15E0, 


15EC 












4 


1692 


NAC 


168A 














4 


1682 


NBP 


167A 














4 


16A2 


NTC 


1640, 


164E, 


169A 










4 


1672 


NXL 


166A 














4 


1752 


NXT 


1746 














4 


1662 


NXU 


165A 














4 
4 


1A24 
1BA8 


PCH 
PIB 


19BA, 
1BB4 


1B16, 


1B66 










4 


173C 


PIK 


1756 














1 


A . 


RIO 


110A , 


13E8, 


1404, 


140E, 


1416, 


1416, 


154C 








19FE , 


1B1A, 


1B6A, 


1C1E, 


1C42, 


1CEA 




1 


B 


Rll 


10FA, 


111A, 


11C6, 


124E, 


1266, 


12A6, 


12B4 








1318, 


1322 , 


1332, 


1344, 


139A, 


13B2, 


13B4 








13C6 , 


13C6, 


13CA, 


143A, 


1456, 


1464, 


1496 








14C6, 


1534, 


155E, 


1566, 


1566, 


156A, 


156A 








1572 , 


1B1E, 


1B6E, 


1C28, 


1C46, 


1CF8 




1 


C 


R12 


1132 , 


1142, 


1152, 


1162, 


118C, 


11F2, 


15E4 








15FE , 


1606, 


19B2, 


19B6, 


19BA, 


19BE, 


19C2 








19C6 , 


19E0, 


1B16, 


1B66, 


1C0E, 


1C1A, 


1C8C 








1CDC , 


1CEE 












1 


D 


R13 


llOA, 
19A6, 


110E , 
19A6 , 


110E, 
19B0 


11 BO, 


154C, 


15FA, 


1614 


1 


E 


R14 


1114 t 
19A8, 


1114, 
19D2, 


115A, 
19D6, 


11D2, 
19DA 


14F0, 


14F8, 


15F2 


1 


F 


R15 


1206 , 


1214, 


1244, 


19 BO 








4 


1A20 


RDR 


19C6 , 


1C1 A, 


1CEE 










1 


FOOO 


REG 


1226 t 


13AC , 


13C4, 


13DE, 


13F8 , 


1436, 


1444 








144A, 


14E0, 


14EE, 


1522* 


1544, 


15^A» 


15E0 








15EC , 


1648 , 


16AE , 


16 B4, 


16BA, 


16C0, 


16C6 








1762 , 


1 AOE , 


1B28 , 


1B78, 


1BF6, 


1C04, 


1C0C 








1C32 , 


1C50 , 


1C88, 


1C98, 


1CD8, 


1D02 




2 


15DC 


RRM 


138E , 


1396 












2 


ID 68 


SE V 


1BC8 














AO 


IF 59 


TLD 


1C88 , 


1CD8 












1 


r 


UNC 


1136 , 


1 1 56 , 


1 1 AO, 


11 A8, 


11BA, 


11EE, 


1210 








1240, 


1262, 


12FC, 


1308, 


1314, 


141A, 


1438 








1530 , 


1572 , 


15C6, 


15 D8,' 


15EE, 


1612, 


1620 








1632 , 


164E , 


1764, 


1A02, 


1 A1C, 


1BB8, 


1BD8 








1C9A , 


1CA6 , 


1CE4, 


1D20 








4 


1A28 


ATE1 


15BA 














4 


12EC 


BTCD 


12E0 














1 


A 


CC02 
















1 


6 


CC12 
















4 


1A2C 


CNTR 


1BE4 , 


1BE4, 


1C52, 


1C5A, 


1C9E, 


1CAA, 


1CAA 


4 


11 OA 


CONP 


15EE , 


1626 , 


162 E • 










4 


1652 


COPT 


1638 














1 


1AD9 


CRSW 


1178 , 


163C, 


164A 










Q 


1 7B0 


DB WD 


1 AT 1= - 




1 A PA - 


IDCC) 




1 / *»U 




8 


1770 


DCRD 


12BC, 


12D4 












1 


1ADC 


DERS 


117C, 


15C8, 


1C34 










1 


A 


EQHI 
















1 


C 


EQLO 
















2 
4 


IC30 
1EEC 


ESNS 
EXPl 


1C32 














4 


1EF4 


EXP2 


1C50 














4 


1F04 


EXP3 


1B28, 


1B78 












4 


1F14 


EXP4 


1D02 














6 


1CAA 


EXT1 


1CA2 














2 


1CE8 


EXT2 


1CC0, 


1D1C 












2 


1B9E 


EXTP 


1B00 














8 


1D30 


FSS1 


1C42 














4 


1162 


GREG 


116A 














2 


1C06 


HALT 


1BFC 














1 


48 


HCAW 


110A, 


154C, 


15FA 










1 


40 


HCSW 


110E* 


HOE, 


HBO, 


1206 v 


1214, 


1244, 


1614 
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DATE 
EC 



9 


18AF 


H01A 


1 


1AD7 


HOSW 


16 


1ADD 


HUNG 


3 


182F 


I ACT 


4 


1534 


IBCD 


6 


1318 


IB SN 


1 2 


1803 


IC AW 


3 


1812 


ICCW 


4 


1 K 7* 

l D in 


ICDT 


i 
i 


1435 


IC NT 


3 


18 OF 


IC SW 


4 


14AE 


IDID 


3 


1832 


I E XP 


4 


1 2B4 


I F UR 


4 


1634 


I GOP 


c. 


1 9A6 


I N I T 






I NOW 






I N T3 


*t 


1 1 A p 


I ONE 


6 


14C6 


I PA S 


c 


i apt 


I PDA 


4 


1 00£. 


1 K I U 


^ 


X <CU** 


I CC A 

I oC A 


4 


1 2 66 


T (CM 
1 OCN 


4 


10EA 


ISIO 


4 


15CC 


ISIP 


4 


15C2 


ISSW 


6 


1244 


ISV2 


4 


157E 


IT80 


4 


15A2 


ITCO 


4 


160E 


ITIC 


4 


11A4 


I TWO 


6 


1214 . 


IU10 


6 


116E 


JOHN 


1 


1A06 


LDSW 




1980 


MSK1 




198E 


MSK2 




1A04 


MSSW 




7 


NCCO 




10QD 


NIOU 




8 


NONE 



4 
4 
11 
2 
4 
8 
8 
4 
1 
1 
I 
4 



1048 
1C9E 
18 6A 
18C3 
175E 
IB IE 
1040 
1D28 
1C1A 
198F 
100C 
1ADB 
1004 



15JUM67 
130498 



NOOP 
MORI 
P8LK 
PRES 
PRGD 
PSIO 
RDFD 
RDNF 
RETN 
RTSV 
SDMF 
SFLE 
SNSW 



16B4, 
1180, 
1A0E 
1232, 
1528 
1272, 
13E8, 
13FA 
12EC, 
122E, 
1228, 
149A 
145E, 
129A, 
15D0 
1B04, 
111E, 
1210 
1194 
14B2 
16A6 
15A6, 
12C8 
. 11CA, 
1B1E, 
15AE 
1508 
1202 
15BE 
1594 
1618 
1198 
11F6 
1126, 
19E8, 
11DE 
11E6 



1C22, 

16A2, 



1CF? 
16C8 



1 


4 


SOME 




3 


1050 


SRET 




16 


1F85 


SSW9 


1C04 


11 


18CE 


STKI 


1CF2 


16 


1964 


TCRA 


1648 


1 


10E1 


U10P 




1 


10E5 


U20P 





1486, 14B6 



1282, 
13F0, 

153C 

1400, 

144C 

149E 
12AC 

1B62, 
11A0, 



1764 

I1EE, 
1B6£, 



128A, 

13F2, 



1452 



1BE0 

iiA8t 



1288, 
13F8 



12F4, 12FC 



liBA 



1252, 125A 

1C2S, 1C46, 



1CF8 



1166 

1BEA , IC74, 1CCC 



19CA, 


19CA, 


1C12, 


1C7C, 


1C90, 


1CC4, 


1CE0 


1146, 


1602 












1126, 


112E, 


113E, 


114E, 


1252, 


126A, 


1272 


1282, 


128A, 


129A, 


12B8, 


12C8, 


12E0, 


1326 


132E, 


1348, 


1350, 


137E, 


1412, 


145A, 


1482 


149A, 


14B2, 


1400, 


1528, 


1538, 


1562, 


15A6 


1618, 


165A, 


166A, 


167A, 


168A, 


169A, 


1746 


19AC, 


1B00, 


1C70, 


1C78, 


1CC0, 


1C0O, 


1D1C 


19FE 














1C70 














1B9A 














1C22 














16E0 














1B3E, 


1B50, 


1BBE, 


1BD8 








1CEA, 


1F14 












1C1E, 


1EEA 












1CA6, 


1CC8, 


1CD0, 


1CE4 








1104, 


1A04 












1B5C, 


1B7C 












1122, 


112A, 


113A, 


114A, 


137A, 


1550, 


1590 


16DC, 


1AFC, 


1B54, 


1BF8, 


1C6C, 


1C84, 


1CBC 


1D18 
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DATE 
EC 



I 


6 


UNEQ 


11F6 , 
19E4 


131E, 


1340, 


13E4, 


14F4, 


159E, 


15BE 


1 


5A 


WHAT 
















1 


17B8 


WORK 


1214 , 


1404 , 


1422, 


1424, 


1426, 


142C, 


1474 








1474 , 


148C, 


14A4 , 


14A4, 


14BC, 


14F8, 


1502 








1504, 


1506, 


150C, 


1512, 


1518 






4 


19EC 


BLOOP 


19E4, 


1A1C 












4 


1BBA 


BU102 


1B2E , 


1B36, 


1B86, 


1B8E 








1 


1B9 


DMIOL 


1902 














1 


1BC 


DMPTR 


19D6 














1 


1A0 


DMSSW 
















1 


1ADA 


FIRST 


157A, 
1D0C , 


1C16, 
1014 


1C3C, 


1C60, 


1C68, 


1CB0, 


1D04 


1 


100E 


FLAG1 
















1 


100F 


FLAG2 
















16 


1922 


GOODY 


158A, 


158A, 


1652, 


165E, 


1662, 


166E, 


1672 








167E , 


1682, 


168E, 


1692, 


169E, 


16D2, 


1608 








16F0, 


16F8, 


174A, 


1762 








8 


1D6A 


HOLES 


1712 , 


171A 












4 


1622 


I BACK 


1602 














16 


1815 


IBLAH 


1228, 
145E, 


1232, 
1486, 


13FA, 
149 E, 


1426, 
14B6 


142C, 


1436, 


144C 


2 


141E 


ICOUT 


1238, 


140A, 


147 A, 


1492, 


14AA, 


14C2 




8 


17A0 


ICSW1 


HBO, 
1622 , 


1206, 
1B2A, 


1276, 
1B82 


133A, 


133A, 


1392, 


148C 


8 


17A8 


ICSW2 


1244, 


1286, 


135C, 


135C, 


14BC, 


1B32, 


1B8A 


4 


147E 


IDIDI 


145A 














4 


1142 


I HANG 


1156 














16 


17F3 


I LINK 


13B4, 


13BC, 


13BE, 


13C4, 


154A 






4 


1614 


ILOKE 


160A 














4 


1132 


I LOOP 


10EE 














4 


1BA0 


INDAT 


1B0E , 


1B4C, 


1BCC 










4 


1366 


INDER 


1304, 


1310, 


131E, 


132E, 


1340, 


1350 




5 


1010 


INPSW 
















3 


198A 


IOADR 


1306 














6 


144C 


IOCSW 


13CE 














16 


184B 


IOLOG 


1506, 


150C, 


1512, 


1518, 


1522 






16 


1870 


I0PT1 


10F2 , 


1544 












4 


14F0 


IPASS 


14D0 














4 


1778 


I SAVE 


1100, 


156E 












4 


15C8 


I SIP1 


159E 














4 


118C 


ISSUE 


10EA, 


13E0, 


198A 










4 


15F2 


ISTRT 


1292, 


12C0, 


12D8 










4 


112A 


ITRY1 


1136, 


1146, 


1554 










4 


113A 


ITRY2 


112E 














16 


1990 


I UNEX 


1220, 


1226 












4 


1102 


I WAIT 


1262, 


1530 












4 


11 BE 


IZERO 


1190 














4 


1C1E 


LRNF1 
















4 


1A30 


M0D5O 


19B6, 


19C2 












1 


0 


NEVER 
















4 


1000 


SEC NO 


1104, 


121E, 


1220, 


1226, 


13A4, 


13A6, 


13AC 








13BC, 


13BE, 


13C4, 


13D6, 


13D8, 


13DE, 


13F0 








13F2, 


13F8, 


1422, 


1424, 


1436, 


1444, 


144A 








14D8, 


14DA, 


14E0, 


14E6, 


14E8, 


14EE, 


1502 








1504t 


1522, 


1544, 


154A, 


15E0, 


15EC, 


1648 








16AE, 


16B4, 


16BA, 


16C0, 


16C6, 


16EE, 


16F0 








16F6, 


16F8, 


1762, 


1A04, 


1A0E, 


1AF9, 


1B28 








1B78, 


1BF6, 


1C04, 


1C0C, 


1C32, 


1C50, 


1C88 








1C98, 


1CD8, 


1D02 










4 


1D18 


TST10 
















1 


10E0 


UNIT1 


19BE 














1 


10E4 


UNIT2 


19B2 














16 


18FB 


BEAUTY 


16C6 














1 


1A34 


BUFFER 


1586, 


19F4, 


19F8, 


19 F8, 


1B48, 


1B5C, 


1B7C 








1B92, 


1BA0, 


1BC4, 


1C3C, 


1D04, 


1028, 


1030 








1D38, 


1D40, 


1D48 










1 


1A84 CHKBUF 


1582, 


1770 













15JUN67 
130498 



10 F812-0 
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IBM MA INTENANCE DIAGNOSTIC PROGRAM 

2540 READER FUNCTION TESTS - SECTION 3 F812 



P/N 840572 
PAGE 13 



16 


1F24 


DONPRO 


1BF6, 


1C0C t 


1C98 


5 


1058 


EXNPSW 








8 


1018 


EXOPSW 








6 


1A04 


HANGUP 


19F0 






11 


1840 


IACSNS 


1184t 


12A6 , 


138A, 








1768 






10 


17DA 


IACTCC 


1188 Y 


119C t 


1 1 A4 , 


6 


143A 


ICCOUT 


13E4, 


1412 




6 


133A 


ICCSWl 


1336 






6 


13 5C 


ICCSW2 


1358 






6 


1474 


ICHNG1 


1468 






6 


14A4 


ICHNG2 


1470 






1 


1A08 


ICODAT . 


157E, 


1598, 


16F6, 


6 


1404 


ICWOUT 


141A 






4 


128E 


IDOSNS 


126A, 


127A, 


1A14 


4 


136A 


IDUNCK 


1308* 


1314, 


1362 


10 


17D0 


IEXPCC 


143A, 


1444 




11 


1835 


IEXSNS 


14C6, 


14D8, 


14DA, 


6 


10FA 


IE YE OH 








1 


13AA 


IFLAG1 


136A , 


1382 




1 


1542 


IFLAG2 


136E, 


1386 




4 


155E 


ILEAVE 


137E 






6 


14F8 


ILOGED 


1240 






4 


1496 


IMORST 


1482 






4 


1300 


IN0EX1 


1326 






4 


130C 


IN0EX2 


- 1348 






15 


17E4 


IOADDR 


10F6, 


13D8 , 


13DE 


4 


1078 


IONPSW 








8 


1038 


IOOPSW 


11F2, 


121E 




2 


1540 


IOPOUT 


}538 






4 


138A 


IOUTI T 


1376 






4 


11F2 


IRETRN 


107C 






8 


1768 


I SENSE 


128E 






4 


1606 


I TIOLP 


160E 






9. . 


1867 


I TSTNO 


10FA f 


139A, 


13A4, 


1 


80 


LOGOUT 


1114* 


1114» 


14F8 


8 


1070 


MCNPSW 








8 


1030 


MCOPSW 








4 


19B2 


NITWIT 


19AC 






8 


1038 


PCHCMD * 


1B1A, 


1B6A, 


1F04 


8 


1068 


PGNPSW 








8 


1028 


PGOPSW 








12 


1948 


PUNCHS 


173G 






1 


1AF8 


R0UT01 


1015, 


IFBF 




1 


1BDC 


R0UT02 


1AF9 






8 


1060 


SVNPSW 








8 


1020 


SVOPSW 








1 


181 


SYSMOD 


14F0 






1 


ID 54 


TWENTY 


16FA, 


175A 




2 


10E2 


U1ADDR 








2 


10E6 


U2ADDR 








1 


1000 


XF8120 









14E6, 
11AC, 



1708 



14E0 



14E8, 
11BE, 



14EE, 
1318, 



162A 
144A 



13A6, 13AC 



NO ERROR DETECTED IN ABOVE ASSEMBLY 



DATE 15JUN67 
EC 130498 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 
F812 2540 RO FUNCTION SEC 3 
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PERIODS CORRESPOND TO BLANK COLUMNS. 



COLS. 1 THROUGH 20 

BESD AA..AAXF81 

9 YQ Y9 

99 9 

BTXT .AAA. «A8. .AA8KAA 
9 YQY Y9 Y9 9YY 
999 9 9 99 

BTXT.AA8..A8. . AAAAAA 
9 YQ9 Y9 Y9YYYY 
99 9 9 9999 

BTXT.AAO..AA. .AAAAAA 

9 YQ+ YQ Y9YYYY 
99- 99 9 9999 

BTXT.AAS..A8. .AAAAAA 
9 YQ8 Y9 Y90YYY 
99 9 9 9 9 

BTXT.AJQ.. A8. .AASAAA 
9 Y99 Y9 Y98Y-Y 
9 9 9 

BTXT.AJ+..A8. .AA1KDA 
9 Y9 . Y9 Y9 8QY 
9 9 9 9 

BTXT.AJH. • A8. .AABX7G 
9 Y90 Y9 Y9- Q 
9 9 9 9 

BTXT.AJ0..A8. .AA7GD7 
9 Y9+ Y9 Y9 Q-8 
9 9 9 9 

BTXT.AJ8..A8..AA2MD7 

9 Y9 Y9 Y9 9-8 
9 9 9 

BTXT oAKA . . A8. .AA45KB 
9 Y9Q Y9 Y9 9 9 
9 Z 9 9 

BTXT .AKQ «.A8. .AAAAGA 
9 Y9Z Y9 Y9QYZY 
9 9 9 09 

BTXT.AKJ . . A8. .AA0YD7 
9 Y9Y Y9 Y9 -8 
9 9 9 

BTXT .AKQ .. A8. .AAE052 
9 Y9 Y9 Y9Z + 
9 9 9 - 

BTXT. ALA. .A8..AAGA30 
9 Y9Q Y9 Y9ZQ Z 
9 9 9 9 9 

BTXT.ALH..A8. .AAGA3D 
9 Y9Z Y9 Y9ZY 8 
9 9 9 9 



COLS. 21 THROUGH 40 



20. .AAAA. AGG 

YYQY Y8Q 
9999 990 

AAAAAAAAAB0AADAAAAK8 
YYYYYYYYY9+Y99YYYY8 
999999999 9 99999 

A AAA AAAA A AAA AAAAAA AA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 



AAAAADAAAA J2 

YYYY99YYYY9 
9999 9999 

BAAAAABD1DBD12BS8IBS 
OYYYYY-Q Y-Q 9- 0- 
9 999 

AAGA1BA00DGA1 WAAODGA 
QYZQ -+ 9ZY 8-Y 9ZY 
09 9 

0AG01BHFAHHAACEA0AGA 
+ YZ ZRQ9-0QY9QY+YZY 
9 9 9 9 

DA0AGA1FG. 1 MGJ1 MB37G 
QY+YZY QZ YZY 0- Q 
9 9 0 9 9 

OYA. AAGA20FA0YHFAHHA 
- QYZQ Z-Q RQ9-0Q 
09 9 9 

OYA . 0YGA2DKG7 JO. F . OY 
ZQ Z 9 Y - 
9 

8U8XEA40FB0YG048KG7Q 

8 8ZQ 8-9 Z 9 ,0 

9 9 9 

2FA.0YGA3QAB7MGA2FAJ 
Y- ZY 9-9 OZQ Y-Y 
9 9 

0ZNA8EAEGA2DFA0YAAAA 
Y ZQ9ZY 0-9 -YQ9 
9 0 0 

AA0ZGA2MF J0ZD70ZEA5D 
-Y ZY Y-Y -8 ZQ R 
9 9 9 0 

G03+NA7GADG-30AHAAGA 
Z - Y QQ9Z Z-9QYZY 
9 90 09 

A J0YGA30AHAH • A3-NG7 Q 
-Y ZY ZZ0Y9 Y 9 0 
9 9 



COLS. 41 THROUGH 60 
840 



AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

AAAAAAAAADAAAAAAAAAA 
YYYYYYYYY9YYYYYYYYYY 
999999999 9999999999 



70KA8UABAA7HKA9G0C+N 
9 8Q9Q8 R Y Y 9 Y 
0 9 0 9 

12DA0AG0 1SA.0DGA1KEA 
8QY+YZ 8- 9ZY 8QY 
9 9 9 9 9 

1WFA1KPA0Y0YFA0YDABR 
8ZQ Z 9 -Y -YQ 
9Z 

G01BB27GG01BB17GKG7J 

Z - QZ - Q 9 Y 
9 9 

ACFAOY AA9EFA1SAA9FD7 
Y9-Y YY YZQ YY Y-8 
9 9 9 

G02FKG7H0.BEABA2AJB0 
Z 8 9 0 8QY9Y8808- 
- 999 999 9 

0.FJ0YAAAAGA20AH0YGA 
-Y -QQYZY Z-9 ZQ 
9 909 9 

0YGA3QAB7MGA3QAA7QE0 
ZY 9-9 YZY 9ZY ZZ+ 



GA3QAA70E052AA0ZGA2M 
ZY 9ZY +Z+ -Y ZY 



A-0Z6+3QFA0YG03QA.0Y 
Z 9-9 Z 9- 



3AA.0YGA30HCAF.A36NG 
Y— ZY ZZYY9 Y 8 9 

9 9 9 

7QGA3+FA0YBM3KB05BAA 
OZY —9 -Z Y-+ Z-9 



COLS. 61 THROUGH 80 
573. 130498.. 81200001 



AAAAAAAAAAAA 81 200002 

YYYYYYYYYYYY 

999999999999 

AAAAAAAAAAAA 81200003 

YYYYYYYYYYYY 

999999999999 



.81200004 



AHPGO.O.PCSA 81200005 

YZ 9 88Y 

9 9 

0AG01SA.0DGA 81 200006 
+YZ+ 8- 9ZY 
9-9 

DABDDABPBX8E 81200007 
-YQQ-YQ - Z 
9Z9 9Z 

O.F.OYG01BB081200008 

Z 



OYG02OA002G- 81200009 
Z Z8+ 8Z 
9 

MN9AKB808GBK81200010 
Z9 Q 9 9 8-8 
9 9 

20 FH0YG01KAB 81 200011 

Z-9 Z -9 



52AAOZGA2DFD81200012 

-Y ZY 0-9 

F.0ZD70ZAA 7081^200013 
- -8 ZY + 



GA30G03+AJOY81200014 
ZQ ZZ — Y 
9 9 

7J 7JG-30ADAA 81200015 
Y YZ Z-9QY 
09 

OYGA 3BAA0DGA 81 200016 
ZQ Y-9 9ZY 

9 



DATE 
EC 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 



P/N 840572 

PAGE 14A 



F812 2540 RO FUNCTION SEC 3 



F812 2540 RD FUNCTION SEC 3 



BTXT .ALA • .A8. • AA50BU 
9 Y9Y Y9 Y9 8-9 
9 9 9 

BTXT.ALH..A8. .AABEAC 
9 Y90 Y9 Y98QY9 
9-9 9 999 

BTXT.AL0..A8..AAHAHH 

9 Y9 Y9 Y99899 
9 9 9 9 

BTXT.AMY..A8. .AA8K7H 
9 Y99 Y9 Y9 8 0 

9 9 9 9 - 

BTXT. AM-. .A8. .AA8U82 
9 Y9 Y9 Y9 8 9 
9 9 9 9 

BTXT.AMH..A8. .AAAAGA 
9 Y9- Y9 Y9QYZY 
9 9 9 09 

BTXT • AMO. • A8. .AAGA40 

9 Y9- Y9 Y9ZY 
9 9 9 

BTXT.ANH..A8. .AA8+7H 

9 Y99 Y9 Y9 0 

9 9 9 - 

BTXT .AN .** . A 8. .AAB006 

9 Y9 Y9 Y98~*9 
9 9 9 9 

BTXT .ANN* « A8« «AAL 3CA 
9 Y9R Y9 Y989ZQ 
9 0 9 9 9 Z 

BTXT. ANA*. A8..AA5DA3 
9 Y9Q Y9 Y9 YZ9 
9 0 9 9 9 

BTXT. ANY.. A8..AAB0AA 
9 Y9 Y9 Y98-Y9 
9 9 9 9 

BTXT.A0J..A8..AAG7AA 
9 Y9Y Y9 Y99 -9 
9 9 9 9 

BTXT.A0H..A8. .AA.AGA 

9 Y9R Y9 Y9 YZ Y 
9 9 9 9 

BTXT.A0A..A8..AA9BB0 

9 Y9Q Y9 Y9 Z- 
9 9 9 

BTXT.A0H..A8. .AAFABP 
9 Y9 Y9 Y9-YQ 
9 9 9 Z 

BTXT.APA..A8..AALSL3 
9 Y9Y Y9 Y98989 
9 9 9 9 9 9 



3KBA5BE. 8EGA5DAA7MGA 
Y-Y Z~ ZZY Q-9 OZQ 
9 9 

G9G8B0JA73ACADAAAAGA 
9 9 8-YQ ZQY9-YQYZQ 
9 9 09 09 9 

B0JC8CKB808KB045KG7H 
8-Y8 9 9 9 9-9 9 9 0 

9 9 

KG8T70B0JK8NG9KA7NAD 
9 9 + 8-Y8 99 Y Q9 
9 9 9 0 

HCAF.A4HAHAH.A4QKG7H 
ZYY9 Y RZ0Y9 Y 0 9 0 
9 0 9 

40KB8U82KG7H7HEA40AJ 
Y 9 8 9 9 0 OZQ 8-Y 

9 - - 9 9 

8EAAH2H2B0JC85BEAAHE 
8QY998988-Y8 98QY99Z 
999 9 99 9 999 

KE8C7BKE8K7BKE8/7BB0 
9 R Q 9 8 9 Y8- 
0 99 

80B0JA73+NAHA00DG+1S 
+8-Y9 YYZ-+ 9Z 8 
-9 9 9 

BBBABQABBCABB3KU9T9S 
QQZQQ ZZQ0ZRQ9 9 9 9 

Z9 ZZ Z OZ 

AAASAAE JBYG-56FB0ZGI 
Y9Z9Y9RYQ9Z 8-9 9 
9 9 9Z 

9DG01BHFAHHAAB+EAHDA 
RZ 8RQ9-0QY9 YYZQY 
9 9 9 9 

7MGA1BA48EGA1BG7A-0Z 
OZQ 8- ZZQ 89 - 

9 9 9 9 

6KB198B093AH.AGA68B1 

Z- 9- 8-9 YZY R- 
9 9 0 

9GAB.AGA6KB19GAABPGA 
Z-9 YZY 0- Z-YQ ZQ 
9 Z 9 

QBF.7A3J9U7FF09VAJ0D 
9Z8 Q 9 9 0- 9-Y 9 

0-9 

A.A8CABQQLNUK1CLE+IA 
I Y9ZQQ 998989Z9Q-0Q 

9 ZZ 9 9 Z 9 



50KA8U ABBEABHUHUBOMA 
Q 9 8Q98QY998988-Z8 
9 0 999 9 9 

4DBEACABGZB0JG7UE01D 
88QY98Y9 8-Y8 -Q Y 
999 9 9 9 

JAEA40A0JDGA42AKAHG0 
YYZQ 8-+Y9ZY 8ZYY9Z 
9 9 9 9 

BO JB7080J B7BKB808GBK 
8-Y8 -8-Y8 Q 9 9 8-8 
9 9 9 9 9 9 9 

7HEA40A.0YGA4FKB8U8X 

OZQ 8* ZY - 9 8 8 
9 9 9 

0YGA4FKB8U8XKG7H7QEA 
ZY 9 8 8 9 0 OZQ 

9 9 

HEBO JC8. EAJAG-5UKC7H 
9Z8-Y8 -QZOZ 9 8 0 
9 9 Z 9 - 

JM8CAB0YGA54DE0YG0 IK 
Y8 8-9 ZY 9-Q Z 
9 Z 

AA0YGNAHAAGA5+ACABAC 
-Y 99-9QYZY -ZQY9ZQ 
09 09 0 

AJODGA5KNAOABQG-5HA- 
-Y 9ZQ 0 Y+YQ Z 

9 9 9-9Z 

FABDAB0ZGA64FA0YG05B 

-YQQ-9 ZQ 9-9 Z 
Z9 9 

OAGO6SEA0AG.6MFA6FG7 
♦YZ+ 9QY+YZ 9ZQ 99 
9 - 9 9 

G+6BAABRGA6KB0AW9MFA 
Z R-YQ ZQ 08-Y9 Z-Y 

Z 9 9 

93B096AD.AGA6BB196B0 

8- 8-9 YZY 0- 8- 
9 9 9 9 

60B0J A80B0JM8PB0JA8R 

Y8-Y8 08-Y9 Y8-Y9 
99 9 9 9 

GA70KA7 A0ABEAAGAA4BE 
ZQ 8 Y Q+Y8QY99Q898Q 
9 9 0-9999 09 99 

AHCLET AAAGMTG+7UHAAD 
Y9Z9Q8ZQYQ99Z 80QY9 
9 Z Z9Z 9 99 



8PAAADLH+A 7881 200017 
ZZYY980 Q 

9 9-0 

G-42+J8HBEAC 81200018 
Z 8 Y 98QY9 

9 999 

40BEAHGHGHKG81 200019 
98QY99090 9 
999 

45AHAAGA46KB 81200020 
9-9QYZY 8 9 
09 

KG7H7JEA40AD81200021 

9 0 YZQ 8-9 
9 

40KA82AEA00Y81 200022 

8 Y 8Q9-9 

9 9 90 

SABEADGHGHKA 81 200023 
8Y8QYB9090 9 

9999 

AAA AG A 5.EA 5D 81 200024 
-YQ9ZY ZQ R 
0 9 0 

AFHA7HGCA JAA 81200025 
Y9-8 R9QZYY9 
9 9 0 Z 99 

0ZGA5BAG.AG+81 200026 
ZY 0-Q YZ 

- Z 9 

B0UA9DBBEA OA 81200027 
8- 9Q R8QQY+Y 
9 9 99 9 9 

ADODGA 6FF A CZ 81 200028 
-9-ZZY 8-Y 

9 

BRG06KB098AA 81 200029 

Q Z 0- 9-Q 
Z 9 

9BAA.AGA6BB 181 200030 
Z-9 YZY — 
9 

B0JS8RB0JX8C81200031 
8-Y9 8-Y9 Q 
9 9 Z 

AABQAAADEDLJ 81 200032 
Y98 8QQ9QR89 
9 9 9Z Z 9 

+A7AA.AFAAAD81 200033 
Q QZ Y9ZQY8 
9 0 9 Z99 



DATE 
EC 



15JUN67 
130498 
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BTXT.AP8..A8. • AAA AAA 
9 Y99 Y9 Y9ZYY9 
9 9 9 99 

BTXT.AP0..A8..AAFAKD 

9 Y9+ Y9 Y9 Y80 

9 - 9 9 99 

BTXT.APQ..AA. .AAAAAA 

9 Y90 YQ Y9YYYY 
9 99 9 9999 

BTXT.APO..AU. .AA.CC. 

9 Y9- Y9 Y9 
9 9 9 

BTXT*AP3..AJ. .AA.ADR 
9 Y9 Y9 Y9 

9 9 9 

BTXT .AQC • *A8« .AA.CAW 

9 Y99 Y9 Y9 
9 9 9 

BTXT.AQ3..A8. .AAX.EX 

9 Y98 Y9 Y9 
9 9 9 9 

BTXT.AQC..A8. .AAT. SS 

9 Y9R Y9» Y9 
9 0 9 9 

BTXT *AQL#.A8.*AA. ERR 
9 Y9Y Y9 Y9 
9 9 9 

BTXT.AQT#.A8. .AATED. 
9 Y9 Y9 Y9 

9 9 9 

BTXT.AJL..A8..AADR.T 
9 Y88 Y9 Y9 
999 9 9 

BTXT. A JC. A 8. .AA9.MA 

9 . Y8R Y9 Y9 
99 9 9 

BTXT.AJC..A8. .AAJDFA 
9 Y8Y Y9 Y99YQ9 
99 9 9 Z 

BTXT.AJC..A8. .AAOBA+ 
9 Y8 Y9 Y9+QQT 
99 9 9 ZZ 

BTXT.AJC..A8. .AA5B4A 

9 Y8Q Y9 Y99Q9Z 
99Z 9 9 Z 

BTXT. AK 3 ..A A. .AAG... 

9 Y89 Y9 Y9Q 
99 9 9 Z 

BTXT. AKM..A8.. AAA AAA 
9 Y8 Y9 Y9YYYY 
99 9 9 9999 



CT9GHA7AMAGA7BBU9XF. 
Z9 ZRQ Q9QZY RZ9 9Z 

9 0 9 

jAA-f AAAAAAAAAAAAAAAA 
YYY YYYYYYYYYYYYYYYY 

999 9999999999999999 



AAAAAAAAAAAA 

YYYYYYYYYYYY 
999999999999 

• X.EXP* CO.. X. ACT. ADR 



• XXXXXX.LINKA • 

Y 
9 

•XXXXXX.CSWCCW.CSW.X 



P. SNS.XX.ACT.LOG. XX. 



.O.ON.FOR.LOOP.ON.XI 



•CARD. I N. PRESTKR.STA 



SHD. 



• BUF 



RAN. 



KE. DEVICE. RDY..2.DIAG 



A. UIO. FROM. DEVICE. XX 

Y 
9 

OB JPBBMBMLOCWAI BWADK 
+QY 9Q Q 8ZZ890889Q8 
Z9 Z Z 9 - 09 

JEHG4KA0C9GB0MKBEFA0 
YQZ9 Y 9 Y8-Z8QQ-9 
Z 9 9 9Z9 



AAAAA. PRE VI OUS.HANG. 

YYYYY 

99999 



7BI AAAFA74HDEDB0AW9S 
R0YY9ZQ 8-9QR8-Y9 9 
99 Z 9 Z 9 

AAAAAAAAAAAAAAAAAAAA 
YY YYYYY YYY YYYYY YYYYY 
99999999999999999999 

• XXXXXX.XIOA 

Y 
9 



G05BDAQEAAAA 81200034 
Z 09Y9ZYYY9 
- 9 999 

AAAAAAAAAAAA 81 200035 
YYYYYYYYYYYY 

999999999999 



.81200036 



.81200037 



.81200038 



XXXXXXX.XXXXXXXX.EXP ACTEXP*SNS.X81200039 



XXXXXX.XXXXXX.XXXXXX .TST.XXXX.SE81200040 



OT.SS.l.ON.FOR.TIO.S IO.LOOP.READ81200041 
8 



PRESTKR.STASTACKER.R 1C EXPEC 81200042 



• COL « PUNCHES • .RD..RD .XU. XL .PAR .A 81200043 



.CHK.RDS. ATTEMPTED. - 



XXALEA. JFGA9BQGH00UD 
Y8Q- Z-ZY 09QR+ R 
999 - 9 

WF-F-AF AAG-9MFA80AA0 
89 9 8 YYZ Y-YQ -Y 
99 9 Z 

YE+2FBA0YG09MAAAAAAA 
Z Y-Y Z YYYYYYYY 
9 99999999 



UP. DETECTEDAAACDA.OE 
Y9Y8Q- 9 
9 999 



.TE01234567881200044 



B0TH.FAILEDA81200045 
Y 
9 

0BA+0BUH00SD81200046 
+QQ +Q9R+ 8R 
ZZ z 

YGABDB .B4KFB 81 200047 
ZQQ9- Q9 QQ 
9Z Z Z 

AAA AA A AAAAA781 200048 
YYYYR YYYYYY8 

9999 9999999 



.81200049 



GACFE.90FABN81200050 
ZYQQZ O-YQ 
I I 
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BTXT. ALP*. A8. .AALGE. 

9 Y88 Y9 Y98RZ 
999 9 9 90 

BTXT.ALD..A8. •AABNLG 
9 Y8Z Y9 Y9Q 8R 
99 9 9 Z 90 

BTXT.AL4..A8..AAKAB4 
9 Y88 Y9 Y9 YQ9 
99 9 9 9Z 

BTXT .AL D..A8. .AAF+CQ 

9 Y80 Y9 Y9Z QO 
99- 9 9 Z 

BTXT.ALM..A8. .AABOGA 

9 Y8Y Y9 Y9Q ZQ 
999 9 9 Z 9 

BTXT.AMIU.A8. .AA8H8C 
9 Y89 Y9 Y9 0 

99 9 9 - 

BTXT.AMM..A8. .AABULD 
9 Y88 Y9 Y9Q88Z 
99 9 9 Z99 

BTXT .AMD ..A8..AAB0AA 

9 Y8- Y9 Y98-Y9 
99 9 9 9 

BTXT. AMD. .A8. .AAAABO 
9 Y8Y Y9 Y9-YQ 
999 9 9 Z 

BTXT.AMD..A8. .AAKABB 

9 Y89 Y9 Y9 YQQ 
99 9 9 9Z9 

BTXT.AN4..AQ..AAJAA+ 
9 Y88 Y9 Y9YYY 
999 9 9 999 

BTXT.AMQ..A8. • AAAGA 1 
9 Y8Z Y9 Y9Y9Q8 
99 9 9 9 09 

3TXT.A.MJ..A8. .AASKJJ 
9 Y8Y Y9 Y9999Y 
99 9 9 9 

BTXT.ANQ..A8. .AABHYB 
9 Y8 Y9 Y9909Z 
99 9 9 

BTXT.A0A..A8. .AAKFSG 
9 Y8Q Y9 Y90988 
999 9 9 9 

BTXT.A0H..A8. .AABDAO 

9 Y8Z Y9 Y9 8Q+ 
99 9 9 99 

BTXT.AOA.. A8. .AAAYWB 
9 Y8Y Y9 Y99 8Z 

99 9 9 9 



C JA-ALHOBUA JE8EA0K6 A 
QYZ Y8R+Q9ZYQ9ZQ Y8Y 
Z 99 Z Z 0 999 

C0B3E. C JF-CQAHODGACD 
Z+Q8Z QYZ Q8-9 9ZQQ8 
-Z9 Z Z9 9Z9 

BCAB7MGACBAB7MGACBB. 
QQ-9 OZQQQ-9 YZQQQ- 
Z9 9Z0 9Z0 

G4AABNGAC0LGC0B4C0EQ 
9 - YQ ZQQ88RZ+Q98+QZ 
Z 9Z990 -Z -Z 

DKB0D5GUA. OEGADFBO J2 
Q98-99Q9- 9ZQQ98-Y8 
Z 9 Z 9Z 9 9 

EAOKSAA JOAFMAABDGADB 
ZQ Y8YYY YQY-YQQZQQZ 
0 99 99 9Z9 Z9 9Z 

C.BBAOAGB. BBA JOEGAOF 
Z QQZZY9Z QQ-Y 9ZYQQ 
Z9 9 Z9 9 Z 

G UGODKE LBXGADKGODKPC 
Q9Z QY-8Q8ZYQYZ Q8 9 
Z Z9 9Z9 Z Z9 

GADKBODUGJBBEAOAFABM 
ZYQ88-98Q88QQY+Y-YQ 
Z99 9Z 99 9 9 Z 

B4LDC. BBADAGB. BBA JOE 
Q98ZZ QQZZY9Z QQ-Y 9 
Z 9 Z9 9 Z9 9 

8AK4AAA+CAK4AAAAAAAG 
9Y89YYY 9Y89YYY9YYY8 
99 999 99 999 9999 

AHQABQJAHEA1CH8CB8LA 
909Z099Y-9Y8909Z099Y 
9 

BE J3CY2CS2L JBG01 AHAA 
-9Y9999Z999Y09 999QZ 
9 9-9 

B YKAQF AEAHMABMJ0DE05 
099Y09Y89 8Z 89+Q9+9 
9 9 9 

A YOA S0JSFES1BHJBB JKA 
9 8Z 898Q98999YZ9Y9Y 
9 9 9 9 9 

OOOUAHUBBUKOMFOXAQF. 
Y9+89 8Z 89+Y9+9YZ9 
9 9 9 - 9 

S WK SOF JAAHH. BHAAHDAY 
898Y9Y8Y09 09QY09Y9 
9 99 9 



AA0AGDAB7MGACBAB7MGA 
YQ YQ9-9 OZQQQ-9 YZQ 
99 9Z 9Z0 9 

KABCB4E.90H0BUAJ E8EA 
YQQQ9Z 0R+Q9ZYQ9ZQ 
9Z9Z Z Z 0 

B4AA0YGAC + B0AAB4A+A-* 
Q9-9 ZQQ-8 ZYQ9Z Y 
Z 9Z 9 Z 9 

E.CJAOAAFABNGOCOBAGG 
Z QYZZY9-YQ Z Q89YQQ 
Z 9 Z Z9 9ZZ 

GEBBB0AAGUEA0AD7BMBA 
Q08Q8-Y9Q9QY+Y-8Q -Y 
Z 999 Z 9 9 Z 9 

KABBB4AJ EAEAOKW AAA 1A 
YQQQ9ZYQQZQ Y8YYQ Y 
9Z9Z ZZ 0 9999Z 9 

AABOGADK AABMGAOKBODU 
-YQ ZYQY-YQ ZQQY8-98 
Z Z9 Z 9Z99 9 

BUBUBABBAJOEGADKAHOD 
Q8Q8-YQQ-Y 9ZQQY-9 9 
Z9Z9 9Z9 9 9Z9 

G0DKB0AJE.H0BJKB8H8F 
Z Q88 ZYQ R+QY 8 0 Y 
Z99 Z Z9 9 - 9 

GADYGODK AAAABAK4J AA + 
ZYQ Z QYYYYY Y89YYY 
Z Z99999 99 999 



HG05AHM ABMJ . DE.5CH4C 
09-99Z9ZZ99 -9 99Z9Z 



BAJ AAEA1CHACBAL AAGAC 
9Q9YQ9Y999QZ9Q9YQ9Y8 
9 9 9 Z Z 90 99 

BHUBBUK.MF.CAQOAKOJ- 
9Z9ZZ99 09 9YZ9ZZ99 
9 

J FAT AQB.K B AJBDJS AQSB 
Y9Q8Y08 08QYY9Y8908Z 
099 9 99 9 9 

KFA-FD-W AQWBKWK-OFOX 
Z9Q 09 99Z9ZZ99 09 8 
9 9 

AQ2CK2LJBG-EAHD.BDA. 
908Z089YQ9 9YZ9 Z9Q 
9 9 0 9 9 



CBAA0YGACOD781200051 
QQ-9 ZQQ8-8 
ZO 9Z9 

0K6AAA 0AGDL081 200052 
Y8YYQ YQ98Z 

99999 9Z 9 

BHAAAGAAAHAA 8 1200053 
ZRYYZR Y9Z0Y9 
099 09 9 

E.90PCBUBUAA 81 200054 
Z 0 9Q8Q8-Y 
Z9Z9 

BBHOBJAJEYKB 81 200055 
QQR+QYZ YQ9 8 
Z9 Z9 Z 9 

F4H.BUADAA+. 81200056 
Q R Q8ZZY9 
Z Z9 9 

GJBBEA0AFABM81200057 

Q88QQY+Y-YQ 

Z 99 9 9 Z 

GADYAABMGADK 81200058 
ZYQ - YQ ZQQ8 
Z L 919 

EA0K6AA.0AGM81200059 
ZQ Y8YY YQ9 
0 99 9 9Z 

TAK4JAAAAAK481200060 
9Y89YYY9ZY89 
99 999 99 

81200061 



B4L.DG03AYKA 81 200062 
Z99 09+9999Z - 



AQKAKK JJBE J1812QG063 
908Z089YQ9Y8 
9 9 9 

FE-3B0BBSSKJ 81 200064 
-9 99+SZ999Y 
9 

KSKJKFOVAHD. 81200065 
089YY9-8Y 8 
9 99 9 

AYF.SFASFDSW 81 200066 

Y 8 8Q8Y988 
9 9 99 9 

DD.UAH4CB4L081200067 
09 99 8Z 89+ 
9 9 
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BTXT *AOH. 
9 Y80 
99- 

BTXT.AOO. 

9 Y8 
99 

BTXT.APY. 

9 Y89 
99 

BTXT.AP-. 
9 Y8 
99 

BTXT.APH. 
9 Y8- 
99 

BRL D. • . • • 

9 



BEND.AK8. 

9 Y8 

99 



• A8. • AADGYX 
Y9 Y9Q999 
9 9 0 

•A8. .AADAAA 

Y9 Y98YYY 
9 9 9999 

.A8..AANPR0 

Y9 Y9 
9 9 

•A8..AAG.L0 

Y9 Y9 
9 9 

•AX..AASW.R 

Y9 Y9 
9 9 

•A8. ...AAAA 

Y9 Y9Y9 
9 9 9 

«««.»AA»*.« 

Y9 

9 



BOAT - 
9 



AABCDEFGHABCDEFGAJKL 
Y999999998888 888Q999 
9 99999999 

GHABCDEFGAJKL MNOPQJK 
998888888Q 9999999988 
99999999 99 

FGAJKLMNOPQJK LMNOPJ / 
88Q9999999988 88888 Y9 
999 99999999 

NOPQJKLMNOPJ/STUVWXY 

99998888888Y99999999 
99999999 

MNOPJ/STUVWXY/STUVWX 
8888Y99999999 8888888 
99999 9999999 

TUVWXY/STUVWX A 123456 
9999998888888Q999999 
9999999Z 

STUVWXA 123456 7812345 
888888Q999999 9988888 
999999Z 99999 

123456781234567. ABCD 

^999999998888888 ZZZZ 
I 9999999 

81234567. ABCDEFGHABC 
98888888 ZZZZ ZZZZ 888 

9999999 

/ '\: ■ ■ : - - : v.'. 



AYB. SBAJBDJSAQ6C K6L- 
999 99QY09Y99Z9ZZ99 
99 9 

AAA AHA A AAA AADAAA A AN. 
YYYY9YYYYYYY9YYYYY8 
9999 9999999 999999 

TPLACE. DETAIL. CDS. IN 

8 



ADER-. KEEP. ONLY. DETA 



E START. IF. SET.OF.DET 



AAANEAA4AAP/AAPAAAJB 
8YQ98YQ88Y988Y9R8Y8Y 
999 999 99 99 0999 



MNOPQJKLMNOPJ/STUVWX 
999998888888 Y9999999 
99999999 

LMNOPJ/STUVWXY/STUVH 
88888Y99999999888888 
999999 999999 

STUVWXY/STUVWXA12345 
99999998888888Q99999 
9999999Z 

/STUVWXA1 23456781234 
8888888Q999999998888 
9999999Z 9999 

A123456781234567.ABC 
Q999999998888888 ZZZ 
Z 9999999 

781234567. ABCDEFGHAB 
998888888 ZZZZZZZZ88 
9999999 

67. ABCDEFGHABCDEFG+A 
88 ZZZZZZZZ8888888 R 
99 

EFGHABCDEFG+ABCDEFGH 
ZZZZ8888888 RRRRRRRR 



DEFG+ABCDEFGHJKLMNOP 
8888 RRRRRRRR8888888 



FGJ AAHA. BAAAADAJ AY6C 
09Y9Y9Y 9YQYY9YY9 8Z 
- 9 9 9 999 99 9 

HAAAAAAADAAAAANHHAAA 
9YYYYYYY9YYYYY8Z9YYY 
9999999 999999 999 

•RDRC.HPRTMAKE.RDYTE 
8 8 8 



IL.CDS. IN.RDR.SET.SS 



AIL. CDS. DESIRED. 



AAN/ AAN1 AAN1AANAAANA 
8Y888Y898Y888Y8Z8Y88 
9999999 9999999 999 



Y/STUVWXA12345678123 
98888888Q99999999888 
9999999Z 999 

XA123456781234567.AB 
8Q999999998888888 ZZ 
9Z 9999999 

6781 234567. ABCDEFGHA 
9998888888 ZZZZZZZZ8 
9999999 

567. ABCDEFGHABCDEFG-f 
888 ZZZZZZZZ8888888 
999 

DEFGHABCDEFG+ABCDEFG 
ZZZZZ8888888 RRRRRRR 



CDEFG+ABCDEFGHJKLMNO 
88888 RRRRRRRR 88 88 88 



BCDEFGHJKLMNOP-/KLMN 
RRRRRRR8888888 ZZZZ 



JKLMNOP-/KLMNOPQ/+TU 
8888888 ZZZZZZZ8-88 



-/KLMNOPQ/+TUVWXOABC 
ZZZZZZZ8-88888^RRR 

-000 



S6LSFG AAA ANA 81200068 
898Q9YYYY8Q 
9 0 99999Z 

AAAADAAA.DO. 81200069 

YYYY9YYY 

9999 999 

OF.ON.LOOPIN81200070 



W.9.0NT.D0.P 81 200071 
8 



.81200072 



EAOMEAPDDAPM 81 200073 
8Y8Y8Y898Y89 
9999999 999 



.81200074 



.81200075 



4567. ABCDEFGHA BCDEFG 
8888 ZZZZZZZZ8888888 
9999 

CDEFGHABCDEFG+ABCDEF 
ZZZZZZ8888888 RRRRRR 



BCDEFG+ABCDEFGHJKLMN 
888888 RRRRRRRR88888 



ABCDEFGHJKLMNOP-/KLM 
RRRRRRRR 8 8 88 88 8 ZZZ 



HJKLMNOP- /KLMN0PQ/+T 
R8888888 ZZZZZZZ8-8 



P-/KLMNOPQ/+TUVWXOAB 

8 ZZZ ZZZZ 8-88888+RR 
-00 

0PQ/+TUVWX0ABCDEFGH1 
ZZZ8-88888+RRRRRRRR8 
-OCOOOOOO 

VWX0ABCDEFGH1234567A 
888+RRRRRRRR8888888Y 
-00000000 

DEFGH1234567AABC0EFG 
RRRRR 8888888Y0000000 

00000 
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7. ABCDEFGHABCDEFG+AB 
8 ZZZZZZZZ 8888888 RR 
9 

FGHABCDEFG+ABCDEFGHJ 
ZZZ8888888 R3RRRRRR8 



EFG+ABCDEFGHJ KLMNOP- 
888 R&RRRRRR8888888 



DEFGHJKLMNOP- /KLMNOP 
RRRRR8888888 ZZZZZZ 



LMNOP-/KLMNOPQ/+TUVW 
8888d ZZZZZZZ8-8888 



KLMNOPQ/+TUVWXOABCDE 

ZZZZZZZ8-88888+RRRRR 
-00000 

/♦TUVWX0ABCDEFGH1234 
8-88888+RRRR*RRR8888 
-00000000 

0ABCDEFGH1 234567AABC 
+RRRRRRRR8888888Y000 
-00000000 

GH1234567AABCDEFGHIB 
RR 8888888Y00O0OOO0OY 
00 

67AABCDEFGHIBCDEFGAA 
88Y000000000YYYYYYQ- 



EFGHIBCDEFGAABCDEFGH 
OOOOOYYYYYYQ 



DEFGAABCDEFGH IBCOEFG 
YYYYQ r QQQQQQ 



CDEFGHI8CDEFG JJKLMNO 
QQQQQQ YOOOOOO 



BCDEFGJJKLMNOPQRKLMN 
qqqqqq YOOOOOOOOOYYYY 



JKLMNOPQRKLMNOPAABCD 
OOOOOOOOOYYYYYYQOOOO 

0 

QRKLMNOPAABCDEFGHIBC 
OOYYYYYYQOOOOOOOOOQQ 

0 -00 

PAABCDEFGHIBCOEFGOAB 
YQOOOOOOOOOQQQQQQ+ 

O— —000000 



DATE 

EC 



15JUN67 
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CDEFGHJKLMNOP-/KLMNO 

RRRRRR8888888 ZZZZZ 



KLMN0P-/KLMN0PQ/+TUV 
888888 ZZZZZZZ8-888 



/KLMNOPQ/+TUVWXOABCD 
ZZZZZZZ8-88888+RRRR 

-0000 

Q/+TUVWX0ABCDEFGH123 

Z8-88888+RRRRRRRR888 
-00000000 

X0ABCDEFGH1234567AAB 
8+RRRRRRRR8888888Y00 
-OOQOOOOO 

FGH1 234567 AABCDEFGH I 
RRR8888888Y000000000 
000 

567AABCDEFGHIBCDEFGA 
888Y000000000YYYYYYQ 



DEFGHIBCDEFGAABCDEFG 

0000O0YYYYYYQ-- 



C DEFGAABCDEFGH I BCDEF 
Y YYYYQ — — CQOQQ 



BCDEFGHIBCDEFG JJKLMN 

— QQQOQQYQOOOO 



IBCDEFG J JKLMNOPQRKLM 
-QQQQQQ YOOOOOOOOOYYY 



J JKLMNOPQRKLMNOPAABC 
YOOOOOOOOOYYYYYYQOOO 

0 

PQRKLMNOPAABCOEFGHIB 
OOOYYYYYYQOOOOOOOOOQ 

0 0 

OPAABCOEFGHIBCDEFGOA 
YYQOOOOOOOOOQQQQQQ+ 
0- 000000 

EFGHIBCDEFGOABCDEFGH 

OOOOOQQQQQQ+ 

000000 

DEFGOABCDEFGHIBCDEFG 
QQQQ+ YYYYYY 
0000 999999 

CDEFGHIBCDEFGOJKLMNO 
YYYYYY- 
999999 



PQ/+TUVWX0ABCDEFGH12 
ZZ8-88888+RRRRRRRR88 
-00000000 

WX0ABCDEFGH1234567AA 
88+RRRRRRRR8888888Y0 
-00000000 

EFGH1 2 34567 AABCDEFGH 
RRRR8888888Y00000000 
0000 

4567AABCDEFGH IBCDEFG 
8888Y000000000YYYYYY 



CDEFGHIBCDEFGAABCDEF 
OOOOOOOYYYYYYQ 



BCDEFGAABCDEFGHIBCDE 
YYYYYYQ QQQQ 



ABCDEFGH IBCDEFG J JKLM 
« QQQQQQYOOOO 



H IBCDEFG J JKLMNOPQRKL 
— QQQQQQYOOOOOOOOOYY 



GJJKLMNOPQRKLMNOPAAB 
QYOOOOOOOOOYYYYYYQOO 
0 — 

OPQRKLMNOP AABCDEFGH I 
OOOOYYYYYYQOOOOOOOOO 

NOPAABCDEFGHIBCDEFGO 
YYYQOOOOOOOOOQQQQQQ+ 

0 - 000000 

DEFGHIBCDEFGOABCOEFG 
OOOQOOQQQQQQ+ 
000000 

CDEFGOABCDEFGHIBCDEF 
QQQQQ+ ' YYYYY 
00000 99999 

BCDEFGHIBCDEFGOJKLMN 
YYYYYY- 
999999 

IBCDEFGOJKLMNOPQRBCD 
YYYYYY- QQQ 
999999 999 

OJKLMNOPQRBCDEFGSJST 
QQQQQQ8Z 
999999 

PQRBCDEFGSJSTUVWXYZK 

QQQQQQ82 Y 
999999 9 



34567A ABCDEFGH I BCDEF 
88888Y000000C00YYYYY 



BCDEFGH IBCDEFG AABCDE 
OOOOOOOOYYYYYYQ 



IBCDEFGAABCDEFGH IBCD 
OYYYYYYQ — — QQQ 



AABCDE FGH IBCDEFG J J KL 
q QQQQQQYOOO 



GH IBCDEFG JJKLMNO PQRK 
QQQQQQYOOOOOOOOOY 



FGJ JKLMNOPQRKL MNOPAA 
QQYOOOOOOOOOYYYYYYQO 
0- 

NOPQRKLMNOPAABCDEFGH 
OOOOOYYYYYYQOOCOOOOO 

0— ■ 

MNOPAA BCDEFGH IBCDEFG 
YYYYQ OCOOCCOOOQQQQQQ 
0 000000 

CDEFGH IBCDEFGOABCDEF 
O00COOOQQQQQQ+ 

oooeoo 

BCDEFGOABCDEFGHIBCDE 
QQQQQQ+ • YYYY 

000000 9999 

ABCDEFGH I BCDEFGO JKLM 
YYYYYY- 
999999 

HI BCDEFGO J KLMNOPQRBC 
YYYYYY- QQ 
999999 99 

GOJKLMNOPQRBCDEFGSJS 
Y- QQQQQQ8Z 
9 999999 

OPQRBCDEFGSJSTUVWXYZ 
QQQQQQ8Z 
999999 

EFGSJSTUVWXYZKLMNOPO 
QQQ8Z YYYYYY 
999 999999 

UVWXYZKLMN0P01 234567 
YYYYYY 
999999 

LMN0P0123456789BCDEF 
YYYYY QQQQQ 
99999 ZZZZZ 



FGHIBCDEFGOABCDEFGHI 

OOOOQQQQQQ+ 

000000 



BCDEFGO JKLMNOPQRBCDE 
YYYYYY- QQQQ 
999999 9999 



FGSJSTUVWXYZKLMNOPO 1 
QQ8Z YYYYYY 
99 999999 



23456789BCDEFG AABCDE 
QQQQQQ Y99999 
ZZZZZZ9 



BLDT. 

9 



.81200103 
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1. PURPOSE 

1.1 INTENT. 

F819 2540 READER STACKER SELECT TEST 
TESTS ABILITY TO... 

1. ISSUE 360 STACKER SELECT COMMANDS. 

2. READ AND STACKER SELECT USING 1400 COMPATIBILITY 
COMMANDS. 

2. PREREQUISITES 

2.1 PROGRAM REQUIREMENTS. 

THE EXCLUSIVE CPU FLAG IS ON IN ALL SECTIONS. 

DM MUST HAVE A FOUR BYTE UDT ENTRY, ONLY THE FIRST TWO BYTES ARE SHOWN 
BELOW. THE NEXT TWO BYTES MUST CONTAIN THE CHANNEL AND UNIT ADDRESS. 



J UNIT TYPE 




I OPTIONAL FEATURE DIGIT 1 
i 
\ 

11 | BIT 0 1BIT I |BIT 2 |BIT 
8 I HEX 4 | HEX 2 I HEX 

— I — I ™l 



I OPTIONAL FEATURE DIGIT 2 
I 



(HEX 



(CARD I 
I IMAGE ! 
I I 



3 |BIT 4 |BIT 5 |BIT 6 
1 | HEX 8 I HEX 4 I HEX 2 
I 



I- 



151 COL 1 1400 
IFEAT. I FEAT. 

I ! 



IBIT 7 I 

I J HEX 1 j 



)2 CHNLI 
SSW ON I 
12821 



2.2 EQUIPMENT REQUIREMENTS. 

INPUT DEVICE FOR LOADING PROGRAM -TEST DEVICE CAN BE LOADER-. 
OUTPUT DEVICE. 
4K OF STORAGE 

CPU 

CHANNEL 
3. USE PROCEDURE 

3.1 PROGRAM LOADING. 

STANDARD AS DESCRIBED IN USERS GUIDE. 

3.2 PROGRAM OPERATE. 

***** *********************** NOTE ***************************** 

* IF 2 CHANNEL SWITCH FEATURE IS INSTALLED* DISABLE THE * 

* UNUSED INTERFACE TO PREVENT NOT READY TO READY STATUS * 

* FROM BEING PRESENTED TO THE OTHER CHANNEL. * 
**************************************:*******^ 



IF MORE THAN ONE 2540 IS DEFINED IN THE DM UDT, ALL ROUTINES 
IN EACH SECTION WILL BE EXECUTED ON THE FIRST 2540 ALLOCATED 
BY DM BEFORE ANY TESTING OCCURS ON THE NEXT. 

3.2.1 SECTION SENSE SWITCHES 

THE SENSE SWITCHES SHOWN BELOW ARE IN THE SENSE SWITCH BYTES OF THEIR 
RESPECTIVE SECTION PREFACES. THE CHARACTER X REPRESENTS THE ^LOCATION 
FACTOR CONTAINED IN REGISTER 15 DURING RUN TIME. THE SWITCH BITS ARE 
ZERO WHEN OFF, AND ONE WHEN ON. 



NOTE. 


RESETTING SENSE SWITCH 0 OR 1 AFTER LOOPING 
THE NORMAL PROGRAM RUN. 


MAY CAUSE ERRORS 


IN 


I SENSE! 
t SW. 1 
1 NO. 1 


FUNCTION 


1 SECTION 1 
I OR 1 
| ROUTINE I 


BYTE 

AND 

BIT 


1 o 


OFF-PROCEED 

ON — LOOP ON CURRENT 1-0 COMMAND. 


| F819 | 


X004 
0 


1 1 


OFF-PROCEED 

ON — LOOP ON CURRENT SIO, TIO COMMAND. 

«-«-.-.•.-,— -M- rr 4~ r 


I F819 1 


X004 

1 


1 4 


OFF-PROCEED 

ON — LOOP ROUTINE CURRENTLY BEING EXECUTED. 


I F819 I 


X004 

4 


1 7 


OFF-PROCEED 
| QN — PRINT CORRECT RESULTS. 


| F819 1 


X004 

7 


1 11 


| OFF-PROCEED 

| ON — LOOP STACKER SELECT Rl * SEE NOTES 


S F819 


X005 

3 


1 12 


I OFF-PROCEED 

| ON — LOOP STACKER SELECT R2 * SEE NOTES 


I F819 


X005 
4 


I 13 


| OFF-PROCEED 

| ON — LOOP STACKER SELECT RP3 * SEE NOTES 


I F819 


X005 

1 5 



* NOTES 

* will LOOP 360 STACKER COMMAND IF IN SECTION F819, ROUTINE 01. 

* . WILL LOOP 1400 STACKER COMMAND IF IN SECTION F819, ROUTINE 02. 

* to* EST SENSE SWITCH HAS PRECEDENCE IF MORE THAN 1 IS ON AT THE 
SAME TIME. 



3.3 PROGRAM HALTS 

F819 IF THE TESTS ARE EXECUTED, A MESSAGE AND HALT OCCUR TO 

ALLOW THE OPERATOR TO PREPARE FOR THE STACKER SELECT TESTS. 
TEST DECKS MUST BE REMOVED IF TESTING THE LOADER DEVICE. 
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4* PRINTOUTS 

4.1 OPERATOR INSTRUCTIONS 

AN SDO HEADER IS GIVEN WITH EVERY MESSAGE TO DEFINE THE 1-0 
DEVICE ADDRESS THAT IS ASSOCIATED WITH THE MESSAGE. 

F819 - REMOVE CDS FROM STACKER OF LOADER DEVICE- 

- REMOVE THE REMAINING TEST DECKS, IF ANY, FROM THE LOADER HPR- 

- DO NOPRO AND PLACE CDS RUN OUT IN FRONT OF REMAINING TEST DECKS- 

~ SA * E REMAINING TEST DECKS UNTIL A MSG REQUESTS THEM TO BE PUT IN HPR- 

TH£ ABOVE MESSAGE IS ISSUED WHEN THE INTERVENTION ROUTINE IS TO BE 
EXECUTED ON THE LOADER DEVICE. IT PREVENTS THE READING OF TEST 
DESKS BY THE ROUTINE. 

- p LACE APPROX 100 VALID SCRAP CDS IN RDR. HPR,MAKE RDY,EOF ON- 

THIS MESSAGE IS GIVEN AT THE START OF THE STACKER SELECT 
TEST. VALID SCRAP CARDS CAN BE EITHER BLANK CARDS OR CARDS 
WHICH HAVE ANY OF THE 360 EBCDIC CHARACTERS PUNCHED IN THEM. 

- RTN BYPASSED - 

THE ABOVE MESSAGE WILL OCCUR WHEN A ROUTINE IS BYPASSED. 

ROUTINE 02 WILL BE BYPASSED IF THE 2540 DOES NOT HAVE 1400 COMPATIBILITY. 

~ E Mp TY RDR HPR AND STKRS -DO NOPRO- PUT TEST OKS IN AND MAKE ROY, EOF ON - 

THE ABOVE MESSAGE IS ISSUED WHEN THE EXECUTION OF SECTION F819 
IS COMPLETED AFTER TESTING THE LOADER DEVICE. THIS ALLOWS THE 
OPERATOR TO READY ANY REMAINING TEST DECKS FOR LOADING. 



4^2 STATUS MESSAGES 
4; 2.1 SAMPLE CORRECT PRINTOUT 
LINE MESSAGE 



DATE 

EC 



01 
02 
03 
04 

05 
06 

0? i 

08 

09 

10 ; 

11 

12 

13 

14 : 

15 

16 



15JUN67 
130498 



SDO F819R 08 00135C OOC- 
TST 0010- 
ADR 001BA4 LINK- 
ADR 001182 SIO- 
CAW 001BB8- 
CCW 02001831 
CCW 00001831 
CC 0 EXP- 
CC 0 ACT- 
CSW 00001BC8 
CSW 00001BC8 
CSW 00000000 
CSW 00000000 
SNS 00 EXP— 
SNS 00 ACT- 
LOG 00 000000 000000 000000- 
SET SS 0 ON FOR LOOP ON SIO, 



80000020- 
00000030- 



08000001 EXP- 
08000001 ACT- 
04000000 EXP- 
04000000 ACT- 



SS 1 ON FOR TIO SIO LOOP- 
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4.2.2 ANALYSIS OF SAMPLE PRINTOUT • 
LINE EXPLANATION 

01 THIS IS THE HEADER LINE PRINTED BY OM. IF AN ASTERISK 
PRECEDES THE -SDO- AN ERROR HAS CAUSED THE MESSAGE 
PRINTOUT. IF NO ASTERISK IS PRINTED, THE MESSAGE 

IS A RESULT OF EITHER HAVING THE CORRECT PRINTOUT 

SWITCH ON OR AN OPERATOR MESSAGE IS TO FOLLOW. 

ALL LINES THAT FOLLOW THE -SDO- ARE PART OF THAT SAME 

MESSAGE. THE START OF A NEW MESSAGE IS INDICATED 

BY ANOTHER -SDO- PRINTOUT. THE -F819R- IS THE SECTION 

ID NUMBER WHERE -R- REPRESENTS THE REVISION LEVEL OF 

THE PROGRAM. THE -08- IS THE PROGRAM ROUTINE NUMBER 

WHILE THE -OOC- IS THE ADDRESS OF THE DEVICE UNDER TEST. 

02 THIS IS THE TEST NUMBER ASSOCIATED WITH THE MESSAGE. AT THE 
BEGINNING OF THE PROGRAM LISTING, THERE IS A LIST OF TEST 
NUMBERS. WITH THE TEST NUMBER IS A SHORT EXPLANATION OF 
WHAT WAS BEING DONE, AND WHAT SHOULD OCCUR. 

03 THIS LINE SHOWS THE ADDRESS FROM WHICH THE 1-0 HANDLER 
SUB-ROUTINE WAS ENTERED. ALL 1-0 COMMANDS ARE ISSUED 
FROM THIS SUB-ROUTINE, SO IT IS ENTERED MANY TIMES FROM 
MANY PLACES. TO INSURE THE SPECIFIC 1-0 OPERATION YOU 
WANT TO LOOK AT WILL BE THE NEXT ONE PERFORMED, YOU SHOULD 
RESTART THE PROGRAM WITH A SYSTEM RESET, PSW RESTART, ANO 
ADDRESS STOP AT THE GIVEN ADDRESS. 

04 THIS LINE SHOWS THE ADDRESS OF THE START 1-0, TEST 1-0, 

OR HALT 1-0 THAT WAS ISSUED IN THE 1-0 HANDLER SUB-ROUTINE. 

05 THIS LINE SHOWS THE ADDRESS OF THE CCW TO BE ISSUED BY 
A START 1-0 COMMAND. IF CCWS ARE CHAINED, THE ADDRESS 
GIVEN REFERS TO THE FIRST CCW IN THE CHAIN. 

06 THIS LINE DISPLAYS THE FIRST CCW. THE FIRST BYTE CONTAINS 
THE COMMAND CODE. THE NEXT 3 BYTES CONTAIN AN ADDRESS IN 
STORAGE, WHICH WILL BE USED IF DATA TRANSFER IS PERFORMED. . 
THE NEXT BYTE CONTAINS FLAGS USEO BY THE CHANNEL. THE LAST 
3 BYTES ARE THE COUNT FIELD. IF CHAINING IS INDICATED IN 
BYTE 4, ADDITIONAL CCWS WILL BE SHOWN BELOW THIS LINE. 

07 THIS LINE SHOWS THE CONDITION CODE EXPECTED, BY THE 
PROGRAM, IN RESPONSE TO ISSUING THE 1-0 COMMAND. 

08 THIS LINE SHOWS THE ACTUAL CONDITION CODE SET IN RESPONSE 
TO THE 1-0 COMMAND. 

09 THIS LINE DISPLAYS THE FIRST CSW EXPECTED BY THE PROGRAM. 

A BIT BY BIT DESCRIPTION OF THE DEVICE STATUS BYTE PORTION 
OF THE CSW APPEARS IN THE PROGRAM LISTING FOLLOWING 
THE TEST NUMBER DESCRIPTIONS. 

10 THIS LINE DISPLAYS THE ACTUAL CSW RECEIVED BY THE PROGRAM. 

NOTE. FOR EVERY EXPECTED (EXP) CSW PRINTED OUT THERE SHOULD BE A CORRESPONDING 

ACTUAL (ACT) CSW PRINTED OUT ON THE NEXT LINE. THE ABSENCE OF A (ACT) CSW 
PRINTOUT INDICATES A MACHINE FAILURE. A MACHINE FAILURE IS ALSO INDICATED IF 
THERE ARE (ACT) CSW PRINTOUTS WHERE THERE ARE NONE EXPECTED. 

11 THIS LINE WILL APPEAR IF THE PROGRAM EXPECTS MORE THAN ONE CSW. 
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12 THIS LINE WILL APPEAR IF THE PROGRAM RECEIVED A SECOND CSW. 

13 THIS LINE SHOWS THE SENSE BYTE EXPECTED BY THE PROGRAM* 
A BIT BY BIT DESCRIPTION OF THE 2540 SENSE BYTE APPEARS 

IN THE PROGRAM LISTING, AFTER THE TEST NUMBER DESCRIPTIONS. 

14 THIS LINE SHOWS THE ACTUAL SENSE BYTE RECEIVED BY THE PROGRAM. 

15 THIS LINE DISPLAYS THE CPU AND CHANNEL LOGOUT AREA ON 
MODEL 30 SYSTEMS. IT WILL NOT APPEAR ON ANY OTHER SYSTEM. 

16 THIS LINE SHOWS THE SECTION SENSE SWITCH LOOP OPTIONS. 
IF AN ERROR HAD OCCURRED* AND DM SENSE SWITCH 25 WAS ON* 
A HALT WOULD NOW OCCURt TO ALLOW SETTING OF THE SECTION 
SENSE SWITCHES. TO INSURE THAT LOOPING OCCURS ON THE 
COMMAND THAT FAILED, THE OPERATOR SHOULD HAVE THE DM 
SENSE SWITCH ON THAT ENABLES HALTING WHEN AN ERROR 
OCCURS, SET THE PROPER SECTION SENSE SWITCH ON, 

AND PRESS THE EXTERNAL INTERRUPT KEY TO EXECUTE. 



4.2.3 PSW RESTART AFTER I/O HANG UP 
- PREVIOUS HANG UP DETECTED- 

THE ABOVE MESSAGE WILL APPEAR IF A SYSTEM RESET PSW RESTART IS 
PERFORMED AFTE* A HANG UP CONDITION ON AN 1-0 COMMAND. FOLLOWING 
THIS LINE WILL BE A PRINTOUT SIMILAR TO THE ABOVE SAMPLE MESSAGE IN 
4.2.1. 



4.2.4 UNEXPECTED I/O INTERRUPT MESSAGE 

♦ SDO F819R 02 001254 XXX EXAMPLE SHOWS F819 -R IS REVISION LEVEL- 

UI3 FROM OEVICE XXXX WHERE XXXX IS THE DEVICE ADDRESS OF THE INTERRUPT. 

CSrf 00000000 04000000 ACT 

LOS 00 000000 000000 000000 CPU AND CHANNEL LOG OUT (MODEL 30 ONLY) 



5. COMMENTS 
5.1 LOOPING 

IN SOME CASESt IT MAY BE DESIRED TO LOOP ON AN ENTIRE ROUTINE 
RATHER THAN USE THE SECTION SENSE SWITCH LOOPS PROVIOED. ONE 
METH3D OF DOING THIS IS TO MANUALLY ENTER THE NUMBER OF THE ROUTINE 
IN X34C. WHERE X STANDS FOR THE 4K BLOCK RELOCATION ADDRESS. 
THEN PERFORM A SYSTEM RESET-PSW RESTART* AND THE PROGRAM WILL 
LOOP ON THE ROUTINE. 

SENSE SWITCHES MAY BE SET BY MANUALLY ENTERING THE DESIRED BITS. 
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8190 TITLE 

* * 

* MODIFICATIONS * 

* * 

* * 

* REVISION LEVEL 0. INITIAL RELEASE OF THE PROGRAM. * 

* THIS SECTION CONTAINS THE 360 STACKER SELECT TEST WHICH WAS * 

* FORMERLY IN SECTION F811 THIS SECTION ALSO CONTAINS THE 1400 * 

* COMPATIBILITY STACKER SELECT PRO&RAM, FORMERLY LOCATED IN * 

* SECTION F817. SECTION F81T IS MADE OBSOLETE BY THIS SECTION. * 

* I. THE PROGRAM HAS BEEN MODIFIED TO INCLUDE TEST NUMBERS AND * 

* COMMON MESSAGE FORMAT. * 

* M * 

* E.C. PREREQUISITES * 

* MACHINE ... NONE * 

* PROGRAM ... NONE * 

* * 

* USE DESCRIPTION F819* AT EC 130498, DATED 15 JUN 67. * 

*************************#**$*******$***^$l|^ 

XF8190 START 4096 
001000 USING *,15 

* '; !; 
♦ 

**************************************************** **************^ 

* TEST NUMBER DESCRIPTION 

***jMt*e******************************************^^ 
********************************************^^ 

* TEST DESCRIPTION 

* 
* 

* ************** 

* ROUTINE 01 

* ************** 

* ■ 

* 0010 - OPERATION ATTEMPTED 

* . 

* THIS TEST NUMBER IS USED TO INDICATE PROBLEMS IN THE 360 

* STACKER SELECT TEST. A READ FEED STACKER SELECT IS DONE IN 

* THE FOLLOWING PATTERN, Rl , R2 , Rl , RP3, REPEATING 10 TIMES. 
*■ THIS ROUTINE SHOULD PLACE 20 CARDS IN Rl, 10 CARDS IN R2, AND 

* 10 IN RP3 AT A CARD SPEED OF APPROXIMATELY 1000 CARDS PER 

* MINUTE. CARD TIMING CAN BE ALTERED WITH THE USE OF THE 

* ALTERNATE CLUTCH SWITCH IN THE 2540. 
♦ 

* EXPECTED RESPONSE 
* 

* CONDITION CODE 0 WITH CHANNEL AND DEVICE ENDS IN 2 SEPARATE 

* CSWS. 

* 

* POSSIBLE FAILURE CAUSES 

* 

* A STACKER MAGNET MAY FAIL TO PICK OR MAY FAIL TO RELEASE. 

* THIS CAN ONLY BE VISUALLY DETERMINED. 

* . i 
* 

* ■ ************** 

* ROUTINE 02 

* ************** 

* 

* 0020 - OPERATION ATTEMPTED 

* 

* THIS TEST NUMBER IS USED TO INDICATE PROBLEMS IN THE 1400 

* STACKER SELECT TEST. A 1400 READ NO FEED IS ISSUED FOLLOWED 

* BY THE VARIOUS 1400 FEED AND STACKER SELECT COMMANDS. THE 
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EC 
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* ■ FOLLOWING STACKER SELECT PATTERN IS USED© ftl, R2 9 Rlt RP3# 

* REPEATING 10 -TIMES. THIS ROUTINE SHOULD PLACE 20 CARDS IN 

* • Rl, 10 CARDS IN R2, AND 10 .CARDS IN RP3. THE CARD SPEED IN 

* THIS TEST -IS LIMITED DUE TO THE SEPARATE COMMANDS INVOLVED 

* AND ALSO DUE TO THE SAVING OF DATA DURING EXECUTION. 

* IF 1400 COMPATIBILITY EXISTS ON THE TEST DEVICE, BOTH THE 

* 360 AND 1400 STACKER SELECT TESTS WILL BE EXECUTED. DOUBLE 

* THE AMOUNT OF CARDS WILL BE IN EACH STACKER AT PROGRAM 

* COMPLETION IF THIS IS THE CASE. 
* 

* EXPECTED RESPONSE 
* 

* : CONDITION CODE 0 WITH CHANNEL AND DEVICE ENDS RETURNED IN THE 

* SAME CSW BECAUSE NO FEED CYCLE OCCURS. 

* . 

* POSSIBLE FAILURE CAUSES 

* . 

* A STACKER MAGNET MAY FAIL TO PICK OR MAY FAIL TO RELEASE. 

* THIS CAN ONLY BE VISUALLY DETERMINED. 

* 

* THE DM UDT ENTRY FOR THE OPTION BYTE OF THE 2540 MAY HAVE 

* BEEN ERRONEOUSLY SET UP TO INDICATE THAT 1400 COMPATIBILITY 

* HARDWARE EXISTS IN THE 2540. THE 1400 COMPATIBILITY TESTS 

* WILL BE ATTEMPTED AND WILL INDICATE ERRORS. 

* 

* ALL OTHER ERRORS WILL HAVE TO BE ANALYZED BY THE INDICATIONS 

* GIVEN IN THE ERROR MESSAGE. 
* 

* 

* 0030 - OPERATION ATTEMPTED 

* . 

* THIS TE ST NUMBER IS USED TO INDICATE PROBLEMS IN THE FEED | 

* STACKER SELECT PORTION OF THE 1400 STACKER SELECT TEST. REFER 

* TO TEST NUMBER 0020 FOR FURTHER INFORMATION. 

* 

* EXPECTED RESPONSE 
* 

* , CGNDITION CODE 1 -COMMAND IMMEDIATE WITH CHANNEL AND DEVICE 

* • ENDS IN TWO SEPARATE CSWS. SENSE IS ISSUED IF UNIT CHECK IS 

* DETECTED DURING THE FEED COMMAND. 

* 

* ■ POSSIBLE ERROR CAUSES 

* , 

* ' 1. IF USING DME-2 ON A 2 MICROSECONO MODEL 30, 

* • THE PROGRAM FAILS DUE TO TOO MUCH TIME TAKEN IN INTERNAL 

* INSTRUCTIONS WHICH CAUSES A DELAY IN STACKER SELECTION. 

* PROVISIONAL FEED STARTS BEFORE THE PROGRAM CAN ISSUE THE 

* STACKER COMMAND. 

* ■ 2. ANY MALFUNCTION DURING TEST 0020 CAN CAUSE DELAY BECAUSE 

* • OF THE MESSAGE OUTPUT IN TEST 0020. THIS WOULD ALLOW THE 

* PROVISIONAL FEED CIRCUITRY TO FUNCTION BEFORE THE PROGRAM 

* HAD TIME TO ISSUE THE FEED COMMAND. 

* 

* 1400 PROVISIONAL FEED OPERATION AND DEFINITION. 
♦ 

* THE FOLLOWING IS AN EXPLANATION OF 1400 PROVISIONAL FEED 

* OPERATION. 

* . 

* A 1400 READ NO FEED COMMAND IS ISSUED AND CHANNEL AND DEVICE 

* . ENDS RETURN IN THE SAME CSW BECAUSE NO FEED CYCLE IS TAKEN. 

* " 

* THE PROGRAM HAS TO ISSUE A FEED AND STACKER SELECT COMMAND 

* WITHIN 6 MILLISECONDS. IF IT DOES NOT, THE PROVISIONAL 

* FEED CIRCUITRY AUTOMATICALLY STACKER SELECTS THE CARD. IF 

* THE PROGRAM I SSUES A STACKER SELECT AFTER THE PROVISIONAL 

* FEED HAS STARTED, THE DEVICE WILL ACT BUSY OR PRESENT BOTH 

* BUSY AND DEVICE ENDS IN STATUS IF THE PROGRAM ACCEPTS THE 

* INTERRUPT. 
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A COMMAND. REJECT COULD .BE GENERATED ON THE DEVICE UNDER 
THE CONDITION THAT THE PROVISIONAL FEED HAS DONE AMD THE 
PROGRAM ATTEMPTS A FEED AND STACKER SELECT ALSO, DUE TO 
2 FEEDS IN A ROW BEING ATTEMPTED. 

IF THIS ERROR IS INDICATED, THE SINGLE SHOT THAT GOVERNS 
THE 6 MILLISECOND DELAY FOR THE PROVISIONAL FEED SHOULD BE 
SCOPED TO INSURE PROPER SETTING- IF THE SINGLE SHOT IS ALL 
RIGHT, THE MONITOR BEING USED MUST BE TOO SLOW AND THE ERROR 
IGNORED. 



********************************************************^ 

******************* ******************* 

* SECTION PREFACE *********************************** SECTION PREFACE * 



******#****it5****S§C*3tS 



******************* 



001000 


. F81 90000 


SECNG 


DC 


XL4* FBI 90000' . 


PROGRAM, SECTION AND REVISION 


NOS. 


* 


001004 : 


00000000 


SNSW 


DC 


XL4»00» 


SECTION SENSE SWITCHES 




* 


001008 • 


0000 




DC 


XL2«00» 






* 


00100A 


0000 


ICM ' 


DC 


XL2«00* . 


INTERRUPTION CONDITION MASK 




* 


0Q100C 


00 


SDMF 


DC 


XLl'OO' 


SECTION DM FLAGS 




* 


00100D 


02 


NIOU 


DC 


XL 1 • 02 8 


NUMBER OF UNIT TABLE ENTRYS 




* 


001006 


CO : 


- FLAG I 


DC 


X 8 CO» ': 


EXCLUSIVE CPU 




* 


00100F 


00 


FLAG 2 


DC 


X'OO 1 


I/O INT ARE ERR, EXT INT TO PROG 


* 


001010 


0104000000 


; INPSW 


DC 


X* 0104000000 s 


DISABLED, SPVSR STATE, NO PGM 


MASK 


* 


001015 


001878 




DC 


AL3U0UT01) 


ADR OF 1ST ROUTINE PREFIX 




* 


001018 < 


0000000000000000 


EXOPSW 


DC 


XL8»0» 1 


SECTION OLD EXTERNAL PSW ' 




* 


001020 . 


ooocoooooooooooo . 


SVOPSW 


DC 


XL8'00» ]' 


CLEAR ALL OLD PSWS 




* 


001028 1 


oooooooooooooooo <• 


PGCPSW 


DC 


XLB'OO 9 , 


PROGRAM OLD PSW 




♦ 


001030 ' 


0000000000000000 


MCOPSfc" 


DC 


Xi8 § 00® . 


MACHINE CHECK OLD PSW 




* 


001038 


oooooooooooooooo 


I00P5W 


DC 


XL 8* 00* 


I/O OLD PSW 




* 


001040 . 


oooooooooooooooo . 


CSW 


DC 


XL8«00» . 


CHANNEL STATUS WORD 




* 


001048 ' 


00000000 


CAW 


DC 


XL4»00» . ' 


CAW 




* 


00104C 


000000000000000000 




DC 


XL12»00« 


RESERVED FOR DM USE 




* 


001055 


OQOOOO 














001058 


0034000000 


EXNPSW 


DC 


X' 0004000000* , j ' 


EXTERNAL NEW PSW 




* 


00105D 


000000 


SRET 


DC 


XL3«0» . 


ADR OF EXT INTRPT ROUTINE 




* 


001060 


oooooooooooooooo 


SVNPSW 


DC 


XL8»00" ' j' 


SUPERVISOR NEW PSW 




* 


001068 1 


oooooooooooooooo : 


PGNPSW 


DC 


XL8»00* , I • 


PROGRAM NEW PSW - 




* 


OOIOTO 


oooooooooooooooo 


MCNPSW 


DC 


XL8»00» ■ 


MACHINE CHECK NEW PSW 




* 


001078 


01040000 




DC 


XL4I 01040000 8 


I/O NEW PSW 




* 


00107C 


000011F6 




DC 


AL4 ( IRETRN) 


ADDRESS OF I/O INTRPT ROUTINE 




* 


001080 






DS 


96C 


96 BYTE REG DUMP AREA FOR DM 


USE 


* 


O010E0 


ai 


UNIT1 


DC 


X«8i« 


UNIT TYPE - 2540 READER 






0010E1 


00 


yiop 


DC 




OPTIONAL FEATURES BYTE 




* 


0010E2 


8000 


U1ADDR 


DC 


X'800G» 


FLAGS AND CHAN/UNIT ADDRESS 




* 


0010E4 : 


82 


UNIT2 


DC 


X»82« 


UNIT TYPE - 2540 PUNCH 






0010E5 


00 


U20P ■' 


DC 


X e 00« 


OPTIONAL FEATURES BYTE 






0010E6 , 


0000 


U2ADDR 


DC 


X*OQ00 8 


FLAGS AND CHAN/UNIT ADDRESS 







*********************************************************************** 

* ; OPTIONAL FEATURE BYTE DEFINITION 

****************«**«.*****^^******************************************** 



* * BIT 0 * 

* * HEX 8 * 

* • * ASCII * 

* * * 

* * * 



BIT 1 * BIT 2 * BIT 3 * BIT 4 * BIT 5 * BIT 6 * SIT 1 * 
HEX 4 * HEX 2 * HEX 1 * HEX 8 * HEX 4 * HEX 2 * HEX 1 * 
CARD * * 51 * 1400 * * * 2821 * 

IMAGE * * COL RD* COMP * * * 2 CHN * 

* * * * * * SW. * 

********************************************************* *jj ( ***** 4( ^*4.* 4(4( 

* 2540 READER SENSE BYTE 

*********************************************************^ 

* BIT MEANING 

* 0 COMMAND REJECT 

* 1 INTERVENTION REQUIRED 

* 2 BUS OUT CHECK 

* ' 3 EQUIPMENT CHECK 

* 4 DATA CHECK - VALIDITY CHECK - INVALID CARD CODE 

* 5 OVERRUN - NOT USED 

* 6 UNUSUAL COMMAND SEQUENCE-2 READS WITHOUT INTERVENING FEED 



* 7 NOT USED ' 

*************************************************j*****.***************** 

* 2540 READER STATUS BYTE 

**************************************************.*,*********♦********** 

* BIT MEANING 

* 0 ATTENTION - 1400 COMPATIBILITY FEATURE ONLY - INDICATES 

* SENSE WAS ISSUED BEFORE 6 MS TIME OUT AFTER 

* A 1400 COMPATIBILITY READ. 

* 1 STATUS MODIFIER - 2 CHANNEL SWITCH FEATURE ONLY 

* 2 CONTROL UNIT END - 2 CHANNEL SWITCH FEATURE ONLY 

* 3 DEVICE BUSY 

* 4 CHANNEL END 

* 5 DEVICE END 

* 6 UNIT CHECK 

* T UNIT EXCEPTION - LAST CARD PREVIOUSLY READ, AND END OF 

* FILE WAS ON. 

*********************************************************************** 

* 2540 READER DIAGNOSTIC CHECK READ BYTE DEFINITION 
*********************************************************************** 
* 
* 
4 
* 
* 
* 
* 
* 

* . 



MEANING 
NOT USED 
NOT USED 
NOT USED 
XU CHECK PLANE 
XL CHECK PLANE 
BUFFER PARITY CHECK 
READ TRANSLATE CHECK 
READER BUFFER ADDRESS CHECK 

***************************************************************^******* 
*********************************************************************** 
*********************************************************************** 

* PARAMETERS USED TO ENTER 

♦ THE 1-0 HANDLER ROUTINE 

*********************************************************^********^**** 
* 



BIT 
0 
1 
2 
3 
4 
5 
6 
7 



BAL 


R11,ISI0 


LINK TO 1-0 HANDLER 


DC 


XL2«0000» 


CONTROL SWITCHES 


DC 


X«0014» 


TEST NO. IN DEC EXPRESSED IN HEX 


DC 


X«FO» 


EXPECTED COND. CODE 


DC 


X«00« 


EXPECTED SENSE DATA 


DC 


AL2(ADR-BASE+REG) 


ADDR. OF EXPECTED CSW IF NEEDED 



* 
* 
* 

*********************************************************************** 
*********************************************************************** 

* 1-0 HANDLER CONTROL SWITCHES 

* 2 BYTE PARAMETER FOLLOWING BAL 

*********************************************************************** 



-0 COMMANO 



* 


SWITCH 


DESCRIPTION 


* 


0 




OFF 




ISSUE / 


* 






ON 




DO NOT 


* 


1 




OFF 




ENABLE 


* 






ON 




DO NOT 


* 


. 2 




OFF 




EXPECT 


* 






ON 




EXPECT 


* 


3 




OFF 




DO NOT 


* 






ON 




EXPECT 


* 


4 




OFF 




EXPECT 


* 






ON 




EXPECT 


* 


5 




OFF 




DO NOT 


* 






ON 




EXPECT 


* 


6 




OFF 




ALWAYS 


* 






ON 




SENSE ( 


* 













A CSW 



2 CSWS 



2 CSWS 



************,*************************************.*****•***************** • 
*************************************************4(****«**************** 

♦ SWITCHES USED BY 1-0 HANDLER 

*********************************************************************** 

* SWITCH DESCRIPTION 

♦ 0 OFF - NO HANGUP ON INTERFACE 

* ON - HANGUP OCCURRED 
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00I0E8 



0000 



* I 




OFF - 


NO CSWS STORED 


001162 


47 


80 


F 


16E 




BC 


NONE t IHI 


BR. IF OFF 






ON - 


ONE CSW STORED 


001166 


9C 


00 


C 


000 




SIO 


0(R12) 


START 1-0 


* 2 




OFF - 


SECOND CSW NOT RECEIVED 


00116A 


47 


FO 


F 


156 




BC 


UNCI HANG 


BR. UNCONDITIONAL 






ON - 


SECOND CSW DECEIVED 


00116E 


58 


9E 


0 


198 


IHI 


L 


R9,WT(R14) 


PICK UP DM WAIT FACTOR. 


* • 3 




OFF - 


DID NOT ENABLE 


001172 


88 


90 


0 


003 




SRL 


R9»3 


CUT IT DOWN TO 1.25 SECS. 






ON - 


ENABLED ONCE 


001176 


9D 


00 


C 


000 


GREG 


TIO 


0<R12> 


TEST 1-0 TO DEVICE. 


* 4 




OFF - 


DID NOT ENABLE TWICE 


00117A 


47 


80 


F 


182 




BC 


CCO«JOHN 


BR IF AVAILABLE. 






ON - 


ENABLED TWICE 


00117E 


46 


90 


F 


176 




BCT 


R9,GREG 


LOOP UNTIL TIME OUT. 


* 5 




OFF - 


NO SENSE DATA RECEIVED 


001182 


07 


01 


F 


0E8 F 0E8 


JOHN 


XC 


ISW(2),ISW 


ZERO THE 1-0 HANDLER SWITCHES. 


* 




ON - 


SENSE DATA RECEIVED 


001188 


96 


80 


F 


0E8 




01 


ISW.X^O' 


TURN ON THE HANG SWITCH. 






OFF - 


NO UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 


00118C 


92 


E7 


F 


5F3 




MVI 


IACTCC^fC'X 1 


MOVE IN A -X- 






ON - 


UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 


001190 


9C 


00 


C 


000 


ISSUE 


SIO 


0IR12) 


1-0 COMMAND- SIO, TIO, OR HID 


* 7 




OFF - 


NO ERROR DETECTED 


001194 


47 


80 


F 


1C2 




BC 


CCOt IZERO 


BR. IF COND. CODE 0 


* 




ON - 


AN ERROR WAS DETECTED 


001198 


47 


40 


F 


1B0 




BC 


CCl.IONE 


BR. IF COND. CODE 1 




00119C 


47 


20 


F 


1A8 




BC 


CC2.ITW0 


BR. IF COND. CODE 2 


* 






REGISTERS USED IN 1-0 HANDLER 


00 11 AO 


92 


F3 


F 


5F3 




MVI 


IACTCC*5,X«F3« 


INDICATE COND. CODE 3 




001 1A4 


47 


FO 


F 


1C6 




BC 


UNCI NOW 


BR. UNCONDITIONAL 


* 


REG 




COMMENTS 


0011A8 


92 


F2 


F 


5F3 


ITWO 


MVI 


IACTCC+5,X«F2« 


INDICATE COND. CODE 2 


* 


5 


USED 


AS LINK TO ERROR OUTPUT FROM INITIALIZE ROUTINE IF 


0011AC 


47 


FO 


F 


1C6 




Bd 


UNC f I NOW 


BR. UNCONDITIONAL 


* 




PREVIOUS HANGUP ON INTERFACE DETECTED. 


00 11 BO 


92 


Fl 


F 


5F3 


IONE 


MVI 


IACTCC+5,X«F1 • 


INDICATE COND. CODE 1 


* 








0011B4 


D2 


07 


F 


5B0 D 040 




MVC 


ICSW1(8),HCSW(R13) 


SAVE CSW 




8 


USED 


AS WORK REGISTER. WILL BE RESTORED UPON RETURN. 


0011BA 


96 


40 


F 


0E8 




01 


ISW,X»40« 


INDICATE 1 CSW 










0011BE 


47 


FO 


F 


1C6 




BC 


UNC t I NOW 


BR. UNCONDITIONAL 




9 


USED 


AS WORK REGISTER. WILL BE RESTORED UPON RETURN. 


0011C2 


92 


FO 


F 


5F3 


I ZERO 


MVI 


IACTCC^X'FO^ 


INDICATE COND. CODE 0 


♦ 








0011C6 


94 


7F 


F 


0E8 


INOW 


NI 


ISW,X»7F» 


TURN OFF HANG UP SWITCH 


* , 


10 


MUST 


CONTAIN CCW ADDRESS UPON ROUTINE ENTRY 


0011CA 


91 


40 


B 


000 




TM 


0<R11), X«40» 


CHECK CONTROL SWITCH FOR NO ENABLE 










0011CE 


47 


10 


F 


26A 




BC 


ALL , 1 SEN 


BR. IF ON 




li 


MUST 


BE USED AS LINK REG TO THIS ROUTINE 


0011D2 


96 


10 


F 


0E8 




01 


ISW.X'IO' 


INDICATE ENABLED ONCE 


♦ . 








0011D6 


5b 


9E 


0 


198 


IWAIT 


L 


R9,WT(R14) 


LOAD DM WAIT FACTOR 




12 


MUST 


CONTAIN DEVICE ADDRESS 


0011DA 


88 


90 


0 


003 




SRL 


R9,3 


ADJUST 


* 








0011DE 


96 


80 


F 


0E8 




01 


ISW,X«80» 


TURN ON HANG UP SW 




0011E2 


80 


00 


F 


706 




SSM 


MSK1 


ENABLE 


ISW 


DC 


XL2*0» 


0011E6 


46 


90 


F 


1E6 




BCT 


R9 f * 


WAIT 




0011EA 


80 


00 


F 


707 




SSM i 


MSK2 


DISABLE 




0011EE 


94 


7F 


F 


0E8 




NI 


ISW,X«7F» 


TURN OFF HANG SW 


* . 






* 1-0 HANDLER SUB-ROUTINE * 


0011F2 


47 


FO 


F 


26A 




BC 


UNC « I SEN 


BR. UNCONDITIONAL 



1 0010EA 


92 


90 


F 


190 






ITIO 


MVI 


I SSUE, X«9D« 


SET UP FOR TEST 1-0 
















* 




ALL 1-0 


INTERRUPTS RETURN HERE 


0010EE 


92 


90 


F 


146 








MVI 


IL00P,X»9D« 


















**********************^********^ 


0010F2 


92 


E3 


F 


69D 








MVI 


I0PTH-25,X«E3« 


MOVE -T- TO OPTION MSG. 


0011F6 


49 


CO 


F 


03A 






IRETRN 


CH 


R12,I00PSW+2 


COMPARE FOR CURRENT 1-0 ADDRESS 


] 0010F6 \ 


92 


E3 


F 


604 








MVI 


IOADDR+12,X«E3« 




0011FA 


47 


60 


F 


218 








BC 


UNEQ,IUIO 


BR. IF UNEQUAL 


0010FA 


47 


FO 


F 


10E 








BC 


UNC IEYEOH 


BR. UNCONDITIONAL 


0011FE 


94 


7F 


F 


0E8 








NI 


ISW,X«7F» 


RESET HANG UP SW 


0010FE 


92 


9C 


F 


190 






ISIO 


MVI 


ISSUE,X»9C« 


SET UP FOR START 1-0 


001202 


91 


40 


F 


0E8 








TM 


ISW,X»40» 




001102 


92 


9C 


F 


146 








MVI 


ILOOP »X*9C • 




001206 


47 


10 


F 


248 








BC 


ALL,ISV2 


BR. IF 1 CSW ALREADY STORED 


001106 


92 


E2 


F 


69D 








MVI 


I0PT1+25,X«E2« 


MOVE -S- TO OPTION MSG. 


00120A 


02 


07 


F 


5B0 


F 


040 




MVC 


ICSW1(8),HCSW(R15) 


SAVE CSW 1 


00110A 


92 


E2 


F 


604 








MVI 


IOADDR+12,X , E2« 




001210 


96 


40 


F 


0E8 








01 


ISW,X'40« 


INDICATE 1 CSW STORED 


00110E 


D2 


01 


F 


680 


B 


002 


IEYEOH 


MVC 


ITSTN0+5C2) ,2(R11) 


SAVE TEST NUMBER 


001214 ; 


47 


FO 


F 


252 








BC 


UNCINT3 


BR. UNCONDITIONAL 


001114 


90 


09 


F 


588 








STM 


R0,R9,ISAVE 


SAVE WORK REGISTERS. 


001218 


D2 


07 


F 


5C8 


F 


040 


IUIO 


MVC 


W0RK(8),HCSW(R15) 




• 001118 


D2 


00 


F 


708 


F 003 




MVC 


RTSV(l) .SECNO+3 


SAVE RT NO. FOR HANGUP. 


00121E 


' OA 


DD 












SVC 


X'DD* 


CONVERT ADDRESS 


00111E 


50 


AD 


0 


048 






CONP 


ST 


R10,HCAW(R13) 


STORE CMD ADDRESS. 


001220 


0002 












DC 


AL2C 21 


2 BYTES OF 1-0 OLD PSW. 


001122 


D7 


07 


D 


040 


D 


040 




XC 


HCSW(8,R13) ,HCSW(R13) 




001222 


003A 












DC 


AL2U00PSW+2-SECN0) 


FROM HERE. 


001128 


D7 


OB 


E 


080 


E 


080 




XC 


LOGOUT! 12,R14) , LOGOUT! R14) 


001224 


071 A 












DC 


AL2( I UNEX+17-SECN0) 


TO HERE 


1 00112E 


91 


80 


B 


000 








TM 


0(R11) »X«80* 


CHECK CONTROL SWITCH FOR NO 1-0 


001226 


OA 


DO 












SVC 


X«D0« 


PRINT UNEXPECTED INTERRUPT DEVICE 


1 001132 


47 


10 


F 


1C6 








BC 


ALL, INOW 


BR. IF ON 


001228 


64 














DC 


X«64« 


ADDRESS 


. 001136 


91 


CO 


F 


004 








TM 


SNSW,X»CO» 




001229 


15 














DC 


X«15» 




i 00113A 


47 


80 


F 


182 








BC 


NONE, JOHN 




00 122 A 


F709 












DC 


A L 2 ( I UNE X- SEC NO* REG S 




















00122C 


D2 


02 


F 


62A 


F 


623 




MVC 


IBLAH+1(3),ICSW 


MOVE -CSW- TO MESSAGE 
















* 




SENSE SWITCH LOOPS 


001232 


92 


1A 


F 


3F9 








MVI 


ICNT,X«1A« 


ADJUST COUNT 


















001236 


D2 


02 


F 


640 


F 


643 




MVC 


IBLAH+23(3) ,IACT 


MOVE -ACT- TO MESSAGE 


\ 00113E 


91 


80 


F 


004 






ITRY1 


TM 


SNSW,X'80* 1 


CHECK SECTION SENSE SWITCH 0 


00123C 


45 


90 


F 


3E2 








BAL 


R9,IC0UT 


BR. TO OUTPUT CSW 


001142 


47 


80 


F 


14E 








BC 


NONE , I TRY2 


BR. IF OFF 


001240 


96 


02 


F 


0E8 








01 


ISW,X , 02« 


INDICATE UIO 


001146 


9C 


00 


C 


000 






ILOOP 


SIO 


01R12) i 


SIO, TIO, OR HIO 


001244 


47 


FO 


F 


4C4 








BC 


UNC , ILOGED 


BR. UNCONDITIONAL 


j 00114A* 


47 


FO 


F 


13E 








BC 


UNCITRYl 


BR. UNCONDITIONAL 


001248 


D2 


07 


F 


5B8 


F 


040 


ISV2 


MVC 


ICSW2<8) ,HCSW(R15) 


SAVE CSW 2 


00114E 


91 


40 


F 


004 






ITRY2 


TM 


SNSW,X«40« 


CHECK SECTION SENSE SWITCH 1 


00124E 


96 


20 


F 


0E8 








01 


ISW,X»20« 


INDICATE 2 CSWS STORED 


001152 


47 


80 


F 


16E 








BC 


NONE, IHI 


BR. IF OFF 


001252 


91 


10 


B 


000 






INT3 


TM 


0(R11),X»10« 


CHECK CTRL SW FOR 2 INTR EXPECTED 


; 001156 


9D 


00 


C 


000 






I HANG 


TIO 


0(R12) 


TEST 1-0 


001256 


47 


80 


F 


26A 








BC 


NONE, I SEN 


BR. IF NOT 


00115A 


47 


70 


F 


13E 








BC 


NCC0,ITRY1 


BR. IF NOT CONO. CODE 0 


00125A 


91 


08 


F 


0E8 








TM 


isw.x'os 1 




00115E 


91 


40 


F 


004 








TM 


SNSW,X«40» 


CHECK SECTION SENSE SWITCH 1 


00125E 


47 


10 


F 


26A 








BC 


A L L , I SE N 


BR. IF ALREADY ENABLED TWICE 
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001262 


96 


08 


F 


0E8 








01 


001266 


47 


FO 


F 


1D6 








BC 


00126A 


91 


80 


F 


AB8 






I SEN 


TM 


00126E 


47 


10 


F 


2 DC 








BC 


001272 


91 


02 


B 


000 








TM 


001276 


47 


80 


F 


29A 








BC 


00127A 


91 


40 


F 


0E8 








TM 


00127E 


47 


80 


F 


2 DC 








BC 


001282 


91 


02 


F 


584 








TM 


001286 


47 


10 


F 


29A 








BC 


00128A 


91 


20 


F 


0E8 








TM 


00128E 


47 


80 


F 


2DC 








BC 


001292 


91 


02 


F 


5BC 








TM 


001296 


47 


80 


F 


2 DC 








BC 


00129A 


41 


80 


F 


580 






IDOSNS 


LA 


00129E 


45 


70 


F 


54A 








BAL 


0012A2 


91 


80 


F 


0E9 








TM 


0012A6 


47 


80 


F 


2 DC 








BC 


0012AA 


96 


04 


F 


0E8 








01 


0012AE 


94 


7F 


F 


0E9 








HI 


0012B2 


D5 


00 


F 


659 


B 


005 




CLC 


0012B8 


47 


80 


F 


2 DC 








BC 


0012BC 


96 


01 


F 


0E8 








01 


0012C0 


47 


FO 


F 


2 DC 








BC 


0012C4 


91 


40 


F 


0E8 






IN0EX1 


TM 


0012C8 


47 


10 


F 


32A 








BC 


0012CC 


47 


FO 


F 


32E 








BC 


001 2 DO 


91 


20 


F 


0E8 






IN0EX2 


TM 


0012D4 


47 


10 


F 


32A 








BC 


0012D8 


47 


FO 


F 


32E 








BC 


0012DC 


D5 


00 


F 


5F3 


B 


004 


IBSN 


CLC 


0012E2 


47 


60 


F 


32A 








BC 


0012E6 


91 


08 


B 


000 








TM 


0012EA 


47 


80 


F 


2C4 








BC 


0012EE 


91 


40 


F 


0E8 








TM 


0012F2 


47 


80 


F 


32A 








BC 


0012F6 


48 


88 


0 


006 








LH 


0012FA 


40 


80 


F 


302 








STH 


0012FE 


D5 


07 


F 


5B0 


F 


5B0 


ICCSW1 


CLC 


001304 


47 


60 


F 


32 A 








BC 


001308 


91 


04 


B 


000 








TM 


00130C 


47 


80 


F 


2 DO 








BC 


001310 


91 


20 


F 


0E8 








TM 


001314 ( 


47 


80 


F 


32A 








BC 


001318 


41 


88 


0 


008 








LA 


00131C 


40 


80 


F 


324 








STH 


001320 


D5 


07 


F 


5B8 


F 


5B8 


ICCSW2 


CLC 


001326 


47 


80 


F 


32E 








BC 


00132A 


96 


01 


F 


0E8 






INDER 


01 


00132E 


92 


64 


F 


36E 






IDUNCK 


MVI 


001332 


92 


CO 


F 


502 








MVI 


001336 


91 


01 


F 


0E8 








TM 


00133A 


47 


10 


F 


34E 








BC 


00133E 


91 


01 


F 


004 








TM 


001342 


47 


80 


F 


51E 








BC 


001346 


92 


24 


F 


36E 








MVI 


00 134 A 


92 


80 


F 


502 








MVI 


00134E 


95 


40 


F 


659 






IOUTIT 


CLI 


001352 


47 


80 


F 


534 








BC 


001356 


91 


01 


F 


5B4 








TM 


00135A 


47 


10 


F 


534 








BC 


00135E 


D2 


01 


F 


680 


B 


002 




MVC 


001364 


OA 


DD 












SVC 


001366 , 


0002 












DC 


001368 


0680 












DC 


00136A 


0680 












DC 


00136C 


OA 


DO 












SVC 


00136E 


64 












IFLAG1 


DC 



ISW,X«08« | 
UNC, I WAIT 
SS,X'80* 
ALL* IBSN 

0(Rll)«X*02* 

NONE 9 IDOSNS 

ISW,X*40« 

NONE 9 IBSN 

ICSW1+4,X«02» 

ALL, IDOSNS 

ISW,X»20« 

NONE, IBSN 

ICSW2+4,X»02« 

NONE, IBSN 

R8, I SENSE 

R7, ISTRT 

ISW+1,X«80» 

NONE, IBSN 

ISW,X'04» 

ISW+1,X«7F» 

IACSNS+5tl),5(Rll) 

EQ, IBSN 

ISW,X»01» 

UNCIBSN 

1SW,X»40« 

ALL, INDER 

UNC, IDUNCK 

ISW r X*20* 

ALL, INDER > 
UNC, IDUNCK 
IACTCC+5( 1) ,4IR11) 
UNEQ, INDER > 
0(R11) ,X«08» 
N0N£,IN0EX1 
ISW,X«40» 
NONE, INDER 
R8,6IR11) 
R8,ICCSWl+4 
ICSWH8),ICSW1 
UNEQ, "INDER 
0(R11) ,X«04» 
N0NE,IN0EX2 
ISW,X»20» 
NONE, INDER 
R8,8(R8) 
R8,ICCSW2+4 
ICSW2(8),ICSW2 
EQ, IDUNCK 
ISW,X«01» 
IFLAG1,X , 64» 
IFLAG2,X«C0» 
ISW,X«01« 
ALL, IOUTIT 
SNSW,X«01 ' 
NONE, I LEAVE 
IFLAG1,X«24» 
IFLAG2,X«80» ; 
IACSNS+5,X«40« 
EQ,RRM ! 
ICSW1+4* X'Ol' 
ALL.RRM < 
ITSTN0+5C2) ,2(R11) 
X»DD» ! 
AL2(2) 

AL2UTSTN0+5-SECN0) 

AL2UTSTN0+5-SECN0) 

X'DO' 

X«64« 



I 



INDICATE ENABLED TWICE 


001 36F 
001370 


09 

F67B 










DC 
DC 


X«09« 

AL2( ITSTNO-SECNO+REG) 




SEE IF 1400 STK SELECT. 


001372 


41 80 


0 


004 






LA 


R8,4 


ADJUST LINK ADORESS FOR PRINTOUT 


BR IF YES. 


001376 


IB B8 










SR 


R11,R8 




CHECK CTRL SW FOR SNS ON UC. 


001378 


50 BO 


F 


60C 






ST 


Rll,ILINK+5 




BR. IF OFF TO ISSUE SENSE 


00137C 


OA DD 










SVC 


X«DD« 


CONVERT LINK ADDRESS 


SEE IF 1ST CSW IN. 


00137E 


0003 










DC 


AL2(3) 




BR IF NONE. 


001380 


060D 










DC 


AL2ULINK+6-SECN0) 




CHECK FOR UNIT CHECK 


001382 


060C 










DC 


AL21 ILINK+5-SECN0) 




IF YES BR. TO ISSUE SENSE 


001384 


OA DO 










SVC 


X«DO» 


PRINT LINK ADDRESS 


CHECK FOR SECOND CSW 


001386 


AO 










DC 


X«AO» 




BR IF NONE. 


001387 


10 










DC 


X»10» 




CHECK FOR UNIT CHECK 


001388 


F6D7 










DC 


AL2( ILINK-SECNO+REG) 




BR IF NONE. 


00138A 


41 BB 


0 


004 






LA 


R11,4(R11> 




LOAD SENSE COMMAND A DDR. 


00138E 


91 80 


B 


000 






TM 


0(R11),X«80» 




BR TO AUX START 1-0. 


001392 


47 10 


F 


410 






BC 


ALL, IOCSW 


BR. IF NO 1-0 COMMAND ISSUED 


CHK FOR DATA RECEIVED 


001396 


OA DD 










SVC 


X»DD« 


CONVERT I -0 ADDRESS 


BR IF NONE. 


001398 


0003 










DC 


AL2(3) 




INDICATE SENSE RECIEVED 


00139A 


0703 










DC 


AL2( IOADR-SECNO) 




TURN OFF DATA RECEIVED. 


00139C 


05FD 










DC 


AL2UQADDR+5-SECN0) 




COMPARE FOR EXPECTED SENSE 


00139E 


OA DO 










SVC 


X«DO« 


PRINT 1-0 ADDRESS 


BR IF EQUAL. 


0013A0 


AO 










DC 


X*AO« 




INDICATE AN ERROR. 


0013A1 


OF 










DC 


X«OF« 




BR TO CONTINUE. 


0013A2 


F5F8 










DC 


AL2( IOADDR-SECNO+REG) 






0013A4 


95 9C 


F 


190 






CLI 


ISSUE, X»9C« 


COMPARE FOR SIO COMMAND 


BR. IF CSW STORED 


0013A8 


47 60 


F 


3FE 






BC 


UNEQ, ICCOUT 


BR. IF NOT 


BR. UNCONDITIONAL 


0013AC 
0013B0 


5 0 AO 
OA DD 


F 


61C 






ST 
SVC 


R10,ICAW+5 
X«DD« 


STORE CCW ADOR. 
CONVERT CAW 


BR. IF CSW 2 STORED 


0013B2 


0003 










DC 


AL213) 




BR. UNCONDITIONAL 


0013B4 


061 D 










DC 


AL2UCAW+6-SECN0) 




COMPARE FOR EXPECTED COND. CODE 


0013B6 


061 C 










DC 


AL2CICAW+5-SECN0) 




BR. IF UNEQUAL 


0013B8 
0013BA 


OA DO 
AO 










SVC 
DC 


X'DO 1 
X«A0 8 


PRINT CAW 


BR. IF NO CSW EXPECTED 


0013BB 
0013BC 


OB 
F617 










DC 
DC 


X'OB* 

AL2UCAW-SECN0+REG) 




BR. IF NO CSW RECIEVED 


0013BE 


02 02 


F 


62A 


F 


626 


MVC 


IBLAH+K3) ,ICCW 


MOVE -CCW- TO MESSAGE 


LOAD CSW ADDR 


0013C4 


92 16 


F 


3F9 






MVI 


ICNT,X»16» 


ADJUST COUNT 


STORE IN COMPARE INSTR. 


0013C8 


02 07 


F 


5C8 


A 


000 


ICWOUT MVC 


W0RK(8) ,0(R10) 


MOVE CCW TO WORK AREA 


COMPARE FOR EXPECTED CSW 


0013CE 


45 90 


F 


3E2 






BAL 


R9, ICOUT 


BR. TO OUTPUT CCW 


BR. IF UNEQUAL 


0013D2 


91 CO 


A 


004 






TM 


4(R10),X«C0» 


CHECK FOR ANY CHAIN FLAGS 




00I3D6 


47 80 


F 


3FE 






BC 


NONE, ICCOUT 


BR. IF NONE 


BR. IF NO CSW 2 EXPECTED 


0013DA 


41 AA 


0 


008 






LA 


R10,8(R10) 


UPDATE TO NEXT CCW 




0013DE 


47 FO 


F 


3C8 






BC 


UNC, ICWOUT 


BR. UNCONDITIONAL 


BR. IF NO CSW 2 RECIEVED 


0013E2 


OA DD 










ICOUT SVC 


X^DD* 


CONVERT 


UPDATE TO SECOND CSW 


0013E4 
0013E6 


0008 
05 C 8 










DC 
DC 


AL2(8) 

AL2{ WORK-SECNO) 




COMPARE FOR EXPECTED CSW 2 


0013E8 


05C8 










DC 


AL2< WORK-SECNO) 




BR. IF EQUAL 


0013EA 


D2 07 


F 


62E 


F 


5C8 


MVC 


IBLAH+5(8),W0RK 


MOVE TO MESSAGE 


INDICATE AN ERROR 


0013F0 


D2 07 


F 


637 


F 


5 DO 


MVC 


IBLAH+14(8) , WORK* 8 




SET UP FOR ERROR PRINTOUT 


0013F6 
0013F8 


OA DO 
AO 










SVC 
DC 


X'DO' 
X^O* 


PRINT 


CHECK FOR A DETECTED ERROR 


0013F9 


1A • 










ICNT DC 


X'lA' 




BR. IF ERROR DETECTED 


0013FA 


F629 










DC 


AL2( IBLAH-SECNO+REG) 




CHECK SECTION SENSE SWITCH 7 


0013FC 


07 F9 










BCR 


UNC ,R9 


RETURN VIA REG 9 


BR. IF OFF 


001 3 FE 


D2 00 


F 


5E9 


B 


004 


ICCOUT MVC 


IEXPCC+5(1) ,4(R11) 


MOVE EXP CC TO MESSAGE 


SET UP FOR CORRECT PRINTOUT 


001404 
001406 


O A DO 
AO 










SVC 
DC 


X»DO» 
X«AO« 


PRINT EXPECTED COND. CODE 


SEE IF INTERVENTION REQUIRED. 


001407 


OA 










DC 


X«OA» 




BR IF YES. 


001408 


F5£4 










DC 


AL2( IEXPCC-SECNO+REG) 




SEE IF UNIT EXCEPTION. 


00140A 


OA DO 










SVC 


X«DO« 


PRINT ACTUAL COND. CODE 


BR IF YES. 


00140C 


AO 










DC 


X'AO" 




MOVE TEST NUMBER TO PRINT 


00140D 


OA 










DC 


X^OA" 




CONVERT TEST NUMBER 


00140E 


F5EE 










DC 


AL2C I ACTCC-SECNO+REG) 






001410 


02 02 


F 


62A 


F 


623 


IOCSW MVC 


IBLAH+H3),ICSW 


MOVE -CSW- TO MESSAGE 




001416 


92 1A 


F 


3F9 






MVI 


ICNT,X»1A« 


ADJUST COUNT 




00141A 


91 08 


B 


000 






TM 


OtRlDtX^OB' 




PRINT TEST NUMBER 


00141E 


47 80 


F 


442 






BC 


NONE, IDIDI 


BR. IF NO CSW EXPECTED 




001422 


D2 02 


F 


640 


F 


646 


MVC 


IBLAH+23C3) ,IEXP 


MOVE -EXP- TO MESSAGE 
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001428 


48 


8B 


o 


006 








LH 


R8«6(R11) 




00142C 


40 


80 


p 


43C 








STH 


R8t ICHNG1+4 




001430 


41 


88 


o 


008 








LA 


R8t 8( R8) 




001434 


40 


80 


F 


46C 








STH 


R8 f ICHNG2+4 : 




001438 - 


D2 


07 


F 


5C8 


F 


5C8 


ICMNG1 


MVC 


WORM 8) , WORK 


MOVE EXPECTED CSW TO WORK AREA 


00143E 


45 


90 


F 


3E2 








BAL 


R9.IC0UT 

i\ / | A W W w 1 


BR- TO OUTPUT EXPECT FD C^W 


001442 


91 


40 


p 


0E8 






IDIDI 


TM 


I SW» X'40* 




001446 


47 


80 


f 


45A 








BC 


NONE • IMORST 


BR. IF NO CSW STORFD 


00144A 


02 


02 


p 


640 


p 


643 




MVC 




MHVF —ACT- TO MF<k<>AGF 


001450 


D2 


07 


p 


5C8 


p 


5 BO 




MVC 




MD\/F ATTIIAI r^U T(l UHRK ARFA 
nUVC Aw 1 UAL ton IU nUK» AI\CA 


00 1456 


45 


90 


F 


3E2 








ft Al 
DAL 


do. trniiT 


Rfl TO nilTPIIT ATTIIAI T<vU 
ut\« 1 U UU 1 rU 1 AL I UAL IjH 


00145 A 


91 


04 


B 


000 






TMflRCT 


TM 


U I r\ X X J fA Kit 




UU 1t3C 


47 


80 


c 

r 


•fit 








or 
Dt 


kinkiF . inin 


o n tc wnT cvDcrriwr. o rcuc 

DK* ir nu 1 CArCL 1 INb c. IjNj 


00 1462 


D2 


02 


p 


640 


p 


646 




n vl 


1 HI AU4.9)| at .IE YD 


nUVC C A r IU ncooAbt 


001468 


D2 


07 


r 


k ro 

!> LrO 


r 


era > 


. xl*nniu£ 


F1 VL 


WUKIVl of ,WUKI\ 


unuc cvDCTTcn rcu Tn unov aoca 
nUVC CArctl CD l>oW IU WUKIn AKcA 


00146 E 


45 


90 


p 


3C£ 








DAL 


DO- irniiT 

K7i 1 L UU 1 


dd Tn niiTDiiT py dctt en rcu o 

OR* 1 U UU 1 rU 1 CA ret 1 CU LoM «£ 


00 1472 


91 


20 


c 
r 


w CO 






Tntn 


TM 


X ONf A ■ C. U * 




00 1476 


47 


80 


F 


AO A 

HO A 








or 
Du 


nunc f l r A a 


do tp Kin cprnKin rcu CTnopn 


00147 A 


D2 


02 


p 


640 


p 


643 




MVC 




unuc _»f t. rn MF^^AHF 

nUft Mw 1 1 U nLOOnOL 


wis X f O \J 


02 


07 


F 


5C8 


p 


5B8 




uwr 

rl VL 


una KfRt.tr QU9 


unup rcu Tn unDK adpa 

rlUVC LOlf IU IfUrxlV AKCA 




45 


90 


p 


3E2 








BAL 


R Q. - TP flMT 




00148 A 


D2 


00 


p 


64E 




005 


IP AS 


MVC 




MHVF FXP CFNCF Tfl MF^CAHF 


001490 


91 


04 


p 


0E8 








TM 


r eg, v i f)4 * 

1 Jn| A w*r 




001494 


47 


80 


p 


4BC 








BC 


NflNF « I PA 


rd. TP Kin cpucc HAT A RFTIFXIFn 


001498 


OA 


DO 












SVC 


X • DD • 


CONVERT EXPECTED CFNCF 


00149A 


0031 












DC 


AL2( 1 ) 




00149C 


064E 












DC 


AL2( IFXSNS+5-SECNOI, 




00149E 


064E 












DC 


Al ?f I F X^N<i+5— SFT NO) 




0014A0 


OA 


DO 












SVC 


X" DO 1 


PRINT EXPECTED SENSE 


0014A2 


AO 














DC 


X'AO' 




0014A3 


OB 














DC 


X«0B • 




0014A4 


F649 












DC 


AL2( IEXSNS-SECNO+REG) 




0014A6 


OA 


DD 












SVC 


X'DD* 




0014A8 


0001 












DC 


AL2( 1 ) 




0014AA 


0659 












DC 


AL2I I ACSNS+ 5-SECNO) 




0014AC 


0659 












DC 


AL2( I ACSNS+5-SECN0) 




0014AE 


OA 


DO 












SVC 


X'DO 1 


PRINT ACTUAL SENSE DATA 


001480 


AO 














DC 


X* AO* 




0014B1 


OB 














DC 


X*0B * 




0014B2 


F654 












DC 


AL2( I ACSNS-SECN0*RE6I 




0014B4 : 


95 


F4 


'F 


659 








CL I 


IACSNS+5.C »4» 


TEST FOR INTERVENTION REQUIRED. 


0014B8 


47 


10 


p 


534 








BC 


ALL tRRM ! 


BR IF YES* 


0014BC 


95 


30 


, E 


181 






IPASS 


CL I 




fHFP K FI1R MHDFL ^0 


0014C0 


47 


60 


F 


4F0 








BC 


UNEQt ICUIO 


BR IF NOT* 


0014C4 


D2 


OB 


F 


5C8 


E 


080 


ILOGED 


MVC 


WQRK( 121 • LOGOUT (R14) 


MOVE LOG OUT TO WORK AREA 


0014CA 


OA 


DD 












SVC 


X'DD* 


CONVERT 


Q014CC 


000 C 












DC 


AL2( 12) 




0014CE 


05C8 












DC 


Al ?l WDRK- <JFfN01 




00 14 DO 


05C8 












DC 


AL2( WQRK-SECNOl 




0014D2 


D2 


01 


p 


664 


F 


5C8 




MVC 




MDVF 1 flC nilT Tfl upec ARF 


on i &nft 

WW X "t I/O 


D2 


05 


p 


667 


p 


PL- A 




MVC 


ini nft+Rf t%\ . uriRK+7 ' 




0014DE 


D2 


05 


F 


66E 


F 


5D2 




MVC 


I0LQG+15( 6) tWORK-t-10 




0014E4 


D2 


05 


F 


675 


F 


5 DA 




MVC 


I0L0G+22(6) ,W0RK+18 




0014EA 


OA 


DO 












SVC 


X'D0« 


PRINT LOG OUT 


0014EC 


AO 














DC 


X'AO' 




0014ED 


1C 














DC 


X • 1C • ! 




0014EE 


F65F 












DC 


AL2t I0L0G-SECN0+REG) 




0014F0 


91 


02 


F 


0E8 






ICUIO 


TM 


ISW,X»02« 


SEE IF UI0. 


0014F4 


47 


80 


F 


500 








BC 


NONE.IQPOUT 


BR. IF NOT UIO 


0014F8 


94 


FD 


F 


0E8 








NI 


ISW.X'FD' , 


RESET UIO SWITCH 


0014FC 


47 


FO 


F 


1D6 








BC 


UNCI WAIT 


BR. UNCONDITIONAL 


001500 


OA 


DO 










I0P0UT SVC 


X«D0« 


PRINT LOOP OPTIONS 


001502 


CO 












IFLAG2 


DC 


X«C0« 




001503 


36 














DC 


X«36» 




001504 


F684 












DC 


AL2( I0PT1-SECN0+REG) 




001506 


OA 


DO 












SVC 


X«D0» 


SPACE A LINE 


001508 


AO 














DC 


X'AO* 




001509 


01 














DC 


X»01« 





00150A 


F607 








DC 


AL2CILINK-SECN0+REG) 




00150C 


50 


AD 


0 


048 




ST 


R10,HCAW(R13) 


STORE CAW 


001510 


91 


CO 


F 


004 




TM 


SNSWtX'CO* 


CHECK SECTION SENSE SWITCH 0 AND 1 


001514 


47 


50 


F 


13E 




BC 


ANY. I TRY1 


BR. IF ANY ON 


001518 


91 


80 


F 


0E8 




TM 


ISW,X»80« 




00151C 


07 


15 








BCR 


ALL tR5 


RETURN VIA REG 5 IF HANG UP 


0015 IE 


91 


08 


B 


000 


ILEAVE 


TM 


O(Rll) ,X*08* 




00 1522 


47 


80 


F 


52 A 




BC 


NONE • I UP 


BR. IF NO CSW EXPECTED 


001526 


41 


BB 


0 


002 




LA 


R11,2(R11) 


UPDATE LINK ADDRESS FOR RETURN 


00152A 


41 


BB 


0 


006 


IUP 


LA 


R11,6(R11) 




00152E 


98 


09 


F 


588 




LM 


ROt R9 t I SAVE 


RESTORE WORKING REGS. 


001532 


07 


FB 








BCR 


UNCRll 


RETURN VIA REG 11 
























* 


INTERVENTION REQUIRED ROUTINE 














001534 


OA 


DO 






RRM 


SVC 


X'DO* 


PRINT -MAKE DEVICE READY- 


001536 


2410 








DC 


X«2410» 




001538 


F6BA 








DC 


AL2< MDR-SECNO+REG) 




00153A 


OA 


DA 








SVC 


X»DA» 


HALT 


00153C 


9D 


00 


C 


000 




TI0 


0(R12) 


TEST 1-0 


001540 


OA 


DO 








SVC 


X«D0" 


PRINT A BLANK. 


001542 


8001 








DC 


X«8001« 




001544 


F6BA 








DC 


AL2( MDR-SECN0+REG) 




001546 


47 


F0 


F 


HE 




BC 


UNCC0NP 


BR TO CONTINUE. 



*************************«*******^ 
* AUXILIARY START 1-0 ROUTINE 



00154A 


58 


9E 


0 


198 


ISTRT 


L 


R9,WT(R14) 


LOAD DM WAIT FACTOR. 


00154E 


88 


90 


0 


002 




SRL 


R9,2 


CUT IT DOWN TO 2.5 SECS. 


001552 


50 


8D 


0 


048 




ST 


R8,HCAW(R13) 


STORE IN CAW 


001556 


9C 


00 


C 


000 




SI0 


0(R12) 


ISSUE SENSE 


00155A 


47 


7Q 


F 


56A 




BC 


NCC0.IBACK 




00155E 


9D 


00 


C 


000 


ITI0LP 


TI0 


0(R12) 


TEST 1-0 


001562 


47 


40 


F 


56C 




BC 


CCUIL0KE 


BR. IF CSW STORED 


001566 


46 


90 


F 


55E 


ITIC 


BCT 


R9.ITI0LP 




00156A 


07 


F7 






I BACK 


BCR 


UNC.R7 


BR UNCONDITIONAL BACK TO RTN. 


00156C 


91 


04 


D 


044 


IL0KE 


TM 


HCSW+4(R13) ,X«04« 


CHECK FOR DEVICE END. 


001570 


47 


80 


F 


566 




BC 


NONE, ITIC 


BR IF NOT IN YET. 


001574 


96 


80 


F 


0E9 




01 


ISW+1,X«80« 


INDICATE THE DATA RECEIVED. 


001578 


47 


F0 


F 


56A 




BC 


UNC t IBACK 


RETURN TO MAIN ROUTINE. 



* 1-0 HANDLER WORK AREA. 



001580 


04 001659 0000 0001 


ISENSE 


CCW 


X«04« , 


001588 


00000000 


ISAVE 


DC 


10F«0» 


00158C 


00000000 








001590 


00000000 








001594 


00000000 








001598 


00000000 








00159C 


00000000 








0015AO 


00000000 








0015A4 


00000000 








0015A8 


00000000 








0015AC 


00000000 








0015B0 


0000000000000000 


ICSW1 


DC 


XL8«0« 


0015B8 


0000000000000000 


ICSW2 


DC 


XL8«0» 


0015C0 


+00 .00000000000000 


DBWD 


DC 


D»0» 


0015C8 




WORK 


DS 


24C 


0015E0 


00000000 


RANDOM 


DC 


F«0« 


0015E4 


40C3C34040E740C5E7 


IEXPCC 


DC 


C» CC 


0015ED 


D7 








0015EE 


40C3C34040E740C1C3 


IACTCC 


DC 


C» CC 


0015F7 


E3 








0015F8 


40 C 1 C4D940 E7 E7 E7 E7 


IOADDR 


DC 


C« ADR 


001601 


E7E740E7C9D6 








001607 


00 




DC 


X«00» 


001608 






CNOP 


0,4 




001607 




ORG 


*-l 



X EXP» 



DATE 

EC 
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130498 
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001 607 


40 C 1 C40940 F7E7E7E7 


IL INK 


DC 


r • ahr yyyyyy i t nk* 

W ■ *W4/r\ AAAAAA s»* Hl» 










nn i 7«;r 


A 7 An C 7AA 






BC 


UNEQtBLOOP 


BR IF NOT. 


on i a m • 

VIVI 3, \» i VI > 


F7F740n^C<9 05 0? 
















nn i 7 An 
UU 1 l ou 


oa on C T CO 
Vo oU r i r*> 






01 


LDSWfX'80* 


TURN ON LOADER SW. 


nnt a.1 7 ■ 

UU lOlf 1 


nn 




nr 


y t nn t 










001764 


VI oU r Uco 




BL00P 


TM 


I SWt X 9 80 9 


CHECK FOR HANG UP 


001 61 R ' 






CN0P 


n»&. ■ 










nn i 7 ar 
uu i r do 


a 7 in c 77r 
i l u r ill* 






BC 


& 1 ft II i A If* 1 Aft 

ALL t HANGUP 


BR. IF DETECTED 




00 1617 




ORG 












nm 7 Ar 

UUI 1 ou 


o *> An c 7 a a 
7£ *»u r i Ao 






MVI 


BUFFER ,C 9 9 


CLEAR DATA AREA. 


001617 


40f 1 F640 P7 P7 F7 P7 


ICAW 


DC 


r • r a y yyyyyy i 

*» V»AW AAAAAA 










nn l 7 "»n 

UU JL f 1 U 


f\0 AC C 7 AO 

U£ hc r f av 


F 7A8 




MVC 


BUFFER+1 C 791 9 BUFFER 


CLEAR DATA AREA. 


001620 


E7E740 
















001776 


41 An F ARR 

fx au r aoo 






LA 


RIOtNOOP 


PUT ADDR OF NOOP INTO REG 10. 


00 1623 - 


bJCCCO 


trtu 
J U ON 


Ul* 


rir cut ' 










001 77 A 


^ 07 F4 






BCR 


UNCR4 


RETURN VIA REG 4 


nn 1 A9 A 
Uu J. 0£0 


3 CO 


ICCW 


nr 


r irrm 

V» " V#U w " 










00177C 


Uii uu r UU5 


F 708 


HANGUP 


MVC 


SECN0+3U) ,RTSV 


RESTORE RT NO. 


UU 


Anr IFOFAAfl C7C7 C7 C7 
HUU JC£CO*HJ CICfClCl 


¥ D| A Li 

1 DL An 




r I r cu yyyyyyyy yy • 
U U5N XXaaaaaA aa " 










f\n l 700 


OA DO 






SVC 


X 9 D0 9 


PRINT 


UU 1D9C 


C7L 7C7C7A.AC7P7 " 
CIC ICICI CICl 
















nn no/, • 
UUI I o4 . 


64 






DC 


X»64 9 


-PREVIOUS HANGUP DETECTED- 


nn i aiq 

UU 1 D^7 


C7C7C7C7C7 C7 AAr K C7 
CICiCICICICI HUUDC 1 




nr 


f i yyvyyy CVDI 
b " aaaaaA c Ar * • 










UUI (OS 


1 A 






DC 


X 9 1A 9 


nn i AtD 


U 1 ■ 
















001786 


F7FB 






DC 


AL2( HUNG- SECNO-f REG) 




00 1 643 


f \ r n CI 
tlUicj 


1 k f T 
1 AL 1 


Uw 


C "ACT 9 










Art 1 TOO 

UU 1 loo 


96 01 r 0E8 






01 


ISW f X 9 01 9 


TURN ON ERROR SWITCH. 


nn i 

UU 1 0*frO 


rec7 r«7 
13c (Ul 


t c y d 

It AT 




C * E XP • 










f\r\ l t a r* 
UUI f 8U 


ac en c nni 

45 50 r 29A 






BAL 


R5 f ID0SNS 


BR. TO OUTPUT AVAILABLE INFO 


001649 


*rUC £ U3C£*rU C f C I *rUv*D • 


*c A on a 


nr 
Uv* 


rt cm c yy cyai 
V onlo AA c Ar " • 










nm iron 
UU 1 IVU . 


92 00 F 0E8 






MVI 


ISW,X 9 00 9 . 


RESET HANGUP SWITCH 


00 1652 


E7l)7 
















UUI i94 


47 F0 F 764 






BC 


UNCfBLOOP 




nn i a«»a 

UU 103^ 


inc 9nKcoini:7C7A.ftr i 

HUc«u3CcHUc IE f •rUltfJL 


XAUoiMo 


nr 


r s cmc yy irTi 
l» * oiM 5 AA Al> 1 ~ | 










nn i "7 on 

UUI 1 71) 








CN0P 


0,4 




nn i a (\ n 


C3E3 






r i i nc yy vyyyyy y • 
















******************************^ 


00165F 


400 306C740F7E740F;7 


I0L0G 


DC 
















* 


AUXILIARY WORK AREA. 




nn 1 AAA 

VIVI X V# VI Q 


E7F7F7F7F740F7 

t 1 b 1 V 1 k « u I ^Vl V» f 






1 


















viw luy r 


F7F7F7F7F740F7F7 P7 
CfCfCiCfCf **U ul CI CI 




DC 


r • yyyyy vyyyyy t 

W A AA AA AAAAAA 










nn i 7 on 

UU 1 I Mo 


00000000 




RDR 


DC 


F 9 0 9 




001 A7 A - 

VIVI A O J <3 


E7E7E7 
















nn l 7 or 

UU l(7b 


00000051 




AT El 


DC 


F 9 81 9 




nn i A7 r 

UU lOID 


4nP PPP^4nP7P7P7P7 


ITSTNQ 


DC 


r i tct y yyy « 










00 1 7 AO 


00000000 




RETURN 


DC 


F»0» 




on 1 f»ft4 

VIM iUOT 


4nP?rSF^t4nF?F?40F0 


I0PT 1 


DC 


r • cct cc n nw pnR < 










0017A4 


00003 FFF 




M0D50 


DC 


X«00003FFF 9 




001680 


40 0 6 0540 C6 06 09 
















0017 A8 






BUFFER 


DS 


80C 




001694 : 


400*306060740060540 




DC 


r • 1 OOP OfsS yio • 










00I7F8 


00 




MSSW 


DC 


X 9 00 9 




001 690 

VIVI i. U 7 U 


F7f 9066R40F?F? 
















00 17F9 


00 




LDSW 


DC 


X 9 00 9 




0016A4 


40F 140D6D540C6D6D9 




DC 


C • 1 ON FOR TI0 SI • 










001 7F A 


00 




BYSW 


DC 


X"00 9 




0016AD 


" 4QE3C9D640E2C9 
















0017FB 


4007D9C5E5C9D6E4E2 


HUNG 


DC 


C 9 PREVIOUS HANG U 9 




0016B4 : 


D640D3D6D6D7 




DC 


C 9 0 LOOP 1 - 1 










00 1 H(14 

vlvl X O Vl~ 


40C8C1D5C740E4 










0016BA 


40D4C1D2C540C4C5E5 


HDR 


DC 


C ■ MAKE DEVICE RDY » 










001 BOB 


D740C4C5E3C5C3E3C5 




DC 


C 9 P DETECTED 9 




0016C3 


C9C3C540D9C4E8 
















001814 


C4 












nn i at A 

UU 1 O v* A 


4op ?rftr44nr at i p^rs 




DC 


r • CHn ha up , * 
















***********************************^ 


0016D3 


40 






















* 


INITIALIZATION MESSAGES 




0016D4 


4040404040C3C4E240 


RIP 


DC 


C« CDS IN Rl, • 


















0016DD 


C9D540D9F16B40 
















on iRU 

UU lOiO 


91 40 F AB8 




0PMSG 


TM 


SS,X 9 40 9 


SEE IF 360 STK SEL DONE. 


0016E4 ! 


40* 0404040 C3C4E240 




DC 


C« COS IN R2f 9 










00181 A 


47 10 F 858 






BC 


ALL, TOPS 


BR IF YES. 


0016ED 


C9D540D9F26B40 
















00181 E 


92 04 F 84C 




M1F1 


MVI 


M1F,X 9 04« 


PUT PRINT HEAD FLG ON IN MSG. 


0016F4 


404 0404040 T3r 4 F740 




DC 


C 9 CDS IN RP3» 










00 1822 


92 AO F 860 






MVI 


TOP+2,X 9 A0 9 


SUPPRESS HEADER IN MSG. 


0016FD 


C90540D9D7F3 
















00 1 R?ft 
UVI A o c o 


91 80 F 7F9 






TM 


LDSW,X 9 80 9 


SEE IF TESTING LOAD DEVICE 


001703 


001 190 


I0ADR 


DC 


AL3C ISSUE) 










oni R?& 

VIVI lOtn 


47 80 F 84A 






BC 


NONE, BILM 


BR IF NO 


on i 706 

VI VI i I uo 


FE 


MSK1 


DC 


X»FE» 










nni A5 f 

UU IDiCC 


OA DO 






SVC 


X 9 D0 9 


PRINT -REMOVE CDS FROM STKR 


001707 


01 


MSK2 


DC 


X»01» 










nn i Ran 

UU lOSU 


2429 






DC 


X 9 2429 9 


OF LOADER DEVICE. 


001708 


00 


RTSV 


DC 


X»00» 


SAVE 


RT NO. FOR HANGUP. 




001832 


FB2 9 






DC 


AL 2 ( R TD 1- SECN0+REG ) 




001709 


40 F4f9 0640 Ch D906D4 


IUNEX 


DC 


C 9 UI0 FROM DEVICE 9 










001 834 


OA DO 






SVC 


X 9 D0 9 


PRINT -REMOVE REMAINING TEST 


00 1 7 1 2 


40C4C5E5C9C3C5 
















001 A3& 

V/VI luju i 


A03C 






DC 


X»A03C 9 


DECKS FROM LOADER HOPPER. 


001719 


40E7E7E7E7 




DC 


C 9 XXXX 9 










001 A^H 


FB52 






DC 


AL2( RTD2- SECNO-t-REG) 










nn i niA 
UU x 03 A 


OA DO 






SVC 


X 9 D0 9 


PRINT -RUN CDS OUT OF REAOER AND 










INITIALIZE ROUTINE 






001 A^r 

VIVI 103b 


A040 






DC 


X 9 A040 9 


PUT THEM IN FRONT OF REMAINING 








nm a^p 

UU X O D C 


FB8E 






DC 


AL2(RTD3-SECN0+REG) 


TEST DECKS. 


00171E 


1 B DD 


INIT 


SR 


R13,R13 


ZERO 


REG 


13 




nn i r AO 
uui o*tu 


OA DO 






SVC 


X»D0 9 


PRINT -SAVE REMAINING TEST DECKS 


001720 


91 40 P 1 Q6 

7 1 "fVI C &7VJ 




TM 


406(R14),X 9 40« 


CHECK FOR FORCED PROBLEM 


STATE 


nn i r A5 

UU X OHc 


A045 






DC 


X*A045 9 


UNTIL A MSG REQUESTS THEM. 


001724 


47 80 F 72A 




BC 


NONE, NITWIT 


BR. 


IF NOT 




001844 


FBCE 






DC 


AL2( RTD4-SECN0+REG) 




001728 


18 DF 




LR 


R13,R15 


SET 


UP FOR PROBLEM STATE 




nn i a a a 
UU 1 o to 


92 80 F 84C 






MVI 


M1F,X 9 80 9 


PUT SUPPRESS HDING FLG ON IN MSG 


00172A 


58 CO F 0E0 


NITWIT 


L 


R12, UNIT1 


LOAD 


REG 


12 WITH UNIT TABLE ENTRY 


00184A 


OA DO 




BILM : 


SVC 


X 9 D0 9 


PRINT PUT VALID CDS IN RDR 


00172E 


54 ro F 7 A4 




N 


R12»M0D50 


SAVE 


ONLY 


THE READER ADDR. 


nni a Ar 

UU A 0*fr V» 


043D 




M1F 


DC 


X»043D 9 


001732 


50 CO F 798 




ST 


R 12»RDR 


SAVE 


IT 






00184E 


FAEC 






DC 


AL2(D0NPR0-SECN0+REG) 




001736 


D7 0B F A9C F A9C 




XC 


CCSS(12),CCSS 


ZERO 


THE 


COUNT AREA 




001850 


91 80 F 7F9 






TM 


LDSW,X 9 80 9 


SEE IF ON LOADER DEVICE. 


00173C 


D2 02 F AAC F AAF 




MVC 


NCARD(3)«0NES 










001854 


47 10 F 868 






BC 


ALL,HLT1 


BR IF YES. 


0017*2 


D7 01 F 7F8 F 7F8 




XC 


MSSW(2) *MSSW ! 


ZERO 


TWO 


SWITCH BYTES. 




001858 


D2 05 F C7A 


F C80 


TOPS 


MVC 


CLSTK+28(6) ,STK 


MOVE WORD STKRS TO MSG. 


001748 


IB 66 




SR 


R6 V R6 


ZERO 


REG 


6. 




00185E 


OA DO 




TOP 


SVC 


X»D0 9 


TELL OPERATOR TO CLEAR ALL STKRS. t 


00174A 


43 6E 0 189 




IC 


R6,DMI0L(R14> 


PUT 


LENGTH OF DMI0 TABLE 


INTO 6. 


001860 


A022 






DC 


X 9 A022 9 




00174E 


4A 6E 0 1BC 




AH 


R6,DMPTR(R14) 


ADD 


OFFSET ADDRESS TO LENGTH. 


001862 


FC5E 






DC 


AL21CLSTK-SECN0+REG) 




001752 


1A 6E 




AR 


R6 f R14 


ADD 


BASE 


REG VALUE. 




001864 


92 24 F 860 






MVI 


T0P+2,X 9 24 9 


ALLOW HEADER IN MSG. 


001754 


06 60 




BCTR 


R6,0 


SUBTRACT 


2 TO GET 




001868 


OA DA 




HLT1 


SVC 


X 9 DA 9 


-HALT- 


001756 


06 60 




BCTR 


R6»0 


TO 


LOADER ADDR. 




00186A 


9D 00 C 000 






TI0 


0(R12) 


TEST 1-0 TO BRING IN NOT RDY TO RDY. 


001758 


49 C6 0 000 




CH 


R12* 0(R6) 


SEE 


IF TEST DEVICE IS LOADER. 


00186E 


OA DO 






SVC 


X«D0« 


PRINT A BLANK 


DATE 


15JUN67 














ID F819-0 


DATE 


15JUN67 










ID F819^C 


EC 


130498 














PAGE 6 ; 


EC 


130498 










PAGE 6/ 



oooooooooooooooooooooooooooooooooo 
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001870 


8001 






DC 


X»8001« 




001902 


FC5E 








DC 


Ai o f r i ccr MfVfcRFft 1 




001872 


FAEC 






DC 


AL2(D0NPR0-SECN0+REG) 




001904 


OA 


DO 








SVC 


X'DO* 


pbi kit — pi it tup tcct < nprifc f ki onn 


001874 


07 


F4 






BCR 


UNC V R4 


RETURN TO MAIN ROUTINE. 


001906 


A03E 








nr 


X ' A03E * 




001876 


07 00 






CNOP 


0,4 






FC13 








nr 






001876 






BCR 


0,0 




DDI QO A 


OA 


DA 








cur 


v • n a , 


-"HALT-* 












********************************************************* *****A^******* 


nni onr 


9D 


00 




nnn 

uuu 




t in 


0( R 12 ) 


TEST I— 0 












* ROUTINE 01 


- THE 360 STACKER SELECT TEST. 


001910 


OA 


DO 








cur 


X 1 DO • 


tnipe miToiiT neuirc , 
SPAtfc OUTPUT DcVflCc 1* 












* 


THIS ROUTINE ISSUES 


360 READ, FEED, AND STACKER SELECT 


nn i Qi 9 


8001 








DC 


X ■ oOUl ■ 














* , 


COMMANDS. THE STACKER SELECT PATTERN IS AS FOLLOWS, 


001914 


FC13 








DC 


AL^l r lUD— ScCNU+Rcbf 
















Rlt R2, Rl, RP3, DONE 10 TIMES IN A NORMAL PROGRAM 


001916 


OA 


D6 








SVC 


X 1 D6 • • 


— ROUTINE t X 1 1 — 












* 


EXECUTION. THIS SHOULD PLACE 20 CARDS IN Rl, 10 CARDS 


nni oi r 

UU17 It) 


45 


40 


F 


QIC 

o lb 


EX 14 


BAL 


R4»0PM55 


BR TO OPENING MSG. 












* 


IN R2, AND 10 CARDS 


IN RP3 IF THE STACKING PERFORMED 


00 19 1C 


45 


40 


F 


71E 




BAL 


R4, INI T 


BR TO INITIALIZE. 














PROPERLY. SENSE SWITCH CONTROL OR THE LOOP ROUT INb 


nn io?n 

UU l7£U 


96 


80 


F 


AB8 ' 




0 1 


SS , X" 80" 


TURN ON THE 1400 .STK SEL SWITCH. 














OPTION ENABLES STACKING AS MANY CARDS AS DESIRED. 


nn iQ5i 


D2 


03 


c 
r 


tat c ABC 

ada r Aor 




MVC 


5 SUP 141 »N0S5 


MOVE INITIAL PATTERN TO MURK ARcA. 


001878 


01 








******************************************************************* 


00 192 A 


41 


00 


n 
u 


noa 


LP 14 


LA 


RO, 40 


PUT 40 INTO REG 0. —TOTAL- CDS- 








R0UT01 DC 


X«01» 


ROUTINE NUMBER 


00 192 E 


41 


10 


0 


00 1 




LA 


R 1 , 1 


PUT 1 INTO REG 1. -COUNT- 


001879 


0008D4 


AB8 


DC 


AL3(R0UT02-SECN0) 


ADDRESS OF NEXT ROUTINE 


nn i oil 

UU l V DC. 


41 


20 


0 


008 




LA 


R2 , 8 


PUT 8 INTO REG 2. -CCW INDEX- 


00187C 


92 


00 


F 


MVI 


ss,x»oo» 


ZERO THE STK SEL SW. 


00 1 936 


58 


CO 


F 


TOO 
(78 




L 


nil n r\ n 

R 12, RDR 


PICK UP READER ADDR. 


001880 


D2 


03 


F 


ABA F ABF 


MVC 


SS0P(4),N0SS 


MOVE INITIAL PATTERN TO WORK AREA. 


00193 A 


41 


40 


p 


942 




1 A 
LA 




o x r u iid t ui c DCTiiau Anno 
rILR UP Ink KtlUKN ADUK. 


001886 


45 


40 


F 


71E 


BAL 


R4,INIT 


BR TO INITIALIZE 


00193E 


50 


40 


p 


7 AO 




t T 
O 1 


OA. DCTMDM 

RH,Rt 1 UKN 


SAVE IT. 


00188A 


45 


40 


F 


816 


BAL 


R4,0PMSG 


BR TO OPENING MSG. 


001942 


41 


AO 


r 


A68 


S 10 14 


LA 


R 1U,KD1H 


PICK UP ADDR Or 1400 RD NO FD CHD. 


00188E 


96 


40 


F 


AB8 


01 


SS,X«40» 


TURN ON 360 STK SEL SW. 


001 946 


91 


01 


c 
r 


004 




TM 

1 n 


CM C LJ vim t 


TcbT CORRECT PRINTOUT SSW f. 


001892 


41 


00 


0 028 


LP01 LA 


R0,40 


PUT 40 INTO REG 3. -TOTAL CDS- 


001 94 A 


47 


10 


c 
r 


o cu 




nr 

Bu- 


ALL ,RB Y 


BR Ir ON. 


001696 


41 


10 


0 


UU 1 


LA 


Rl,i 


PUT 1 INTO REG 1 -COUNT- 


00194E 


45 


BO 


c 
r 


UrC 




bal 


ait t cm 
K 1 1 , 1 S1Q 


BR TO ISSUE START I— 0. 


00189A 


41 


20 


0 


uuo 


LA 


R2,8 


PUT 8 INTO REG 2 -CCW INDEX- 


001952 


2A00 








nr 


v * ok nn t 
A C A uu ■ 




00189E 


58 


CO 


F 


170 


L 


R12,RDR 


PUT RDR ADDR INTO REG 12. 


001954 


0020 








nr 
uu 


y i nn?n« 

A UUc u 


T C C X u II |i Q C D 
IC5I M U n 13 C K 


0018A2 


41 


40 


F 


O AA 


LA 


R4,SI0 


PICK UP THE RETURN ADDR. 


001 956 


FOOO 








DC 


X»F000« 


EXP COND. CODE AND SENSE. 


0018A6 


50 


40 


F 


7 AO 


ST 


R4, RETURN 


SAVE IT. 


001958 


FAC4 








DC 


AL2(EXP1- SECNO+REG ) 


EXP CSW ADDRESS. 


0018AA 


41 


A2 


F 


A48 


SIO LA 


R10,RDFD-8(R2) 


PICK UP ADDR OF READ FEED STK SEL. 


00 1 9 5 A 


41 


A2 


c 
r 


A68 




LA 


R10,FD14-8(R2) 


PICK UP ADDR OF 1400 STK SEL CMD. 


0018AE 


41 


3A 


0 


008 


LA 


R3,8(R10) 


PICK UP EXP CSW COMMAND ADDR 


00195E 


45 


BO 


p 


OFE 




BAL 


Rll,ISIO 


BR TO ISSUE START 1-0. 


0018B2 


40 


30 


F 


ADE 


STH 


R3.EXP5+2 


PUT IT IN EXP CSW 


001962 


2E00 








DC 


X«2E00» 


CTRL SWITCHES. 


001 8 B6 


45 


BO 


F 


OFE 


BAL 


RlltlSIO 


BR TO ISSUE START 1-0 


001964 


0030 








DC 


X«0030» 


TEST NUMBER 


00188A 


3E0O 






DC 


X«3E00« 


CTRL SWITCHES 


UU 1 7 UU 


F100 








DC 


X«F100» 


EXP COND. CODE AND SENSE. 


0018BC 


0010 






DC 


X'OOIO* 


TEST NUMBER 


\J\J <i 7 U O 


FACC 








DC 


AL2( EXP2- SECNO+REG > 


EXP CSW ADDRESS. 


0018BE 


FOOO 






DC 


X'FOOO 1 


EXP COND. CODE AND SENSE 


00196 A 


45 


40 


F 


982 




BAL 


R4, MRTN 


BR TO MAIN ROUTINE. 


0018C0 


FADC 






DC 


AL2( EXP5- SECNO+REG) 


EXP CSW ADDR 


00196E 


91 


08 


p 


004 




TM 


SNSW,X»08 e 


SEE IF RTN LOOP SW ON. 


0018C2 


45 


4Q 


F 


982 


BAL 


R4t MRTN 


BR TO MAIN RTN. 


001972 


47 


10 


F 


92A 




BC 


ALL , LP14 


BR IF YES. 


0018C6 . 


91 


08 


F 


004 


TM 


SNSW,X»08« 


SEE IF RTN LOOP SW ON. 


001976 


45 


40 


p 


A16 




BAL 


R4,C0C 




0018CA 


47 


10 


F 


892 


BC 


ALL tLPOI 


BR IF YES. 


001 97 A 


92 


00 


p 


7FA 




MVI 


BYSW,X»00« 


ZERO THE MSG BYPASS SW. 


0018CE 


45 


40 


F 


A16 


BAL 


R4,C0C 


BR TO CONVERT THE CD COUNT 


00197E 


47 


FO 


p 


8F0 




BC 


UNC ,FINM 


BR TO CHK END. 


0018D2 


OA 


06 






SVC 


X»D6« 


-ROUTINE EXIT- 












*********************************************************************** 


0018D4 










CNOP 


0,4 














* 


UPDATE STACKER CARD COUNT 














*********************************************************************** 












*********************************************************************** 












* ROUTINE 02 


- THE 1400 COMPATIBILITY STACKER SELECT TEST. 


001982 


50 


40 


p 


A98 


MRTN 


ST 


R4, ENDRT 


SAVE END RETURN ADDR. 












* . 


THIS ROUTINE ISSUES 


A 1400 READ NO FEED AND FOLLOWS NEXT 


uu jl y OD 


88 


20 


n 
u 


fin i 

UU J. 




SRL 


R2,l 


DIVIDE REG 2 BY 2. 












* 


WITH A FEED TO ONE 


OF THE STACKERS. THE STACKER SELECT 


00 198 A 


58 


32 


p 


A98 




L 


R3,CCSS-4(R2) 


PUT COUNT INTO REG 3 












* 


PATTERN IS AS FOLLOWS, Rl , R2 , Rl, RP3, DONE 10 TIMES 


00198 E 


41 


33 


0 


00 1 




LA 


R3,1(R3) 


ADD 1 TO THE COUNT 














IN A NORMAL PROGRAM 


EXECUTION. THIS SHOULD PLACE 20 


001992 


50 


32 


p 


A98 




ST 


R3,CCSS-4(R2) 


STORE IT BACK 












* 


CARDS IN Rl, 10 CARDS IN R2 , AND 10 CARDS IN RP3 IF THE 


00 1996 


89 


20 


o 


nni 

UU J. 




SLL 


R2, 1 


RESTORE REG 1 












* 


STACKING PERFORMED 


PROPERLY. 


00199 A 


91 


10 


p 


005 




TM 


SNSW+1,X»10« 


SEE IF LOOP ON STACKER Rl DESIRED. 












* 


THIS TEST IS BYPASSED IF THE CORRECT PRINTOUT SENSE 


001 99E 


47 


10 


F 


9FE 




BC 


ALL , SET1 


BR IF YES. 














SWITCH -SSW 7- IS ON, DUE TO TIMING SENSITIVITY. 


0019 A2 


91 


08 


p 


005 




TM 


SNSW+1,X»08» 


SEE IF LOOP ON STACKER R2 DESIRED. 












*********************************************************************** 


0019A6 


47 


10 


F 


A06 




BC 


ALL , SET2 


BR IF YES. 


0018D4 


02 








R0UT02 DC 


X , 02« 


ROUTINE NUMBER 


0019AA 


91 


04 


F 


005 




TM 


SNSW+1,X»04« 


SEE IF LOOP ON STACKER RP3 DESOREO. 


001 8D5 


OOFFFF 




DC 


X* OOFFFF • 


LAST ROUTINE 


0019AE 


47 


10 


F 


AOE 




BC 


ALL , SET3 


BR IF YES. 


0018D8 


91 


08 


F 


0E1 


TM 


UNITl+l,X«08 B 


SEE IF 1400 COMPATIBLE 2540 


0019B2 


46 


00 


F 


9BC 




BCT 


RO, CNTCCW 


BR TO SET STK SELECT. 


00180C 


47 


10 


F 


918 


BC 


ALL,EX14 


BR IF YES. 


0019B6 


58 


40 


F 


A98 




L 


R4, ENDRT 


RESTORE END RETURN ADDR. 


0018E0 


OA 


DO 






RBY SVC 


X»DO» 


PRINT -RTN BYPASS ED- 


0019BA 


07 


F4 








BCR 


UNC,R4 


RETURN TO ROUTINE. 


0018E2 


043 D 






DC 


X , 040D» 














*********************************************************************** 


0018E4 


FC51 




AB8 


DC 


AL2« BYPASS- SECNO+REG) 














♦ 


SET 


UP STACKER SELECT CCW 


HERE 


0018E6 


91 


40 


F 


TM 


SS,X«40* 


SEE IF 360 STK SEL EXECUTED. 












*********************************************************************** 


0018EA 


47 


10 


F 


8F0 


BC 


ALL, FINM 


BR IF YES. 


0019BC 


91 


03 


F 


ABA 


CNTCCW 


TM 


SS0P,X«03« 


SEE IF STACKER 3 DESIRED. 


0018EE 


OA 


D6 






EX SVC 


X»D6» 


-ROUTINE EXIT- 


0019C0 


47 


10 


F 


9EE 




BC 


ALL ,FI X3 


BR IF YES. 


0018F0 


91 


80 


F 


7F9 


FINM TM 


LDSW,X«80« > 


SEE IF ON LOADER. 


0019C4 


91 


02 


F 


ABA 




TM 


SSOP,X»02» 


SEE IF STKR 2 DESIRED. 


0018F4 


47 


80 


F 


SEE 


BC 


NONE, EX 


BR IF NOT. 


0019C8 


47 


10 


F 


9F6 




BC 


ALL,FIX2 


BR IF YES. 


0018F8 


02 


05 


F 


C7A F X86 


MVC 


CLSTK+28(6) ,REDR 


MOVE WORD READER TO MSG. 


0019CC 


41 


20 


0 


008 




LA 


R2,8 


PUT STKR 1 CCW POINTER INTO REG 2. 


0018FE 


OA 


DO 






SVC 


X»DO« 


PRINT -CLEAR READER OF CDS- 


0019D0 


02 


00 


F 


ABE F ABA 


SHDAT 


MVC 


SS0P+4( 1) ,SSOP 


MOVE 1ST CHAR TO LAST. 


001900 


2422 






DC 


X«2422« 




0019D6 


D2 


03 


F 


ABA F ABB 




MVC 


SS0PC4) ,SS0P+1 


SHIFT THE PATTERN OVER 1. 
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0019DC 


88 


20 


0 


003 


0019E0 


' 43 


12 


F 


AAB 


0019E4 : 


89 


20 


0 


003 


0019E8 


58 


40 


F 


7 AO 


0019EC 


07 


F4 






0019EE 


41 


20 


0 


018 


0019F2 


47 


FO 


F 


9D0 


00I9F6 


41 


-20 


0 


010 


0019FA 


47 


FO 


F 


9 DO 


0019FE 


41 


20 


0 


008 


001A02 


47 


FO 


F 


9E8 


001A06 


41 


20 


0 


010 


001 AOA 


47 


FO 


F 


9E8 


OOIAOE 


41 


20 


0 


018 


001A12 


47 


FO 


F 


9E8 


001A16 


41 


30 


0 


003 


001A1A 


41 


50 


F 


6D4 


001A1E 


IB 


66 






00IA20 


58 


76 


F 


A9C 


001A24 ! 


4E 


70 


F 


5C0 


001A28 


F3 


37 


5 


000 F SCO 


001A2E 


96 


FO 


5 


003 


001A32 ; 


41 


55 


0 


010 


001A36 


41 


66 


0 


004 


001A3A 


46 


30 


F 


A20 


001A3E 


OA 


DO 






001 A40 


2439 






001A42 


F6CA 






001 A44 : 


OA 


DO 






001 A46 


8001 






001A48 


F6CA 






001A4A 


07 


F4 







001 A50 


02 0017A8 


2000 


0001 


001A58 


42 0017A8 


2000 


0001 


001A60 


82 0017A8 


2000 


0001 


001 A68 


D2 0017A8 


2000 


0001 


001 A70 


33 0017A8 


2000 


0001 


001A78 


73 0017A8 


2000 


0001 


001A80 


B3 0017A8 


2000 


0001 


001A88 


03 0017A8 


2000 


0001 


001A90 


00000000 






001A94 


00000000 






001A98 


00300000 






001A9C 


ooaooooooooooooooo 


001AA5 


000000 






001 AA8 


OOOOOOOF 






001 AAC 


000000 






001AAF 


013 101 






001 AB2 


0F3F0F 






001 AB5 


003000 






001AB8 


00 






001 AB9 


00 






001 ABA 


F2F1F3F14Q 




001ABF 


F2F1F3F1 






001AC4 


00001A70 






001AC8 


OCOOOOOO 






001ACC 


00000000 






001AD0 


08000000 






001AD4 


00000000 






DATE 


15JUN67 






EC 


130498 









SRL 


R2,3 


DIVIDE REG 2 BY 8 








1C 


R1,NCAR0~HR2) 


INSERT NEW COUNT INTO REG 1 








SLL 


R2.3 


MULTIPLY REG 2 BY 8 






RTLP 


L 


R4, RETURN 


PICK UP THE RETURN ADDR. 








BCR 


UNC,R4 


BR TO ROUTINE. 






FIX3 


LA 


R2,24 


PUT STKR 3 CCW POINTER INTO 


REG 


2. 




BC 


UNCf SHOAT 


BR TO SHIFT DATA. 






FIX2 


LA 


R2,16 


PUT STKR 2 CCW POINTER INTO 


REG 


2. 




BC 


UNC , SHDAT 


BR TO SHIFT DATA. 






SET1 


LA 


R2 t 8 


PUT STKR 1 CCW POINTER INTO 


REG 


2. 




BC 


UNC, RTLP 


BR TO RETURN. 






SET2 


LA 


R2,16 


PUT STKR 2 CCW POINTER INTO 


REG 


2. 




BC 


UNC, RTLP 


BR TO RETURN. 






SET3 


LA 


R2,24 


PUT STKR 3 CCW POINTER INTO 


REG 


2. 




BC 


UNC, RTLP 


BR TO RETURN. 







* CONVERT THE CARD COUNT HERE. 



PUT 3 INTO REG 3. 

PUT ADDRESS OF MSG AREA INTO REG 8. 

ZERO REG 6. 

PUT COUNT INTO REG 7. 

CONVERT COUNT TO DECIMAL. 

UNPACK 4 BYTES INTO PRINT AREA. 

OR AN F INTO THE SIGN POSITION. 

ADD 16 TO REG 5. 

ADD 4 TO COUNT POINTER. 

BR TO CONVERT NXT COUNT. 

PRINT NUMBER OF CARDS IN STKRS. 



PRINT A BLANK. 



COC LA R3,3 

LA R5,RIP 

SR R6,R6 

CONC L R7,CCSS(R6) 

CVD R7,0BWD 

UNPK 0(4,R5) ,DBWD(8) 

01 3(R5> ,X*FO* 

LA R5,16(R5) 

LA R6,4(R6) 

BCT R3.C0NC 

SVC X»DO* 

DC X*2439* 

DC AL2( SHDA VE~ SEC NO+REG ) 

SVC X*DO* 

DC X*8001* 

DC AL2( SHDA VE- SEC NO+REG ) 

BCR UNCR4 RETURN TO MAIN ROUTINE. 

* CCW AREA 

*********************!***^*******^ 

RDFD CCW X*02*,BUFFER,X»20*,1 

CCW X*42*, BUFFER, X*20*,l 

CCW X*82*, BUFFER, X*20*,l 

RD14 CCW X»D2*, BUFFER, X»20*,l 

FD14 CCW X*33*, BUFFER, X*20*,l 

CCW X»73*, BUFFER, X»20*,l 

CCW X*B3*, BUFFER, X*20*,l 

NOOP CCW X*03*, BUFFER, X*20*,l 

DCT1 DC F'O* 

ISLAVE DC F*0* 

ENDRT DC F'O* 

CCSS DC XL12*00* 

OF DC X • OOOOOOOF ■ 

NCARD DC XL3*00* 

ONES DC X'OlQlOl* 

REMOVE DC X» OF OF OF* 

ZERO DC X* 000000* 

SS DC X*00* 

PC DC X*QO* 

SSOP DC C*2131 • 

NOSS DC C*2131» 

********************************************^ 

* EXP CSW AREA 

EXP1 DC A(RD14+8> 

DC X* OCOOOOOO* 

EXP2 DC XL4*00* 

DC X*08000000* 

DC XL4*00* 



001A08 
001ADC 
001AE0 
001AE4 
001AE8 



001AEC 
001AF3 
001AFC 
001B03 
001B0C 
001B13 
001B1C 
001B23 
001B29 
001 B32 
001B39 
001 B42 
001 B49 
001B52 
001B5B 
001B62 
001B6B 
001B72 
001B7B 
001B82 
001B8B 
001B8E 
001B97 
001B9E 
001 BA7 
001BAE 
001BB7 
001BBE 
001 BC7 
001BCE 
001BD7 
001BDE 
001BE7 
001BEE 
001BF7 
001BFE 
001C07 
001C0E 
001C13 
001C1C 
001C23 
001C2C 
001C33 
001C3C 
001C43 
001C4C 
001C51 
001C5A 
001C5E 
001C67 
001C6E 
001C75 
001C7E 
001C80 
001C86 
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04000000 
00001A58 
08000000 
00000000 
04000000 



40D7D3C1C3C540 

C1D7D7 D9D6E740F1F0 

F040E5C1D3C9C4 

40E2C3D9C10740C3C4 

E240C9D540D9C4 

D94B40C8D7D96BD4C1 

D2C540D9C4E86B 

C5D6C640D6D5 

40D9C5D4D6E5C540C3 

C4E240C6D9D6D4 

40E2E3C1C302C5D940 

D6C640D3D6C1C4 

C5D940C4C5E5C9C3C5 

4009C5D4D6E5C540E3 

C8C540D9C5D4C1 

C905C9D5C740E3C5E2 

E340C4C5C3D2E2 

6BC9C640C1D5E86B40 

C609D6D440E3C8 

C540D3D6C1C4C5D940 

C8D7D9 

40C4D640D5D6D7D9D6 

40C1D5C440D7D3 

C1C3C540C3C4E240D9 

E4D540D6E4E340 

C90540C6D9D6D5E340 

D6C640D9C5D4C1 

C9D5C905C740E3C5E2 

E340C4C5C3D2E2 

40E2C1E5C540D9C5D4 

C1C9D5C9D5C740 

E3C5E2E340C4C5C3D2 

E240E4D5E3C9D3 

40C140D4E2C740D9C5 

D8E4C5E2E3E240 

E3C8C5D440E3D640C2 

C540D7E4E340C9 

D540C8D7D9 

40D7E4E340D9C5D4C1 

C9D5C9D5C740E3 

C5E2E340C4C5C3D2E2 

40C9D5E3D640D9 

C4D940C8D7D940C1D5 

C440D4C1D2C540 

D9C4D940D9C4E86BC5 

D6C640D6D5 

40D9E3D540C2E8D7C1 

E2E2C5C4 

40D9C5D4D6E5C540C1 

D30340C3C4E240 

C9C640C1D5E86B 

C6D9D6D440E2E3D2D9 

E24B 

E2E3D2D9E24B 
D9C5C1C4C5D9 



000000 
000007 



DC X' 04000000* 

EXP5 DC A(RDFD+8) 

DC X* 08000000* 

DC XL4*00* 

DC X' 04000000* 

* MESSAGES 

*********************************************************************** 



DONPRO 


DC 
DC 


C* PLACE • 
C*APPROX 100 VALID* 




DC 






DC 


C*R. HPR.MAKF ROY.* 


RTD1 


DC 
DC 


C*EOF ON' 

C« REMOVE CDS FROM* 




DC 


C* STACKER OF LOAD* 


RTD2 


DC 
DC 


C*ER DEVICE* 

C* REMOVE THE RE MA ' 




DC 


C'INING TEST DECKS* 




DC 


C*,IF ANY, FROM TH • 




DC 


C*E LOADER HPR • 


RTD3 


DC 


C* DO NOPRO AND PL' 




DC 


C'ACE CDS RUN OUT • 




DC 


C*IN FRONT OF RE MA* 




DC 


C'INING TEST DECKS' 


RTD4 


DC 


C * SAX/F REMAINING * 




DC 


C'TEST DECKS UNTIL* 




DC 


C* A MSG REQUESTS • 




DC 


C * THEM TO BE PUT I • 


PTDB 


DC 
DC 


C*N HPR* 

C* PUT REMAINING T* 




DC 


C'EST DECKS INTO R' 




DC 


C*DR HPR AND MAKE 9 




DC 


C*RDR RDY,EOF ON* 


BYPASS 


DC 


C* RTN BYPASSED* 


CLSTK 


DC 


C* REMOVE ALL CDS • 




DC 
DC 


C*IF ANY, • 
C'FROM STKRS. • 


STK 
REDR 


DC 
DC 


C* STKRS.* 
C 'READER' 



DATE 
EC 



15JUN67 
130498 



************^************************^ 

* EQUATES 

NEVER EQU 0 
NCCO EQU 7 
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300000000 



ooaooooooooooooooo oooof)oo 



cccccccccccccccccccccccccccccccc 



o 
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OOOO0F 


UNC 


ECU 


15 


000008 


NONE 


EQU 


8 


000004 


SOME 


EQU 


4 


000001 


ALL 


EQU 


1 


000005 


ANY 


EQU 


5 


000008 


CCO 


EQU 


8 


000004 


CC1 


EQU 


4 


000002 


CC2 


EQU 


2 


000001 


CC3 


EQU 


1 


OOOOOA 


CC02 


EQU 


10 


000006 


CC12 


EQU 


6 


000008 


EQ 


EQU 


8 


000004 


LO 


EQU 


4 


000002 


HI 


EQU 


2 


000006 


UNEQ 


EQU 


6 


OOOOOC 


EQLO 


EQU 


12 


OOOOOA 


EQHI 


EQU 


10 


000080 


LOGOUT 


EQU 


X'80» 


000181 


SYSMOD 


EQU 


X»181» 


OOFOOO 


REG 


EQU 


X'FOOO" 


00005A 


WHAT 


EQU 


90 


000000 


RO 


EQU 


0 


000001 


Rl 


EQU 


1 


000002 


R2 


EQU 


2 


000003 


R3 


EQU 


3 


000004 


R4 


EQU 


4 


000005 


R5 


EQU 


5 


000006 


R6 


EQU 


6 


000007 


R7 


EQU 


7 


000008 


R8 


EQU 


8 


000009 


R9 


EQU 


9 


OOOOOA 


RIO 


EQU 


10 


OOOOOB 


Rll 


EQU 


11 


OOOOOC 


R12 


EQU 


12 


OOOOOD 


R13 


EQU 


13 


OOOOOE 


R14 


EQU 


14 


OOOOOF 


R15 


EQU 


15 


000198 


WT 


EQU 


408 


000040 


HCSW 


EQU 


64 


000048 


HCAW 


EQU 


72 


0001 AO 


DMSSW 


EQU 


X'OIAO' 


0001B9 


DMIOL 


EQU 


X»01B9» 


0001BC 


DMPTR 


EQU 


X'OIBC* 






END 


R0UT01 



POST ASSEMBLY DATA. 



REFERENCES TO DEFINED SYMBOLS. 



1 


8 


EQ 


12B8, 


1326, 


1352 










2 


1BEE 


EX 


18F4 














1 


2 


HI 
















1 


4 


LO 
















4 


1AA8 


OF 
















1 


1AB9 


PC 
















1 


0 


RO 


1114, 


152E, 


1892, 


192A, 


19B2 






1 


1 


Rl 


1896, 


192E, 


19E0 










1 


2 


R2 


189A, 


18AA, 


1932, 


195A, 


1986, 


198A, 


1992 








1996, 


19CC, 


19DC, 


19E0, 


19E4, 


19EE , 


19F6 








19FE, 


1A06, 


1A0E 










1 


3 


R3 


18AE, 
1A3A 


18B2, 


198A, 


198E , 


198E , 


1992 , 


1A16 


1 


4 


R4 


177A, 


1874, 


1886, 


188A , 


18A2 , 


18A6 , 


13C2 








18CE, 


1918, 


191C, 


193A , 


193E , 


196A , 


1976 








1982, 


19B6, 


19BA, 


19E8, 


19EC , 


1 A4A 




1 


5 


R5 


151C, 


178C, 


lAlAff 


1A28, 


1A2E , 


1A32 , 


1 A32 


1 


6 


R6 


1748, 


1748, 


174A, 


174E c 


1752 , 




1756 








1758, 


1A1E, 


1A1E, 


1A20, 


1A36, 


1A36 




1 


7 


R7 


129E, 


156A, 


1A20, 


1A24 1 








1 . 


8 


R8 


129A, 


12F6, 


12FA, 


1318, 


1318 , 


131C , 


1372 








1376, 


1428, 


142C, 


1430, 


1430, 


1434 § 


1552 


1 


9 


R9 


1114, 


116E, 


1172, 


117E, 


11D6 , 


llDAt 


11E6 








123C, 


13CE, 


13FC, 


143E, 


1456, 


X46E , 


1486 








152E, 


154A, 


154E, 


1566 








1 


1AB8 


SS 


126A, 


1816, 


187C, 


188E , 


I8E6, 


1920 




1 


198 


WT 


116E, 


11D6, 


154A 










1 


1 


ALL 


1132, 


HCE, 


1206, 


125E , 


I26E , 


1286 » 


12C8 








12D4, 


133A, 


135A, 


1392, 


14B8, 


151C, 


1768 








181A, 


1854, 


18CA, 


18DC , 


18EA , 


194A i 


1972 








199E, 


19A6, 


19AE, 


X9C0, 


19C8 






1 


5 


ANY 


1514 














4 


1048 


CAW 
















1 


8 


CCO 


117A, 


1194 












1 


4 


CC1 


1193, 


1562 












1 


2 


CC2 


H9C 














1 


1 


CC3 
















4 : 


1A16 


COC 


1SCE, 


1976 












8 


1040 


CSW 
















2 


100A 


I CM 
















4 


116E 


IHI 


1152, 


1162 












2 


10E8 


ISW 


1182, 


1182, 


1188, 


11BA, 


11C6, 


11D2, 


liDE 








11EE, 


11FE, 


1202, 


1210, 


1240, 


124E, 


125A 








1262, 


127A, 


128A, 


12A2, 


12AA, 


12AE, 


12BC 








12C4, 


1200, 


12EE, 


1310, 


132A, 


1336, 


1442 








1472, 


1490, 


14F0, 


14F8, 


1518, 


1574, 


1764 








1788, 


1790 












4 


152A 


IUP 


1522 














2 


184C 


M1F 


181E, 


1846 












16 


16BA 


MDR 


1538, 


1544 












1 


A 


RIO 


111E, 
1776, 


13AC, 
18AA, 


13C8, 
18AE, 


13D2, 
1942, 


13DA, 
195 A 


13DA, 


150C 


1 


B 


Rll 


110E, 


112E, 


11CA, 


1252, 


1272, 


12B2, 


12DC 








12E6, 


12F6, 


1308, 


135E, 


1376, 


1378, 


138A 








138A, 


138E, 


13FE, 


141A, 


1428, 


145A, 


148A 








151E, 


1526, 


1526, 


152A, 


152A, 


1532, 


13B6 








194E, 


195E 












1 


C 


R12 


1146, 


1156, 


1166, 


1176, 


1190, 


11F6, 


153C 








1556, 


155E, 


172A, 


172E, 


1732, 


1758, 


186A 








189E, 


190C, 


1936 










1 


D 


R13 


111E, 


1122, 


1122, 


11B4, 


150C, 


1552, 


156C 



DATE 

EC 



15JUN67 
130498 
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DATE 
EC 



15JUN67 
130498 



ID F819-0 
PAGE 9A 
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P/N 840514 
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READER STACKER 


SELECT TEST - SECTION 


F819 










2540 READER STACKER 


SELECT 


TEST - 


SECTION 


F819 
















171E f 


171E, 


■ 1728 










4 


1892 


LP01 


18CA 














1 


E 


R14 . 


1128, 




' H6E, 


1106, 


14BC • 


14C4, 


154A 


4 


192A 


LP14 


1972 




















1720 f 


174A, 


174E, 


1752 








4 


18 IE 


M1F1 
















1 . 


F 


R15 


120 A , 


1218, 


1248, 


1728 








4 


1982 


MRTN 


18C2, 


196A 












2 


18 EO 


RBY 


19 4 A 
















1706 


MSK1 


11E2 














4 : 


1798 


RDR 


1732f 


189E, 


1936 










i 
* 


1707 


MSK2 


11EA 














1 


FOOO 


REG 


122A, 


1370, 


1388, 


13A2, 


13BC, 


13FA, 


1408 


* 


17 F8 


MSSW 


1742, 


1742 


















140Ef 


14A4, 


14B2, 


14EE, 


1504, 


150A, 


1538 


1 


7 


NCCO 


115A, 


155A 


















1544, 


1786, 


1832, 


1838, 


183E, 


1844, 


184E 


* 


1000 


NIOU 






















1862? 


1872, 


18C0, 


18E4, 


1902, 


1908, 


1914 


1 


8 


NONE 


113A, 


1142, 


1152* 


1162, 


1256, 


1276, 


127E 








1958, 


1968, 


1A42, 


1A48 














128E, 


1296, 


12A6, 


12EA, 


12F2t 


130C» 


1314 


16 


16D4 


RIP 


1A1A 




















1342, 


1306, 


141E, 


1446, 


145E, 


1476, 


1494 


2 


1534 


RRM 


1352, 


135A, 


14B8 
















14F4, 


1522, 


1570, 


1724, 


182A, 


18F4 




4 


18AA 


SIO 


18A2 














8 


1 A88 


NOOP 


1776 














6 


1C80 


STK 


1858 














4 


1 ABF 


NOSS 


1880, 


1924 












2 


185E 


TOP 


1822, 


1864 












3 


1 AAF 


ONES 


173C 














1 


F 


UNC 


10FA, 


114A, 


116A, 


11A4, 


11AC, 


llBE, 


11F2 


16 


1C13 


PTDB 


1908, 


1914 


















1214, 


1244, 


1266, 


12C0, 


12CC, 


1208, 


130E 


8 


1 A68 


R014 


1942, 


1AC3 


















13FC, 


14FC, 


1532, 


1546, 


156A, 


1578, 


177A 


8 


1 A50 


RDFD 


18AA, 


1ADC 


















1794, 


1874, 


197E, 


19BA, 


19EC, 


19F2, 


19FA 


6 


1C86 


REDR 


18F8 




















1A02, 


1A0A, 


1A12, 


1A4A 








16 


1B29 


RTD1 


1832 














4 : 


179C 


AT El 
















16 


1B52 


RTD2 


1838 














2 


184A 


BILM * 


182A 














16 


1 B8E 


RTD3 


183E 














1 


17FA 


BYSW 


197A 














16 


1BCE 


RTD4 


1844 














1 


A 


CC02 
















*r 


19 E8 


RTLP 


1A02, 


1A0A, 


1A12 










1 


6 


CC12 














- 


L 


i ~tnn 


RTSV 


1118, 


177C 












12 


1A9C 


CCSS 


1736, 


1736, 


198A, 


1992, 


1A20 






I 


1 UUL 


SDMF 
















4 : 


1A20 


CONC 


1A3A 














4 


19FE 


SET1 


199E 














4 ! 


HIE 


CONP 


1546 
















1 A ft A. 
1 Alio 


SET2 


19A6 














8 ' 


15C0 


DBWD 


1A24, 


1A28 












4 


1 AOE 


SET3 


19AE 














4 : 


1A90 


DCT1 
















4 


1004 


SNSW 


1136, 


113E, 


114E, 


115E, 


133E, 


1510, 


18C6 


1 


A 


EQHI 






















1946, 


196E, 


199A, 


19A2, 


19AA 






1 


C 


EQLO 
















i 
l 


4 


SOME 
















4 : 


1918 


EX 14 


18DC 














3 


1050 


SRET 
















4 


1AC4 


EXP1 


1958 
















1 ABA 


SSOP 


1880, 


1924, 


19BC* 


19C4. 


1900, 


19D0» 


1906 


4 : 


1ACC 


EXP2 


1968 




















1906 














4 ! 


1ADC 


EXP 5 


18B2, 


18C0 












6 


1858 


TOPS 


181A 














8 


1A70 


FD14 


195A 
















10 El 


U10P 
















4 


18F0 


FINM 


18EA, 


197E 












J- 


10E5 


U20P 
















4 i 


19F6 


FIX2 


19C8 
















6 


UNEQ 


UFA, 


12E2, 


1304, 


13A8, 


14C0, 


175C 




4 ' 


19EE 


FIX3 


19C0 
















5A 


WHAT 
















4 


1176 


GREG 


117E 
















15C8 


WORK 


1218, 


13C8, 


13E6, 


13E8, 


13EA, 


13F0, 


1438 


1 


48 


HCAW 


HIE, 


150C, 


1552 
















1438, 


1450, 


1468, 


1468, 


1480, 


14C4, 


14CE 


1 


40 


HCSW 


1122, 


1122, 


11B4, 


12 OA, 


1218« 


1248, 


156C 








1400, 


14D2, 


14D8, 


14DE, 


14E4 






2 


1868 


HLT1 


1854 














3 


1 AB5 


ZERO 
















16 


17FB 


HUNG 


1786 














4 


1764 


BLOOP 


175C, 


1794 












3 


1643 


I ACT 


1236, 


144A, 


147A 










16 


1C5E 


CLSTK 


1858, 


1862, 


18F8, 


1902 








6 


12DC 


IBSN 


126E, 


127E, 


128E, 


1296, 


12A6, 


12B8, 


12C0 


i 

l 


1 B9 


DMIOL 


174A 














12 


1617 


I CAW 


13AC, 


13B4, 


13B6, 


13BC 








1 


1 BC 


DMPTR 


174E 














3 


1626 


ICCW 


13BE 














1 


1 AO 


DMSSW 
















1 


13 F9 


ICNT 


1232, 


13C4, 


1416 










4 


1A98 


ENDRT 


1982, 


19B6 












3 


1623 


ICSW 


122C, 


1410 












1 


100E 


FLAG1 
















4 


1472 


1010 


145E 














1 


100F 


FLAG2 
















3 


1646 


IEXP 


1422, 


1462 












2 


156A 


I BACK 


155A, 


1578 












2 


171E 


INIT 


1886, 


191C 












ID 


1629 


I BLAH 


122C, 


1236, 


13BE, 


13EA, 


13F0, 


13FA, 


1410 


4 


i i 

1 1 LO 


I NOW 




hi/ 
HA 4 *, 


11AC, 


11BE 














1422, 


144A, 


1462, 


147A 








4 


1252 


INT3 


1214 














2 


13E2 


ICOUT 


123C, 


13CE, 


143E, 


1456, 


146E, 


1486 




4 


1180 


IONE 


1198 














8 


15B0 


ICSW1 


11B4, 


12 OA, 


1282, 


12FE, 


12FE t 


1356, 


1450 


6 


148A 


IPAS 


1476 














8 


15B8 


ICSW2 


1248, 


1292, 


1320, 


1320, 


1480 






4 


126A 


ISEN 


11CE, 


11F2, 


1256, 


125E 








4 


14F0 


ICUIO 


14C0 














4 


10FE 


ISIO 


18B6, 


194E, 


195E 










4 


1442 


IDIOI 


141E 














6 


1248 


ISV2 


1206 














4 


1156 


I HANG 


116A 














4 


1566 


ITIC 


1570 














16 


1607 


ILINK 


1378, 


1380, 


1382, 


1388, 


150A 






4 


10EA 


ITIO 
















4 


156C 


ILOKE 


1562 














4 


HAS 


ITWO 


119C 














4 


1146 


ILOOP 


10EE, 


1102 












6 


1218 


IUIO 


UFA 














4 


132A 


INOER 


12C8, 


12D4, 


12E2, 


12F2, 


1304, 


1314 




6 


1182 


JOHN 


113A, 


117A 












5 


1010 


INPSW 
















1 


17 F9 


LDSW 


1760, 


1826, 


1850, 


18F0 








3 


1703 


IOADR 


139 A 















DATE 

EC 



15JUN67 
130498 
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P/N 840574 
PAGE UA 



© 




mrcu 


ID 


l!»3r 


ini nr 
lULUu 


16 


1684 


lUr 1 1 


4 ' 


14BC 


IPASS 


4 


1588 


ISAVE 


4 


1190 


ISSUE 


4 : 


154A 


ISTRT 


4 ' 


U3E 


ITRY1 


4 


1I4E 


ITRY2 


16 


1T09 


IUNEX 


4 


11D6 


IWAIT 


4 ! 


11C2 


I2ER0 


4 ' 


17 A4 


M0D50 


3 


1AAC 


NCARD 


1 


0 


NEVER 


4 


1816 


OPMSG 


4 


1000 


SECNO 



6 
4 
1 
1 
I 

13 

4 1 

7 

5 

8 

6 
11 
10 

6 

6 

6 

6 

6 

6 

4 

4 
10 
11 

6 

1 

1 

4 

6 

4 

4 

4 ' 
15 

4 : 

8 

2 

4 

4 

8 

4 

4 

9 

1 

8 



1900 
1942 
10E0 
10 E4 
17 A8 

1C51 
19BC 
1AEC 
1058 
1018 
1T7C 
1654 
15EE 
13FE 
12FE 
1320 
1438 
1468 
13C8 
129A 
132E 
15E4 
1649 
110E 
136E 
1502 
151E 
14C4 
145A 
12C4 
12D0 
15F8 
1078 
1038 
1500 
134E 
11F6 
1580 
1A94 
155E 
167B 
80 
1070 



SHDAT 
SI014 
UNIT1 
UNIT2 
BUFFER 

BYPASS 

CNTCCW 

DON PRO 

EXNPSW 

EXOPSW 

HANGUP 

IACSNS 

IACTCC 

ICCOUT 

ICCSWi . 

ICCSW2 

ICHNG1 

ICHNG2 

ICW OUT 

IDOSNS 

IDUNCK 

IEXPCC 

IEXSNS 

IEYEOH 

IFLAG1 

IFLAG2 

ILEAVE 

ILOGED 

IMORST 

IN0EX1 

IN0EX2 

IOADOR 

IONPSM 

IOOPSW 

IOPOUT 

IOUTIT 

IRETRN 

ISENSE 

ISLAVE 

IT10LP 

ITSTNO 

LOGOUT 

MCNPSW 



1392 

14D2, 

10F2t 

1494 

1114, 

10EA, 

129E 

114A, 

1142 

1224, 

1266* 

1194 

172E 

173C, 

188A, 

1118, 

1380, 

13B6, 

149C, 

14D0, 

1786, 

1872, 

1958, 

19F2, 

193A 

172A, 

176C, 

1A70, 

18E4 

19B2 

184E, 



14D8, 
1106, 

152E 
10FE, 

115A, 

122A 
14FC 



1872 



14DE, 14E4, 14EE 
1504 



13A4, 1703 
1514 



19E0 












1918 












1222, 


1224, 


122A, 


1368, 


136A, 


1370 


1382, 


1388, 


139A, 


139C, 


13A2, 


13B4 


13BC, 


13E6, 


13E8, 


13FA» 


1408* 


140E 


149E, 


14A4, 


14AA, 


14AC, 


14B2, 


14CE 


14EE, 


1504, 


150A, 


1538, 


1544, 


177C 


1832, 


1838, 


183E, 


1844, 


184E, 


1862 


1879, 


18C0, 


18E4, 


1902, 


1908, 


1914 


1968, 


1A42, 


1A48 








19FA 












1808 












1770, 


1770, 


1A50» 


1A58, 


1A60, 


1A68 


1A78, 


1A80, 


1A88 









1768 






12B2, 


134E, 


14AA, 


118C, 


11A0, 


11A8, 


13A8, 


1306 




12FA 






131C 






142C 






1434 






13DE 






1276, 


1286, 


178C 


12CC, 


12D8, 


1326 


13FE, 


1408 




148A, 


149C, 


149E, 


10FA 






132E, 


1346 




1332, 


134A 




1342 






1244 






1446 






12EA 






130C 






10F6„ 


110A, 


139C, 


11F6, 


1222 




14F4 






133A 






107C 






129A 






1566 






110E, 


135E, 


1368, 


1128, 


1128, 


14C4 



14AC, 14B2, 



14B4, 1580 
12DC, 140E 



14A^ 



13A2 



8 


1030 


MCOPSW 




4 


172A 


NITWIT 


1724 


8 


1068 


PGNPSW 




8 


1028 


PGOPSW 




4 


15E0 


RANDOM 




3 


1AB2 


REMOVE 




4 


17 AO 


RETURN 


18A6, 


1 


1878 


ROUT 01 


1015, 


1 


18 D4 


R0UT02 


1879 


10 


16CA 


SHDAVE 


1A42, 


8 


1060 


SVNPSW 




8 


1020 


SVOPSW 




1 


181 


SYSMOD 


14BC 


2 


10E2 


U1ADDR 




2 


10E6 


U2ADDR 




1 


1000 


XF8190 





193E, 
1C8C 



1A48 



19E8 



NO ERROR DETECTED IN ABOVE ASSEMBLY 



136A, 1370 



DATE 15JUN67 ID F819-0 DATE 15JUN67 10 F819-0 

EC 130498 PAGE 11 EC 130498 PA6E UA 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



F819 2540 READER STACKER SELECT TEST 



PERIODS CORRESPOND TO BLANK COLUMNS* 



COLS. 



I THROUGH 20 



BESD AA..AAXF81 

9 YQ Y9 

99 9 

BTXT. AAA* • A8 • . AA8JAA 
9 YQY Y9 Y9 8YY 
999 9 9 999 

BTXT.AA8 ..A8*. AAAAAA 

9 YQ9 Y9 Y9YYYY 
99 9 9 9999 

BTXT* AAO** AA* • AAAAAA 

9 YQ+ YQ Y9YYYY 

99- 99 9 9999 

BTXT • A AS • • A8 . . AAAAAA 
9 YQ8 Y9 Y90YYY 
99 9 9 9 9 

BTXT* AJQ.* A8* • AAKA7H 
9 Y99 Y9 Y9 Y 9 

9 9 9 9 

BTXT. AJ+.>.A8.. AAO DGA 

9 Y9 Y9 Y9 9ZY 
9 9 9 

BTXT. AJH» .A8.. AAFAOY 
9 Y90 Y9 Y9-Y 

9 9 9 

BTXT.AJ0..A8..AA1FB0 

9 Y9+ Y9 Y9 - 
9 9 9 

8TXT.AJ8..A8..AA02G- 
9 Y9 Y9 Y9 81 
9 9 9 9 

BTXT.AKA..A8..AA6TBK 

9 Y9Q Y9 Y9 9-8 

9 2 9 9 9 



BTXT* AKQ** A8* 

9 Y9Z Y9 

9 9 

BTXT* AKJ** AS* 

9 Y9Y Y9 

9 9 

BTXT® AKQ** A8« 
9 Y9 Y9 
9 9 

BTXT* ALA*® AS® 
9 Y9Q Y9 
9 9 9 

BTXT* ALH* • A8* 

9 Y9Z Y9 
9 9 



> AA10AA 

Y9 -Y 

9 

> AA5BAA 
Y9 8-Y 

9 

, AAG03W 
Y9Z 8 
9 9 

.AAA JOY 

Y9-Y 
9 9 

.AA3WBA 
Y9 8-Y 
9 



COLS* 21 THROUGH 4© 

90. ®AAAA.AD0«« *•*•©.« 
YYQY Y8Y 
9999 99 

AAAAAAAAABGAADAAAAQH 
YYYYYYYYY9+Y99YYYY9R 

999999999 9 9999 0 

AAAAAAAAAAAAAAAAAAAA 

YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 



AAAAADAAAAJ 6 •• 

YYYY99YYYY9 
9999 9999 

BAAAAABE1ABE1FBT6EBT 
OYYYYY-Q Q-Q Z~ Q- 
99999 

OC+NAHPGO.0.PCSASAAA 
9 YYZ 9- - 88Y8Y-Y 
9 9 

1 VI E AO A GO 1 6A . ODGA 1 WD A 
8QY+YZ+ 8-. 9ZY 8QY 
9 9-9 9 

BX53DAQAGA1BG** IAGJ1Q 
QY+YZY Z QZY 0 
9 9 0 9 

53D70YA • AA6A2*FA0YHF 
-8 - QYZQ — Q RQ 
09 9 9 

2QD70YA.0YGA2HKG5A0. 
9-8 - ZQ Z 9 Q 
9 0 

39KB6.6CEA3SFB0YG04D 
9 ZZQ -9 Z 



BHGA2DABAAGA2BA.0YGA 
QOZQ Q-9QYZY Q- ZY 

Z- 9 9 09 

0ZGA2DFD0YD70ZNA6JAE 

ZY Q-9 -8 Y 8Q9 
9 9 0 

NA53ADG-3SAHAAGA2DA. 
Y Q9Z 8-9QYZY - 
9 0 9 09 

GA3SAHAH.A3UNG5H5HGA 
ZY 8Z0Y9 Y 9 9 0 OZY 

99 

5BE.6J GA54AA 5DGA 54KA 

9- 8ZY 9-9 OZQ 9 9 
- 9 



COLS* 41 THROUGH 60 
840 



AAAAAAAAAAAAAAAAAAAA 

YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

AAAAAAAAADAAAAAAAAAA 
YYYYYYYYY9YYYYYYYYYY 
999999999 9999999999 



6DG01FBD1ABD1FBS6EBS 

9Z 8-Q Q-Q Z- Q- 
9 

AAGA1FA00DGA1BAA0DGA 

QYZQ . 9ZY 0-Y 9ZY 
09 9 

0AG01FHFAHHAACEA0AGA 
+YZ RRQ9-0QY9QY+YZY 
9 9 9 9 

B353G01FB253GO1FB153 
Z - Z 



AHHAACFA0YAA7FFA1WAA 

9-0QY9-Y YY 9ZQ YY 
9 9 9 

F*0¥G®2BKG5H0®8EABA2 
Z R 9 8QY9Y8 
999 99 

KG5H0. F JOYAAAAG A2+ AH 
9 0 -Y -QQYZY —9 
9 909 

2DAB5DGA2BA J0YGA2DAB 
Q-9 OZQ Q-Y ZY Q-9 

9 - g 9 9 

GA2DFA0YG02DA.0YGA3S 

ZY Q-9 Z Q- ZQ 8 
9 9 9 9 

0YGA3SHCAF* A3BNG5A5A 
ZY 8ZYY9 Y 9 9 Q Q 
9 9 0 0 

3WFA0YBM3WB05BAA0YGA 

8-9 ~Z 8-+ 9-9 ZQ 
9 9 

6AABBEABFAFAB0MA63AA 

YQ98QY99Y9Y8-Z8 8ZY 
0 999 9 9 
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COLS. 61 THROUGH 80 
575*130498**81900001 



A A AAA A AAA A AA8 1900002 

YYYYYYYYYYYY 

999999999999 

AAAAAAAAAAAA8 1900003 

YYYYYYYYYYYY 

999999999999 

*• 81900004 



6DKA6AABAA5H81900005 
9 9 YQ9Q8 0 
0 9 

1FDA0AG016A. 81900006 
8QY+YZ 8- 
9 9 9 

1BFA1FPA0Y0Y81900007 
OZQ R 9 

0 

KG5A0.F.0YG081900008 

9 Q Z 

0 

7GD70YG02+A081900009 

9-8 Z -8+ 



GKB0MN7AKB6S81900010 
988-Z9 fi 9 8 
99 9 9 

0YGA2+FH0YG081900011 
ZQ —9 Z 
9 

5DGA2DAA5AE081900012 
QZY QZY YZ+ 
0 9 

G03WAJ0YGA3S81900013 
Z 8-Y ZQ 8 
9 9 9 9 

G-3SADAAGA2081900014 
Z 8-9QYZY - 
9 09 

3FAA0DGA50BU81900015 
8-9 9ZY 8-9 
9 

ADLH+A6DBEAC81900016 

Y980 Q 88QY9 
9 9-0 9999 



BTXT. ALA. • A8. .AAFEFD 
9 Y9Y Y9 Y99898 
9 9 9 9 9 

BTXT. ALH. .A8..AAB0JC 

9 Y9P Y9 Y98-Y8 
9 - 9 9 9 9 

BTX T • ALO • • A8 . • AAK 667 

9 Y9 Y9 Y9 9 9 
9 9 9 

BTXT. AMY. . A8. .AAHCAF 
9 Y99 Y9 Y9ZYY9 
9 9 9 9 

BTXT* AM-.. A8. • AA4BKB 
9 Y9 Y9 Y9 R 9 

9 9 9 0 

BTXT.AMH.. A8..AABEAA 

9 Y9- Y9 Y98QY9 
9 9 9 999 

BTXT* AMO* • A8* • AAEHKA 
9 Y9- Y9 Y99 9 
9 9 9 

BTXT* ANH* • A8* • AAJ A6G 

9 Y99 Y9 Y9Y9 9 
9 9 9 

BTXT* AN* • • A8* • AABOAA 
9 Y9 Y9 Y98-Y9 

9 9 9 9 

BTXT . ANH. • A8 • • AAG05 + 
9 Y9R Y9 Y9Z - 

9 0 9 9 

BTXT. ANA. • AQ. • AAAAAA 
9 Y9Q Y9 Y9YYYY 
9 0 9 9 9999 

BTXT. ANS.. AY. .AAAAAA 

9 Y98 Y9 Y9YYYY 
9 9 9 9999 

BTXT. AOG..AJ..AA. ADR 

9 Y99 Y9 Y9 

9 9 9 

BTXT. AOP. • A8 • • AA. CAW 

9 Y99 Y9 Y9 
9 9 9 

BTXT.A0G..A8..AAX.EX 

.9 Y98 Y9 Y9 
9 9 9 

BTXT.A0G..A8..AAT.SS 

9 Y90 Y9 Y9 
9 9 9 

BTXT.A0G..A8..AA.DEV 

9 Y9Q Y9 Y9 
9 0 9 9 



BOJ A6GACADAAAAGA4ABE 
8-YQ 9ZQY9-YQYZQ Q8Q 
9 9 09 09 9 999 

6PKB6S6WB039KG5HJAEA 
9 9 8 9-9 9 YYZQ 
9 9 

50B0JK6/G9KA5ZADB0JB 
-8-Y8 89 Y Q98-Y8 
9 9 9 9 0 9 9 

• A44AHAH.A4UKG5H5HEA 
Y 8Z0Y9 Y 8 9 ZQ 
9 9 

6.6FKG5H5HEA3SAJ0YGA 
Z 9 ZQ -Y ZY 
9 

FFFFB0JC6ABEAAFJFJB0 
98988-Y8 88QY998988- 
9 9 999 9 

6M5HKE6P5BKE6W5KKE6E 
Z 9 Z Y 9 8 9 R 
9 0 

+NAHA00DG+16AA0YGNAH 
YYZ-+ 9Z 8-Y 99-9 
9 9 

6BG010HFAHHAAB+EAHDA 
QZ 8RQ9-0QY9 YYZQY 
0 9 9 9 9 

AAAADAOJAAAAAAAAAAAA 
YYYY9Y98YYY9YYYYYYYY 

9999 9 999 99999999 

AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 

99999999999999999999 

.CC..X.EXP.CC..X.ACT 



•XXXXXX.LINKA 

Y 

9 

•XXXXXX.CSWCCW.CSW.X 



P.SNS.XX.ACT.LOG.XX. 



.0. ON. FOR. LOOP. ON. XI 



ICE.RDY.SHD.HAVE...* 



ACGCEEB0JG58ED1AG-3F 
Y9999Q8-Y8 -Q pZ Q 
9 Z9 9 Z 

3SA0JDGA3FAKAHG03HBE 
-+Y9ZY QZYY9Z 8Q 
Z 9 99 

5UB0JB50KB6S6TBK39AH 
8-Y8 Y 9 8 9-8 -9 
9 9 9 9 9 

3SA. 0YGA4KKB6.6CKG5H 
ZY 8 9 Z 9 



4B KB 6. 6C KG 5H 5H E A3 S KA 
Y 9 Z 9 OZQ Y 
9 

JC6DE46 JGA54EA JAG-40 
Y8 R- 8ZQ 9-QZOZ 
9 9 Z 

5BB0JM6PAB0YGA5ADE0Y 
Q8-Y8 8-9 ZY Y-Q 
99 9 9 Z 

AAGA5 SAC ABAC AFHA5HGC 

QYZY 8ZQY9ZQY9-8 09Q 
09 9 09 09 9 Z 

0AG05+EA0AG. 5UFA50G7 
♦YZ* -QY+YZ 8ZQ 89 
9 - 9 9 

AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 

99999999999999999999 



•ADR.XXXXXX.XIOA.... 

Y 
9 



XXXXXXX. XXXXXXXX. EXP 



XXXXXX* XXXXXX.XXXXXX 



OT. SS* 1 . ON* FOR* TI 0. S 
8 



• •CDS.IN.R1T CD 

8 



♦ J6MBEACFNFM8 19000 17 
Y 88QY99898 
9999 9 9 

AHEHEHKG6W5H81900018 
Y99 9 9 8 
9 9 

AAGA4BKB6.6F81900019 
QYZY Z 9 Z 

09 



5AEA3SADAAGA81900020 
QZQ -9QY ZY 
0 09 

6FAEAD0YGA4D81900021 
8Q9-9 ZY Q 
0 0 

KC5HS ABEADEH81900022 

8 8Y8QY89 

9 9999 

G010B0066DB081900023 

Z 8-*9 08- 
9 9 

B0UA6B6BEA0A81900024 
8-9Q Q8QQY+Y 
9 9 099 9 9 

AD0DGA50FA0Z81900025 

-9-ZZY Z-Y 



AAAAAAAAAAAA81900026 
YYYYYYYYYYYY 

999999999999 

81900027 



81900028 



81900029 



ACT EX P.SNS *X81900030 



•TST.XXXX.SE81900031 



I0.L00P.MAKE81900032 



S*IN*R2T****81900033 
8 



ID F819-0 DATE 15JUN67 ID F81^-0 
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BTXT.A07..A8..AA..CD 

9 Y9 Y9 Y9 
9 9 9 



BTXT.APX..A8. 
9 Y98 Y9 
9 9 9 

BTXT.APP..A8. 

9 Y9Z Y9 

9 9 

BTXT.APG..AA. 

9 Y9Q Y8 
9 99 



BTXT.AP8* 
9 Y9 
9 



.A8. 
Y9 
9 



BTXT.AQA.. AB* 

9 Y9Q Y9 
9 Z 9 

BTXT.AQQ..A8. 

9 Y9Z Y9 
9 9 

BTXT.AQJ..A8. 

9 Y9Y Y9 
9 9 

BTXT.AQQ*.A8. 

9 Y9 Y9 
9 9 

BTXT.AJA..A8. 
9 Y8Q Y9 
999 9 

BTXT.AJH..A8. 

9 Y8Z Y9 
99 9 

BTXT. A JA. . A8. 

9 Y8Y Y9 
99 9 



» AA07M* 
Y9 + 0 
9 

• AAYGA7 
Y9 ZQ 
9 9 

.AAA AAA 

Y9RYYY 
9 999 

.AAAAA. 
Y9YYY 
9 999 

.AAU/C/ 

Y998Q8 
9 9Z9 

• AABBEA 
Y98QQY 
9 99 9 

.AA7HA. 

Y9 ~Z 
9 

• AAAHOJ 

Y9-9 Z 
9 

•AABOAA 

Y98-Y9 
9 9 

• AAODGA 
Y9 9ZQ 
9 9 

.AA80+* 
Y9 
9 



S . IN .RP3AJAFAA.UI0.F 

Y9QQ9Y 
9 Z 9 

07HPCBDBDKBBMBPPA787 
♦ - 8QQQQ 9QYQY 9 
9Z Z Z Z 

4B.7QKF7R7QAJBHG4KA0 
8- 0 8 0 0ZYQ09 Y 
Z 9 



AAA7G 

YYY8Q 
9999Z 

PREVIOUS. HANG. UP. DET 



B0J4CBB0J.CFB0JECFBA 
8-Y8QR8-Y QY8-YZQY-Y 
9 9Z 9 Z 9 Z9 

0AB0AABMG4GAAAHMBABH 
+Y8-Y9QY9 9Y9Y9 T YQO 
99 Z9 9 9 9Z- 

8K+.7JAKBHA2AH.ABFEA 
Y YZ0QZZ8Y9 QQQZQ 
Z 99 ZZ9 0 

GA9QB0DEDAA .BHGA80B0 
ZQ 98-98QR- QOZQ 8 
9 9 9Z Z- 9 9 

DLB0E.80E.70FABHKCBB 
Q98 Z 9Z 8-YQO 9QQ 
Z 9 9 Z- ZO 

8SEA0FSAAJ0ABDAKBQEA 
8ZQ Q8YYY YQ ZOQZZQ 
0 Z9999 9Z Z 0 

BHHJ AAH2BHA3AA+2BHI J 
Q-0YY9R9Q-Z9Y9 9Q-0Y 
Z 99 Z 9 Z 9 



ROM* DEVICE* XXXXLEA. J 

8Q- Z 
99 

BLOC WAI BWADKWF-F-AFA 
8ZZ890889Q889 9 8 Y 
9-09 9 

C7HB0MK7CFA0YE+2BBA0 
9 98-Z8 Q-9 Z Q-Y 
9 9 Z 9 



EC TEDAA. BHGA8HBD8DB J 
Y- QOZQ R-9 8-Y 

9 Z^ 9 

I 

8DB0D5BMAA79GA8QKED2 
88-98QY-Y ZQ Z 9Q8 
9 9Z9 9 Z 

KCBBBGE.70E.8QF.BHAA 
9QQQQZ 8Z 9- QOZY 
ZOZO 9 Z- 9 

OF6AAA0AB0E* 9BAH0DGA 
Q8YYQ YQQZ 0-9 9ZQ 
Z9999 9Z9 9 

AA79GA80KED2DFB0USD0 
-Y ZY Y 9Q8Q08-99Q8 
9 Z Z 9 Z 

BGAAAYAAAAA JAHH07HA* 

QQZYY9ZQY9ZYY9R+ -Z 
ZO 99 99 99 

OF WAAA1 ABDE. 9BAH0DGA 
Q8YYQ YQYZ 0-9 9ZQ 
Z999Z 9Z9 9 

AAAA0EGA9FAH0EGABFAD 
Y9-Q 9ZQ Q-9 9ZQQ9-9 
9 9 9 I 91 



FGA7SQGH00SD81900034 
-ZY 89QR+ 8R 
9 9 

AG-7MFA79AA081900035 

YZ Z-Y -Y 

9 

YG07MAAAAAAA81900036 
Z ZYYYYYYY 
9999999 



.81900037 



8-AA79GA8BB081900038 
-Y ZY 88- 

9 

DAB0JSD0BU8-81900039 

QY8-Y9Q8-9 

Z 9 Z 

AY AAAAAJAHH081900040 

Y9ZQY9ZYY9R+ 

9 99 99 

8BE.B0B0BAGG81900041 
-Z Q98 9YQQ 
Z 9 9ZZ 

BO J6DLBBEA0A81900042 

8-Y8Q98QQY+Y 

9 9Z 99 9 9 

9B+.7JAJBQAA81900043 
Z YZYQZ-9 
Z 

9SE.B0BA7BG081900044 

8Z Q9-Y QZ 
9 Z 9 Z 

0EGABFFA9DH.81900045 

9ZQQ8ZY QR 
9Z9 9 0 



BTXT . AKO * . A8 . . AAH AAA 
9 Y8- Y9 Y99YYY 
99 9 9 999 

BTXT* ALH* • A3* . AAP.CD 
9 Y89 Y9 Y9 

99 9 9 

BTXT.AL...A8..AAR.0F 

9 Y8 Y9 Y9 
99 9 9 

BTXT. ALH. .A8..AAYT.F 

9 Y8R Y9 Y9 8 
990 9 9 

BTXT. ALA*. A8..AA. FRO 
9 Y8Q Y9 Y9 
990 9 9 

BTXT.ALY*. A8..AA*UNT 

9 Y8 Y9 Y9 

99 9 9 



BTXT.AMJ. 

9 Y8Y 
999 

BTXT.AMH. 
9 Y8R 
99 

BRLD.... • 
9 



BRLD. 
9 



BEND.AQH. 

9 Y9R 
9 0 



.A8* 

Y9 
9 



.AAG.TE 

Y9 
9 



• A4* • AAPASS 

Y9 Y9 
9 9 

•A8* ... AAAA 

Y9 Y9Y9 
9 9 9 

. AH* • • • AAAA 
Y9 Y9Y9 
9 9 9 

. . • • • AA* * . * 

Y9 

9 



BLDT. 
9 



AAAADAAAAAK HHAAAAAAA 
YYYY9YYYYY8R9YYYYYYY 
9999 999999 9999999 

S . IN .RDRC.HPRTMAKE.R 
8 8 



•LOADER. DEV ICE.REMOV 



ROM .THE .LOADER .HPR .D 



NT .OF. REM A IN ING. TEST 



IL*A.MSG. REQUESTS. TH 



ST*DECKS.INTO*RDR.HP 



ED* REMOVE* ALL .CDS. IF 



AAANEAA4AANAAAPCAAKA 

8YQ98YQ88Y908Y998Y8R 
999 999 99 99 999 

DAKD. » 

8Y8Q 
9999 



OAAA. PLACE. APPRQX. 10 
9YYY 
999 

DYTEOF.ON.REMOVE.CDS 
8 



E. THE. REMAINING. TEST 



0. NOPRO* AND* PLACE. CD 



0.VALID.SCRA81900051 



. FROM. ST ACKE8 19000 52 



• DECKST IF . AN81900053 
8 



S . RUN. OUT • IN8 1900054 



.DECKS. SAVE* RE MAI NI N G.TEST.DECKS81900055 



EM* TO* BE* PUT. I N.HPR. PUT.REMAININ81900056 



R. AND. MAKE . RDR. RDYTE 
8 



•ANYTFROM. STKRSCSTKR 

8 8 



AAKJAAK/AAK/AAKAAAK1 

8Y888Y8 8Y888Y8R8Y88 
999 999 999 9990999 



OF.ON.RTN.BY81900057 



SCREADER. . ..81900058 
8 



AAKAAAKIDAKD81900059 

8Y808Y808Y8 
999 999 999 



.81900060 



.81900061 



•81900062 



BTXT. AJH. • A8. • AABHG4 
9 Y80 Y9 Y9Q-9 
99- 9 9 Z 

BTXT . A JO . . A8 . . AAA QGO 
9 Y8 Y9 Y9Y9Z 
99 9 9 9 

BTXT* AKY** A8* • AA37+A 
9 Y89 Y9 Y9 9 Y 
99 9 9 9 

BTXT* AK-* • A8* * AABAPQ 

9 Y8 Y9 Y90Y90 
99 9 9 9 

BTXT.AKH** A8* • AAAAAA 
9 Y8- Y9 Y9YYYY 
99 9 9 9999 



ACBBGA90ABBBGA96AJAH 
-9QQZQ Y-9QQZQ ZYY9 
ZO 9 9 ZO 9 99 

90AJ AAG090A JAHG09YA J 
-ZYYQZ -ZYY9Z ZY 
999 99 9 

50F0+CAEAAA0ADFABJB0 
9ZRYQZZY9ZQQY8- 
99 9 ZZ99 

JAAAKAPQJAAA3APQJAAA 

YYY9 Y90YYY99Y90YYY9 
999 9 999 9 999 

AAA AAAAAA AAAAAAGAAAA 
YYYYYYYYYYYYYYY8YYY9 
9999999999999999999 



KABFBBKCBBBCH JACCKBL 
YQQQQ 9QQQQ0YY9Z9QY 
9Z0Z0 ZOZO 99 Z 

AAG09YA JAQG09YAAACA+ 
YQZ ZYY9Z ZQY9Z 
99 99 Z9 

U16BB0AA6BG4AAAABAPQ 
, 98 Y8-Y9 Y9 YYYY9Y90 
9 99 9 9999 9 

CAPQJAAACAPQJAAACAPQ 
RY90YYY90Y90YYY99Y90 
09 999 -9 999 9 

AAGGGAAAAA2 131.2131A 

99888YYYYY Y 
99999999 9 



IJACH.7JG4AJ81900046 
0YY9R Y9 ZY 
99 9 

6ML0HFBDF0 5081900047 
8ZRRQQ8+ ♦ 

9 OZ - 

JAAABAPQJ AAA81900048 

YYY9ZY90YYY9 

999 9 999 

J AAAA A AAAAAA8 1900049 

YYY9YYYYYYYY 

999 99999999 

AAK0DAAAAAAA81900050 

YY8+8YYYYYYY 

999-99999999 
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' F820 2540 PUNCH FUNCTION TEST 

i 
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1. PURPOSE 



1.1 INTENT 

F820 ~ PUNCH FUNCTION 1 TESTS ABILITY TO ... 



1. ADDRESS THE DEVICE UNDER TEST. 

2. ISSUE SENSE START 1-0. 

3. PROPERLY SET ALL CONDITION CODES. 

4. CLEAR INTERRUPTS WITH TEST 1-0. 

5. PROPERLY STORE CSW. 

6. RESPOND TO DIAGNOSTIC COMMANDS. 

7. RESPOND TO ALL VALID COMMANDS TO THE PUNCH. 

F82I — PUNCH FUNCTION 2 TESTS ABILITY TO ... 

1. PROPERLY RESPOND TO ALL INVALID COMMANDS ISSUED 
TO THE PUNCH. 

2. SET AND SUPPRESS INCORRECT LENGTH RECORD INDICATOR* 

3. BREAK COMMAND CHAINING WITH INCORRECT LENGTH RECORD 

OR COMMAND REJECT. { 

4. RESET SENSE BITS WITH WRITE COMMANDS. 

5. DISTINGUISH BETWEEN COMMAND AND DATA CHAINING AND EXECUTE 
BOTH PROPERLY. 

6. PROPERLY STACKER SELECT ANY OF 3 STACKER POCKETS 
IN 360 OR 1400 PUNCH COMPATIBILITY MODE. 

F822 «— PUNCH FUNCTION 3 TESTS THE .ABILITY TO.*. 

1. PUNCH ALL VALID EBDIC CHARACTERS AND INDICATE 
THE COLUMN LOCATION OF ANY ERRORS. 

ALSO ALLOWS ... 

2* READING THE DATA CARDS PUNCHED IN THE PUNCH ROUTINE. 
THIS IS UNDER CONTROL OF SECTION SENSE SNITCH 9. 
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2. PREREQUISITES 

2.1 PROGRAM REQUIREMENTS 

THIS PROGRAM REQUIRES A DIAGNOSTIC MONITOR. 

DM MUST HAVE A FOUR BYTE UDT ENTRY, ONLY THE FIRST TWO BYTES ARE SHOWN 
BELOW. THE NEXT TWO BYTES MUST CONTAIN THE CHANNEL AND UNIT ADDRESS. 



I UNIT TYPE 



I OPTIONAL FEATURE DIGIT 1 I OPTIONAL FEATURE DIGIT 2 I 



I 
I 



UNIT 
2540 PUNCH 



I ZZ IBIT 0 1 BIT 1 . IBIT 2 |BIT 3 IbIT 4 |BIT 5 

I HEX 8 t HEX 4 1 HEX 2 |HEX 1 (HEX 8 I HEX 4 I HEX 2 

' I CARD | PUNCH 151 COL 1 1400 I t 

I | IMAGE t FEED I FEAT. I FEAT. I I 

t g I READ | | I f 



IBIT 6 IBIT 7 



I 

—I — 
I 82 I 
I 

I 



I HEX 

I 2 CHNLI 
|SW ON | 
12821 I 



NOTE. THIS PROGRAM ALLOWS READING CARDS PUNCHED BY THIS PROGRAM 
AND REQUIRES A 2540 READER UNIT TYPE 81 4 BYTE UDT 
ENTRY TO PROVIDE THE READER ADDRESS. OTHERWISE THE PROGRAM 
WILL NOT BE EXECUTED BY THE DIAGNOSTIC MONITOR* 

NOTE. WHEN MORE THAN ONE READER/PUNCH IS PRESENT* M UDT ENTRIES FOR 
THE COMBINATIONS MUST NOT BE MIXED* FOR EXAMPLE! ENTER 
READER 1 / PUNCH 1» THEN READER 2 / PUNCH 2. 



2.2 EQUIPMENT REQUIREMENTS 

PROGRAM LOADING DEVICE 
HARD >COPY /OUTPUT ! DEVI Cfc 
CPU 

4 K STORAGE PLUS THAT REQUIRED BY MONITOR 
CHANNEL 

2540 -PUNCH- UNIT TESTED 



DATE 
EC 



OS HAY 6* 

124252 



10AUG65 
125580 



15N0V65 

125624 ! 



22FEB66 
125621 



15JUN67 i 

130498 • 
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F820 2540 PUNCH. FUNCTION TEST 

3. USE PROCEDURE 

3*1 ■ PROGRAM LOADING 

STANDARD AS PROVIDED BY . MONITOR 
3*2 PROGRAM OPERATE 

NOTE ^♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦&*#** 

*■ IF 2 CHANNEL SWITCH FEATURE IS INSTALLED* DISABLE THE * 

* UNUSED INTERFACE TO " PREVENT "WOT READY™ TO" READY -STATUS *• 

* - FROM BEING PRESENTED TO THE OTHER CHANNEL. * 

IF .EQUIPMENT CHECIC TROUBLE IS EXPERIENCED , WHILE RUNNING F820 OR F821, 
IT IS SUGGESTED THAT F822 BE RUN TO ANALYZE- THE .TROUBLE* 

A PSW RESTART EXECUTED WHILE THE PROGRAM IS OPERATING NORMALLY MAY 
CAUSE A MISLEADING HANG UP MESSAGE* THE HANG UP MESSAGE IS ONLY VALID 
WHEN A PSW RESTART IS INITIATED DURING A SYSTEM HANG UP CONDITION* ' 

IF -MORE THAN ONE 25*0 IS DEFINED IN THE ON : UDT# ALL ROUTINES IN EACH : 
SECTION WILL BE EXECUTED ON THE FIRST -'2940 .'ALLOCATED BY DM BEFORE ANY 
TESTING OCCURS ON THE NEXT DEVICE* 

3*2*1 ' RIPPLE PUNCH TEST F822 RTN Oi 

39 CARDS ARE PUNCHED BY ROUTINE 01 OF SECTION F822* THE FIRST 

TWELVE CARDS ARE PUNCHED AS FOLLOWS- 

CARD 1-80 COLUMNS OF 12 PUNCHES* 

CARD 2-80 COLUMNS OF 11 PUNCHES* . 

CARD 3-80 COLUMNS OF 0 PUNCHES* 

CARD 4 - 80 COLUMNS OF I PUNCHES* 

ETC* « • 

CARD 12 - 80 COLUMNS OF 9 PUNCHES. 

THE NEXT 2T CARDS ARE PUNCHED WITH A RIPPLE PATTERN 0* 'ALL -EBCDIC 
CHARACTERS* 

ROUTINE 02 OF- ! TH1$ SECTION -IS AN OVERLAY WHICH CONSISTS' OF <A : PROG RAH ■' 
THAT WILL ENABLE THE OPERATOR TO VERIFY THE CARDS PUNCHED IN ROUTINE 
01* THIS IS OPTIONAL UNDER CONTROL OF SECTION SENSE SWITCH 9. A 
MESSAGE IS ISSUED BY THE PROGRAM 'INFORMING THE OPERATOR THAT THE 
OPTION EXISTS* 
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F820 2540 PUNCH FUNCTION TEST 



3*2*2 SECTION SENSE SWITCHES 

THE SENSE SWITCHES SHOWN BELOW ARE IN THE SENSE SWITCH BYTES OF THEIR 
RESPECTIVE SECTION PREFACES* THE CHARACTER X REPRESENTS THE RELOCATION 
FACTOR CONTAINED IN REGISTER 15 DURING RUN TIME* THE SWITCH BITS ARE 
ZERO WHEN OFF, AND ONE WHEN ON* 



I SENSE 

I SW* 
I NO* 
1— — 
I 0 
I 

i i : 

i 

i 

I 5 

' I 
I 

I ■ 

I 8 

I 

S — * 

I 9 

I 

I 

I 
I 
I 

I— 

I 
I 

I • 

I — 
I 13 
I 

I 



11 



12 



FUNCTION 



ON— LOOP ON CURRENT 1-0 COMMAND 
OFF-PROCEED NORMALLY 



ON— LOOP ON CURRENT SIO-TIO COMMAND 
OFF-PROCEED NORMALLY 
♦SEE FURTHER USAGE BELOW WITH SS 11 12 OR 13 



ON— EXECUTE MANUAL INTERVENTION RTNS IN F820 
RTNS 13* 14, AND 15* OR EXECUTE STACKER 
SELECT RTNS IN F821, RTNS 12 AND 13* 

OFF-BYPASS ABOVE ROUTINES ' 

ON — PERFORM MANUAL -OFF LINE- RTN IF SS 5 ON* 
OFF — BYPASS OFF LINE ROUTINE 

ON— ALLOWS CARDS PUNCHED IN ROUTINE 01 TO BE 
READ AND COMPARED FOR VERIFICATION* 

OFF-PROCEEDS NORMALLY 

ON— LOOP STACKER SELECT POCKET 1 
OFF-DO NOT LOOP STACKER SELECT POCKET i 

♦IF SSI * SS11 ON-TIGHT SIO TIO LOOP STKR I 

ON — -LOOP STACKER SELECT POCKET 2 
OFF-DO NOT LOOP STACKER SELECT POCKET 2 

♦ IF SSL* $512 . -ON-TIGHT SIO TIO LOOP ■ STKR 2 

ON— LOOP STACKER SELECT POCKET 3 
OFF-DO NOT LOOP STACKER SELECT POCKET 3 
♦IF SSI + SS13 ON-TIGHT SIO TIO LOOP STKR 3 




3*3 HALTS 

3*3*1 NORMAL HALTS 

F820 

IF SENSE SWITCH 5 IS ON, A HALT WILL OCCUR AFTER AN OPERATOR 
INSTRUCTION, TO MAKE THE PUNCH NOT READY* 

IF SENSE SWITCHES 5 AND 8 ARE BOTH ON, A HALT WILL OCCUR AFTER AN 
OPERATOR INSTRUCTION TO MAKE THE PUNCH NOT OPERATIONAL* 

IF SENSE SWITCH 5 IS ON, A HALT WILL OCCUR AFTER AN OPERATOR 
INSTRUCTION, TO MAKE THE PUNCH OPERATIONAL AND READY* 
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IfeM MAINTENANCE DIAGNOSTIC PROGRAM 
F820 2540 PUNCH FUNCTION TEST 



F821 



IF THE STACKER SELECT ROUTINES -12 AND 13- ARE EXECUTED, A HALT 
WILL OCCUR AT THE START AND COMPLETION OF EACH TEST. THE FIRST 
HALT ENABLES PREPARING THE PUNCH FOR THE STACKER SELECT TEST AFTER 
A MESSAGE IS ISSUED TO THE OPERATOR. AT THE COMPLETION OF EACH 
TEST A MESSAGE IS ISSUED INSTRUCTING THE OPERATOR TO CHECK FOR A 
STACKER SELECT FAILURE. 



F822 



A HALT OCCURS AFTER AN OPERATOR INSTRUCTION THAT SAYS 
EMPTY THE PUNCH STACKERS AND MAKE THE PUNCH READY. 



DO NOPROt 



A HALT OCCURS AFTER THE OPERATOR IS INFORMED THAT THE CARDS PUNCHED 
BY ROUTINE 01 WILL BE VERIFIED IF SECTION SENSE SWITCH 9 IS SET ON. 

A HALT OCCURS IF SECTION SENSE SWITCH 9 IS ON, TO ALLOW THE OPERATOR 
TO REMOVE THE PUNCHED CARDS FROM STACKER PI AND PUT THEM IN THE 
READER HOPPER. 

A HALT OCCURS IF THE READER BEING USED IS THE LOADER TO ALLOW 
PROPER HANDLING OF THE TEST DECKS. 

3.3.2 ERROR HALTS 

HALTS ON ERROR PRINTOUTS ARE STANDARD AS PROVIDED BY MONITOR. 

4. PRINTOUTS 

4.1 OPERATOR INSTRUCTIONS 

NOTE. ..WHEN INSTRUCTED TO PLACE BLANK CARDS IN HOPPER, PUT IN A MINIMUM 
OF 300 CARDS. 
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F820 -RTN BYPASSED- 
AND 

F821 THE ABOVE MESSAGE WILL OCCUR WHEN A ROUTINE IS BYPASSED. 

-PLACE BLANK CARDS IN PUNCH HOPPER MAKE THE PUNCH OPERATIONAL AND READY- 
THE ABOVE MESSAGE OCCURS FOR ALL ROUTINES NOT EXPECTING INTERVENTION* 

F820 -MAKE THE PUNCH NOT READY- 

-MAKE THE PUNCH OPERATIONAL AND READY- 

THE ABOVE MESSAGES OCCUR IF SENSE SWITCH 5 IS ON. 

-MAKE THE PUNCH NOT OPERATIONAL— OFF LINE- 

TME ABOVE MESSAGE IS ISSUED WHEN SECTION SENSE SWITCHES 5 AND 8* ARE 
ON. PUT THE READER OFF LINE WITH THE C.E. TEST BOX, OR BY TURNING 
OFF THE 2821 METER SWITCH. THE METER SWITCH SHOULD NOT BE USED IF 
THE DM U OUTPUT DEVICE IS ALSO ATTACHED TO THE 2821 ICU. 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 
F820: 2540 PUNCH FUNCTION TEST • 



F821 -SNS SW 11 12 OR 13 ON TO LOOP STKR SEL 1 2 OR 3- WITH ERR STOPS- 
-SNS SW 1 WITH ANY OF ABOVE FOR SIO TIO LOOP-NOERR CHECKING- 

THE ABOVE MESSAGES GIVE SPECIAL SECTION SENSE SWITCH OPTIONS. 

- DO NOPRO, REMOVE ALL CDS FROM PCH STKRS- 

THIS MESSAGE IS ISSUED IF SECTION SENSE SWITCH 5 IS ON IN 
PREPARATION FOR THE STACKER SELECT TESTS. NOPRO MEANS NON-PROCESS 
RUNOUT. 

- SEE IF CDS PCHED WITH 1 IN PI, 2 IN P2, 3 IN RP3- 

THIS MESSAGE IS ISSUED AT THE COMPLETION OF THE 360 AND 1400 
COMPATIBILITY STACKER SELECT TESTS, TO ENABLE THE OPERATOR TO 
DETERMINE IF ANY OF THE CARDS STACKED WENT INTO THE WRONG 
STACKER. EACH CARD SHOULD HAVE THE 1ST 8 COLUMNS PUNCHED WITH 
THE NUMBER OF THE STACKER IT SHOULD BE IN. 

F822 - DO NOPRO, EMPTY PCH STKRS- 

THIS MESSAGE IS ISSUED AT INITIAL EXECUTION OF THE SECTION TO 
ENABLE THE OPERATOR TO INITIALIZE THIS ROUTINE. THE PURPOSE OF 
THIS OPERATION IS ONLY FOR SETTING UP ROUTINE 02, WHICH GIVES AN 
OPTION OF READING THE CARDS LOCATED IN PI AT COMPLETION OF ROUTINE 01* 

- IF DESIRED TO VERIFY THE CDS IN PI, SET SSW 9 ON- 

THIS MESSAGE IS ISSUED WHEN ROUTINE 02 STARTS EXECUTING. IF THE 
SENSE SWITCH IS TURNED ON, FURTHER INSTRUCTIONS ARE GIVEN. IF THE 
SENSE SWITCH IS LEFT OFF, THE ENO OF THE TEST OCCURS. 

- REMOVE CDS FROM PI OF PCH AND PUT IN RDR HPR AND MAKE RDR RDY, EOF/QN- 

THIS MESSAGE IS ISSUED IF THE OPERATOR HAS INDICATED HIS DESIRE TO 
VERIFY THE CARDS PUNCHED IN THE PUNCH RIPPLE ROUTINE. 

- 2 DI AG CHK READS ATTEMPTED - BOTH FAILED- 

THIS MESSAGE IS ISSUED FROM ROUTINE 02 WHEN AN ABNORMAL CONDITION 
EXISTS ON THE DEVICE WHILE OPERATING IN THE 1-0 HANDLER. STATUS 
AND OTHER INFORMATION ARE ALSO PRESENTED WITH THIS MESSAGE. 

- .Di AG. CMD XX FAILED- 

THE ABOVE MESSAGE IS ISSUED IF EITHER A DIAGNOSTIC CHECK READ 
-XX OVERLAYED WITH C6- OR A DIAGNOSTIC READ -XX OVERLAYED WITH C-- 
COMMAND FAILS WHILE BEING ISSUED IN THE 1-0 HANDLING ROUTINE TO 
COLLECT INFORMATION ABOUT THE WRITE OPERATION ISSUED BY ROUTINE 01* 

STATUS AND OTHER INFORMATION WILL ALSO BE INDICATED AND SHOULD SE 
USED TO DETERMINE THE CAUSE OF THE PROBLEM. 
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\ mtO : 2540 PUNCH FUNCTION TEST 
4*2 STATUS MESSAGES 



4.2*1- SAMPLE CORRECT PRINTOUT 



LINE 




MESSAGE 


Oi 




SDO ' F820R 08 0Q135C 000- ' 


02 




■TST 0370- 


03 




ADR 001BA4 LINK- 


04 




ADR 001182 S10« 


05 




CAW 001BB8- 


06 




CCH 41001831 80000020- 






CCM 00001831 00000064^ 


0? . 




CC 0 EXP- 


08 - 




CC 0 ACT- 


09 




CSW 00001BC8 08000001 EXP- 


10 . 




CSW 00001BC8 08000001 ACT- 


11 . 




CSW 00000000 04000000 EXP- 


12 




CSW 00000000 04000000 'ACT- 


13 




SNS 00 EXP- 


14 




SNS 00 ACT- 


IS 




LOG 00 000000 000000 OOOOGO- 


16 




SET SS 0 ON FOR LOOP ON PRESTKR CD OR 






SS i ON FOR LOOP ON STACKED CD- 



i 

i 4.2*2 ANALYSIS OF SAMPLE PRINTOUT 

1 LINE EXPLANATION 

4 

01 THIS IS THE HEADER LINE PRINTED BY DM* IF AN ASTERISK 
PRECEDES THE -SDO- AN ERROR HAS CAUSED ^THE MESSAGE 

\ PRINTOUT* IF NO ASTERISK IS PRINTED, THE MESSAGE 

IS A RESULT OF EITHER HAVING THE CORRECT PRINTOUT 
^ SWITCH ON OR AN OPERATOR MESSAGE IS TO FOLLOW. 

ALL LINES THAT FOLLOW THE -SDO- ARE PART OF THAT SAME 
MESSAGE. THE START OF A NEW MESSAGE IS INDICATED 
BY ANOTHER -SDO- PRINTOUT* THE -F820R- IS THE SECTION 
i ID NUMBER WHERE -R- REPRESENTS THE REVISION LEVEL OF 

\ , THE PROGRAM. THE -08- IS THE PROGRAM ROUTINE NUMBER 

\ WHILE THE -OOD- IS THE ADDRESS OF THE DEVICE UNDER 

TEST. 

02 THIS IS THE TEST NUMBER ASSOCIATED WITH THE MESSAGE. AT THE 
BEGINNING OF THE PROGRAM LISTING, THERE IS A LIST OF TEST 
LUMBERS. WITH THE TEST NUMBER IS A SHORT EXPLANATION OF 
WHAT WAS BEING DONE, AND WHAT SHOULD OCCUR. 



03 THIS LINE SHOWS THE ADDRESS FROM WHICH THE 1-0 HANDLER 
SUB-ROUTINE WAS ENTERED. . ALL 1-0 COMMANDS ARE ISSUED 
FROM THIS SUB-ROUTINE, SO IT IS ENTERED MANY TIMES FROM 
MANY PLACES. TO INSURE THE SPECIFIC 1-0 OPERATION YOU 
WANT -TO LOGIC AT WILL BE THE NEXT ONE PERFORMED, YOU SHOULD 
RESTART THE PROGRAM WITH A SYSTEM : RE SET® PSW RESTART, AND 
ADDRESS STOP AT THE GIVEN ADDRESS* 

04 • THIS LINE SHOWS THE ADDRESS OF -THE STAHT'f-O* TESY'I-O, 

OR HALT - 1-0 THAT MAS * ISSUED ; IN THE 1-0 HANDLER SUB-ROUTINE* 

05 m\%- LINE SHOMS THE ADDRESS OF THE CCW TO m> I SSUED BY 
a START 1-0 COMMAND. .IF CCWS ARE CHAINED* ■ THE ADDRESS 
GIVEN ^REFERS TO THE -FIRST 'CCM 'IN-' THE CHAIN. 
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06 THIS LINE DISPLAYS THE FIRST CCW. THE FIRST BYTE CONTAINS 
THE COMMAND CODE. THE NEXT 3 BYTES CONTAIN AN ADDRESS IN 
STORAGE, WHICH WILL BE USED IF DATA TRANSFER IS PERFORMED. 
THE NEXT BYTE CONTAINS FLAGS USED BY THE CHANNEL. THE LAST 

3 BYTES ARE THE COUNT FIELD. IF CHAINING IS INDICATED IN " i 

BYTE 4, ADDITIONAL CCWS WILL BE SHOWN BELOW THIS LINE. 

07 THIS LINE SHOWS THE CONDITION CODE EXPECTED, BY THE 
PROGRAM, IN RESPONSE TO ISSUING THE 1-0 COMMAND. 

08 THIS LINE SHOWS THE ACTUAL CONDITION CODE SET IN RESPONSE 
TO THE 1-0 COMMAND. 

09 THIS LINE DISPLAYS THE FIRST CSW EXPECTED BY THE PROGRAM. 
A BIT BY BIT DESCRIPTION OF THE DEVICE STATUS BYTE PORTION 
OF THE CSW, APPEARS IN THE PROGRAM LISTING, FOLLOWING 

THE TEST NUMBER DESCRIPTIONS. 

10 THIS LINE DISPLAYS THE ACTUAL CSW RECEIVED BY THE PROGRAM. 
NOTE.. .FOR EVERY EXPECTED -EXP- CSW PRINTED OUT THERE 

SHOULD BE A CORRESPONDING ACTUAL -ACT- CSW 
PRINTED OUT ON THE NEXT LINE. THE ABSENCE 
OF A -ACT- CSW PRINTOUT INDICATES A MACHINE 
FAILURE. A MACHINE FAILURE IS ALSO INDICATED 
IF THERE ARE -ACT- CSW PRINTOUTS WHEN THERE 
ARE NONE EXPECTED. 



11 THIS LINE WILL APPEAR IF THE PROGRAM EXPECTS MORE THAN 
ONE CSW. 

12 THIS LINE WILL APPEAR IF THE PROGRAM RECEIVED A SECOND CSW* 

13 THIS LINE SHOWS THE SENSE BYTE EXPECTED BY THE PROGRAM. 
A BIT BY BIT DESCRIPTION OF THE 2540 SENSE BYTE APPEARS 

IN THE PROGRAM LISTING, AFTER THE TEST NUMBER DESCRIPTIONS* 

14 THIS LINE SHOWS THE ACTUAL SENSE BYTE RECEIVED BY THE PROGRAM* 

15 THIS LINE DISPLAYS THE CPU AND CHANNEL LOGOUT AREA ON 
MODEL 30 SYSTEMS. IT WILL NOT APPEAR ON ANY OTHER SYSTEM* 

16 THIS LINE SHOWS THE SECTION SENSE SWITCH LOOP OPTIONS* 
IF AN ERROR HAD OCCURRED, AND DM SENSE SWITCH 25 WAS ON* 
A HALT WOULD NOW OCCUR, TO ALLOW SETTING OF THE SECTION 
SENSE SWITCHES* TO > INSURE THAT YOU WILL LOOP ON THE 
COMMAND THAT FAILED, YOU SHOULD REQUEST A HALT ON ERROR* 
SET THE PROPER SENSE SWITCH ON, AND PRESS THE EXTERNAL 
INTERRUPT KEY TO LOOP 4 
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4.'2.3 SAMPLE OF CARD PUNCH ERROR PRINT OUT OF SECTION F822. 

THE FOLLOWING MESSAGE IS GIVEN IN SECTION F622 ROUTINE 1, WHEN 
A PUNCH ERROR IS DETECTED. THIS DATA IS PRINTED IMMEDIATELY 
BEFORE LINE 16 OF A MESSAGE TYPE OF THE SAME FORMAT AS DESCRIBED 
IN 4.2.1 OF THIS DESCRIPTION. 

LINE MESSAGE 

01 - PUNCH ERR- 

02 - CARD IN PRESTKR STA 



P/N 840190 
PAGE 5 



03 






EXPECTED 


SHD 










BUF 




04 




COL 


PUNCHES 


RD 


RD 


XU 


XL 


PAR 


ADR 


TRA 


05 




07 


689 


3E 


3E 


0 


1 


0 


0 


0 


06 




10 


T019 


41 


41 


0 


1 


0 


0 


0 


07 




22 


T58 


4D 


40 


0 


1 


0 


0 


0 


08 




55 


068 


6E 


6E 


0 


1 


0 


0 


0 



4.2.4 ANALYSIS OF CARD PUNCH ERROR PRINTOUT OF SECTION F822. 



LINE 
01 



02 
03 



04 



EXPLANATION 

THIS MESSAGE INDICATES THAT A PUNCH ERROR OCCURRED. 

IT MAY BE DUE TO DIAGNOSTIC READ DATA OR DIAGNOSTIC CHECK 

READ INFORMATION. 

THIS MESSAGE TELLS WHERE THE CARD IN ERROR IS LOCATED. 
THIS IS THE FIRST PART OF THE HEADER WHICH IS USED 
TO EXPLAIN THE DATA OF LINES 05 THRU 08. THIS 
HEADER IS READ VERTICALLY WITH RESPECT TO LINE 04. 
THIS IS THE SECOND LINE OF THE DATA HEADER. AN 
EXPLANATION OF THE HEADER ABBREVIATIONS OF LINES 03 
AND 04 IS AS FOLLOWS- 



COL 

EXPECTED 
PUNCHES 

SHD 
RD 

RD 



- THIS TELLS WHAT CARD COLUMN HAD AN ERROR* 



XU 



XL 



PAR 



BUF 
ADR 



TRAN 



THIS TELLS WHAT THE EXPECTED CARD PUNCHES 
WERE FOR THE DATA IN THE SHD RD COLUMN. 

THIS IS THE EXPECTED HEX DATA. 

THIS IS THE HEX BYTE WHICH WAS READ FROM 
THE PUNCH FOR THE INDICATED COLUMN. 

THIS IS A BIT IN THE DIAGNOSTIC CHECK RD 
BYTE FOR THE INDICATED COLUMN THAT WILL BE 
A 1 OR A 0. IF 1« IT INDICATES THAT THE X 
UPPER CHECK PLANE WAS LEFT ON. 

THIS IS THE X LOWER CHECK BIT. IF IN ERROR 
IT WILL BE A 1, IF NOT IT WILL BE 0. 

THIS IS A BIT INDICATING A BUFFER PARITY 
CHECK WHEN 1. 

THIS IS A BIT INDICATING A PUNCH BUFFER 
ADDRESS CHECK WHEN 1. 

THIS IS A BIT INDICATING A PUNCH TRANSLATE 
CHECK WHEN 1. 



- PREVIOUS HANGUP DETECT ED- 

THE ABOVE MESSAGE WILL APPEAR IF A SYSTEM RESET PSW RESTART IS 
PERFORMED AFTER A HANG UP CONDITION ON AN 1-0 COMMAND. FOLLOWING 
THIS LINE WILL BE A PRINTOUT SIMILAR TO THE ABOVE SAMPLE MESSAGE. 
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5. COMMENTS 
5.1 LOOPING 

IN SOME CASES, YOU MAY DESIRE TO LOOP ON AN ENTIRE ROUTINE RATHER 
THAN USE THE SECTION SENSE SWITCH LOOPS PROVIDED. ONE METHOD OF 
DOING THIS IS TO MANUALLY ENTER THE NUMBER OF THE ROUTINE 
IN X04C. WHERE X STANDS FOR YOUR RELOCATION ADDRESS. THEN PERFORM 
A SYSTEM RESET-PSW RESTART, AND THE PROGRAM WILL LOOP ON THE ROUTINE. 
SENSE SWITCHES MAY BE SET BY MANUALLY ENTERING THE DESIRED BITS. 

6. APPENDIX 

6.1 2540 COMMAND CODES. 

* COMMAND CODE BITS HEX 

* FUNCTION 01234 5 67 CODE * 
* 

* NO OP .0000 0011 03 

* TEST I/O ••...•••••••••0 0 00 0 0 0 0 00 

* SENSE X X X X 0 1 0 0 04 

* RD FO SEL Rl 0 0 - X X X 1 0 02 

* RD FD SEL R2 . . 0 1 - X X X 1 0 42 

* RD FD SEL RP3 I 0 - X X X 1 0 82 

* RD NO FD NO SEL ... . 11- X X X 1 0 C2 

* FD SEL Rl OOlX XX 11 23 

* FD SEL R2 0 1 1 X XXI 1 63 

* FD SEL RP3 ............. 1 0 1 X X X 1 1 A3 

* WR FD SEL PI 0 0 - - 0 X 0 1 01 

* WR FD SEL P2 • 0 1 - - 0 X 0 1 41 

* WR FD SEL RP3 10 0X01 81 

* WR FD SEL PI 1400 MODE 0 0-1 O X 0 1 11 

* WR FD SEL P2 1400 MODE ....... 0 1 - 1 0 X 0 1 51 

* WR FD SEL RP3 1400 MODE ....... 1 0 - 1 0X0 1 91 

. * • 

* WHERE X IS USED FOR OPTIONAL FEATURES * WHERE ALL MODIFIER 

* OR DIAGNOSTICS, AND -INDICATES WHERE AND OPTIONAL BITS 

* MODIFIER BITS MAY BE COMBINED. ARE IN THE 0 STATE 
********************************** 

6.2 2540 SENSE BYTE INFORMATION. 
*************************************************************^ 



-UNIT CHECK IN STATUS. 
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€ 

« 
t 

i 

f 

I 

i 
c 

{ 
c 



* 


ONE 


SENSE BYTE FOR THE 2540 




BIT 


MEANING 


* 


0 


COMMAND REJECT 


* 


1 


INTERVENTION REQUIRED 




2 


BUS OUT CHECK 


* 


3 


EQUIPMENT CHECK 


* 


4 


DATA CHECK 


* 


5 


NOT USED 


* 


6 


UNUSUAL COMMAND SEQUENCE 


♦ 


7 


NOT USED 



****************************************** 



***************************** 



6.3 2540 DIAGNOSTIC INFORMATION 



****************************************** 



* BIT 


MEANING 


* 

* 


BIT 


MEANING 


* 

* 


* 

* 0 


NONE 


* 


4 


X LOWER PLANE 


* 


* 1 


NONE 


* 


5 


PARITY CHECK 




* 2 


NONE 


* 


6 


TRANSLATE CHECK 


* 


* 3 


X UPPER PLANE CHECK 


* 


7 


ADDRESS REGISTER CHECK 


* 



********************** ****************************^^ 

— > LAST PAGE 
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8203 



TITLE 



REVISION LEVEL 3 - THIS REVISION DIFFERS FROM VERSION 2 AS FOLLOWS.. 
1. THE PROGRAM HAS BEEN MODIFIED TO INCLUDE -TEST NUMBERS-. 
THE PROGRAM NOW INCLUDES STANDARD ERROR MESSAGE PRINTOUTS. 
THE PROGRAM NOW TESTS THE RESPONSE TO ALL VALID COMMANDS 
INCLUDING 1400 CQMPAT, PFR, AND COLUMN BINARY INDEPENDENT 
OF WHAT FEATURES ARE INSTALLED. 

THE PROGRAM TESTS THE RESPONSE TO DIAGNOSTIC COMMANDS. 
THE PROGRAM TESTS FOR PROPER CHANNEL AND DEVICE STATUS. 



2. 
3. 



4. 
5. 



001000 



********************************^ 

* MODIFICATIONS 

♦ 

* 

* 

.* 

* E.C. PREREQUISITES 

* MACHINE ... NONE 

* PROGRAM • • • NONE 
* 

* USE DESCRIPTION F820* AT EC 130498* 

*^***********************************^^ 

* REVISION LEVEL 2 - THIS REVISION DIFFERS FROM VERSION 1 AS FOLLOWS. . 

* 1. THE SENSE SWITCH LOOP OPTIONS IN THE PROGRAM DESCRIPTION HAVE 

* BEEN CORRECTED TO ALLOW PROPER ACTION. 
**************************************************^^ 
****************************************M'**^^ 
XF8203 START 4096 

USING *,15 

* . 

***************************************^^ 

* TEST NUMBER DESCRIPTION * 
*******4uM********************^ 
*************************W 

* TEST * DESCRIPTION 
* 



DATED 15 JUN 6T OR LATER. 



************** 

ROUTINE 01 a 
************** w 

0010 - OPERATION ATTEMPTED 

A TEST T-0 IS ISSUED TO A READY TEST DEVICE. 

EXPECTED RESPONSE 

EXPECT COND. CODE 0 (COMMAND ACCEPTED) 
POSSIBLE FAILURE CAUSES 

1. CONDITION CODE 2 INDICATES THE CHANNEL APPEARS TO BE BUSY. 

2. CONDITION CODE 3 INDICATES THERE IS NO DEVICE FOR THE 
ADDRESS USED. THE DM UDT ENTRY COULD BE IN ERROR t THE 
DEVICE MAY BE OFF LINE, OR IF THE 2821 TWO CHANNEL SWITCH 
FEATURE IS INSTALLED* THE PARTITIONING SWITCH FOR THIS 
INTERFACE MAY BE DISABLED. 

3. IF CONDITION CODE 1 IS SET, THE CSW MUST BE INSPECTED TO 
DETERMINE THE CAUSE. UNIT CHECK MIGHT BE DUE TO NOT READY 
DEVICE. CHANNEL OR DEVICE END INDICATES THAT AN INTERRUPT 
WAS PENDING IN THE CHANNEL. DEVICE OR CONTROL UNIT BUSY 
COULD INDICATE DEVICE OR CONTROL UNIT IS RESERVED TO THE 
OTHER INTERFACE, IF 'THE 2 CHANNEL SWITCH FEATURE IS PRESENT 
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* 0020 - 

. * 

* . 
* 

* 

* 0030 - 

* . 

* 
* 

■ . * . 

* . 

* 
* 

* 0040 

* . 

* • 

* 

* 

* ■ 

* - 

* ■ 
* 
* 

* . 

* . . 

* 0050 

• * . 

* . 
* 

* 



************** 

ROUTINE 02 
************** 

OPERATION ATTEMPTED 

A SENSE START 1-0 IS ISSUED TO READY DEVICE. 
EXPECTED RESPONSE 

EXPECT COND. CODE 0 (COMMAND ACCEPTED) 
POSSIBLE FAILURE CAUSES 

1. CONDITION CODE 2 COULD BE DUE TO A PENDING CHANNEL END, OR 

2. IF B CONDITION E CODE 1 WAS SET ♦ THE CSW MUST BE INSPECTED TO _ 
DETERMINE THE CAUSE. DEVICE END WITH DEVICE BUSY INDICATES 
A DEVICE END WAS PENDING IN THE DEVICE. 

- OPERATION ATTEMPTED 

A TEST 1-0 TO PENDING CHANNEL AND DEVICE END FROM PREVIOUS 
SENSE IS ISSUED. 

EXPECTED RESPONSE 

EXPECT COND. CODE 1 AND CHANNEL END DEVICE END BOTH IN THE CSW 
FROM THE PREVIOUS SENSE I/O COMMAND. 

POSSIBLE FAILURE CAUSES 

U CONDITION CODE 2 INDICATES THE CHANNEL IS BUSY. 
2. FAILURE TO RECEIVE CHANNEL AND DEVICE END COULD INDICATE 
THE DEVICE FAILED TO PRESENT ENDING STATUS. 

OPERATION ATTEMPTED 
ANOTHER TIO IS GIVEN. 
EXPECTED RESPONSE 



EXPECT COND. CODE 0. 
INTERRUPTS. 



DEVICE SHOULD BE CLEAR OF PENDING 



POSSIBLE FAILURE CAUSES 

1. CONDITION CODE 1 WITH UNIT CHECK IN THE CSW XOULD INDICATE 
A NOT READY DEVICE. CHANNEL OR DEVICE >END INDICATES THE 
PREVIOUS TIO FAILED <T0 CLEAR THEM. 

************** 

ROUTINE 03 
************** 

- OPERATION ATTEMPTED 

A SENSE START 1-0 IS ISSUED AND THE SYSTEM ENABLED FOR 1-0 
INTERRUPTS. 

EXPECTED RESPONSE 

EXPECT CHANNEL ?ENO DEVICE END TOGETHER* 
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* 

* • \ POSSIBLE FAILURE CAUSES 
* 

* !• FAILURE TO REGIE I VIE CHANNEL ? AND 'DEVICE »: END i INDICATES THAT 

* ENABLING THE CHANNEL FOR I -0 INTERRUPTS FAILED TO BRING IN 

* THE DEVICE STATUS. 
* 

*". 0060 OPERATION ATTEMPTED 

.'.*., - ~ ■ 

* - TEST 1-0 IS ISSUED. 

* .. 

* ' EXPECTED RESPONSE 

* . 

* EXPECT COND. CODE 0. DEVICE SHOULD BE CLEAR OF PENDING 

* * INTERRUPTS. 

* 

' * ************** 

* ROUTINE 04 

* • ************** 

* 

* 0070 - OPERATION ATTEMPTED 

* A NOP SIO IS ISSUED TO READY DEVICE. 

* ^ EXPECTED RESPONSE 

* . 

* ■ EXPECT COND. CODE 1 WITH CHANNEL END DEVICE END STORED IN 
. * . THE CSW. NO INTERRUPT SHOULD OCCUR. 

* 

* ************** 

* ROUTINE 05 

* ************** 
* 

. ****************************************^^ 

* ROUTINE 05 IS BYPASSED WHEN CORRECT PRINTOUTS ARE BEING OUTPUT 

* INTERRUPTS^ TE$T I$ DEPEN0ENT UP0N DEVICE BUSY WITHOUT STACKED 
*^*****************************************^^ 

* 0080 - OPERATION ATTEMPTED 

* , 

- I £ EE0 STACKE * SELECT .-41- IS ISSUED. THE SYSTEM IS 

* ' ENABLED FOR 1 INTERRUPT. 

* = EXPECTED RESPONSE 
♦ 

* t COND. CODE.0 SHOULD BE SET - ON THE START I-.0. INTERRUPT DUE 

* ■ TO CHANNEL END SHOULD OCCUR. WC 

* 0090 - OPERATION ATTEMPTED 

* JTEST 1-0 IS ISSUED TO A DEVICE WITH CHANNEL END CLEARED* BUT 
I ' 8~ If !L HAS N0T OCCURRED YET. THE SYSTEM IS THEN ENABLED 

* ' TO CLEAR THE DEVICE END WHEN IT OCCURS. 

* - 

* EXPECTED RESPONSE 
♦ 

* ' C °N&* CODE 1 SHOULD BE SET ON THE TEST H-O. THE DEVICE BUSY 

* BIT SHOULD BE ON IN THE CSW. INTERRUPT DUE TO DEVICE END 

* - SHOULD NOW OCCUR. 
* 

* -0100 - OPiiJITiQfl ATTEMPTED 

* . 

*■ A (PUNCH FEED STACKER SELECT -^4I^';-tS< ISSUED* - THE SYSTEM IS 

* • ENABLED ■'FOR I ; INTERRUPT. ' a 7 * 1 "" « 
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* 

* . 
* 
* 

* 0110 

* . 
* 

* 

* . 

* 
* 

* . 
* 

* 0120 

* 
* 
* 
* 

* 

'* . 

* 0130 

* 

* 

* . 
* 

. * . 

* . 

* • 

* 0140 

' * 

* 
* 

* 

* 

* 

: * 
* 

* 
* 

* 

* 

* 



EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START 1-0. 
TO CHANNEL ENb SHOULD OCCUR. 

OPERATION ATTEMPTED 



INTERRUPT DUE 



A START 1-0 IS ISSUED TO A DEVICE WITH CHANNEL END CLEARED* 
BUT DEVICE END HAS NOT OCCURRED YET. THE SYSTEM IS THEN 
ENABLED TO CLEAR THE DEVICE END WHEN IT OCCURS. 

EXPECTED RESPONSE 

COND. CODE 1 SHOULD BE SET ON THE START 1-0. THE DEVICE BUSY 
BIT SHOULD BE ON IN THE CSW. INTERRUPT DUE TO DEVICE END 
SHOULD NOW OCCUR. 



-41- IS ISSUED. THE SYSTEM IS 



- OPERATION ATTEMPTED 

A PUNCH FEED STACKER SELECT 
ENABLED FOR 1 INTERRUPT. 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START 1-0. INTERRUPT 
DUE TO CHANNEL END SHOULD OCCUR. 

- OPERATION ATTEMPTED 

A HALT 1-0 IS ISSUED TO A DEVICE WITH CHANNEL END CLEARED* BUT 
DEVICE END HAS NOT OCCURRED YET. THE SYSTEM IS THEN ENABLED 
TO CLEAR DEVICE END WHEN IT OCCURS. 

EXPECTED RESPONSE 

COND. CODE 1 SHOULD BE SET ON THE HALT I-*). A CSW WITH NO 
BITS ON SHOULD BE STORED. INTERRUPT DUE TO DEVICE END SHOULD 
NOW OCCUR. 

************** 

ROUTINE 06 

************** , 

- OPERATION ATTEMPTED 

A PUNCH FEED STACKER SELECT -41- IS ISSUED. THE SYSTEM IS 
ENABLED FOR 1 INTERRUPT. 

EXPECTED RESPONSE 

CONO. CODE 0 SHOULD BE SET ON THE START 1-0. INTERRUPT DUE 
TO CHANNEL END SHOULD OCCUR. 

©150 - OPERATION ATTEMPTED 

AN INVALID COMMAND JHF5- IS ISSUED TO A DEVICE WITH A PENDING 
DEVICE END. 

EXPECTED 'RESPONSE 

CONO.- CODE .1 SHOULD . Si SET- ON THE START I -*0* % CSW STORED 
SHOULD CONTAIN DEVICE END AND DEVICE BUSY. NO SENSE BITS 
SHOULD BE ON. 
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ROUTINE 07 




* 




************** 




* 
* 


0160 - 


OPERATION ATTEMPTED 








A PUNCH FEED STACKER SELECT -PUNCHING AU BLANKS- IS ISSUED 






NO INTERRUPTS ARE CLEARED. 




* 




EXPECTEO RESPONSE 




* 
* 




COND. CODE 0 SHOULD BE SET ON THE START 1-Ot AND A 


CARD SHOULD 


* 
* 




FEED INTO STACKER 2. 




* 


0170 - 


OPERATION ATTEMPTED 








ANOTHER PUNCH FEED AND STACKER SELECT IS ISSUED TO 


THE 


* 
* 




PENDING CHANNEL END. 








EXPECTED RESPONSE 




* 




EXPECT COND* CODE 2 BECAUSE THE CHANNEL END OF THE 


PREVIOUS 


* 




PUNCH COMMAND WAS NOT CLEARED. 




* 


0180 - 


nocpATf I1M ATTFMPTFn 
urCKA i i un *»i icnr icu 




* 
♦ 




A HALT 1-0 IS ISSUED TO A PENDING CHANNEL END. 




* 




CArCt leu KC drUNoC 




* 




EXPECT COND. CODE 0 




* 


0190 - 


OPERATION ATTEMPTED 








* test «_n tc f ccucn Tn a BMKMnffeift rMAMMISi ^citin^ 




* 




EXPECTED RESPONSE 




♦ 




EXPECT COND. CODE 1 AND CHANNEL END FROM PREVIOUS 


PUNCH 


* 




COMMAND TO BE IN THE CSW. 






0200 - 


OPERATION ATTEMPTED 




* 

* 




A HALT 1-0 IS ISSUED TO A PENDING DEVICE END. 




* 




EXPECTED RESPONSE 




* 
* 
* 




COND. CODE 1 SHOULD BE SET AND A CSW WITH NO BITS 


ON STORED. 


* 

* 


0210 - 


OPERATION ATTEMPTED 




* 
* 




A PUNCH FEED STACKER SELECT START I -0 IS ISSUED TO 


A PENDING 


* 




DEVICE END. 




* 




EXPECTED RESPONSE 




* 
* 




COND. CODE 1. CSW SHOULD CONTAIN DEVICE BUSY WITH 


DEVICE END. 


* . 

* -0220 - 


OPERATION ATTEMPTED 




* 




A HALT 1-0 IS ISSUED TO A READY .DEVICE* 




* 




EXPECTED RESPONSE 





1 

■! 

I 
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* . 

* 0230 - 
♦ 

* . 
* 

* . 
♦ 

* ■ 

* 0240 - 
♦ 

* 

* 

* 0250 - 
* 

* . 

* - 

* 0260 

* 
* 
* 
* 

* 

* 

* 

* 0265 
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COND. CODE 1 SHOULD BE SET AND A CSW WITH NO BITS ON STORED. 
OPERATION ATTEMPTED 
A TEST 1-0 IS ISSUEO. 
EXPECTED RESPONSE 

COND. CODE 0. DEVICE SHOULD HAVE NO PENDING STATUS. 

************** 

ROUTINE 08 
************** 

- OPERATION ATTEMPTED 
ISSUE A PUNCH FEED STACKER SELECT COMMAND -4I-. 

EXPECTED RESPONSE 

COND. CODE 0 CHANNEL END AND THEN DEVICE END. 

- OPERATION ATTEMPTED 
ISSUE A DIAGNOSTIC READ COMMAND -C2-. 
EXPECTED RESPONSE 

COND. CODE 0 WITH CHANNEL END DEVICE END TOGETHER. 

- OPERATION ATTEMPTED 
ISSUE A DIAGNOSTIC CHECK READ COMMAND -C6-. 
EXPECTED RESPONSE 

COND. CODE 0 WITH CHANNEL END DEVICE END TOGETHER. 



************** 

ROUTINE 09 
************** 



- OPERATION ATTEMPTED 

A DIAGNOSTIC READ COMMAND IS ISSUED FIRST IN ROUTINE 09 TO 
INITIALIZE THE DEVICE FOR THE REMAINING TESTS IN THIS ROUTINE 

EXPECTED RESPONSE 

EXPECT COND. CODE 0 TO BE SET ON THE START 1-0 WITH CHANNEL 
AND DEVICE END RETURNED IN ONE CSW. 

- OPERATION ATTEMPTED 

A WRITE COMMAND IS ISSUEO AND I BLANK IS SENT. THE CHANNEL 
IS ENABLED TWICE FOR INTERRUPTS. 

EXPECTED RESPONSE 

COND. CODE 0 SHOULO 6fi SET ON THE START S~€3* A CHANNEL END 
INTERRUPT SHOULD OCCUR* FOLLOWED BY A DEVICE END INTERRUPT. 



OPERATION :AtfiMPfi»: 
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A READ COMMAND IS ISSUED AND 1 BYTE IS READ* THE CHANNEL IS 
ENABLED FOR 1 INTERRUPT* 

£ HP EC TED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START 1-0, AND AFTER 
TRANSFER I NG 1 BYTE OF DATA, A CHANNEL AND DEVICE END 
INTERRUPT SHOULD OCCUR* 

• OPERATION ATTEMPTED 

A WRITE COMMAND IS ISSUED AND 1 BLANK IS SENT. THE CHANNEL 
IS ENABLED TWICE FOR INTERRUPTS* 

EXPECTED RESPONSE 

COND* CODE 0 SHOULD BE SET ON THE START 1-0. A CHANNEL END 
INTERRUPT SHOULD OCCUR, FOLLOWED BY A DEVICE END INTERRUPT* 

• OPERATION ATTEMPTED 

A READ COMMAND IS ISSUED AND i BYTE IS READ* . THE CHANNEL IS 
ENABLED FOR 1 INTERRUPT* 

EXPECTED RESPONSE 

COND* CODE 0 SHOULD BE SET ON THE START. 1-0, AND AFTER 
TRANSFERING 1 BYTE OF DATA, A CHANNEL . AND DEVICE END 
INTERRUPT SHOULD OCCUR* 

OPERATION ATTEMPTED 

A WRITE COMMAND IS ISSUED AND 1 BLANK IS SENT* THE CHANNEL 
IS ENABLED TWICE FOR INTERRUPTS* 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START : I-«0« . A CHANNEL ' END 
INTERRUPT SHOULD OCCUR, FOLLOWED BY A DEVICE END INTERRUPT* 



OPERATION ATTEMPTED 

A READ COMMAND IS ISSUED AND I BYTE IS READ. 
ENABLED FOR 1 INTERRUPT. 

EXPECTED RESPONSE 



THE CHANNEL IS 



COND. CODE 0 SHOULD BE SET ON THE START ; l-0, AND AFTER 
TRANSFERING 1 BYTE OF DATA, A CHANNEL ; AND DEVICE- END 
INTERRUPT SHOULD OCCUR* 

- OPERATION ATTEMPTED 

A WRITE COMMAND IS ISSUED 'AND I BLANK IS SENT* THE- CHANNEL 
IS ENABLED TWICE FOR INTERRUPTS® 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START I-O* * A CHANNEL END 
INTERRUPT SHOULD OCCUR, FOLLOWED BY A DEVICE ENO> INTERRUPT* 

- OPERATION ATTEMPTED 



DATE 

EC 



05 KAY 65 
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A READ COMMAND IS I SSUED AND 1 BYTE IS READ* THE CHANNEL IS 
ENABLED FOR 1 INTERRUPT* 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START 1-0, AND AFTER 
TRANSFERING 1 BYTE OF DATA, A CHANNEL AND DEVICE END 
INTERRUPT SHOULD OCCUR. 



- OPERATION ATTEMPTED 

A WRITE COMMAND IS I SSUED AND I BLANK IS SENT. 
IS ENABLED TWICE FOR INTERRUPTS. 

EXPECTED RESPONSE 



THE CHANNEL 



COND. CODE 0 SHOULD BE SET ON THE START 1-0. A CHANNEL END 
INTERRUPT SHOULD OCCUR, FOLLOWED BY A DEVICE END INTERRUPT* 



OPERATION ATTEMPTED 



A READ COMMAND IS ISSUED AND 1 BYTE IS READ. THE CHANNEL IS 
ENABLED FOR 1 INTERRUPT* 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START 1-0, AND AFTER 
TRANSFERING 1 BYTE OF DATA, A CHANNEL AND DEVICE END 
INTERRUPT SHOULD OCCUR. 



OPERATION ATTEMPTED 

A WRITE COMMAND IS ISSUED AND 1 BLANK IS SENT. 
IS ENABLED TWICE FOR INTERRUPTS. 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START I -0. A CHANNEL END 
INTERRUPT SHOULD OCCUR, FOLLOWED BY A DEVICE END INTERRUPT* 



THE CHANNEL 



- OPERATION ATTEMPTED 

A READ COMMAND IS ISSUED AND 1 BYTE IS READ* THE CHANNEL IS 
ENABLED FOR 1 INTERRUPT. 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START 1-0, AND AFTER 
TRANSFERING 1 BYTE OF DATA, A CHANNEL i AND DEVICE END 
INTERRUPT SHOULD OCCUR. 



©390 - OPERATION ATTEMPTED 

A WRITE COMMAND IS ISSUED AND I BLANK IS SENT* 
IS ENABLED TWICE :F0R< INTERRUPTS* ' 

EXPECTED RESPONSE ■ 



THE CHANNEL 



COND* CODE 0 SHOULD BE SET ON THE STARTED* A CHANNEL END 

INTERRUPT SHOULD OCCUR* FOLLOWED BY A DEViCt iNDf; INTERRUPT. 
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OPERATION ATTEMPTED 

A READ COMMAND IS ISSUED AND 1 BYTE tS READ. THE CHANNEL IS 
ENABLED FOR 1 INTERRUPT. 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START I-Q, AND AFTER 
TRANSFERING 1 BYTE OF DATA t A CHANNEL AND DEVICE END 
INTERRUPT SHOULD OCCUR* 



THE CHANNEL 



A WRITE COMMAND IS ISSUED AND 1 BLANK IS SENT 4 
IS ENABLED TWICE FOR INTERRUPTS. 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START I-Q. A CHANNEL END 
INTERRUPT SHOULD OCCUR* FOLLOWED BY A DEVICE END INTERRUPT. 



- OPERATION ATTEMPTED 

A READ COMMAND IS ISSUED AND 1 BYTE IS READ. 

ENABLED FOR 1 INTERRUPT. 

EXPECTED RESPONSE 



THE CHANNEL IS 



COND. CODE 0 SHOULD BE SET ON THE START 1-0, AND AFTER 
TRANSFERING I BYTE OF DATA, A CHANNEL AND DEVICE END 
INTERRUPT SHOULD OCCUR. 



- OPERATION ATTEMPTED 

A WRITE COMMAND IS ISSUED AND 1 BLANK IS SENT. THE CHANNEL 
IS ENABLED TWICE FOR INTERRUPTS. 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START I-€. A CHANNEL END 
INTERRUPT SHOULD OCCUR, FOLLOWED BY A DEVICE END INTERRUPT. 



OPERATION ATTEMPTED 

A READ COMMAND IS I SSUED AND 1 BYTE IS READ. THE CHANNEL IS 
ENABLED FOR 1 INTERRUPT. 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START 1-0, AND AFTER 
TRANSFERING 1 BYTE OF DATA, A CHANNEL AND DEVICE END 
INTERRUPT SHOULD OCCUR. 



- OPERATION ATTEMPTED 

A WRITE COMMAND IS ISSUED AND 1 BLANK IS SENT. THE CHANNEL 
IS ENABLED TWICE FOR INTERRUPTS. 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD HE SET ON THE START I-<G. A CHANNEL END 
INTERRUPT SHOULD OCCUR, FOLLOWED BY A DEVICE END INTERRUPT* 



DATE 05 MAY 65 10A0G65 22FEB66 15JUN6? ID F82Q-3 
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OPERATION ATTEMPTED 

A READ COMMAND IS ISSUED AND I BYTE IS READ. THE CHANNEL IS 
ENABLED FOR 1 INTERRUPT. 

EXPECTEO RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START t-0, AND AFT ER 

TRANSFERING 1 BYTE OF DATA, A CHANNEL AND DEVICE END 
INTERRUPT SHOULD OCCUR. 



OPERATION ATTEMPTED 

A WRITE COMMAND IS ISSUED AND 1 BLANK IS SENT. THE CHANNEL 
IS ENABLED TWICE FOR INTERRUPTS. 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START I-<0. A CHANNEL END 
INTERRUPT SHOULD OCCUR, FOLLOWED BY A DEVICE END INTERRUPT. 



- OPERATION ATTEMPTED 

A READ COMMAND IS ISSUED AND 1 BYTE IS READ. 
ENABLED FOR 1 INTERRUPT. 

EXPECTED RESPONSE 



THE CHANNEL IS 



COND. CODE 0 SHOULD BE SET ON THE START 1-0, AND AFT ER 
TRANSFERING 1 BYTE OF DATA, A CHANNEL AND DEVICE END 
INTERRUPT SHOULD OCCUR. 



- OPERATION ATTEMPTED 

A WRITE COMMAND IS ISSUED AND 1 BLANK IS SENT. THE CHANNEL 
IS ENABLED TWICE FOR INTERRUPTS. 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START 1-0. A CHANNEL END 
INTERRUPT SHOULD OCCUR, FOLLOWED BY A DEVICE ENO INTERRUPT. 



THE CHANNEL IS 



- OPERATION ATTEMPTED 

A READ COMMAND IS I SSUED AND 1 BYTE IS READ. 
ENABLED FOR 1 INTERRUPT. 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START 1-0, AND AFTER 
TRANSFERING 1 BYTE OF DATA, A CHANNEL AND DEVICE ENO 
INTERRUPT SHOULD OCCUR. 



> OPERATION ATTEMPTED 

A WRITE COMMAND IS ISSUED -AND 1 BLANK IS SENT. THE CHANNEL 
IS ENABLED TWICE FOR INTERRUPtS. 

EXPECTED RESPONSE ■ • 

COND- CODE 0 SHOULD BE SET ON THE START t-G* A CHANNEL ENO 
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INTERRUPT SHOULD OCCUR, FOLLOWED BY A DEVICE END INTERRUPT* 
OPERATION ATTEMPTED 



A READ COMMAND IS ISSUED AND 1 BYTE IS READ. 
ENABLED FOR 1 INTERRUPT. 



THE CHANNEL IS 



EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START I~0, AND AFTER 
TRANSFERING 1 BYTE OF DATA* A CHANNEL AND DEVICE END 
INTERRUPT SHOULD OCCUR. 



> OPERATION ATTEMPTED 

A WRITE COMMAND IS ISSUED AND 1 BLANK IS SENT. THE CHANNEL 
IS ENABLED TWICE FOR INTERRUPTS. 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START SH3. A CHANNEL END 
INTERRUPT SHOULD OCCUR, FOLLOWED BY A DEVICE END INTERRUPT. 



OPERATION ATTEMPTED 

A READ COMMAND IS ISSUED AND 1 BYTE IS READ. THE CHANNEL IS 

ENABLED .FOR 1 "INTERRUPT. 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START 1-0, AND AFTER 

TRANSFERING 1 BYTE OF DATA, A CHANNEL AND DEVICE. END 
INTERRUPT SHOULD OCCUR. 



- OPERATION ATTEMPTED 

A. WRITE COMMAND IS ISSUED AND 1 BLANK 'IS SENT. THE CHANNEL 

. IS ENABLED TWICE FOR INTERRUPTS. 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET -ON- THE START 1^0. A CHANNEL END 
INTERRUPT SHOULD OCCUR, FOLLOWED BY A DEVICE END INTERRUPT. 

- OPERATION ATTEMPTED 

A READ COMMAND IS ISSUED AND 1 BYTE IS READ. THE CHANNEL IS 
ENABLED .FOR I INTERRUPT. 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START S-0, AND AFTER 
TRANSFERING 1 BYTE OF DATA, A CHANNEL AND DEVICE END 
INTERRUPT SHOULD OCCUR. 



~ OPERATION ATTEMPTED 



A 'WRITE COMMAND IS ISSUED AND 1 BLANK IS SENT. 
IS ENABLED TWICE FOR INTERRUPTS. 



THE CHANNEL 



EXPECTED RESPONSE 

COND« CODE 0 SHOULD BE SET -'ON- THE .START = IHQ* A CHANNEL , END 
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* INTERRUPT SHOULD OCCURf FOLLOWED BY A DEVICE END INTERRUPT* 
* 

* 0580 - OPERATION ATTEMPTED 
* 

* A READ COMMAND IS ISSUED AND 1 BYTE IS READ. THE CHANNEL IS 

* ENABLED FOR 1 INTERRUPT. 

* 

* EXPECTED RESPONSE 
* 

* COND. CODE 0 SHOULD BE SET ON THE START I -0, AND AFTER 
. * TRANSFERING 1 BYTE OF DATA, A CHANNEL ANO DEVICE END 

* INTERRUPT SHOULD OCCUR. 

* 0590 - OPERATION ATTEMPTED 
* 

* A WRITE COMMAND IS ISSUED AND 1 BLANK IS SENT. THE CHANNEL 

* IS ENABLED TWICE FOR INTERRUPTS. 

* 

* EXPECTED RESPONSE 
* 

* COND. CODE 0 SHOULD BE SET ON THE START I -0. A CHANNEL END 

* INTERRUPT SHOULD OCCUR, FOLLOWED BY A DEVICE END INTERRUPT. 

* 

* 0595 - OPERATION ATTEMPTED 

* 

* A DIAGNOSTIC CHECK READ COMMAND IS ISSUED WITH 1 BYTE 

* REQUESTED. THIS IS DONE TO SATISFY THE REQUIREMENT THAT 

* A READ MUST FOLLOW A PFR WRITE COMMAND. IF THIS WAS NOT DONE, 

* COMMAND REJECT WOULD OCCUR FOR ALL FOLLOWING WRITE COMMANDS. 

* 

* EXPECTED RESPONSE 
* 

* COND. CODE 0 SHOULD BE SET ON THE START 1-0. CHANNEL AND 

* DEVICE END SHOULD OCCUR IN ONE CSW. 

* ■ 

* ************** 

* ROUTINE 10 

* ************** 

■ * 

* 0600 - OPERATION ATTEMPTED 

* 

* A WRITE COMMAND IS ISSUED AND 1 BLANK IS SENT 4 THE CHANNEL 

* IS ENABLED TWICE FOR INTERRUPTS. 

* 

* EXPECTED RESPONSE 

* COND. CODE 0 SHOULD BE SET ON THE START I-*). A CHANNEL END 

* INTERRUPT SHOULD OCCUR, FOLLOWED BY A DEVICE END* INTERRUPT. 

* 

* 0610 - OPERATION ATTEMPTED 
* 

* A WRITE COMMAND IS ISSUED AND 1 BLANK IS SENT 4 THE CHANNEL 

* IS ENABLED TWICE FOR INTERRUPTS. 

* 

* EXPECTED RESPONSE 
* 

* COND. CODE 0 SHOULD BE SET ON THE START t-O* A CHANNEL END 

* INTERRUPT SHOULD OCCURf FOLLOWED BY A OEVICE END INTERRUPT. 
* 

* 

* 0620 - OPERATION 'ATTEMPTED 
* 

* ' A -WRITE COMMAND IS ISSUED AND 1 BLANK IS SENT 4 . THE CHANNEL ' 

* IS ENABLED TWICE ; FOR; INTERRUPTS. 



DATE 05MAY65 10AUG65 22FEB66 15J0N6? ■ %n m2fr~3 

EC 124252 125580 : 125621 130498 . PAGE ' 6A 



oooooooooooooo 



oooooooooooocooc 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 

2540 PUNCH FUNCTION TESTS - SECTION i F820 



P/N 840191 
PAGE 7 



* 




* 




* 




* 




* 




* 




* 








* 


0630 


* 




* 












♦ 




* 
















* 




* 


0640 






* 








* 




* 




* 




* 




4* 
















ft 




♦ 




* 




* 




* 




* 




* 








* 




* 




* 












* 




* 


0660 










♦ 




* 
















* 




* 




* 






0670 


# 








* 




* 








* 




* - 












* 





EXPECTED RESPONSE 



COND. CODE 0 SHOULD BE SET ON THE START I-O. A CHANNEL END 
INTERRUPT SHOULD OCCUR, FOLLOWED BY A DEVICE END INTERRUPT. 

> OPERATION ATTEMPTED 

A WRITE COMMAND IS ISSUED AND 1 BLANK IS SENT. THE CHANNEL 
IS ENABLED TWICE FOR INTERRUPTS. 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START I-<0. A CHANNEL END 
INTERRUPT SHOULD OCCUR, FOLLOWED BY A DEVICE END INTERRUPT. 

- OPERATION ATTEMPTED 

A WRITE COMMAND IS ISSUED AND 1 BLANK IS SENT 4 THE CHANNEL 
IS ENABLED TWICE FOR INTERRUPTS. 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START I-O. A CHANNEL END 

INTERRUPT SHOULD OCCUR? FOLLOWED BY A DEVICE END INTERRUPT. 

- OPERATION ATTEMPTED 

A WRITE COMMAND IS ISSUED AND 1 BLANK IS SENT* THE CHANNEL 
IS ENABLED TWICE FOR INTERRUPTS. 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START 1^0. A CHANNEL END 
INTERRUPT SHOULD OCCUR, FOLLOWED BY A DEVICE END INTERRUPT. 



************** 

ROUTINE 11 
************** 

- OPERATION ATTEMPTED 

A WRITE COMMAND IS ISSUED AND 1 BLANK IS SENT. THE CHANNEL 
IS ENABLED TWICE FOR INTERRUPTS. 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START I-O. A CHANNEL END 
INTERRUPT SHOULD OCCUR, FOLLOWED BY A DEVICE END INTERRUPT. 

- OPERATION ATTEMPTED 

A WRITE COMMAND IS ISSUED AND 1 BLANK IS SENT. THE CHANNEL 
IS ENABLED TWICE FOR INTERRUPTS. 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START I-<0. . A CHANNEL END 
INTERRUPT SHOULD OCCUR, FOLLOWED BY A OEVICE END INTERRUPT. 

* 0680 - OPERATION ATTEMPTED 
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A WRITE COMMAND IS ISSUED AND 1 BLANK IS SENT* THE CHANNEL 
IS ENABLED TWICE FOR INTERRUPTS. 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START I if). A CHANNEL END 
INTERRUPT SHOULD OCCUR, FOLLOWED BY A DEVICE END INTERRUPT. 



OPERATION ATTEMPTED 

A WRITE COMMAND IS I SSUED AND 1 BLANK IS SENT* 
IS ENABLED TWICE FOR INTERRUPTS. 



THE CHANNEL 



EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START 1-0. A CHANNEL END 
INTERRUPT SHOULD OCCUR, FOLLOWED BY A DEVICE END INTERRUPT. 



- OPERATION ATTEMPTED 

A WRITE COMMAND IS I SSUEO AND 1 BLANK IS SENT* THE CHANNEL 
IS ENABLED TWICE FOR INTERRUPTS. 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START I -CI. A CHANNEL END 
INTERRUPT SHOULD OCCUR, FOLLOWED BY A DEVICE END INTERRUPT. 



- OPERATION ATTEMPTED 

A WRITE COMMAND IS ISSUED AND 1 BLANK IS SENT* 
IS ENABLED TWICE FOR INTERRUPTS. 

EXPECTED RESPONSE 



THE CHANNEL 



COND. CODE 0 SHOULD BE SET ON THE START I-O. A CHANNEL END 
INTERRUPT SHOULD OCCUR, FOLLOWED BY A DEVICE END INTERRUPT. 



- OPERATION ATTEMPTED 

A WRITE COMMAND IS ISSUED AND 1 BLANK IS SENT* 
IS ENABLED TWICE FOR INTERRUPTS. 



THE CHANNEL 



EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START I-O. A CHANNEL END 
INTERRUPT SHOULD OCCUR, FOLLOWED BY A DEVICE END INTERRUPT. 



THE CHANNEL 



- OPERATION ATTEMPTED 

A WRITE COMMAND IS ISSUED AND 1 BLANK IS SENT* 
IS ENABLED TWICE FOR INTERRUPTS. 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START I-O. A CHANNEL END 
INTERRUPT SHOULD OCCUR, FOLLOWED BY A DEVICE END INTERRUPT. 



OPERATION ATTEMPTED 

A WRITE COMMAND IS ISSUED AND 1 BLANK IS SENT* THE CHANNEL 
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* IS ENABLED TWICE FOR INTERRUPTS* 

* , 

* EXPECTED RESPONSE 
* 

* CONO. CODE 0 SHOULD BE SET ON THE START 1-0. A CHANNEL END 

* INTERRUPT SHOULD OCCUR, FOLLOWED BY A DEVICE END INTERRUPT » 

* 0750 - OPERATION ATTEMPTED 
* 

* A WRITE COMMAND IS ISSUED AND I BLANK IS SENT. THE CHANNEL 

* IS ENABLED TWICE FOR INTERRUPTS. 

* 

* . EXPECTED RESPONSE 
* 

* COND. CODE 0 SHOULD BE SET ON THE START 1-0* A CHANNEL END 

* INTERRUPT SHOULD OCCUR, FOLLOWED BY A DEVICE END INTERRUPT. 

* 

* 0760 - OPERATION ATTEMPTED 

* , 

* ■ A WRITE COMMAND IS ISSUED AND I BLANK IS SENT. THE CHANNEL 

* IS ENABLED TWICE FOR INTERRUPTS. 

* 

* - EXPECTED RESPONSE 
* 

* < ■ COND. CODE © SHOULD 'BE SET ON THE START 1-0. A CHANNEL END 

* ' INTERRUPT SHOULD OCCUR r FOLLOWED BY A DEVICE END INTERRUPT. 

* 

* 0770 OPERATION ATTEMPTED 

• * A WRITE COMMAND IS ISSUED AND 1 BLANK IS SENT. THE CHANNEL 

* IS ENABLED TWICE FOR. INTERRUPTS® 

* ■ EXPECTED RESPONSE 

* ' COND. CODE 0 SHOULD BE SET ON THE START I-*0. A CHANNEL END 

* ■■ INTERRUPT SHOULD OCCUR, FOLLOWED BY A DEVICE END INTERRUPT. 

* 

* ************** 

* • ROUTINE 12 

* ************** 
* 

* 

* 0780 ~ OPERATION ATTEMPTED 
* 

* A READ COMMAND IS ISSUED AND I BYTE IS READ. THE CHANNEL IS 

* ENABLED FOR 1 INTERRUPT© 
* 

* • EXPECTED RESPONSE 
* 

* COND. CODE 0 SHOULD BE SET ON THE START. I -0, AND AFTER 

* • TRANSFERING 1 BYTE OF DATA, A CHANNEL AND DEVICE END 

* ' INTERRUPT SHOULD OCCUR. 

* . 

* 0790 ~ OPERATION ATTEMPTED 

* . 

* A READ COMMAND IS ISSUED AND 1 BYTE IS READ. THE CHANNEL IS 

* ENABLED FOR I INTERRUPT. 

* . 

* EXPECTED RESPONSE 
* 

* CONO. CODE 0 SHOULD BE SET ON THE START 1-0, AND AFTER 

* • TRANSFERING i BYTE OF DATA* A CHANNEL AND DEVICE- END 

* INTERRUPT SHOULD OCCUR. ' 



©ATI 05MAY65 10AUG65 22FEB66 19JUN67 . ?n z®^-* 

EC > 124252 125580 . 125621 130498 • ' JJ[ CE F82C ^ 3 
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* 




* 




* 


0800 


* 




* 




* 




* 




♦ 




* 




* 




* 




* 




* 




* 




* 


0810 


* 




* 




* 




* 




* 




* 




* 




♦ 




* 




* 




* 




* 


0820 


* 




* 




* 




* 




* 




* 




* 




* 




* 




* 




* 


0830 


* 




* 




* 




* 




* 




* 




* 




* 




* 




* 




* 




* 


0840 


* 




* 




* 




♦ 




* 




* 




* 




* 




* 




*■ 




* 




* -085© 


* 




* 




* 




* 




* 




* 





> OPERATION ATTEMPTED 

A READ COMMAND IS ISSUED AND 1 BYTE IS READ. 
ENABLED FOR 1 INTERRUPT. 

EXPECTED RESPONSE 



THE CHANNEL IS 



COND. CODE 0 SHOULD BE SET ON THE START 1-0, AND AFTER 
TRANSFERING 1 BYTE OF DATA, A CHANNEL AND DEVICE END 
INTERRUPT SHOULD OCCUR. 



- OPERATION ATTEMPTED 

A READ COMMAND IS ISSUED AND 1 BYTE IS READ. THE CHANNEL IS 
ENABLED FOR 1 INTERRUPT. 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START 1-0, AND AFTER 
TRANSFERING 1 BYTE OF DATA, A CHANNEL AND DEVICE END 
INTERRUPT SHOULD OCCUR. 



> OPERATION ATTEMPTED 

A READ COMMAND IS ISSUED AND 1 BYTE IS READ. THE CHANNEL IS 
ENABLED FOR 1 INTERRUPT. 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START 1-0, AND AFTER 
TRANSFERING 1 BYTE OF DATA, A CHANNEL AND DEVICE END 
INTERRUPT SHOULD OCCUR. 

- OPERATION ATTEMPTED 

. A READ COMMAND IS I SSUED AND 1 BYTE IS READ. THE CHANNEL IS 
ENABLED FOR 1 INTERRUPT. 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START 1-0, AND AFTER 
TRANSFERING 1 BYTE OF DATA, A CHANNEL AND DEVICE END 
INTERRUPT SHOULD OCCUR. 



- OPERATION ATTEMPTED 

A READ COMMAND IS ISSUED AND 1 BYTE IS READ. THE CHANNEL IS 
ENABLED FOR 1 INTERRUPT. 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START 1-0, AND AFTER 
TRANSFERING 1 BYTE OF .DATA # A CHANNEL AND DEVICE END 
INTERRUPT SHOULD OCCUR* 



OPERATION ATTEMPTED 

A READ COMMAND IS ISSUED AND 1 .BYTE'. IS READ. 
ENABLED FOR 1 INTERRUPT** 

EXPECTED : RESPONSE . 



THE CHANNEL IS 
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♦ 








* 








* 






0860 










* 




* 












* 




* 








♦ 




* 




* 


0870 


























* 












♦ 




♦ 




* 


0880 






♦ 




* 




* 




* 




♦ 




* 












* 




♦ 




* 


0890 






* 




* 








* 




♦ 








* 








* 




* 






0900 


















* 




* 




* 




* 




* 




* 








* 


0910 


* 









COND. CODE 0 SHOULD BE SET ON THE START I -0, AND AFTER 
TRANSFERING 1 BYTE OF DATAt A CHANNEL AND DEVICE END 
INTERRUPT SHOULD OCCUR, 



- OPERATION ATTEMPTED 

A SENSE COMMAND IS ISSUED. 
INTERRUPT. 

EXPECTED RESPONSE 



THE CHANNEL IS ENABLED FOR ONE 



EXPECT COND. CODE 0 ON THE START 1-0, AND AFTER TRANSFERING 
ONE BYTE OF DATA, A CHANNEL AND DEVICE END INTERRUPT SHOULD 
OCCUR 



- OPERATION ATTEMPTED 

A SENSE COMMAND IS ISSUED. 
INTERRUPT. 

EXPECTED RESPONSE 



THE CHANNEL IS ENABLED FOR ONE 



EXPECT COND. CODE 0 ON THE START 1-0, AND AFTER TRANSFER ING 
ONE BYTE OF DATA, A CHANNEL AND DEVICE END INTERRUPT SHOULD 
OCCUR 



- OPERATION ATTEMPTED 

A SENSE COMMAND IS ISSUED. THE CHANNEL IS ENABLED FOR ONE 
INTERRUPT. 

EXPECTED RESPONSE 

EXPECT COND. CODE 0 ON THE START 1-0, AND AFTER TRANSFERING 
ONE BYTE OF DATA, A CHANNEL AND DEVICE END INTERRUPT SHOULD 
OCCUR 



- OPERATION ATTEMPTED 

A SENSE COMMAND IS ISSUED. 
INTERRUPT. 

EXPECTED RESPONSE 



THE CHANNEL IS ENABLED FOR ONE 



EXPECT COND. CODE 0 ON THE START 1-0, AND AFTER TRANSFERING 
ONE BYTE OF DATA, A CHANNEL AND DEVICE END INTERRUPT SHOULD 
OCCUR 



- OPERATION ATTEMPTED 

A SENSE COMMAND IS ISSUED. 
INTERRUPT. 

EXPECTED RESPONSE 



THE CHANNEL IS ENABLED FOR ONE 



EXPECT COND. CODE 0 ON THE START 1-0, AND AFTER TRANSFERING 
ONE BYTE OF DATA, A CHANNEL AND DEVICE END INTERRUPT SHOULD 

OCCUR 



OPERATION ATTEMPTED 

A SENSE COMMAND IS ISSUED. THE CHANNEL 'IS' ENABLED FOR ONE 
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* 
* 

* 

* 0920 
* 

* . 

* 
* 
♦ 
* 
* 
* 
# 

* 0930 
* 

* 

♦ 

* 

* 
* 

* 0940 

* 
* 

* . 

* . 
* 

* 0950 
* 

* 

* 
* 
* 
* 
* 

* 0960 



INTERRUPT* 
EXPECTED RESPONSE 

EXPECT COND. CODE 0 ON THE START 1-0, AND AFTER TRANSFER IN6 
ONE BYTE OF DATA, A CHANNEL AND DEVICE END INTERRUPT SHOULD 
OCCUR 

OPERATION ATTEMPTED 

A SENSE COMMAND IS ISSUED. THE CHANNEL IS ENABLED FOR ONE 
INTERRUPT- 

EXPECTED RESPONSE 

EXPECT COND. CODE 0 ON THE START 1-0, AND AFTER TRANSFERING 
ONE BYTE OF DATA, A CHANNEL AND DEVICE END INTERRUPT SHOULD 
OCCUR 



- OPERATION ATTEMPTED 

A SENSE COMMAND IS ISSUED. THE CHANNEL IS ENABLED FOR ONE 
INTERRUPT. 

EXPECTED RESPONSE 

EXPECT COND. CODE 0 ON THE START 1-0, AND AFTER TRANSFERING 
ONE BYTE OF DATA, A CHANNEL AND DEVICE END INTERRUPT SHOULD 
OCCUR 



OPERATION ATTEMPTED 



A SENSE COMMAND IS ISSUED. 
INTERRUPT. 



EXPECTED RESPONSE 



THE CHANNEL IS ENABLED FOR ONE 



EXPECT COND. CODE 0 ON THE START 1-0, AND AFTER TRANSFERING 
ONE BYTE OF DATA, A CHANNEL AND DEVICE END INTERRUPT SHOULD 
OCCUR 



- OPERATION ATTEMPTED 

A SENSE COMMAND IS ISSUED. THE CHANNEL IS ENABLED FOR ONE 
INTERRUPT. 

EXPECTED RESPONSE 

EXPECT COND. CODE 0 ON THE START 1-0, AND AFTER TRANSFERING 
ONE BYTE OF DATA, A CHANNEL AND DEVICE END INTERRUPT SHOULD 
OCCUR 



OPERATION ATTEMPTED 

A SENSE COMMAND IS ISSUED. 
INTERRUPT* 

EXPECTED RESPONSE 



THE CHANNEL IS ENABLED FOR ONE 



EXPECT COND. CODE 0 ON THE START 1-0, AND AFTER TRANSFERING 
ONE BYTE OF DATA, A CHANNEL AND DEVICE END INTERRUPT SHOULD 

OCCUR 



DATE 

EC - : 



05 MAY 65 
124252 



10AUG65 
125580 : 



22FEB66 
125621 



15JUN67 

130498 
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* 0910 - OPERATION ATTEMPTED 



* INTERRUPT? MMAND 1S ISSUED - ™ E CHANNEL 15 ENABLED FOR ONE 

* EXPECTED RESPONSE 
* 

* EXPECT COND. CODE 0 ON THE START I-O, AND AFTER TRANSFER ING 
t ScCuS VTE ° F ° ATAt A CHANNEL AND DEVI CE END INT ERRUPTSHOULD 



* 098© - OPERATION ATTEMPTED 

* INTERRUPt!^ AND IS !SSUED * THE CHANNEL !S ENABLED FOR ONE 

* • EXPECTED RESPONSE 

* EXPECT COND. CODE 0 ON THE START I-O, AND AFTER TRANSFER ING 
! ONE BYTE OF DATA, A CHANNEL AND DEVICE END INTERRUPT SHOULD 

• OCCUR 

* ©99© - OPERATION ATTEMPTED 

* . 

* ' IN?ERRUPT? MMAN ° IS ISSUED# THE CHANNEL IS ENABLED FOR ONE 

* 

* EXPECTED RESPONSE 
* 

* EXPECT COND* CODE 0 ON THE START I-O, AND AFTER TRANSFERING 

J Tcm 1E ° F DATA# A tmumi mo DEVI ^ E " D interrSpt shS^d 

* 
* 

* 1000 - OPERATION ATTEMPTED ■ 
* 



* • IMTERRUPT? MMAMD " ISSUE °* ™ E €mm % L SS ENABLED FOR ONE 

* • EXPECTED RESPONSE 

* . 

I nZ E *Z™"»\ C ™* ? 2 H ™ E START AND AFTER TRANSFER ING 

* SSf,5 VTE 0F DATA * CHANNEL AND DEVICE END INTERRUPT SHOULD 
' OCCUR 



* 1010 » .OPERATION ATTEMPTED 



* , ?NT£RRUPT? MMAND 15 ISSUED * ™ E CHANNEL IS ENABLED FOR ONE 

* 

* EXPECTED RESPONSE 

* EXPECT COND* CODE 0 ON THE START I-O f AND AFTER TRANSFERING 
: ONE^BYTE OF DATA, A CHANNEL AND DEVICE END INTERRUPT SHOULD 

* 
* 

* ************** 

* ROUTINE 13 

* ************** 

* 



******************^***********^^^^ # ^^ Wj|tj|| 
* NOTE— THIS ROUTINE IS BYPASSED -UNLESS SECTION SENSE SWITCH 5 IS ON 
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* 

* 1020 - OPERATION ATTEMPTED 

* ■ 

* A NOP SIO IS ISSUED TO A NOT READY DEVICE* 
* 

* EXPECTED RESPONSE 
* 

* EXPECT UNIT CHECK ALONE AND COND. CODE OF 1. A SENSE IS 

* ISSUED AND INTERVENTION REQUIRED SHOULD BE IN THE SENSE BYTE. 

* 

* 1030 - OPERATION ATTEMPTED 

* , 

* A TEST 1-0 IS ISSUED TO A NOT READY DEVICE. 

* 

* EXPECTED RESPONSE 

* . 

* EXPECT UNIT CHECK ALONE AND COND. CODE OF 1. A SENSE IS 

* ISSUED AND INTERVENTION REQUIRED SHOULD BE IN THE SENSE BYTE. 

* 
♦ 

* 1040 - OPERATION ATTEMPTED 

* . 

* ISSUE A HALT 1-0 TO NOT READY DEVICE. 

* 

* EXPECTED RESPONSE 

* COND. CODE 1 SHOULD BE SET AND A CSH WITH NO BITS ON STORED. 

* ************** 

* ROUTINE 14 

* ************** 

*• 

***************************************** 4t *^************************* 4l * 

* NOTE-THIS ROUTINE BYPASSED UNLESS SECTION SNS SW 5 AND 8 BOTH ON* 
*********************************************************************** 

* 

* 1050 ~ OPERATION ATTEMPTED 

* A NOP SIO IS ISSUED TO A NOT 'AVAILABLE DEVICE* IOFF LINE ) 
* 

* EXPECTED RESPONSE 

•■ * 

* COND. CODE 3 SHOULD BE SET (NOT OPERATIONAL} 

* 1060 - OPERATION ATTEMPTED 
* 

* A TEST 1-0 IS ISSUED TO A NOT AVAILABLE DEVICE* IOFF LINE! 
* 

. ' » • . EXPECTED RESPONSE 

* . 

. ■ COND. CODE 3 SHOULD BE SET t NOT OPERATIONAL* 

* 

* 1070 - OPERATION ATTEMPTED 

* A HALT 1-0 IS ISSUED TO A NOT l AVAILABLE DEVICE* IOFF LINE! 
* 

* • EXPECTED RESPONSE 

* COND* CODE 3 SHOULD BE SET INOT OPERATIONAL!* 

* . 

* . . 

* ROUTINE 15 

DATE 05NAY65' 10AUG65 22FE866 154 UN 67 10 F820-3 
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*********************************************************************** 

* NOTE— THIS ROUTINE IS BYPASSED UNLESS SECTION SENSE SM 5 IS ON. 
*********************************************************************** 

* 

1080 - OPERATION ATTEMPTED 



A TEST 1-0 TO A DEVICE THAT JUST WENT FROM NOT READY TO READY. 
EXPECTED RESPONSE 

EXPECT DEVICE END ALONE, WITH A COND. CODE 1. 



001000 


F8203000 


SECNO 


DC 


XL4«F 8203000 • 


001004 


00000000 


SNSW 


DC 


XL4»00» 


001008 


0000 




DC 


XL2»00« 


00100A 


0000 


ICM 


DC 


XL2»00« 


00100C 


00 


SDMF 


DC 


XLl'DO 1 


00100D 


01 


NIOU 


DC 


XLl'Ol* 


00100E 


CO 


FLAG1 


DC 


X»CO« 


00100F 


00 


FLAG2 


DC 


X»00 $ 


ooioio 


0104000000 


INPSW 


DC 


X , 0104000000« 


001015 


001760 




DC 


AL3(R0UT01) 


001018 


0000000000000000 


EXOPSW 


DC 


XL8«0« 


001020 


0000000000000000 


SVOPSW 


DC 


XL8»00« 


001028 


0000000000000000 


PGOPSW 


DC 


XL8«00« 


001030 


0000000000000000 


MCOPSW 


DC 


XL8»00» 


001038 


0000000000000000 


IOOPSW 


DC 


XL8«00 < 


001040 


0000000000000000 


CSW 


DC 


XL8«00« 


001048 


00000000 


CAW 


DC 


XL4»00« 


00104C 


000000000000000000 




DC 


XL12«00« 


001055 


000000 








001058 


0004000000 


EXNPSW 


DC 


X» 0004000000* 


00105D 


000000 


SRET 


DC 


XL3»0« 


001060 


0000000000000000 


SVNPSW 


DC 


XL8«00« 


001068 


0000000000000000 


PGNPSW 


DC 


XL8»00« 


OOIOTO 


0000000000000000 


MCNPSW 


DC 


XL8«00« 


001078 


01040000 


IONPSW 


DC 


XL4»01040000« 


ooi ore 


00001214 




DC 


AL4( IRETRN) 


001080 






DS 


96C 


0010E0 


82 


UNIT1 


DC 


X»82' 


OOlftEl 


00 


U10P 


DC 


X»00« 


0010E2 


8000 


U1ADDR 


DC 


X«8000» 



*********************************************************************** 
******************* ******************* 

* SECTION PREFACE *********************************** SECTION PREFACE * 
******************* ******************* 

PROGRAM, SECTION AND REVISION NOS. * 

SECTION SENSE SWITCHES * 

* 

INTERRUPTION CONDITION MASK * 

SECTION DM FLAGS * 

NUMBER OF UNIT TABLE ENTRY S * 

EXCLUSIVE CPU * 

I/O INT ARE ERR, EXT INT TO PROG * 

DISABLED, SPVSR STATE, NO PGM MASK * 

ADR OF 1ST ROUTINE PREFIX * 

SECTION OLD EXTERNAL PSW * 

CLEAR ALL OLD PSWS * 

PROGRAM OLD PSW * 

MACHINE CHECK OLD PSW * 

I/O OLD PSW * 

CHANNEL STATUS WORD * 

CAW * 

RESERVED FOR DM USE * 

EXTERNAL NEW PSW * 

ADR OF EXT INTRPT ROUTINE * 

SUPERVISOR NEW PSW * 

PROGRAM NEW PSW * 

MACHINE CHECK NEW PSW * 

I/O NEW PSW * 

ADDRESS OF I/O INTRPT ROUTINE * 

96 BYTE REG DUMP AREA FOR DM USE * 
UNIT TYPE - 2540 PUNCH 

OPTIONAL FEATURES BYTE * 

FLAGS AND CHAN/UNIT ADDRESS * 
*********************************************************************** 

**********************************************************^ 

* 2540 PUNCH OPTIONAL FEATURES ASSIGNMENT 

*********************************************************************** 

* 

* UNITITYPE I OPTIONAL FEATURE DIGIT 1 I OPTIONAL FEATURE DIGIT 2 
****** i *****x****************************| ***************************** 



* I 

* I 
♦2540 I 
♦PUNCHI 

* I 



82 



IBIT 

IHEX 
I 
I 
I 



BIT 1 
HEX 4 
CARD 
IMAGE 



BIT 2 
HEX 2 
PUNCH 
FEED 
READ 



BIT 3 
HEX 1 
51 COL 
FEAT. 



BIT 4 
HEX 8 
1400 
COMPAT 
FEAT. 



BIT 
HEX 



BIT 
HEX 



BIT 7 
HEX 1 
2 CHAN 
SW. ON 
2821 



****** I***** 1****************************1 **4t************************** 
* 

*********************************************************************** 
******************4t**********^ 

* 2540 PUNCH DIAGNOSTIC CHECK READ BYTE 

*********************************************************************** 
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* 


BIT 


MEANING 


-* . 


0 


NOT USED 


* 


1 


NOT USED 


♦ . 


2 


NOT USED 


* 


3 


X UPPER CHECK PLANE 


* 


4 


X LOWER CHECK PLANE 


* . 


5 


BUFFER PARITY CHECK 


* 


6 


PUNCH TRANSLATE CHECK 


* . 


7 


PUNCH BUFFER ADDRESS CHECK 



*********************************************************************** 
*********************************************************************** 

* 2540 PUNCH SENSE BYTE 

*********************************************************************** 

* BIT MEANING 

* 0 COMMAND REJECT - INVALID COMMAND ISSUED TO THE PUNCH 

* 1 INTERVENTION REQUIRED 

* 2 BUS OUT CHECK - PARITY ERROR 

* 3 EQUIPMENT CHECK - TRANSLATE CHECK, ADDRESS CHECK, 

* DATA REGISTER PARITY ERROR, OR A HOLE COUNT ERROR. 

* 4 DATA CHECK 

* 5 OVERRUN - NOT USED 

* 6 UNUSUAL COMMAND SEQUENCE 

* 7 NOT USED 

*********************************************************************** 
*********************************************************************** 

* 2540 PUNCH STATUS BYTE 

*********************************************************************** 

* BIT MEANING 

* 0 ATTENTION - NOT USED FOR THE 2540 PUNCH 

* 1 STATUS MODIFIER - 2 CHANNEL SWITCH FEATURE ONLY 

* 2 CONTROL UNIT END - 2 CHANNEL SWITCH FEATURE ONLY 

* 3 DEVICE BUSY 

* 4 CHANNEL END 

* 5 DEVICE END 

* 6 UNIT CHECK 

* 7 UNIT EXCEPTION - NOT USED FOR THE 2540 PUNCH 
*********************************************************************** 

*********************************************************************** 

* PARAMETERS USED TO ENTER 

* THE 1-0 HANDLER ROUTINE 

*********************************************************************** 



* 


BAL 


R11,ISI0 


LINK TO 1-0 HANDLER 


* 


DC 


XL2 , 0000« 


CONTROL SWITCHES 


* 


DC 


X«0014 e 


TEST NO. IN DEC EXPRESSED IN HEX 


* 


DC 


X»FO» 


EXPECTED COND. CODE 


* 


DC 


X»00» 


EXPECTED SENSE DATA 


* 


DC 


AL2 ( ADR-BASE+REG) 


ADDR. OF EXPECTED CSW IF NEEOED 



*********************************************************************** 

*********************************************************************** 

* 1-0 HANDLER CONTROL SWITCHES 

* 2 BYTE PARAMETER FOLLOWING BAL 

*********************************************************************** 



* SWITCH 



DESCRIPTION 



* . 


0 • ■ 


OFF 




ISSUE AN I-Q COMMAND 


* . 




ON 




DO NOT ISSUE AN 1-0 COMMAND 


* 




OFF 




ENABLE 


* , 




ON 




DO NOT ENABLE 


* . 


2 ~ 


OFF 




EXPECT NO INTERRUPT 


* . 




ON 




EXPECT AN INTERRUPT 


* « 


% . 


OFF 




DO NOT EXPECT 2 INTERRUPTS 


* . 




ON 




EXPECT 2 INTERRUPTS 


* . 


' 4 • _ . 


OFF 




EXPECT NO CSWS 


* 




ON 




EXPECT A CSW 


* . 


5 


OFF 




DO NOT EXPECT 2 CSWS 


* . 




ON 




EXPECT 2 CSWS 


* , 


6 r • 


OFF 




ALWAYS TRY TO ISSUE SENSE 


* . 
* 




ON 




SENSE ON UNIT CHECK ONLY 



DATE 

EC 
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001064 



0000 



0010E6 ■ 


92 


9E 


F 


1AE 






00106A 


92 


C8 


F 


639 






OOIOEE 


92 


C8 


F 


SAO 






0010F2 


92 


9E 


F 


164 






001 0F6 


4? 


FO 


. F 


HE 






OOiOFA 


92 


90 


F 


1AE 






0010FE 


92 


9D 


F 


164 






001102 


92 


E3 


F 


639 






001106 < 


92 


£3 


F 


SAO 






OOUOA 


4? 


■ FO 


F 


HE 






OOliOE 


92 


9C 


F 


IAE 






001112 


92 


9C 


F 


164 






001116 


92 


E2 


F 


639 






00111A 


92 


E2 


F 


SAO 






oome 


02 


01 


F 


61C 


B 


©02 


001124 


90 


m 


P 


688 






001123 


m 


39 


F 


560 






00112C 


02 


00 


F 


673 


F 


•80S 


001132 


50 


AD 


0 


048 






001136 


92 


40 




608 






001 13A 


m 


4E 


F 


609 


F 


603 


001140 


07 


07 


D 


040 


D 




001146 


07 


m 


E 


080 


E 


080 




91 


m 


8 


000 







* SWITCHES USED BY I-Q HANDLER 

* SWITCH DFSrRfPTTnM 



SWITCH DESCRIPTION 

0 OFF - NO HANGUP ON INTERFACE 

ON - HANGUP OCCURRED 

| OFF - NO CSWS. STORED 

ON - ONE CSW STORED 

2 OFF - SECOND CSW NOT RECEIVED 

ON - SECOND CSW RECEIVED 

3 — - OFF - DID NOT ENABLE 
ON - ENABLED ONCE 

* OFF - DID NOT ENABLE TWICE 

ON - ENABLED TWICE 

5 — - OFF - NO SENSE DATA RECEIVED 
ON - SENSE DATA RECEIVED 

6 OFF - NO UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 
ON - UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 

. 7 : w„ OFF ~ NO ERROR DETECTED 

ON - AN ERROR WAS DETECTED 

* * REGISTERS USED IN 1-0 HANDLER 
***^**«*^*********####*^ 

* REG COMMENTS 
5 USED AS LINK TO ERROR OUTPUT FROM INITIALIZE ROUTINE IF 

PREVIOUS HANGUP ON INTERFACE DETECTED. 



10 



11 



12 



USED AS WORK REGISTER, WILL BE RESTORED UPON RETURN. 
USED AS WORK REGISTER. WILL BE RESTORED UPON RETURN. 
MUST CONTAIN CCW ADDRESS UPON ROUTINE ENTRY 
MUST BE USED AS LINK REG TO THIS ROUTINE 
«UST CONTAIN DEVICE ADORESS 



*»**************************»*^^ 

* ^ * !-0 HANDLER SUB-ROUTINE ♦ 

*****^****"******^************^ 

IHIO MVI ISSUE.X»9E« SET UP FOR HALT 1-0 

MOVE -H- TO OPTION MSG. 



ITIO 



ISIO 



MVI 
MVI 
MVI 

MVI 
BC 
MVI 

MVI 
MVI 
MVI 
BC 
MVI 
MVI 
MVS 

mt • 

IEYEOH MVC* 
STM i 

STN : 

mt ■ 
sr 

MVI 

mc 
xc 
xc 

TM 



SOMAN 



ISSUE, X»9E« 
I0PT1+25*X»C8« 
I0ADDR+12,X«C8» ' 

IL00P,X»9£ 8 
UNC, IEYEOH 
ISSUE, X«9D 6 
IL0GP,X 8 9D« 
I0PT1>25,X«E3« . 
I0ADDR*12t X»E3 e 
UNC » IEYEOH 
ISSUE„X 9 9C 9 
1LQ0P#X S 9C® 
IOPTl+25,X»E2« ' 
IOA0D§U12,X 8 E2® 
ITSTNO*5t2?,2CR115 
R10,R11,ISLAVE 
R8,R9,ISAVE 
RTSVtl>,SECN0*3 
R10»HCAN<ftl3) 
PCHAR,C e 

PCHAR+i<795,PCHAR 
HCSW«8,R13),HCSW<R13) 
L0GQU?U2,R14) * LOGOUT IR14 1 " 
• OCRlt|»X«BO<- tmm CONTROL SWITCH FOR NO- 1-0 



BR. UNCONDITIONAL 

SET UP FOR TEST 1-0 

MOVE -T- TO OPTION MSG. 

BR. UNCONDITIONAL 
SET UP FOR START 1-0 

MOVE -S- TO OPTION MSG. 

SAVE TEST ^ NUMBER •■ 
SAVE REG 10 AND REG 11 
SAVE REGS 8 AND 9 
SAVE RT NO. FOR HANGUP. 
STORE COMMAND ADDRESS 

CLEAR WORK AREA. 
CLEAR WORK AREA« 



DATE 

EC 



05 MAY 65. 
124252 



10AUG65 
125580 



22FEB66 
125621 



15JUN67 ; 

130498 
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001150 
001154 
001158 



DATE 

.EC . 



47 10 F 1E4 
91 CO F 004 
47 80 F 1A0 



BC ALL,IN0W BR. IF ON 

TM SNSW,X»CO« 

BC NONE t JOHN 

* SENSE SWITCH LOOPS 



00115C 


91 


80 


F 


004 


1TRY1 


TM 


SNSW-tXtBO' 


CHECK SECTION SENSE SWITCH 0 


001160 


47 


80 


F 


16C 




BC 


NONE, ITRY2 


BR. IF OFF 


001164 


9C 


00 


C 


000 


ILOOP 


SIO 


01R12) 


SIO, TIO, OR HIO 


001168 


47 


FO 


F 


15C 




BC 


UNCtlTRYl 


BR. UNCONDITIONAL 


00116C 


91 


40 


F 


004 


ITRY2 


TM 


SNSW f X«40' 


CHECK SECTION SENSE SWITCH 1 


001170 


47 


80 


F 


18C 




BC 


NONE, IHI 


BR. IF OFF 


001174 


90 


00 


C 


000 


IHANG 


TIO 


0(R12» 


TEST 1-0 


001178 


47 


70 


F 


15C 




BC 


NCC0,ITRY1 


BR. IF NOT COND. CODE 0 


00117C 


91 


40 


F 


004 




TM 


SNSW,X«40* 


CHECK SECTION SENSE SWITCH 1 


001180 


47 


80 


F 


18C 




BC 


NONE, IHI 


BR. IF OFF 


001184 


9C 


00 


C 


000 




SIO 


0(R12) 


START 1-0 


001188 


47 


FO 


F 


174 




BC 


UNC, IHANG 


BR. UNCONDITIONAL 


00118C 


58 


IE 


0 


198 


IHI 


L 


R1,WT(14) 




001190 


88 


10 


0 


003 




SRL 


Rl,3 




001194 


90 


00 


C 


000 


GREG 


TIO 


0CR12) 




001198 


47 


80 


:F 


1A0 




BC 


CCO, JOHN 




00119C 


46 


10 


F 


194 




BCT 


RlsGREG 




0011A0 


07 


01 


F 


0E4 F 0E4 


JOHN 


XC 


ISW(2) vISW 




0011A6 


96 


80 


F 


0E4 




01 


ISW,X«80» 




0011AA 


92 


£7 


F 


58F 




MVI 


IACTCC*5,C f X* 


MOVE IN A -X- 


0011AE 


9C 


00 


C 


000 


ISSUE 


SIO 


0(R12> 


1-0 COMMAND- SIO, TIO f OR HIO 


0011B2 


47 


80 


F 


1E0 




BC 


CCO,IZERO 


BR. IF COND. CODE 0 


001 1B6 


47 


40 


F 


ICE 




BC 


CC1,I0NE 


BR. IF COND. COOE 1 


001 1BA 


47 


20 


F 


1C6 




BC 


CC2,ITW0 


BR. IF COND. CODE 2 


0011BE 


92 


F3 


F 


58F 




MVI 


IACTCC*5,X»F3» 


INDICATE COND. CODE 3 


0011C2 


47 


FO 


F 


1E4 




BC 


UNC ? I NOW 


BR. UNCONDITIONAL 


0011C6 


92 


F2 


F 


58F 


ITWO 


MVI 


lACTCC+StX^a 1 .. 


INOICATE COND. CODE 2 


0011CA 


47 


FO 


F 


1E4 




BC 


UNC, I NOW 


BR. UNCONDITIONAL 


0011CE 


92 


Fl 


F 


58F 


SONE 


MVI 


IACTCC+5»X»Fl« 


INDICATE COND. CODE 1 


00HD2 


02 


07 


F 


656 D 040 




MVC 


ICSWlt8),HCSWfftl3) 


SAVE CSW 


001 1D8 


96 


40 


F 


0E4 




01 


ISWtX'40' 


INDICATE 1 CSW 


001 IDC 


47 


FO 


F 


1E4 




BC 


UNC, I NOW 


BR. UNCONDITIONAL 


0011E0 


92 


FO 


F 


58F 


I2ER0 


MVI 


IACTCC+5, X«FO« 


INDICATE COND. CODE 0 


0011E4 


94 


7F 


F 


0E4 


|NOW 


NI 


ISW,X»7F« 


TURN OFF HANG UP SWITCH 


0011E8 


91 


40 


B 


000 




TM 


O(RU) ,X'40» 


CHECK CONTROL SWITCH FOR NO ENABLE 


0011EC 


47 


10 


F 


288 




BC 


ALL , I SEN 


BR. IF ON 


OOilFO 


96 


10 


F 


0E4 




01 


1SW,X*10* 


INDICATE ENABLED ONCE 


0011F4 


58 


9E 


0 


198 


WAIT 


L 


R9,WT(R149 


LOAD DM WAIT FACTOR 


0011F8 


88 


90 


0 


003 




SRL 


R9, 3 


ADJUST 


0011FC 


96 


80 


F 


0E4 




01 


ISW,X«80 f 


TURN ON HANG UP SW 


001200 


80 


00 


F 


673 




SSM 


MSK1 


ENABLE 


001204 


46 


90 


F 


204 




BCT 


R9,* 


WAIT 


001208 


80 


00 


F 


674 




SSM 


MSK2 


DISABLE 


00120C 


94 


7F 


F 


0E4 




NI 


ISW,X»7F» 


TURN OFF HANG SW 


001210 


47 


FO 


F 


288 




BC 


UNC , I SEN 


BR. UNCONDITIONAL 



* ALL 1-0 INTERRUPTS RETURN HERE 



001214 : 


49 CO 


' F 


03A 






IRETRN 


CH 


R12,10QPSW+2 


COMPARE FOR CURRENT I~Q ADDRESS 


001218 


47 60 


F 


236 








BC 


UNEQ,1UI0 


BR. IF UNEQUAL 


00121C 


94 7F 


•F 


0E4 








NI 


ISW,X«7F« 


RESET HANG UP SW 


001220 


91 40 


r 


0E4 








TM 


ISW,X f 40 9 




001224 


47 10 


'F 


266 








BC 


ALL,ISV2 


BR. IF 1 CSW ALREADY STORED 


001228 


02 07 


F 


•65.6 


F 


•040 




MVC 


ICSWlC8),HCSWtR15i 


SAVE CSW 1 


00122E 


96 40 


F 


0E4 








01 


ISW,X # 40» 


INDICATE 1 CSW STORED 


001232 • 


47 FO 


'F 


270 








BC 


UNCINT3 


BR. UNCONDITIONAL 


001236 


D2 07 


F 


560 


F 


040 : 


IUI0 


MVC 


W0RKI8I #HCSW«R15& . 




00123C 


OA DO 












SVC 


X«DD« 


CONVERT 'ADDRESS 


00I23E 


0003 












DC 


AL2C3I 




001240 


0039 












DC 


AL2!lQQPSW*l~$ECN0l 




001242 . 


067 B 












DC ' 


AL2! I'UNEX^S-SECNOI 




001244 : 


OA DO 












SVC ■ 


X'DO* « 


PRINT s UNEXP!ie?g©^i!ff gRRUPT DEVK 



05 MAY 65 

124252 



10A0G63 
125580 



22FEB66 ^ 

125621 



15JUN67 : 

130498 ' 
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001246 


64 










DC 


X»64» 


ADDRESS 


1 001247 i 


OB 










DC 


X*OB« 




J 001248 


F676 








DC 


AL2 ( I UNEX-SECNO+REG) 




00124A 


02 


02 


F 


5C6 F 5BF 




MVC 


IBLAH+1(3),ICSW 


MOVE -CSW- TO MESSAGE 


f 001250 


92 


1A 


F 


413 




MVI 


ICNT,X»1A« 


ADJUST COUNT 


I 001254 


02 


02 


F 


5DC F 5DF 




MVC 


IBLAH+23(3),IACT 


MOVE -ACT- TO MESSAGE 


00125A 


45 


90 


F 


3FC 




BAL 


R9, ICOUT 


BR. TO OUTPUT CSW 


J 00125E 


96 


02 


F 


0E4 




01 


ISW,X«02« 


INDICATE UIO 


J 001262 


47 


FO 


F 


4EE 




BC 


UNC, ILOGED 


BR. UNCONDITIONAL 


1 001266 


02 


07 


F 


65E F 040 


ISV2 


MVC 


ICSW2(8),HCSW(R15) 


SAVE CSW 2 


00126C 


96 


20 


F 


0E4 




01 


ISW^^O* 


INDICATE 2 CSWS STORED 


001270 


91 


10 


B 


000 


INT3 


TM 


0<R11),X«10» 


CHECK CTRL SW FOR 2 INTR EXPECTED 


001274 


47 


80 


F 


288 




BC 


NONE 1 1 SEN 


BR. IF NOT 


001278 


91 


08 


F 


0E4 




TM 


ISW,X»08« 




00127C 


47 


10 


F 


288 




BC 


ALL 1 1 SEN 


BR. IF ALREADY ENABLEO TWICE 


001280 


96 


08 


F 


0E4 




01 


ISW,X»08» 


INDICATE ENABLEO TWICE 


001284 


47 


FO 


F 


1F4 




BC 


UNCI WAIT 




001288 


91 


02 


B 


000 


ISEN 


TM 


0<RU),X'02« 


CHECK CONTROL SWITCH FOR SNS ON UC 


00128C 


47 


80 


F 


2 BO 




BC 


NONEtlOOSNS 


BR. IF OFF TO ISSUE SENSE 


001290 


91 


40 


F 


0E4 




TM 


ISMtX^O' 




001294 


47 


80 


F 


306 




BC 


NONE y IBSN 


BR. IF NO CSW STORED TO BYPASS SENSE 


001298 


91 


02 


F 


65A 




TM 


ICSWl+4,X , 02 e 


CHECK FOR UNIT CHECK 


001 29C 


47 


10 


F 


2 BO 




BC 


ALL t IDOSNS 


IF YES BR. TO ISSUE SENSE 


00 12 AO 


91 


20 


F 


0E4 




TM 


ISW,X«20» 


CHECK FOR SECOND CSW 


0012A4 


47 


80 


F 


306 




BC 


NONE t IBSN 


BR. IF NOT TO BYPASS SENSE 


0012A8 


91 


02 


F 


662 




TM 


ICSW2+4,X'02« 


CHECK FOR UNIT CHECK 


00 12 AC 


47 


80 


F 


306 




BC 


NONE t IBSN 


BR. IF NOT TO BYPASS SENSE 


1 0012B0 


58 


9E 


0 


198 


100 SNS 


L 


R9,WTCR14) 


LOAD DM WAIT FACTOR 


j 0012B4 


88 


90 


0 


002 




SRL 


R9,2 


CUT IT DOWN TO 2.5 SECS* 


\ 0012B8 


41 


80 


F 


668 




LA 


R8, I SENSE 


LOAD SENSE COMMAND ADDRESS 


; 0012BC 


50 


80 


0 


048 




ST 


R8,HCAW(R13) 


STORE IN CAW 


1 0012C0 


9C 


00 


C 


000 




SIO 


0(R12J 


ISSUE SENSE 


\ 0012C4 
1 0012C8 


47 


70 


F 


354 




BC 


NCCO, INDER 


BR. IF NOT ACCEPTED 


90 


00 


C 


000 


ITIOLP 


TIO 


0(R12) 


TEST 1-0 


1 0012CC 


47 


40 


F 


2F0 




BC 


CC1, ILOKE 


BR. IF CSW STORED 


j 001 200 


46 


90 


F 


2C8 


ITIC 


8CT 


R9, ITIOLP 




I 001204 ! 


47 


FO 


F 


306 




BC 


UNCtlBSN 


BR. UNCONDITIONAL 


j 0012D8 


91 


40 


F 


0E4 


INOEXI 


TM 


ISWiX^Q' 




j 0012DC 


47 


10 


F 


354 




BC 


ALL, INOER 


BR. IF CSW STORED 


j 0012E0 


47 


FO 


F 


358 




BC 


UNCt IDUNCK 


BR. UNCONDITIONAL 


| 0012E4 


91 


,20 


F 


0E4 


IN0EX2 


TM 


ISW,X»20» 




! 0012E8 


47 


10 


F 


354 




BC 


ALL, INOER 


BR. IF CSW 2 STOREO 


0012EC 


47 


FO 


F 


358 




BC 


UNC, IDUNCK 


BR. UNCONDITIONAL 


\ 0012F0 


95 


OC 


D 


044 


ILOKE 


CL1 


HCSW+4tR13),X«0C« 


CHECK FOR CE DE ONLY 


0012F4 


47 


70 


F 


200 




BC 


NCCO, ITIC 


BR. IF NOT 


j 0012F8 


96 


04 


F 


0E4 




01 


ISW,X«04» 


INDICATE SENSE DATA RECIEVED 


1 0012FC 


05 


00 


F 


5F5 B 005 




CLC 


IACSNS+5Cl),5(Rin 


COMPARE FOR EXPECTED SENSE 


] 001302 


47 


60 


F 


354 




BC 


UNEQ, INDER 


BR. IF UNEQUAL 


\ 001306 


05 


00 


F 


58 F B 004 


IBSN 


CLC 


IACTCC+5C1),4(R11J 


COMPARE FOR EXPECTED COND* COOE 


\ 00130C 


47 


60 


F 


354 




BC 


UNEQ, INDER 


BR. IF UNEQUAL 


; 001310 


91 


08 


B 


000 




TM 


0(R11), X»08 B 




c 001314 


47 


80 


F 


208 




BC 


NONE, INOEXI 


BR. IF NO CSW EXPECTED 


001318 


91 


40 


F 


0E4 




TM 


ISW,X»40' 




! 00131C 


47 


80 


F 


354 




BC 


NONE, INDER 


BR. IF NO CSW RECIEVED 


I 001320 


48 


8B 


0 


006 




LH 


R8,6(R11) - 


LOAD CSW ADDR 


001324 


40 


80 


F 


32C 




STH 


R8,ICCSWi+4 


STORE IN COMPARE INSTR. 


001328 


D5 


07 


F 


656 F 656 


SCCSW1 


CLC 


ICSW1(8),ICSW1 


COMPARE FOR EXPECTED CSW 


00132E 


47 


60 


F 


354 




BC 


UNEQ, INDER 


BR. IF UNEQUAL 


001332 


91 


04 


B 


000 




TM 


0(R11),X»04« 




001336 


47 


80 


F 


2E4 




BC 


N0NE,IN0EX2 


BR. IF NO CSW 2 EXPECTED 


00133A 


91 


20 


F 


0E4 : 




TM 


ISW,X«20 9 




i 00133E 


47 


80 


F 


354 




BC 


NONE, INDER 


BR. IF NO CSW 2 RECIEVED 


001342 


41 


88 


0 


008 




LA 


R8,8(R8) 


UPDATE TO SECOND CSW 


001346 


40 


80 


F 


34E 




STH 


R8,ICCSW2+4 




001 34 A 


05 


07 


F 


65E F 65E 


ICCSW2 


CLC 


ICSW2(8).ICSW2 


COMPARE FOR EXPECTED CSW 2 


001350 


47 


80 


F 


358 




BC 


EQ, IDUNCK 


BR. IF EQUAL 


; 001354 


96 


01 


F 


0E4 


INOER 


01 


ISW,X«01* 


INDICATE AN ERROR 


001358 


92 


64 


F 


388 


IDUNCK 


MVI 


IFLAG1,X»64» 


SET UP FOR ERROR PRINTOUT 



DATE 

EC 
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125580 
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125621 
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00135C 


92 CO 


F 


52C 








MVI 


IrLAuZ, a'CU' 




001360 


91 01 


F 


0E4 








TM 


I SW,X*01 • 


rucrv cno a ncTcrTCn CDDno 
trtlcuK rUK A Ucl Ctl CU CKKUlt 


001364 


47 10 


F 


378 








BC 


ii i t ni ITT T 

ALL 9 IUUTI T 


DK» 1 r cKKUK UC 1 Cut CU 


001368 


91 01 


F 


004 








TM 




rMFf K SFCTION SENSE SWITCH 7 

uric U l\ «Cb I 1 VII « acnwK «**vaivfi • 


00136C 


47 80 


F 


548 








BC 


NONE , ILcAVc 


BR. IF OFF 


001 3 70 


92 24 


F 


388 








MKT 
n V I 


V CI Af* 1 V • 1A 0 


ecr up pno rnRRFCT PRINTOUT 


nni a7A 


on 
7C OU 


c 










MVI 






UUl 3(0 


no ni 


C 

r 


Air 

O J.U 


a 

D 


002 


I0UTIT 


MVC 


I TSTNO+5( 21 •?(R11) 


MOVE TEST NUMBER TO PRINT 


UUl iit 


n a nn 

U A UU 












SVC 


X ' DD * 


CONVERT TEST NUMBER 


UU1380 


0002 












nr 


AL2 ( 2 ) 




nn i % r o 


n^i r 

UDl U 












DC 


AL2f ITSTNOtS-SECNO) 




001 384 


061 C 












DC 


AL2( ITSTN04-5-SECN0) 




UU13CJO 


n a nn 

U A UU 












SVC 


X'DO* 


PRINT TEST NUMBER 


UU 1 3 OO 


64 










IrLNVi 


DC 


X ' 64* 




nn I IRQ 
UU i 3 O V 


09 












DC 


X' 09 • 




\J\J I i» o « 


F61 7 












DC 


AL2 ( I TSTNO-SECNO+REG) 


AOJUST LINK ADDRESS FOR PRINTOUT 


nni ^Rr 


41 80 


0 


004 








LA 


R8,4 


001390 


13 B8 












SR 


R11,R8 




001392 


50 BO 


F 


5A8 








ST 


R11,ILINK*5 




001 396 


OA DD 












SVC 


X«DD' 


CONVERT LINK ADDRESS 


001 398 


0003 












DC 


AL2I 3) 




00139A 


05A9 












DC 


AL2tILINK^6-SECN0! 




00139C 


05A8 












DC 


AL2(ILINK«5-SECN0} 




001 39E 


OA DO 












SVC 


X*D0' 


PRINT LINK ADDRESS 


nn 1 ■* An 


AO 












DC 


X'AO* 




00 13 Al 


10 












DC 


X 1 10' 




0013A2 


F5A 3 












DC 


AL2( ILINK^SECNOtREG) 




nn l n hi*. 

UU 1 


6.1 Aft 


n 

U 










LA 


Rll *4(R11 1 




0013A8 


91 80 


n 
o 


UUU 








TM 


mm i i *x*so* 


BR. IF NO 1-0 COMMAND ISSUED 


UUl 3 Au 


4.7 in 

f 1U 


P 


■r*. A 








BC 


AL1 • I0CSW 

Hi L L f t U\/ «# ff 


nn i tl an 
UUl 3 du 


n a nn 

U A UU 












SVC 


X'DD* 


CONVERT 1-0 ADDRESS 


QUI 3B2 


0003 












DC 


AL 2 ( 3 ) 




nn i tl n a. • 
UUl 3o*¥ 


At tn 
UO f u 












DC 


ai 7 1 1 nA nil- ^fc Mm 




0013B6 


U?77 












DC 


AL?( I DADDR4- 5-SECNOI r 




nn i ann 
UUl 3 DO 


n a nn 
U A uu 












SVC 


X * DO* 


PRINT 1-0 ADDRESS 


0013BA 


AO 












DC 


X'AO' 




nni ana 
UU13DD • 


AC 

UP 












DC 


X * OF • 




00 1 3 BC 














OC 


At yt f (1ADDR— SFCNQ+REG S 




nn i lac 


73 TrU 


F 


1 AC 
1AC 








CL1 


f cciip . X'9C * 


COMPARE FOR SIO COMMAND 


0013C2 


47 60 




418 








BC 


UNEQ, ICCOUT 


BR. IF NOT 




50 AO 


f 


5B8 








ST 


RIO, ICAW^-5 


STORE CCW ADDR. 


0013CA 


n a nn 
U A uu 












SVC 


X'DD* 


CONVERT CAW 


0013CC 


0003 












nr 

UU 


AL2 ( 3 ) 




0013CE 


05B9 












DC 


AL2( ICAW+6-SECN0) 




0013D0 


0538 












DC 


AL2(ICAW*5-SECNOl 




0013D2 


OA DO 












SVC 


X»D0» 


PRINT CAW 


001 304 


AO 












DC 


X»A0 9 




001305 


OB 












DC 


X»0B' 




001306 


F5B3 












DC 


AL2(ICAW-SECN0+REGI 




001 3D8 


D2 02 


F 


5C6 


F 


5C2 




MVC 


IBLAH+1(3),ICCW 


MOVE -CCW- TO MESSAGE 


0013DE 


92 16 


F 


413 








MVI 


ICNT,X S 16« 


ADJUST COUNT 


0013E2 


02 07 


F 


568 


A 


000 


ICWOUT 


MVC 


WORK(8),0(R10) 


MOVE CCW TO WORK AREA 


0013E8 


45 90 


F 


3FC 








BAL 


R9, ICOUT 


BR. TO OUTPUT CCW 


0013EC 


91 CO 


A 


004 








TM 


4(R10) ,X*C0« 


CHECK FOR ANY CHAIN FLAGS 


0013F0 


47 80 


F 


418 








BC 


NONE, ICCOUT 


BR. IF NONE 


0013F4 


41 AA 


0 


008 








LA 


R10,8CR10) 


UPOATE TO NEXT CCW 


0013F8 


47 FO 


■ F 


3E2 








BC 


UNC, ICWOUT 


BR. UNCONDITIONAL 


0013FC 


OA DD 










ICOUT 


SVC 


X«DD« 


CONVERT 


0013FE 


0003 












DC 


AL2C8I 




001400 


0568 












DC 


AL2C WORK-SECNOI -. 




001402 


0568 












DC 


AL2(WORK-SECNO) 




001404 


D2 07 


F 


5CA 


F 


568 




MVC 


IBLAH^5t8),W0RK 


MOVE TO MESSAGE 


00140A 


02 07 


«'F 


5D3 


F 


570 




MVC 


IBLAH^14I8I,W0RK4'8 




001410 


OA DO 












SVC 


X'DO* - 


PRINT 


001412 


AO 












DC 


X»A0» 




001413 


1A 










ICNT 


DC 


X* 1A ' 




001414 


F5C5 












DC 


AL2I tBLAH-SECNO#REGI 




001416 


07 F9 












BCR 


UNC»R9 


RETURN VIA REG 9 



DATE 

EC 



05 MAY 65 

124252 



10AUG65 
125580 



22FEB66 
125621 



15JUN67 
130498 ' 



ID ■ F820-3 
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001418'-' 


D2 


00 


F 


585 


■s 


004 ; 


ICCOUT 


MVC . 


4 C Arwi»T3 ( 1| Hill 


00141E 


OA 


DO 












SVC . 


X °D0 9 


001420 


AO 














DC 


X 9 A0 9 


001421 


OA 














DC 


X 9 OA 9 


001422 


FS80 












DC 


A12I IEXPCC-SECNO+REG) 


001424 


OA 


DO 












SVC 


X f BO* 


001426 


AO 














DC 


X»AO» 


001427 


OA 














DC 


X s OA 9 


001428 


F58A 












DC 


AL2( I ACTCC- SECNO+REG ) 


00142A 


D2 


02 


F 


5C6 


F 


5BF 


1GCSH 


mc 


IBLAH+lf 3) , ICSM 


001430 ■ 


92 


1A 


F 


413 








KVI 


ICNTfX* 1A 9 


001434 . 


91 


08 


B 


000 








TM 


Of RID ,X*08 9 


001438 


47 


80 


F 


45C 








BC 


NONE? IDIDI 


00143C 


D2 


02 


F 


■■5 DC. 


F 


5E2 




mc ; 


IBLAH+231 3) tIEXP 


001442 ' 


48 


88 


0 


006 








LH 


RBt 6(R11) 


001446 . 


40 


80 


. F 


456 








STH 


RBn ICHNG1+4 


00144A 


41 


88 


•o 


"008 








LA 


R3t 8(R8) ' 


00144E 


40 


80 


■ F 


486 








STH 


KB j ICHNG2+4 ' 


001452 


02 


0? 


• F 


568 


"F 




ICHNG1 


W¥C 


WORK!' 81 . ynRK 


001498 " 


45 


90 


F 


3FC 








BUI 


R9* ICOUT 


00145C . 


■ 91 


40 


F 


0E4 






. ididi 




I SW*X*4G* 


001460 


47 


80 


F 


474 








8C 




001464 1 


D2 


02 


f 


5 DC F 






MVC 




00 146 A i. 


02 


07 


f 


568 


'F 


$56 




MVC 


UflR If * ft 1 .Sf SWU 


001470 


45 


90 


F 


3FC 








BAL 


_ ? r msx 


001474 : 


91 


04 


B 


000 






! NOR ST 


; TM 




001478 •■ 


4? 


BO 


F 


48C 








BC 




00147C 


02 


02 


F 


5DC 


F 


'5E2 ' 




MVC 


* Ot«n^&3 S 3 S , 1 C Ar 


001482 


02 


07 


F 


•568 


F 


568 • 


ICHNG2 


MVC 


unntK in). unsx 


00148® • 


45 


90 


F 


3FC 








BAL 


r% f i. %* U U « 


00148C 


91 


20 


F 


0E4 








TM 


f <?o yt'ifti 

I j> A (CU 


001490 - 


47 


80 


F 


4A4 








BC 


MfTMF: TDAC 
ni-liXC. t I rA S 


001494 


D2 


02 


§£ 


5DC 


F 


5DF :! 




MVC 




00 I 49 A 


02 


0? 


F 


568 


F 






MVC 




00 14 AO 


45 


90 


F 


3FC 








BAL 




0014A4 : 


D2 


00 


•p 


5EA 


•§ 


005 




M VC 




0914AA 


91 


04 


F 


0E4 








IN 


1 SWf X 9 04 s 


0014AE 


47 


80 


F 


4E6 








BC 




001482 


OA 


00 












svc 




0014B4 


0001 












DC 


AL2 1 1 1 


001486 " 


05EA 












oc 


At 5*1 1 FX*?*y6S+^— ^prwni 
^8.6! * c a »?. )nunui 


0014B8 r 


05EA 












DC 


kl 21 1 FXSfy ^4 fulfil 


C014BA 


OA 


DO 












S¥C 


■ X s SO® ■ 


GQ14BC 


AO 














DC 


X ® A 0 * 


00148D 


OB 














DC 


X<08 f 


001486 


F5E9 












DC 




0014C0 


OA 


00 












SVC 


X»0D* 


0014C2 


0001 












DC 


AL2U) 


0014C4 














DC 


AL2C !ACSNS+5-SECN0> 


0014C6 


05F5 












OC 


AL2UACSNS+5~$ECN0) 


001 4C8 


OA 


DO 












SVC 


X 9 D0 9 


0014CA 


AO 














DC 


X'AO 9 


003 4 CB 


08 














DC 


X'OB 9 


0014CC ' 


F5F0 












DC 


AL2UACSNS- SECN04RE6 1 


0014CE 


95 


13 


F 


003 








CLI 


SECNO+3,X 9 13 9 . 


001402 


47 


AO 


F 


4Efe 








BC ; 


£GHI,IPASS 


001496 < 


95 


F4 


F 


5EA 








CLI 


IEXSNS+5*C«4« 


00140A 


47 


80 


F 


4E6 








BC 


EQUPASS 


0014DE ■ 


95 


F4 


P 


5F5 








CLI 


■ IACSNS*5 f C 9 4 9 


00I4E2 


47 


80 


F 


742 








BC 


EQtTELHIN 


0014E& . 


m 


'SO 


E 


181 






IP.ASS ■ 


CLI 


SYSM0D(RUKX«90* ; 


O014EA 


47 = 


60 


tr 


51A 








BC 


UNEQ«ICUtO ' 


0014EE 


02 


OB 


P 


set 


E 


m& 


ILOGED 


mt 


H0RKil2S»LQGQUTlRl4r 


001 4 P4 ' 


OA 


DO 












SVC 


X»DD 9 




0©0 c 












DC 


At2(12| ' 


0014F8 


0568 












DC 


AL2i«ORK^SECN0l 


0014FA 


0568 












DC 


^L2tWORX^SECNOI : 


0014PC : 


02 


01 




600 


P 


568 




we 


^ IOLOG^5{2J*i«3RIC 



MOVE EXP CC TO MESSAGE 
PRINT EXPECTED COND. CODE 



PRINT ACTUAL COND. CODE 



MOVE -CSW- .TO MESSAGE 
ADJUST COUNT 

BR. IF NO CSW EXPECTED 
MOVE -EXP- TO MESSAGE 



WOVE EXPECTED CSW TO WORK AREA 
BR® TO OUTPUT -EXPECTED CSW 

BR. IF NO CSW STORED 

MOVE -ACT- 70 MESSAGE 

MOVE ACTUAL CSW TO WORK AREA 

BR* TO OUTPUT ACTUAL CSW 

BR. IF mi EXPECTING 2 CSWS 
MOVE -EXP- TO MESSAGE 
MOVE EXPECTED CSW TO WORK AREA 
SR. TO OUTPUT EXPECTED CSW 2 

BR. SF HQ SECOND CSW STORED 
MOVE -ACT- TO MESSAGE 
MOVE CSW TO WORK AREA 

MOVE EXP SENSE TO MESSAGE 

BR. IF NO SENSE DATA RECIEVED 
CONVERT EXPECTED SENSE 



PRINT EXPECTED SENSE 



DATS 
EC 



05 MAY 65 
124252 ' 



10AUG65 
125580 " 



22FEB66 
125621 



15JUN67 i 

1304?® 



PRINT ACTUAL SENSE DATA 



SEE IF IN MANUAL INTERV RTNS. 
BR IF YES. 

SEE IF EXPECTED INTV REQO 

BYPASS INTV REQO MESSAGE 

SEE IF RECEIVED INTV REQD SNS 

BR. TO PRINT OUT INTV REQD MESSAGE 

CHECK FOR MODEL 30 

BR* IF NOT ' 

MOVE LOG OUT-iTO WORK AREA 
CONVERT 



MOVE LOG OUT TO MESSAGE 
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001502 


02 


05 


F 


603 F -56 A 




MVC 


10LGG*8{6}*W0RK+2 


001508 ' 


D2 


05 


F 


60A F 572 




MVC 


I0L0G+15(6)«W0RK+10 


00150E 


02 


05 


F 


611 F 57A 




MVC 


I0L0G+22<6)»W0RK+18 


001514 


OA 


DO 








SVC 


X 9 00 9 


001516 


AO 










DC 


X 9 A0 9 


001517 


1C 










DC 


X 9 1C 9 


001518 


F5FB 








DC 


AL2U0L0G- SECNO+REG) 


00151A 


91 


02 


F 


0E4 


ICU10 


TM 


ISW,X 9 02 9 


00151E 


47 


80 


F 


52A 




BC 


NONE f IOPOUT 


001522 


94 


FD 


F 


0E4 




NI 


I SWtX 9 FD 9 


001526 


47 


FO 


F 


1F4 




BC 


UNCt IWAIT 


00152A 


OA 


DO 






IOPOUT 


SVC 


X 9 D0 9 


00152C 


CO 








IFLAG2 


DC 


X»C0 9 


00152D 


36 










DC 


X'36« 


00152E 


F620 








DC 


AL2C I0PT1-SECN0+REGJ 


001530 


OA 


DO 








SVC 


X 9 DO« 


001532 


AO 










DC ■ 


X'AO 8 


001533 


01 










DC 


X 9 01 9 


001534 : 


F5A3 








DC 


AL2( ILINK- SECNO+REG) 


001536 


50 


AD 


0:048' 




ST 


R10,HCAW(R13) 


00153A 


91 


xo 


F 


004 




TM 


SNSW,X 9 C0 9 


00153E 


47 


50 


F 


15C 




BC 


ANY, ITRY1 


001542 


91 


80 


F 


0E4 . . 




TM 


ISW,X 9 80» 


001546 


07 


15 








BCR 


ALL't R5 


0G154S 


91 


08 


B 


000 


ILEAVE 


TM 


0(R11),X*08* 


00154C 


47 


80 


F 


554 ' 




BC 


NONE , I UP 


001550 


41 


BB 


0 


002 




LA 


R11*2(R11) 


001554 : 


41 


BB 


0 


006 


I UP 


LA 


Rll t 6IRll) 


001558 


98 


89 


F 


560 




LM 


R8 y R9«ISAVE 


00155C 


07 


F8 








BCR 


UNC«R11 



* 1-0 HANDLER WORK AREA. 



PRINT LOG OUT 



TEST FOR UNEXPECTED 1-0 INTERRUPT* 
BR. IF NOT UIO 
RESET UIO SWITCH 
BR. UNCONDITIONAL 
PRINT LOOP OPTIONS 



SPACE A LINE 



STORE CAW 

CHECK SECTION SENSE SWITCH 0 AND I 
BR. IF ANY ON 

RETURN VIA REG 5 IF HANG UP 

BR. IF NO CSW EXPECTED 

UPDATE LINK ADORESS FOR RETURN 

RESTORE REGS 8 AND 9 
RETURN VIA REG 11 



00155E 






CNOP 


0,8 




00155E 


07 00 


BCR 


0,0 




001560 


0000000000000000 


1SAVE 


DC 


XL8*@® 




001568 




WORK 


DS 


24C 




001580 ; 


40C3C34040E740C5E7 <: 


IEXPCC 


DC 


C« CC ; 


X EXP« 


001589 


D7 










00158A 


40C3C34040ET40OC3 


IACTCC 


DC 


C* cc 


X ACT 9 


001593 


E3 










001594 


40CIC4D940ETE7E7E? 


I0ADDR 


DC 


C 9 ADR 


XXXXXX XIO* - 


001590 


E7E740E7C9D6 










0015A3 


00 




DC 


X«00« 




0015A4 


0015A3 




CNOP 
ORG 


0,4 

*-l 




0015A3 


40C1C4D940E7E7E7E7 


IL INK 1 


DC 


C 9 ADR 


XXXXXX LINK 9 


0015AC 


E7E740D3C9D5D2 










0015B3 


00 




DC 


X 9 00« 




0015B4 


0015B3 




CNOP 
ORG 


0,4 

*-l 




0015B3 


40C3C1E640E7E7E7E7 


ICAW 


DC 


C 9 CAW 


XXXXXX * 


0015BC . 


E7E740 










0015BF 


C3E2E6 


ICSW 


DC 


C 9 CSW« 




0015C2 


C3C3E6 


ICCW 


DC 


c«ccw« 




0015C5 


40C3E2E640E7E7E7E1 


IBLAH 


DC 


c* CSW 


XXXXXXXX XX* 


0015CE 


E7E7E7E740E7E7 










0015D5 


E7E7E7E7E7E740C5E7 




DC 


C # XXXXXX EXP 8 - 


0015DE 


07 










0015DF 


C1C3E3 


IACT 


DC 


C*ACT* 




0015E2 


C5E7D7 • 


IEXP 


DC 


C'EXP® 




001565 


40E2D5E240E7E740C5 


IEXSNS 


DC 


C« SNS 


XX EXP* . 


0015EE 


E707 










0015F0 


40E2D5E240E7E740C1 


IACSNS 


DC 


C' SNS 


XX ACT 9 • 


0015F9 


C3E3 










0015FB 


40D3D6C740E7E740E7 


IOLOG 


DC 


e* LOG 


XX XXXXXX- X® 


001604 ' 


E7E7E7E7E740E7 










001608 i 


E7E7E7E7E740E7E7E7 > 




DC 


C'XXXXX XXXXXX 9 ' 



DAT! 
EC 



05 MAY 65 

124252 



10AUG65 < 
125580 



22FEB66 
125621 



154UN6T 
130498 



ID F82©~3 
' PAGE I4A 
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001614 


E7E7E7 






001617 


40E3E2E340E7E7E7E7 


ITSTNO DC 


C« TST XXXX« 


001620 


40E2C5E340E2E240F0 


I0PT1 DC 


C* SET SS 0 ON FOR* 


001629 


4006D540C606D9 






001630 


40D3D6D60740D60540 




C LOOP ON XlOt SS 9 


001639 


E7C9D66B40E2E2 






001640 


40F 140D60540C6D6D9 


DC 


C 1 ON FOR TIO SI • 


001649 


40E3C9D640E2C9 






001650 


0640D306D6D7 


DC 


C«0 LOOP" 


001656 


0000000000000000 


ICSW1 DC 


XL8«0« 


00165E 


0000000000000000 • 


ICSW2 DC 


XL8«0« 


001668 


04 0015F5 0000 0001 


ISENSE CCW 


X«04»,IACSNS+5,X , 00« f l 


001670 


001 1AE 


IOADR DC 


AL3( ISSUE) 


001673 


FE 


MSK1 DC 


X»FE' 


001674 ' 


01 


MSK2 DC 


X»Ol» 


001675 


00 


RTSV DC 


X«00« < 


001676 


40E4C9D640E7E7E7E7 


IUNEX DC 


C» UIO XXXXXX* 


00167F 


E7E7 






001682 




CNOP 


Of 8 


001682 


07 00 


BCR 


OtO 


001684 


07 00 


BCR 


0,0 


001686 


07 00 


BCR 


0,0 


001688 


0000000000000000 


1 SLAVE DC 


XL8»0« f 



SAVE RT NO. FOR HANGUP. 



REGISTER SAVE AREA 
**********************************^ 

* INITIALIZE ROUTINE 

*****Mt**********************************^ 



001690 


IB 


00 






INIT SR 


R13,R13 


************************************* 

ZERO REG 13 


001692 


91 


40 


E 


196 


TM 


406<R14),X t 40« 


CHECK FOR FORCED PROBLEM STATE 


001696 


47 


80 


F 


69C 


BC 


NONEtNITWIT 


BR. IF NOT 


00169A 


18 


DF 






LR 


R13 f R15 


SET UP FOR PROBLEM STATE 


00169C 


58 


CO 


F 


OEO 


NITWIT L 


R12,UNIT1 


PUT PCH UNIT TABLE IN 12. 


0016A0 


54 


CO 


F 


6D4 


N 


R12,M0D50 


AND OUT ALL BUT ADDRESS. 


0016A4 


91 


80 


F 


0E4 


BLOOP TM 


ISW,X»80* 


CHECK FOR HANG UP 


0016A8 


47 


10 


F 


6B6 


BC 


ALL v HANGUP 


BR. IF DETECTED 


001 6 AC 


92 


03 


F 


F58 


MVI 


CCWtX^OS 1 


PUT A NOOP INTO CCW. 


0016B0 


41 


AO 


F 


F58 


LA 


RIO, CCW 




0016B4 


07 


F4 






BCR 


UNCtR4 


RETURN VIA REG 4 


0016B6 


02 


00 


F 


003 F 675 


HANGUP MVC 


SECN0+3C1I,RTSV 


RESTORE RT NO. 


0016BC 


OA 


DO 






SVC 


X«DO« 


PRINT 


0016BE 


64 








DC 


X«64» 


-PREVIOUS HANGUP DETECTED- 


0016BF 


1A 








DC 


X' 1A • 




0016CO 


P72 8 






DC 


AL2(HUNG-SECN0+REG) 




0016C2 




01 


F 


0E4 


01 


ISW, X»Ol» 


SET UP HANG UP SWITCH 


0016C6 


45 


50 


F 


2B0 


BAL 


R5,ID0SNS 


BR. TO OUTPUT AVAILABLE INFO 


0016CA 


92 


00 


F 


0E4 


MVI 


ISW,X»00» 


RESET HANGUP SWITCH 


0016CE 


47 


FO 


F 


6A4 


BC 


UNC, BLOOP 




001602 










CNOP 


0,4 




001602 


07 00 






BCR 


0,0 




001604 


00003FFF 


M0D50 DC 


X»00003FFF« 




0016D8 










PCHAR DS 


80C 


PUNCH WORK AREA 


001728 


* UU f UVC5E5C9D6E4E2 


HUNG DC 


C« PREVIOUS HANG U« 




001731 


40C8C1D5C740E4 








001738 


D740C4C5E3C5C3E3C5 


DC 


C«P DETECTED 8 




001741 


























♦♦♦***************M<*************^ 












♦ 


INTERVENTION REQUIRED MESSAGE 














001742 


OA 


DO 






TBLHIM SVC 


X"DO" 


PRINT A BLANK 


001744 


80 








DC 


X»80» 


9 9 


001745 


01 








DC 


X«01« 


» 9 


001746 


FF60 






DC 


AL2 (BYPASS-SECNO+REG ) 


9 t 


001748 


OA 


DO 






SVC 


X»DO» 


PRINT OPERATOR INSTRUCTIONS 


00174A 


AO 








DC 


X»A0» 


-PLACE BLANK CARDS 


00174B 


22 








DC 


X»22* 


IN PUNCH HOPPER- 


00174C 


FFD4 






DC 


AL2CPCH4-SECN0+REG* 




00174E 


UA 


DO 






SVC 


X«DO« < 


-HAKE THE PUNCH OPERATIONAL 


001750 


80 








DC 


X«80« 


AND READY- 


001751 


25 








DC 


X»25« 





DATE 05MAT65 10AUG65 22FEB66 19JUN67 '_ 

EC 124252 125580 125621 130498 MGE 15 



c c c c c c c c o c c c c c c c c c 
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001752 
001754 
001756 
00175A 
00175E 
00175E 



001760 
001761 
001764 
001768 
00176C 
00176E 
001770 
001772 
001774 



FFAF 
OA OA 

9D 00 C 000 
47 FO F 132 

07 00 



01 

000774 

45 40 F 690 

45 BO F OFA 

0200 

0010 

FOOO 

OA 06 



HALT FOR MANUAL INTERVENTION 
CLEAR PENDING INTERRUPT 



DC AL2 C PCH3- SECNO+REG } 
SVC X«DA« 
TIO 0CR121 
BC UNCGOMAN 
CNOP 0 t 4 
BCR OtO 

************************************************^ 

************************************************^ 

* ROUTINE 01- ISSUE A TEST I -0 TO AN AVAILABLE AND IDLE DEVICE. 

* EXPECT CONDITION CODE 0. 

*********************************************************************** 



R0UT01 DC 
DC 
BAL 
BAL 
DC 
DC 
DC 
SVC 
CNOP 



X«01« 

AL3(R0UT02-SECN0) 

R4,INIT 

RlltlTIO 

X«0200« 

X'0010 9 

X , FOOO t 

X»D6» 

0»4 



ROUTINE NUMBER. 

ADDRESS OF NEXT ROUTINE. 

BR. TO INITIALIZE 

BR. TO ISSUE TIO 

CONTROL SWITCHES 

TE ST NUMB 

EXP COND CODE - EXP SENSE 

ROUTINE EXIT 



*********************************************************************^^ 
************************************************************^ 

* ROUTINE 02- ISSUE A SENSE SIO -04^ EXPECT COND. CODE 0 ON THE SIO. 

* ISSUE A TIO EXPERT COND. CODE 1 WITH CHANNEL END - DEVICE 

* END IN THE CSW. ISSUE ANOTHER TIO AND EXPECT COND. 

* CODE 0. 



001774 


02 






R0UT02 DC 


X*02« 




ROUTINE NUMBER. 






001775 


0007A4 




DC 


AL3CR0UT03- 


SECNO) 


ADDRESS OF NEXT ROUTINE 




001778 


45 40 


F 


690 


BAL 


R4.INIT 




BR. TO INITIALIZE 






00177C 


92 04 


F 


F58 


MVI 


CCW,X»04» 




INSURE SENSE CCW 






001780 


45 BO 


F 


IDE 


BAL 


RlltlSIO 




BR. TO ISSUE SENSE 






001784 


4200 






DC 


X»4200« 




CONTROL SWITCHES 






001786 


0010 






DC 


X»0020 l 




TEST NUN 


B E 


R 


001788 


FOOO 






DC 


X'FOOO* 




EXP. COND. CODE - EXP. 


SENSE 




00178A 


45 BO 


F 


OFA 


BAL 


R11,ITI0 




BR. TO ISSUE TEST 1-0 






00178E 


4A00 






DC 


X«4A00 f 




CONTROL SWITCHES 






001790 


0030 






DC 


X«0030* 




TEST N U M 


B E 


R 


001792 


F100 






DC 


X»F100« 




EXP. COND. CODE - EXP. 


SENSE 




001794 


FF4C 






DC 


AL2(PRDCSW- 


SECNO+REG) 


EXP. ADDRESS OF CSW 






001796 


45 BO 


F 


OFA 


BAL 


RlltlTIO 




BR. TO ISSUE TEST 1-0 






00179A 


0200 






DC 


X»0200* 




CONTROL SWITCHES 






00179C 


00*0 






DC 


X , 0040» 




TEST N U M 


B E 


R 


00179E 


FOOO 






DC 


X'FOOO* 




EXP. COND. CODE - EXP. 


SENSE 




0017A0 


OA 06 






SVC 


X»D6' 




ROUTINE EXIT 






0017A2 








CNOP 


0,4 










0017A2 


07 00 






BCR 


0,0 











0017A4 


03 




R0UT03 DC 


X«03« 


0017A5 


0007C8 




DC 


A L 3 ( R0UT04- SEC NO ) 


0017A8 


45 40 F 


690 


BAL 


R4,INIT 


0017AC 


92 04 F 


F58 


MVI 


CCW,X»04* 


0017B0 


45 BO F 


10E 


BAL 


R11,ISI0 


0017B4 


2A00 




DC 


X»2A00 f 


0017B6 


0050 




DC 


X«0050 f 


0017B8 


FOOO 




DC 


X«FOOO« 


0017BA 


FF4C 




DC 


AL 2 C PRDC SW- SECNO+REG 1 


0017BC 


45 BO F 


OFA 


BAL 


R11,ITI0 


0017C0 


0200 




DC 


X«0200« 


0017C2 


0060 




DC 


X«0060« 


0017G4 


FOOO 




DC 


X'FOOO* 


0017C6 


OA D6 




SVC 


X«06* 


0017C8 






CNOP 


0,4 



**************************************** # **** 4( «^« # * # ^* 4t] l t4 l*** 4s ^*^ 4(4t4t4t * 9t( 

****************************************************^ 

* ROUTINE 03- ISSUE A SENSE SIO -04- EXPECT COND. CODE 0 WITH CHANNEL 

* ENO DEVICE END INTERRUPT. ISSUE TEST 1-0 EXPECT COND 

* CODE 0. 

***************************************************** 4(4l * 9 | (4t * 4(] | t4t4( *«* 4l ** 4 * 

ROUTINE NUMBER 
ADDRESS OF NEXT ROUTINE 
BR. TO INITIALIZE 
INSURE SENSE CCW 
BR. TO ISSUE SENSE 
CONTROL SWITCHES 
TEST NUMBER 
EXP. COND. CODE - EXP. SENSE 
EXP. ADDRESS OF CSW 
BR. TO ISSUE TEST 1-0 
CONTROL SWITCHES 
T ES T NUMB E R 
EXP* COND. CODE - EXP. SENSE 
ROUTINE EXIT 
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* ROUTINE 04- ISSUE NOP -03- EXPECT COND. CODE 1 ON THE START 1-0 WITH 

* CHANNEL END AND DEVICE END STORED IN THE CSW. 
L*^ NO INTERRUPT SHOULD OCCUR* , 
**************M*******************^ 



001TC8 


04 


R0UT04 DC 


X 9 04» 




***************************** 

ROUTINE NUMBER 


0017C9 


0007E8 


DC 


AL3C R0UT05- 


SEC NO) 


ADDRESS OF NEXT ROUTINE 


0O17CC 


45 40 F 690 : 


SAL • 


R4,INIT 




BR. TO INITIALIZE 


001700 


92 03'F<P58' 


mi 


ccw 9 x'03* . 




INSURE CCW TO PERFORM NO OP. 


0017D4 


41 AO F F58 ' 


LA 


RIO, CCW ■ 




LOAD NOOP CCW ADDRESS 


0017D8 


45 BO F 10E 


mi 


RlltlSIO 




BR. TO ISSUE START 1-0 NOOP 


0017DC 


oaoo ; 


DC 


X*OAOO» 




CONTROL SWITCHES 


0017DE 


0070 


DC 


X 9 00T08 




TEST NUMBE 


©017E0 


F100 - 


DC- 


X*F100« 




EXP. COND. CODE - EXP. SENSE 


0017E2 


FF02 


DC 


AL2INQPCSW- 


SECNO+REGS 


EXP. CSW ADDRESS 


0017E4 ; 


OA m 


SVC 


X»D6» 




ROUTINE EXIT 


0017E6 




CNOP 


0,4 






0O17E6 


07 00 


BCR 

************ 


0,0 







**********************^^ 

* ROUTINE 05- ISSUE A PUNCH FEED STACKER SELECT POCKET 2 "E! eSISJe 



. „ , nw^«.r« . jttcu j ruuivc I <e i ~«n— . ENABLE 

* . "J* ^INTERRUPT ONLY. EXPECT COND. CODE 0 ANO CHANNEL 

! ' JSS? 6 / J £ ST 1-0 BEFORE DEVICE END OCCURS. EXPECT COND. 

* 1 C0 °E l WITH DEVICE BUSY ONLY IN THE CSW. AFTER DEVICE 

* - 

J ; NOTE— TH1 ^ROUTINE ^WILL BE BYPASSED IF SECTION SENSE 



0017E8 ' 


05 






R0UT05 DC 


n*f-r v f <*> f *n» -v-w w^mmmw w WWW m 

X s 05» . 


-******♦**********************. 

■ ROUTINE NUMBER 


***! 


0Q17E9 


UUUB4B 




DC 


A L 3 C R 0UT06- SEC NO 5 


ADDRESS OF NEXT ROUTINE 




0017EC 


tci ui 


r 


004 


in 


SNSW,X«01 ' 


TEST SECTION SENSE SWITCH 7 




0017FO 


47 10 


F 


E4E 


8C 


ALL , SOLON© 


BR. TO BYPASS RTN IF SS 1 IS 




0017F4 


45 40 


F 


690 


BAL - 


R4« INIT 


BR. TO INITIALIZE 


ON 


0017F8 


92 41 


F 


F58 ' 


MVI 


CCW,X«41« . 


INSURE PUNCH CCW 




0017FC 


45 BO 


F 


10E 


BAL 


RlltlSIO 


BR. TO ISSUE SID PUNCH 




001600 


2A00 






DC ' 


X»2A0O' 


CONTROL SWITCHES 




001802 


0080 






DC 


X»0080* 


TEST NUMBE 




001804 : 


FOOD 






DC 


X'FOOO 8 


EXP. COND CODE - EXP« SENSE 


R 


001806 


FF3C 






DC 


AL2IPFRCSW-SECN0+RE6I 


EXP. ADDRESS OF CSW 




001808 


45 BO 


F 


OFA 


BAL 


RUtlTIO 


BR. TO ISSUE TEST 1-0 




00180C 


3C00 






DC 


X«3C0G S 


CONTROL SWITCHES 




oo! see 


0090 : 






DC 


X»0090» , 


TEST NUMBE 




001810 


FIDO 






DC 


X'FIOO* 


EXP. COND. CODE - EXP. SENSE 


R 


0018)2 


FFOA 






DC 


At2CDBIZ~SECNO*REG5 


EXP. CSW ADDRESS 




001814 : 


45 80 


F 


10E 


BAL 


RlltlSIO 


BR. TO ISSUE SIO PUNCH 




001818 


2A00 






DC 


X 8 2A00« 


CONTROL SWITCHES 




00181A 


0100 






DC 


X 9 O100® 1 


TEST NUMBE 




00181C 


FOOD 






DC 


X'FOOO* . 


EXP. COND. CODE - EXP. SENSE 


R 


00181E 


FF3C 






DC 


AL2 f PFRCSW-SECNO+REG I 


"EXP. ADDRESS OF CSW 




001820 ' 


45 BO 


F 


10E 


BAL 


RlltlSIO 


BR. TO ISSUE START' 1-0 • 




001824 : 


3C0Q 






DC 


X«3C00« . 


CONTROL SWITCHES 




001826 


0110 ' 






DC 


X e GliO« 


T E S T N U M ' B E 




001828 


F10O ' 






DC 


X'FIOO* 


EXP. COND CODE - EXP. SENSE 


R 


00182A 


FFOA 






DC 


AL2IDBIZ-SECNO+REG9 


EXP. CSW ADDRESS 




00182C 


45 > BO 


F 


10E 


SAL 


RlltlSIO 


BR. TO ISSUE SIO PUNCH 




001830 . 


2A0O 






DC 


X*2A0C» . 


CONTROL SWITCHES 




001832 


0120 . 






. DC 


X*0120* 


TEST NUM BE 




001834 


FOOD 






DC 


X*FOOO» - 


EXP* COND® CODE EXP, SENSE 


R 


001836 


FF3C 






DC . 


At2!PFRCSW-$EtNQ4<REGi 


'EXP* ADDRESS OF CSW 




001838 


45 BO 




BAL 


RlltlHIO 


BR. TO ISSUE HALT 1-0 




00183C 


3C00 ' 






DC 


X«3C00« - 


CONTROL SWITCHES 




00163E 


013© ; 






DC 


^ X«O130» . 


T ' £ $•■ T ■ N U M 3 g 


R 
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001840 
001842 
001844 
001846 

001846 



F100 
FF1A 
OA D6 

07 00 



EXP. COND. CODE - 
EXP. CSW ADDRESS 
ROUTINE EXIT 



DC X»F100» EXP. COND. CODE - EXP. SENSE 

DC AL2 ( C SWO-SECNO+REG ) 
SVC X»D6« 
CNOP 0,4 
BCR 0,0 

************************************************************^^ 
*****************************************************************^ 

* ROUTINE 06- ISSUE A PUNCH FEED STACKER SELECT POCKET 2 -41-. ENABLE 

* FOR ONE INTERRUPT ONLY. EXPECT COND. CODE 0 WITH CHANNEL 

* END ONLY IN CSW. 

* ISSUE AN INVALID COMMAND BEFORE DEVICE END OCCURS. 

* EXPECT COND. CODE 1 WITH DEVICE END AND DEVICE BUSY ONLY 

* IN THE CSW. EXPECT NO SENSE BITS TO BE SET. 

* NOTE— THIS ROUTINE WILL BE BYPASSED IF SECTION SENSE 

* SWITCH 7 IS ON. 
*****************************************^ 



001848 


06 






R0UT06 DC 


X«06» 


ROUTINE NUMBER 




001849 


00088C 




DC 


AL3(R0UT07~SECN0) 


ADDRESS OF NEXT ROUTINE 


00184C 


45 40 


F 


690 


BAL 


R4,INIT 


BR. TO INITIALIZE 




001850 


91 01 


F 


004 


TM 


SNSW,X»01« 


TEST SSW 7. 




001854 


47 10 


F 


E4E 


BC 


ALL , SOLONG 


BR IF ON. 




001858 


92 41 


F 


F58 


MVI 


CCW,X«41» 


INSURE PUNCH CCW 




00185C 


45 BO 


F 


10E 


BAL 


R11,ISI0 


BR. TO ISSUE START 1-0 




001860 


2A00 






DC 


X»2A00» 


CONTROL SWITCHES 




001862 


0140 






DC 


X»0140» 


TEST N U M 


B E 


001864 


FOOO 






DC 


X»F000» 


EXP. COND. CODE - EXP. 


SENSE 


001866 


FF3C 






DC 


AL2f PFRCSW-SECNO+REG) 


EXP. ADDRESS OF CSW 




001868 


92 F5 


F 


F58 


MVI 


CCWtX^FS* 


SET UP INVALID COMMAND 




00186C 


58 4E 


0 


198 


L 


R4,WT(R14> 


SET UP WAIT FACTOR 




001870 


88 40 


0 


004 


SRL 


R4,4 


ADJUST WAIT FACTOR 




001874 


46 40 


F 


874 


BCT 


R4,* 


WAIT 




001878 


45 BO 


F 


IDE 


BAL 


R11,ISI0 


BR. TO DO START 1-0 




00187C 


3800 






DC 


X»3800» 


CONTROL SWITCHES 




00187E 


0150 






DC 


X«0150« 


TEST N U M 


B E 


001880 


F100 






DC 


X»F100» 


EXP. COND. CODE - EXP. 


SENSE 


001882 


FF2A 






DC 


AL2( DBZY-SECNO+REG) 


EXP. CSW ADDRESS 




001884 


92 03 


F 


F58 


MVI 


CCW,X»03' 


REPLACE NOOP COMMAND 




001888 


OA D6 






SVC 


X«D6« 


ROUTINE EXIT 




00188A 








CNOP 


0,4 






00188A 


07 00 






BCR 


0,0 







*********************************************************************** 
********************************************************************^ 

* ROUTINE 07 - A PUNCH AND FEED -41- IS ISSUED. NO INTERRUPTS ARE 



* 

* 
* 
* 

* . 

* . 

* . 

* . 

* . 

*****************************************^^ 



CLEARED. THE SAME COMMAND IS ISSUED AGAIN. EXPECT 
CONDITION CODE 2 DUE TO PENDING CHANNEL END. ISSUE A 
HALT 1-0. EXPECT CONDITION CODE 0. ISSUE A TEST 1-0 
EXPECT COND. CODE 1, WITH CHANNEL END IN THE CSW. 
ISSUE A HALT 1^0. EXPECT COND. CODE 1 WITH A ZEROED 
CSW STORED. ISSUE PUNCH AND FEED START 1-0 AGAIN 
EXPECT COND. CODE 1 WITH DEVICE END AND DEVICE BUSY 
STORED IN THE CSW. ISSUE HALT 1-0. EXPECT COND. CODE 
WITH A ZEROED CSW STORED. ISSUE TEST 1-0. EXPECT 
COND. CODE 0* 



00188C 


07 






ROUTOT DC 


X«07« 


ROUTINE NUMBER 


00188D 


000900 




DC 


AL3(R0UT08~SECN0) 


ADDRESS OF NEXT ROUTINE 


001890 


45 40 


F 


690 


BAL 


R4,INIT 


BR. TO INITIALIZE 


001894 


92 41 


F 


F58 


MVI 


CCW,X»41» 


INSURE PUNCH CCW 


001898 


45 BO 


F 


10E 


BAL 


RlltlSIO 


BR. TO ISSUE SIO 


00189C 


4200 






DC 


X«4200« 


CTRL SWITCHES 


00189E 


0160 






DC 


X«0160» 


TEST N U M 8 


0018A0 


FOOO 






DC 


X«F000« 


EXP COND. CODE AND SENSE 


0018A2 


45 BO 


F 


10E 


BAL 


RlltlSIO 


BR. TO ISSUE SIO 


0018A6 


4200 






DC 


X»420O« 


CTRL SWITCHES 


0018A8 


0170 






DC 


X«O170* 


TEST NU M B 


0018AA 


F200 






DC 


X*F20O* 


EXP COND. CODE AND SENSE 


0018AC 


58 9E 


0 


198 


L 


R9 f WTiRI4l 


LOAD WAIT FACTOR 


0018B0 


88 ' 90 


0 


004 


SRL 


119,4 


ADJUST i 



E R 



e r 
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0018B4 


46 90 


F 


8B4 


BCT 


R9, * 


LOOP UNTIL COUNT OF ZERO 






0018B8 


45 BO 


F 0E6 


BAL 


R11,IHI0 


BR. TO ISSUE HALT 1-0 






0018BC 


4200 






DC 


X«4200« 


CTRL SWITCH 






0018BE 


0180 






DC 


X»0180» 


TEST NUMB 


E 


R 


0018C0 ; 


FOOO 






DC 


X'FOOO" 


EXP COND. CODE AND SENSE 






0018C2 


45 BO 


F 


OFA 


BAL 


Rll.ITIO 


BR. TO ISSUE TEST 1-0 






0018C6 


4A00 






DC 


X«4A00« 


CTRL SWITCHES 






0018C8 


0190 






DC 


X'O^O' 


TEST NUMB 


E 


R 


0018CA 


F100 






DC 


X'FIOO' 


EXP COND* CODE ANO SENSE 






0018CC 


FF3C 






DC 


AL2CPFRCSW- SECNO+REG) 


EXP. ADDRESS OF CSW 






0018CE 


45 BO 


F 


0E6 


BAL 


R11,IHI0 


BR. TO ISSUE HALT 1-0 






0018D2 


4A00 






DC 


X^AOO' 


CTRL SWITCHES 






0018D4 


0200 






DC 


X»0200» 


TEST NUMB 


E 


R 


001806 


F100 






DC 


X'FIOO 8 


EXP COND COSE AND SENSE 






0018D8 


FF1A 






DC 


AL2CCSW0- SECNO+REG) 


EXP CSW ADDRESS 






0018DA 


45 BO 


F 


10E 


BAL 


Rll, ISIO 


BR. TO ISSUE SIO 






00180E 


0800 






DC 


X 9 0800« 


CTRL SWITCHES 






0018E0 


0210 






DC 


X»0210« 


TEST NUMB 


E 


R 


0018E2 


F100 






DC 


X»F100« 


EXP COND. COOE AND SENSE 






0018E4 


FF2A 






DC 


AL2(DBZY- SECNO+REG) 


EXP CSW ADDRESS 






0018E6 


45 BO 


F 


0E6 


BAL 


RlltlHIO 


BR. TO ISSUE HALT 1-0 






0018EA 


4A0O 






DC 


X^AOO* 


CTRL SWITCHES 






0018EC 


0220 






DC 


X«0220 e 


TEST N U M B 


E 


R 


0018EE 


F100 






DC 


X>F100« 


EXP COND CODE AND SENSE 






0018F0 


FF1 A 






DC 


AL2CCSW0-SECN0+REG) 


EXP CSW ADDRESS 






0018F2 


45 BO 


F 


OFA 


BAL 


R11,ITI0 


BR. TO ISSUE TEST 1-0 






0018F6 


4200 






DC 


X»4200« 


CTRL SWITCHES 






0018F8 


0230 






DC 


X»0230« 


TEST NUMB 


E 


R 


0018FA 


FOOO 






DC 


X'FOOO* 


EXP COND CODE AND SENSE 






0018FC 


OA D6 






SVC 


X«D6« 


ROUTINE EXIT 






0018FE 








CNOP 


0,4 








0018FE 


07 DO 






BCR 


0,0 









* ROUTINE 08- ISSUE A PUNCH FEED STACKER SELECT -41- EXPECT COND. 

* CODE 0, WITH CHANNEL END AND DEVICE END IN SEPARATE 

* CSWS. ISSUE A DIAGNOSTIC READ -C2- EXPECT COND CODE 

* 0 WITH CHANNEL AND DEVICE ENDS TOGETHER IN ONE CSW. 

* ISSUE A DIAGNOSTIC CHECK READ -C6- EXPECT SAME RESULTS 

* IN STATUS AS DIAGNOSTIC READ. 



001900 


08 






ROUT08 DC 


X«08» 


ROUTINE NUMBER 




001901 


000 93C 




DC 


AL31R0UT09-SECN0) 


ADDRESS OF NEXT ROUT INE 


001904 


45 40 


F 


690 


BAL 


R4,INIT 


BR. TO INITIALIZE 




001908 


92 41 


F 


F58 


MVI 


CCW,X«4t« 


INSURE PUNCH CCW 




00190C 


45 BO 


F 


10 E 


BAL 


R11,ISI0 


BR. TO DO START 1-0 




001910 


3E00 






DC 


X«3E00« 


CONTROL SWITCHES 




001912 


0240 






DC 


X«0240« 


T EST N U M 


B E 


001914 


FOOO 






DC 


X'FOOO" 


EXP. COND. CODE - EXP. 


SENSE 


001916 


FF3C 






DC 


AL2( PFRCSW- SECNO+REG) 


EXP* ADDRESS OF CSW 




001918 


92 C2 


F 


F58 


MVI 


CCW,X»C2 8 


INSURE DI AG READ CCW 




00191C 


45 BO 


F 


10 E 


BAL 


Rll, ISIO 


BR. TO DO START 1-0 




001920 


2800 






' DC 


X»2800» 


CONTROL SWITCHES 




001922 


0250 






DC 


X»0250 e 


TEST N U M 


B E 


001924 


FOOO 






DC 


X»FOOO e 


EXP. COND. CODE - EXP. 


SENSE 


001926 


FF4C 






DC 


AL2C PRDCSW- SECNO+REG) 


EXP« ADDRESS OF CSW 




001928 


92 C6 


F 


F58 


MVI 


CCW f X'C6' 


INSURE DI AG CHECK READ 




00192C 


45 BO 


F 


10E 


BAL 


Rllt ISIO 


BR. TO DO START 1-0 




001930 


2800 






DC 


X«2800* 


CONTROL SWITCHES 




001932 


0260 






DC 


X»0260' 


TEST N U M 


B E 


001934 


FOOO 






DC 


X'FOOO 1 


EXP. COND. CODE - EXP. 


SENSE 


001936 


FF4C 






DC 


AL2 ( PR DC SW- SECNO+REG ) 


EXP. ADDRESS OF CSW 




001938 


OA 06 






SVC 


X»D6» 


ROUTINE EXIT 




00193A 








CNOP 


0,4 






00193A 


07 00 






BCR 


0,0 







* ROUTINE 09- ISSUE ALL VALID PUNCH FEED READ COMMANDS IF THE FEATURE 
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00193C 

00193D 

001940 

001944 

001948 

00194C 

00194E 

001950 

001952 

001954 

001958 

00195C 

00195E 

001960 

001962 

001964 

001968 

00196C 

00196E 

001970 

001972 

001974 

001978 

00197C 

00197E 

001980 

001982 

001984 

001988 

00198C 

00198E 

001990 

001992 

001994 

001998 

00199C 

00199E 

0019A0 

0019A2 

0019A4 

0019A8 

0019AC 

0019AE 

0019B0 

0019B2 

0019B4 

0019B8 

0019BC 

0019BE 

0019C0 

0019C2 

0019C4 

0019C8 

0019CC 

0019CE 

001900 



DATE 
EC 
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IS NOT PRESENT ON THE DEVICE. WHEN PFR FEATURE IS 
NOT PRESENT AND PFR COMMANDS ARE ISSUED, THE COMMANDS 
aSe DECODED ASA NORMAL PUNCH FEED STACKER SELECT COMMAND 
EXPECT COND. CODE 0 ON THE START 1-0 WITH CHANNEL END 
AND THEN DEVICE END INTERRUPTS. 

ISSUE ALL VALID PFR READ COMMANDS. THESE COMMANDS WILL 

BE DECODED AS A DIAGNOSTIC READ COMMAND. 

EXPECT COND. CODE 0 WITH CHANNEL END AND DEVICE END 

nSte T -- R THIS ROUTINE BYPASSED IF PFR FEATURE DEFINED* 



09 

000 B78 
45 40 F 
92 C2 F 
45 BO F 
2A00 
0265 
FOOO 
FF4C 
92 29 F 
45 BO F 
3E0O 
0270 
FOOO 
FF3C 
92 C2 f 
45 BO f 
2A00 
0280 
FOOO 
FF4C 
92 39 I 
45 BO f 
3E00 
0290 
FOOO 
FF3C 
92 D2 F 
45 BO F 
2A00 
0300 
FOOO 
FF^C 
92 69 F 
45 BO F 
3E00 
0310 
FOOO 
FF3C 
92 E2 F 
45 BO F 
2A00 
0320 
FOOO 
FF4C 
92 79 F 
45 BO F 
3E00 
0330 
FOOO 
FF3C 
92 F2 F 
45 BO F 
2A00 
0340 
FOOO 



05 MAY 65 

124252 



* NOTE — THIS ROUTINE BYPASSED IF KI-R 1-tAiUKC ucrincu. 

..... ~~ DDI IT Y MP K1IIMRFR 



R0UT09 



690 
F58 
10E 



F58 
10E 



F58 

10 E 



F58 
10E 



F58 
10E 



F58 
10E 



F58 
10E 



F58 
10E 



F58 
10E 



DC 
DC 
BAL 
MVI 
BAL 
DC 
DC 
DC 
DC 
MVI 
BAL 
DC 
DC 
DC 
DC 
MVI 
BAL 
DC 
DC 
DC 
DC 
MVI 
BAL 
DC 
DC 
DC 
DC 
MVI 
BAL 
DC 
DC 
DC 
DC 
MVI 
BAL 
DC 
DC 
DC 
DC 
MVI 
BAL 
DC 
DC 
DC 
DC 
MVI 
BAL 
DC 
DC 
DC 
DC 
MVI 
BAL 
DC 
DC 
DC 



X»09 

AL3(ROUTl0-SECNO) 
R4,INIT 
CCW,X«C2* 
Rll, ISIO 
X«2A0O f 
X«0265« 
• FOOO* 



B E R 



U M 
- EXP. 



U M 
- EXP. 



ROUTINE NUMBER 
ADDRESS OF NEXT ROUTINE 
BR. TO INITIALIZE 
INITIALIZE CCW 
BR TO ISSUE START 1-0 
CTRL SWITCHES. 
TEST N U M 
A rvvv EXP COND CODE AND SNS. 

AL2 ( PRDCSW- SECNO+REG) EXP CSW ADDR. 
CCW,X»29* INITIALIZE CCW 

Rll , I SIO BR. TO ISSUE START 1-0 

X t 3E oo« CTRL SWITCHES 

X»0270 t TEST N 

X*FOOO« EXP. COND. CODE 

AL2(PFRCSW- SECNO+REG) EXP CSW ADDRESS 
CCW,X'C2« INITIALIZE CCW 

R 11 , I SIO BR. TO ISSUE START 1-0 

X*2A00* CTRL SWITCHES 

X»0280 t TEST N 

X«FOOO* EXP. COND. CODE 

AL 2 ( PRDC SW- SECNO+REG ) EXP CSW ADDRESS 
CCW,X»39« INITIALIZE CCW 

R11 ,ISIO BR. TO ISSUE START 1-0 

X »3E00» CTRL SWITCHES 

X»0290» TEST N U M 

X'FOOO* EXP. COND. CODE - EXP. 

AL2( PFRC SW- SECNO+REG) EXP CSW ADDRESS 
CCW,X»D2« INITIALIZE CCW 

Rll, I SIO BR. TO ISSUE START 1-0 

X«2A00» CTRL SWITCHES 

X«0300« TEST N U M 

X tPOOO« EXP. COND. CODE - EXP. SENSE 

AL2C PRDCSW- SECNO+REG) EXP CSW ADDRESS 
CCW,X«69« INITIALIZE CCW 

R U, ISIO BR. TO ISSUE START 1-0 

X »3E00« CTRL SWITCHES 

X'0310« TEST N U M 

X«FOOO* EXP. COND. CODE - EXP. 

AL2 ( PFRCSW- SECNO+REG ) EXP CSW ADDRESS 
CCW,X«E2* INITIALIZE CCW 

Rll , ISIO BR. TO ISSUE START 1-0 

X«2A00* CTRL SWITCHES 

X«0320« TEST N U M 

XtfQOO* EXP. COND. CODE - EXP. 

AL2C PRDCSW- SECNO+REG) EXP CSW ADDRESS 
CCW,X»79« INITIALIZE CCW 

Rll, ISIO BR. TO ISSUE START 1-0 

X«3E00« CTRL SWITCHES 

X«0330« ■ TEST N U ' M. 

XtFOOO 9 EXP. COND. CODE - EXP. 

AL2CPFRCSN-SECN04iRlE6t EXP CSW ADDRESS 
CCW,X«F2» INITIALIZE CCW 

RH.ISIO BR. TO ISSUE START 1-0 

X>2A00* CTRL SWITCHES 

X«0340* T I S t 1 N U M 

X«F000 f • ' EXP* COND* CODE EXP. 



B E R 
SENSE 



B E R 

SENSE 



B E R 

SENSE 



B E R 



B E 
SENSE 



B E 
SENSE 



B E 
SENSE 



B E 
SENSE 



10AUG65 
125580 



22FEB66 
125621 



15JUN67 

130498 



ID F820-3 
PAGI 17A 



I 
i 
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0019D2 

0019D4 

001908 

0019DC 

0019DE 

0019E0 

0019E2 

0019E4 

0019E8 

0019EC 

0019EE 

0019F0 

0019F2 

0019F4 

0019F® 

0019FC 

0019FE 

001 AOO 

001 A02 

001A04 

001 AOS 

001 AOC 

001A0E 

001A10 

001A12 . 

001A14 : 

001A18 

001A1C 

001A1E 

001A20 

001A22 

001A24 ' 

001A28 1 

001A2C 

001 A2E 

001 ABO 

001A32 

001A34 : 

001A38 

001A3C 

001A3E 

001 A40 

001 A42 

001A44 . 

001 A48 

001 A4C 

001A4E 

001A50 

001A52 

001 A54 

001A58 

001A5C 

001A5E 

001 A60 

001A62 

001A64 . 

0Q1A68 

001 A6C 

001A&E 

001A70 

©01A72 

001AI4 ' 

001 A78 

001A7C 

001A7E 

001 A80 

001 A® 2 

001 A84 : 



FF%C 
92 89 
45 BO 
3E00 
0350 
FOOO 
FF3C 
92 CA 
45 BO 
2A00 
0360 
FOOO 
FF4C 
92 B9 
45 BO 
3E00 
0370 
FOOO 
FF3C 
92 DA 
45 BO 
2A00 
0380 
• FOOO 
FF*C 
92 09 
45 BO 
3E0O 
0390 
FOOO 
FF3C 
92 £A 
■ 45 BO 
2A00 
0400 . 
FOOO 
FF4C 
92 00 
45 BO ' 
3E00 
0410 
FOOO 
FF3C 
92 FA 
45 BO 
2A00 
0420 
FOOO 
FF4C 
92 19 
45 BO 
3E00 
0430 
FOOO 
FF3C 
92 C2 
45 BO 
2A00 
0440 . 
FOOO 
FF4C 
92 10 
45 BO 
3E00 
0450 
FOOO 
FF3C 
92 02 



F58 ' 
IOE 



F5® 
IOE 



F58 

IOE 



F58 

•IOE 



F58 
IOE 



F58 
IOE 



F58 
IOE 



F58 
IOE 



FSS 
IOE 



F58 
IOE 



:FS8 • 
10 E 



DATE 

EC 



09 MAY 65 

124252 



F F58 



10AUG65 
125580 



22PE866 
125621 



DC 

mi 

BAL 

DC 

DC 

DC 

DC 

MVI 

BAL 

PC 

DC 

DC 

DC 

MVI 

BAL 

DC 

DC 

DC 

DC 

MVI 

BAL 

DC 

DC 

DC 

DC 

MVI 

BAL 

DC 

DC 

DC 

DC 

MVI 

BAL 

DC 

DC 

DC 

DC 

MVI 

BAL ' 

DC 

DC 

DC 

DC 

MVI 

BAL 

DC 

DC 

DC 

DC 
MVI 

BAL 

DC 

DC 

DC 

DC 

MVI 

BAL 

DC 

DC 

DC 

DC 

MVI 

BAL 

DC 

DC 

DC 

DC 

MVI 



15JUN67 
190498 



AL2tPRDCSW-Se€N04»RE6l 
CCW«X*89* 
Rll* ISIO 
X'3E00* 
X*0350» 
X'FOOO* 

AL 2 < PFRC SW~ SEC NO+REG ) 
CCWtX'CA* 

RlltlSIO 
X*2A00» 
X»0360« 

X'FOOO* 

AL2IPRDCSW~SECN0*REGi 
CCW*X'B9* 
RlltlSIO 

X*3E0© 9 
X«0370* 
X»F0OO» . 

AL2CPFRCSW-SECN0+REG) 

CCW§X»DA» ■ 
RlltlSIO 
X 8 2AOO* 
X*038O* 
X'FOOO' . 

AL2 I PRDCSW-SECNO+REGJ 
CCW,X'09* 
RlltlSIO 

X'SEO© 8 . 
X'Q390* 
X'FOOO' 

AL2CPFRCSW-SECN0+REGJ 
CCW*X»EA» 
RlltlSIO 
X'2A00* . 

X* 0400 8 - 
X'FOOO* 

AL2(PRDCSW-SECN0+REG) 

CCW f X 8 0D« 
RlltlSIO 
X*3E0©« 
X*0410« 

X s FOOO* 

AL2( PFRCSW-SECNO+REG) 
CCW«X*FA* ■ 

Rll * ISIO 
X'2A00« 
X-0420* 

X*F000« 

AL2(PRDCSW-SECN0+REG) 

ccy f x 9 i9» 

RlltlSIO 
X»3E00 9 
X*0430« 

X'FOOO* ' 

AL2I PFRCSy~SECNO*REG) 
CCWtX*C2* 
RlltlSIO 
X*2AQ0« 
X'0440* - 
X*F000* 

AL2tPRDCSW~SECN0+REG) 
CCWtXUD' 
RlltlSIO 
X'3E00* 

X»0450» 
X'FOOO* . 

AL2 f PFRC SW- SEC NO+REG 1 
CCM»X*D2* 



EXP CSW ADDRESS 
INITIALIZE CCW 
BR. TO ISSUE START 1-0 
CTRL SWITCHES 
TEST N U M 

EXP. COND. CODE - EXP. 
EXP CSW ADDRESS 
INITIALIZE CCW 
BR. TO ISSUE START 1-0 
CTRL SWITCHES 
TEST N U M 

EXP. COND. CODE - EXP. 
EXP CSW ADDRESS 
INITIALIZE CCW 
BR. TO ISSUE START 1-0 
CTRL SWITCHES 
TEST NUN 
EXP. COND. CODE - EXP. 
EXP CSW ADDRESS 
INITIALIZE CCW 
BR. TO ISSUE START 1-0 
CTRL SWITCHES 
TEST H U M 

EXP. COND. CODE - EXP. 
EXP CSW ADDRESS 
INITIALIZE CCW 
BR. TO ISSUE START 1-0 
CTRL SWITCHES 
TEST N U M 

EXP. COND. CODE - EXP. 
EXP CSW ADDRESS 
INITIALIZE CCW 
BR. TO ISSUE START 1-0 
CTRL SWITCHES 
TEST H y M 

EXP. COND. CODE - EXP. 
EXP CSW ADDRESS 
INITIALIZE CCW 
BR. TO ISSUE START 1-0 
CTRL SWITCHES 
TEST N U M 

EXP. COND. CODE - EXP. 
EXP CSW ADDRESS 
INITIALIZE CCW 
BR. TO ISSUE START 1-0 
CTRL SWITCHES 
TEST N U M 

EXP. COND. CODE - EXP. 
EXP CSW ADDRESS 
INITIALIZE CCW 
BR. TO ISSUE START S-0 
CTRL SWITCHES 
TEST N U M 

EXP. COND* CODE - EXP. 
EXP CSW ADDRESS 
INITIALIZE CCW 
BR. TO ISSUE START 1-0 
CTRL SWITCHES 
TEST N U M 

EXP. COND. CODE - EXP. 
EXP CSW ADDRESS 
INITIALIZE CCW 
BR. TO ISSUE START -1-0 
CTRL SWITCHES 
TEST NUN 
EXP* COND* CODE - EXP. 
EXP CSW ADDRESS 
INITIALIZE CCW 



B E R 
SENSE 



B E R 
SENSE 



B E R 

SENSE 



B E R 
SENSE 



B E R 
SENSE 



8 £ R 
SENSE 



8 E R 

SENSE 



8 E R 
SENSE 



8 E R 
SENSE 



B E R 
SENSE 



8 E R 
SENSE 



ID F820-3 

PMB 18 



nni aoo 

UU X AOO 


AC an 
ID DU 


e 

r 


lUC • 




BAL 


R 11 t I SIO 


BR. TO ISSUE START 1-0 






nni A Of* 

UUl AOL 


2 AOO 








DC 


X • 2A00' 


CTRL SWITCHES 






001 A8E 


0460 








DC 


X* 0460 9 


TEST N U M 


B E 


R 


UUl A7U 


FOOO 








DC 


X'FOOO* 


EXP. COND. CODE - EXP. 


SENSE 




001 A92 


FF4 C 








DC 


AL 2 ( PRDC SW- SECNLHREG ) 


EXP. CSW ADDRESS 






nni Ada 
UUl A7H 


92 49 


F 


F58 




MVI 


CCWtX , 49 t 


INITIALIZE CCW 






nni Aofl 
uui at»o 


■t 3 DU 


F 


i r» c 




BAL 


Rll t ISIO 


BR. TO ISSUE STARX. I~0 






001 A9C 


3E00 








DC 


X*3E00' 


CTRL SWITCHES 






001 A9E 


0470 








DC 


X , 0470 8 


TEST N U M 


B E 


R 


nn i a An 
UU 1 A AU 


FOOO 








DC 


X'FOOO 8 


EXP. COND. CODE - EXP. 


SENSE 




001 A A2 


FF3C 








DC 


AL2( PFRCSW-SECNLHREGI 


EXP CSW ADDRESS 






nni a a a 

UU 1 A AH 


92 E2 


F 


F58 




MVI 


CCWtX'E2' 


INITIALIZE CCW 






nni a ao 

UU 1 A AO 


on 
H3 DU 


c 


1UC 




BAL 


RlltlSIO 


BR. TO ISSUE START 1-0 






nn i a at 

UUl A AU 


2 AOO 








DC 


X* 2A00' 


CTRL SWITCHES 






001 A AE 


0480 








DC 


X , 0480 t 


TEST N U M 


8 E 


R 


nni a nn 

UUl ADU 


cnn n 
ruu u 








DC 


X'FOOO' 


EXP. COND. CODE - EXP* 


SENSE 




nni ar? 

UU JL AD£ 


rrf l 








DC 


AL2 1 PRDC SW— SEC NO+REG I 


EXP. CSW ADDRESS 






nni ara. 

UU 1 A a*v 


do An 


c 

r 


rDO 




MVI 


CCWtX , 4u" 


INITI ALI ZE CCW 






nm add - 

UUl ADO 


ac an 
*rD DU 


F 


1U c 




BAL 


HI 1 t I SIO 


BR. TO I SSUE START 1-0 






nn i arc 

UU 1 ADU 


■a en n 








DC 


X*3E00' 


CTRL SWITCHES 






nn i arc 

UUl ADC 


049 0 








DC 


,X ■ 0490" 


TEST N U M 


B E 


R 


nn i Am 

UU 1 Av»U 


ennn 
rUUU 








DC 


X'FOOO* 


EXP. COND. CODE - EXP. 


SENSE 




nni at? 

UU 1 Alt 


rr3 L 








DC 


AL2 C PFRC S W- SEC NO+REGl 


EXP CSW ADDRESS 






001 AC4 




r 


ceo 
rPo 




MV I 


rru W ft «r* *fe 0 

CCW t X "F2 * 


INITI ALI ZE CCW 






001 AC8 


45 BO 


F 


IOE 




DAI 

DAL 


oil tefn 
Klltlolu 


BR. TO ISSUE START I— 0 






nni apt 


2 AOO 








DC 


vi unm 
A ' cAUO* 


CTRL SWI TCHES 






nni Arc 

\J\J iHUC 


0500 








DC 


v t rienn t 


TEST N U M 


B E 


R 


001 ADO 


FOOO 








nr 


yic nnn • 

A r UUU 


EXP. COND. CODE - EXP. 


SENSE 




nn l An? 


FF^C 








UL. 


AL a I rKUL5W~5fctWU*Rc©l 


EXP. CSW ADDRESS 






001 AD4 


92 59 


p 


F58 




n v l 


fry vi cn ■ 


f Ml Tf Al lit f fU 

INI 11 ALI Zc CCW 






001 AD8 


45 BO 


F 


IOE 




BAL 




OK. 1 U I ooUc START I-»0 






001 ADC 


3E0O 








DC 


X* 3E00 * 


LIKL 5N1 1 Lnfco 






001 ADE 


051 0 










y • nm n • 

A U3IU 


TEST N U M 


B E 


R ' 


001 AEO 


FOOO 










y ir nnn • 

A " r UUU " 


caP. LUND. CODE — EXP. 


SENSE 




001 AE2 


FF3C 










AL A I rrRW aW^dCl^rlU^iiCvl 


caP CSW ADDRESS 






001 AE4 


92 CA 


F 


F58 




nvl 


rr li v ir A t 

l#L It t A LA 


vkiTTTAi tic rru 
INITIALIZE CCW 






001AE8 


45 BO 




IOE 




BAL 


nil t 1 Jlu 


DR. 1 U 1 )oUC 51 AKI 1 "*U 






001 AEC 


2A0O 








nr 


X ' 2 A 00 * 


rTDI cut T<*UCC 
L 1 KL olf I 1 LHco 






001AEE 


0520 








DC 


X* 0520* 


• t S I N U M 


B E 


R 


001 AFO 


FOOO 








DC 


X'FOOO' 


CA r. Lunt;* LUUC CAr . 


SENSE 




001AF2 


FF4C 








DC 


Ml. A 1 rl\Ul O V* dul if U~I\CW # 


CAr. LOM AuUKtSS 






001 AF4 


92 5D 


F 


F58 




MVI 


rru. v t Rn • 

«*w rl t A JLr 


t Kif t f ai i jc rru 

im 1 1AL1 AC LLH 






001AF8 


45 BO 


F 


IOE •■ 




BAL 


Rll t I SIO 


Dl\. IU ( jOUC J 1 Ant 1 U 






001AFC 


3E00 








DC 


X*3E00* 








001 AFE 


0530 








DC 


X* 0530* 


TCCT At II U 
1 C o 1 ft U M 


B E 


R 


001 BOO 


FOOO 








DC 


X'FOOO* 


tvp rnun mnc — cvo 

CAr. IfUliU. LUUC ~* CAr. 


S ENSE 




001 B02 


FF3C 








DC 


AL2( PFRC SW-SECNO+REG ) 


EXP CSW ADDRESS 






001B04 


92 DA 


F 


F58 




MVI 


rru. v tnA • 

Kt\* It t A l/B 


tkitttai t ic rru 

I Ml I 1AL1£.C LLW 






001B08 


45 BO 


F 


10 E 




BAL 


RlltlSIO 


BR. TO ISSUE START 1-0 






001 BOC 


2 AOO 








DC 


v • 9 Ann » 

A " AAUU 


rTDI CU! TTUCC 

L 1 RL SWI TCHcS 






001B0E 


05*0 








DC 


X»0540' 


TEST N U M 


B E 


R 


001B10 


FOOO 








DC 


X'FOOO' 


EXP. COND. CODE - EXP. 


SENSE 




001B12 


FF^C 








DC 


AL2C PRDCSW-SECNO+REGI 


EXP CSW ADDRESS 






001B14 


92 8D 


F 


F58 




MVI 


CCWtX*8D» 


INITIALIZE CCW 






001B18 


45 BO 


F 


IOE 




BAL 


RlltlSIO 


BR. TO ISSUE START 1-0 






001B1C 


3E00 








DC 


X*3E00* 


CTRL SWITCHES 






001B1E 


0550 








DC 


X'0550» 


TEST N U M 


B E 


R 


001B20 


FOOO 








DC 


X'FOOO' 


EXP. COND. CODE - EXP* 


SENSE 




001B22 


FF3C 








DC 


AL 2 1 PFRC SW-SECNO^REG) 


EXP CSW ADDRESS 






001B24 


92 EA 


F. 


F58 




MVI 


CCWtX'EA* 


INITIALIZE CCW 






001B28 


45 BO 


F 


IOE 




BAL 


RlltlSIO 


BR* TO ISSUE START 1-0 






001B2C 


2 AOO 








DC 


X*2A00* 


CTRL SWITCHES 






001B2E 


0560 








DC 


X*0560* 


TEST N U N 


8 E 


R 


001B30 


FOOO 








DC 


X'FOOO* 


EXP. COND* CODE - EXP* 


SENSE 




001B32 


FF4C 








DC 


AL2 I PROC SW-SECNO+REG 1 


EXP CSW ADDRESS 






001 B34 


92 99 


F 


F58 




MVI 


CCWtX*9^ e 


INITIALIZE CCW 






00IB38 


45 BO 


F 


IOE 




BAL 


RlltlSIO 


BR* TO ISSUE START • IHJ 






001 B3C 


3E00 








DC 


K*3E00* 


CTRL SWITCHES 






DATE 


05MAY65 




10AUG65 


22FE866 


15JUN67 






ID 




EC : 


124252 




125580 • 


125621 . 


130498 . 






PAGE ISA 
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001B3E 


0570 






DC 


X , 0570» 


TEST N U M 


B E 


001 B40 


FOOO 






DC 


X'FOOO 1 


EXP. COND. CODE - EXP. 


SENSE 


001 B42 


FF3C 






DC 


AL2 ( PFRCSW-SECNO+REG ) 


EXP CSW ADDRESS 




001B44 


92 FA 


F 


F58 


MVI 


CCW,X«FA« 


INITIALIZE CCW 




001B48 


45 BO 


F 


10E 


BAL 


RlltlSIO 


BR. TO ISSUE START 1-0 




001 B4C 


2A00 






DC 


X«2A00» 


CTRL SWITCHES 




001B4E 


05B0 






DC 


X«0580« 


TEST N U M 


B E 


001 B50 


FOOO 






DC 


X'FOOO* 


EXP. COND. CODE - EXP. 


SENSE 


001B52 


FF4C 






DC 


AL2(PRDCSW-SECN0+REG) 


EXP CSW ADDRESS 




001 B54 


92 9D 


F 


F58 


MVI 


CCW,X«9D« 


INITIALIZE CCW 




001B58 


45 BO 


F 


10E 


BAL 


RlltlSIO 


BR. TO ISSUE START 1-0 




001 B5C 


3E00 






DC 


X«3E00« 


CTRL SWITCHES 




001B5E 


0590 






j DC 


X«0590« 


TEST N U M 


B E 


001B60 


FOOO 






DC 


X«FOOO« 


EXP. COND. CODE - EXP. 


SENSE 


001 B62 


FF3C 






DC 


AL2< PFRCSW-SECNO+REG) 


EXP CSW ADDRESS 




001B64 


92 C6 


F 


F58 


MVI 


CCW,X»C6" 


MOVE A CHK RD CMD INTO 


CCW. 


001B68 


45 BO 


F 


10E 


BAL 


RlltlSIO 


BR TO ISSUE START 1-0 




001 B6C 


2A00 






DC 


X«2A00« 


CTRL SWITCHES. 




001B6E 


0595 






DC 


X«0595« 


TEST N U M 


B E 


001 B70 


FOOO 






DC 


X'FOOO 9 


EXP COND CODE AND SNS. 




001B72 


FF4C 






DC 


AL2 ( PRDCSW-SECNO+REG) 


EXP CSW ADDRESS. 




001 B74 


OA 06 






EXIT10 SVC 


X«D6» 


ROUTINE EXIT 




001 B76 








CNOP 


0,4 






001 B76 


07 00 






BCR 


0,0 







* ROUTINE 10 ISSUE ALL VALID COLUMN BINARY COMMANDS TO THE PUNCH. 

* IF THE COLUMN BINARY FEATURE IS N 0 t PRESENT ON THE 

* DEVICE, THE COLUMN BINARY COMMANDS WILL DECODE AS A 

* NORMAL PUNCH FEED STACKER SELECT COMMAND. 

* EXPECT COND. CODE 0 ON THE START 1-0 WITH CHANNEL END AND 

* THEN DEVICE END INTERRUPTS. 



001B78 
001B79 
001 B7C 
001B80 
001B84 
001B88 
001B8A 
001BBC 
001B8E 
001B90 
001B94 
001B98 
001B9A 
001 B9C 
001 B9E 
001 BAO 
001 BA4 
001BA8 
001BAA 
001 BAC 
001 BAE 
001BB0 
001 BB4 
001 BBS 
001BBA 
001 BBC 
001BBE 
001BCO 
001BC4 
001BC8 
001BCA 
001BCC 
001BCE 
001 BDO 
001BD4 



10 

000 BE4 
45 40 
92 21 
45 BO 
3E00 
0600 
FOOO 
FF3C 
92 31 
45 BO 
3E0O 
0610 
FOOO 
FF3C 
92 61 
45 BO 
3E00 
0620 
FOOO 
FF3C 
92 71 
45 BO 
3E00 
0630 
FOOO 
FF3C 
92 Al 
45 BO 
3E00 
0640 
FOOO 
FF3C 
92 Bl 
45 BO 



F 690 
F F58 
F 10E 



F F58 
F 10E 



F F58 
F 10E 



F F58 

F 10E 



F F58 
F 10E 



F F58 
F 10E 



ROUT 10 DC 
DC 
BAL 
MVI 
BAL 
DC 
DC 
DC 
DC 
MVI 
BAL 
DC 
DC 
DC 
DC 
MVI 
BAL 
DC 
DC 
DC 
DC 
MVI 
BAL 
DC 
DC 
DC 
DC 
MVI 
BAL 
DC 
DC 
DC 
DC 
MVI 
BAL 



X«10« 

AL3(RQUT11-SECN0) 

R4,INIT 

CCW,X'21* 

R11,ISI0 

X«3E00» 

X»0600« 

X'FOOO 1 

AL2( PFRCSW-SECNO+REG) 

CCW,X«3l # 

RlltlSIO 

X»3E00» 

X»0610« 

X'FOOO* 

AL2< PFRCSW-SECNO+REG) 

CCW,X»61« 

R11,ISI0 

X'SEOO' 

X'0620* 

X'FOOO 8 

AL2 ( PFRCSW-SECNO+REG ) 

CCW,X»71» 

RlltlSIO 

X»3E00* 
X 8 0630* 
X'FOOO" 

AL2C PFRCSW-SECNO+REG) 

CCW,X»A1» 

RlltlSIO 

X«3E00» 

X»0640« 

X«FOOO« 

AL2( PFRCSW-SECNO+REG) 

CCW«X*81« 

RlltlSIO 



ROUTINE NUMBER 
ADDRESS OF NEXT ROUTINE 
BR. TO INITIALIZE 
INITIALIZE CCW 
BR. TO ISSUE START 1-0 
CTRL SWITCHES 
TEST N U M 

EXP. COND. CODE - EXP. 
EXP CSW ADDRESS 
INITIALIZE CCW 
BR. TO ISSUE START 1-0 
CTRL SWITCHES 
TEST N U M 

EXP. COND. CODE - EXP. 
EXP CSW ADDRESS 
INITIALIZE CCW 
BR. TO ISSUE START 1-0 
CTRL SWITCHES 
TEST N U M 

EXP. COND. CODE - EXP. 
EXP CSW ADDRESS 
INITIALIZE CCW 
BR. TO ISSUE START 1-0 
CTRL SWITCHES 
TEST N U M 

EXP. COND. CODE - EXP. 
EXP CSW ADDRESS 
INITIALIZE CCW 
BR. TO ISSUE START 1-0 
CTRL SWITCHES 
T E S T HUM 
EXP. COND. CODE - EXP. 
EXP CSW ADDRESS 
INITIALIZE CCW 
BR. TO ISSUE START 1-0 



B E 
SENSE 



B E 
SENSE 



B E 
SENSE 



8 E 
SENSE 



B £ 
SENSE 



OATE 05 MAY 65 10AUG65 22FEB66 13JUN67 
EC 124252 125580 125621 130498 
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001BD8 
001BDA 
001 BDC 
001 BDE 
001BE0 
001BE2 
001BE2 



3E0O 
0650 
FOOO 
FF3C 
OA D6 

07 00 



DC 

DC 

DC 

DC 

SVC 

CNOP 



BCR 



X«3E00> CTRL SWITCHES 

X«0650« TEST NUMBER 

X «F000' EXP. COND. CODE - EXP. SENSE 

AL2C PFRCSW-SECNO+REG) EXP CSW ADDRESS 

X«D6* ROUTINE EXIT 

0,4 

0,0 



0018E4 

001BE5 

001BE8 

001 BEC 

001BF0 

001BF2 

001 BF4 

001BF6 

001BF8 

001BFC 

001C00 

001C02 

001C04 

001C06 

001C08 

001C0C 

001C10 

001C12 

001C14 

001C16 

001C18 

001C1C 

001C20 

001C22 

001C24 

001C26 

001C28 

O01C2C 

001C30 

001C32 

001C34 

001C36 

001C38 

001C3C 

001C40 

001C42 

001C44 

001C46 

001C48 

001C4C 

001C50 

001C52 

001 C54 

001C56 

001C58 

001C5C 

001C60 

001C62 

001C64 

001C66 



DATE 
EC 



11 

000 CAC 
92 11 
45 BO 
3E00 
0660 
FOOO 
FF3C 
92 15 
45 BO 
3E0O 
0670 
FOOO 
FF3C 
92 51 
45 BO 
3E00 
0680 
FOOO 
FF3C 
92 55 
45 BO 
3E00 
0690 
FOOO 
FF3C 
92 91 
45 BO 
3E00 
0700 
FOOO 
FF3C 
92 95 
45 BO 
3E00 
0710 
FOOO 
FF3C 
92 01 
45 BO 
3E0O 
0720 
FOOO 
FF3C 
92 05 
45 BO 
3E00 
0730 
FOOO 
• FF3C 



05 MAY 65 
124252 



* ROUTINE 11 ISSUE ALL VALID 1400 PUNCH COMPATIBILITY COMMANDS TO 

* THE PUNCH. IF THE 1400 PUNCH COMPATIBILITY IS NOT 

« INSTALLED THE COMMANDS WILL DECODE AS NORMAL PUNCH FEED 

* STACKER SELECT COMMANDS. t 4MPI 

* EXPECT COND. CODE 0 ON THE START 1-0 WITH CHANNEL END AND 

* THEN DEVICE END INTERRUPTS. 

* ISSUE ALL VALID NORMAL PUNCH FEED STACKER SELECT COMMANDS 

* TO THE PUNCH. EXPECT SAME RESULTS AS ABOVE. 

~ - - v. . 4 t . DnilTI MC Ml ISMRP f) 



ROUT 11 



F F58 
F 10E 



F F58 
F 10 E 



F F58 
F 10E 



F F58 
F 10E 



F F58 
F 10E 



F F58 
F 10E 



F F58 
F 10E 



F F58 
F 10E 



DC 
DC 
MVI 
BAL 

DC 

DC 

DC 

DC 

MVI 

BAL 

DC 

DC 

DC 

DC 

MVI 

BAL 

DC 

DC 

DC 

DC 

MVI 

BAL 

DC 

DC 

DC 

DC 

MVI 

BAL 

DC 

DC 

DC 

DC 

MVI 

BAL 

DC 

DC 

DC 

DC 

MVI 

BAL 

DC 

DC 

DC 

DC 

MVI 

BAL 

DC 

DC 

DC 

DC 



X'll s 
AL3 (R0UT12-SECN0) 
CCWtXUl* 
R11,ISI0 
X«3E00« 
X«0660 f 
•FOGO' 



ROUTINE NUMBER 
ADDRESS OF NEXT ROUTINE 
INITIALIZE CCW 
BR. TO ISSUE START 1-0 
CTRL SWITCHES 

TEST NUMBER 
A - rvtMf - EXP. COND. CODE - EXP. SENSE 

AL2 ( PFRCSW-SECNO+REG) EXP CSW ADDRESS 
CCW,XU5» INITIALIZE CCW 

R11,ISI0 BR. TO ISSUE START 1-0 

X«3E00« CTRL SWITCHES 

X»0670« TEST NUMBER 

X «F000* EXP. COND. CODE - EXP. SENSE 

AL2( PFRCSW-SECNO+REG) EXP CSW ADDRESS 
CCW,X«51« INITIALIZE CCW 

RU,ISIO BR. TO ISSUE START 1-0 

X«3E00« CTRL SWITCHES 

X'0680« TEST N U MBER 

X«F000 9 EXP. COND. CODE - EXP. SENSE 

AL 2 (PFRCSW-SECNO+REG) EXP CSW ADDRESS 
CCW,X«55« INITIALIZE CCW 

R11,ISI0 BR. TO ISSUE START 1-0 

X«3E00* CTRL SWITCHES 

X«0690* TEST NUMBER 

X«F000« EXP. COND. CODE - EXP. SENSE 

AL 2 ( PFRCSW-SECNO+REG ) EXP CSW ADDRESS 
CCW,X»91» INITIALIZE CCW 

Rll f ISIO BR. TO ISSUE START 1-0 

X«3E00« CTRL SWITCHES 

X»0700« TEST N U M 

X'FOOO* EXP. COND. CODE - EXP. 

AL2( PFRCSW-SECNO+REG) EXP CSW ADDRESS 
CCW,X«95« INITIALIZE CCW 

R1UISI0 BR. TO ISSUE START 1-0 

X»3E00» CTRL SWITCHES 

X«0710« TEST N U M 

X«F000« EXP. COND. CODE - EXP. 

AL2I PFRCSW-SECNO+REG) EXP CSW ADDRESS 
CCW,X«01» INITIALIZE CCW 

Rll f ISIO BR. TO ISSUE START 1-0 

X»3E00« CTRL SWITCHES 

X«0720» TEST N U M 

X«F000» EXP. COND. CODE - EXP. 

AL2( PFRCSW-SECNO+REG) EXP CSW ADDRESS 
CCW,X«05« INITIALIZE CCW 

RlltlSIO BR. TO ISSUE START 1-0 

X«3E00* CTRL SWITCHES 

X»0730« TEST N U M 

X«FOOO* EXP. COND. CODE - EXP* 

AL2C PFRCSW-SECNO+REG) EXP CSW ADDRESS 



E 

SENSE 



B E 
SENSE 



B E 
SENSE 



B E 
SENSE 



10AUG65 
125580 



22FEB66 
125621 



15JUN67 
130498 
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001 CfeR 

vU 1, w W O 


Q 1 At 

7t Hi 


F 


F58 


00 If 6T 




. p 


IDE 


on i r 7n 


3E00 






00 1 C 7 2 


0740 






001C74 


F000 






001C76 


FF3C 






001C78 


92 45 


F 


F58 


001C7C 


45 B0 


F 


10E 


001C80 


3E00 




001C82 


0750 






001C84 


F000 






001C86 


FF3C 






001C88 


92 81 


F 


F58 


001 CSC 


45 BO 


F 


10E 


001C90 


3E00 






001C92 


0760 






001 C94 


F000 






001C96 


FF3C 






001C98 


92 85 


F 


F58 


001C9C 


45 80 


p , 


10E 


001 CA0 ; 


3E00 






001CA2 


0770 . 






001CA4 ! 


F000 






001CA6 


FF3C 






001CA8 ' 


OA 06 






001CAA 








001CAA 


0? 0© 







001CAC 

OOiCAO 
001CB0 
001C84 
001CB8 
001CBA 
001C8C 
001CBE 
001CC0 
001 CC4 
001CC8 
001CCA 
OOiCCC 

ooicce 

001CD0 
001CD4 
001CD8 
001 COA 

ooicoc 

001CDE 
001CE0 
001CE4 
001CE8 
001CEA 
001CEC 
001CEE 
O01CFO 



■ MVI 

BAL 

DC 

DC 

DC 

DC 

MVI - 
BAL 
DC 
DC 
DC 
■ DC 
MVI 
BAL 
DC 
DC 
DC 
DC 
MVI 
BAL 
DC 
DC 
DC 
DC 
SVC 
CNOP 
BCR 



C€H*X»41« 

RlltlSIO 

X«3E00« 

X»0740» 

X'FOOO* 

AL 2 C PFRC SW-SECNO+REG J 

CCWtX e 45 8 

RlltlSIO 

X«3E00« 

X«0750« 

X'FOOO 9 

&L2IPFRCSW-SECN0+REG) 

CCW,X 9 81 @ . 

RlltlSIO 

X»3E00« 

X'0760 9 

X^FOOO 9 

AL2 I PFRC SW-SECNO+REG I 

CCWf X«85 8 

RlltlSIO 

X«3E00* 

X«0770» 

X'FOOO 9 

AL2IPFRCSW-SECN04-REGI 

X«D6« 
0,4 

O f 0 



INITIALIZE CCW 
BR. TO ISSUE START 1-0 
CTRL SWITCHES 
TEST NUN 



B E R 



EXP. COND. CODE - EXP. SENSE 
EXP CSW ADDRESS 
INITIALIZE CCW 
BR. TO ISSUE START 1-0 
CTRL SWITCHES 
TEST N U M 



EXP. COND. CODE 
EXP CSW ADDRESS 
INITIALIZE CCW 
BR* TO ISSUE START 1-0 
CTRL SWITCHES 
TEST N U M 

EXP. COND* CODE - EXP. 
EXP CSW ADDRESS 
INITIALIZE CCW 
BR. TO ISSUE START 1-0 
CTRL SWITCHES 

TEST N U M _ 

EXP. COND. CODE - EXP. SENSE 
EXP CSW ADDRESS 
ROUTINE EXIT 



B E R 



EXP. SENSE 



B E 

SENSE 



B 



12 

000 E3C 
92 C6 
45 BO 
2A00 
0780 
FOOO 
FF4C 
92 D6 
45 BO 
2A00 
0790 ' 
FOOO 
FF4C 
92 E6 
45 BO 
2A00 
0800 ' 
FOOO 
FF4C 
92 F6 
45 BO 
2A00 
0810 
FOOO 
FF4C 
92 CE 



ISSUE ALL VALID SENSE COMMANDS TO THE PUNCH. FXPFrr 
^l^^^nST HI ™ C "*^L END DEVICE 

IF THE 2 CHAN. SW. FEATURE IS NOT INSTALLED? the COMMANn^* 
WILL DECODE AS SENSE COMMANDS. EXPECT COND CoL S ™ ?u 6 

ROUT 12 DC X « 1 ? • ******************************************** 

RUMI " UL X 12< ROUT INF MM MR CD 



F F58 
F 10 E 



F F58 
P 10E 



F F58 
F 10E 



F F58 
F 10 E 



DATE 
EC 



05 MAY 65 
124252 



F F58 



10AUG65 
125580 



ROUT 12 DC 
DC 
MVI 
BAL 
DC 
DC 
DC 
DC 
MVI 
BAL 
DC 
DC 
DC 
DC 
MVI 
BAL 
DC 
DC 
DC 
DC 
MVI 
BAL 
DC 
DC 
DC 
DC 
MVI 



ROUTINE NUMBER 
ADDRESS OF NEXT ROUTINE 
INITIALIZE CCW 
BR. TO ISSUE START 1-0 
CTRL SWITCHES 

TEST N U M B E 

EXP. COND. CODE - EXP. SENSE 
EXP. CSW ADDRESS 
INITIALIZE CCW 
BR. TO ISSUE START 1-0 
CTRL SWITCHES 
TEST N U M 

EXP* COND. CODE - EXP. 



X' 12 

AL31R0UT13-SECN0) 
CCW,X»C6« 
RlltlSIO 
X*2AQ0« 
X«0780» 
X'FOOO* 

&L2C PRDCSW- SECN0+REG) 
CCW,X»D6« 

RlltlSIO 
X«2A00 9 
X»0790» 

* ' cat® gunu* UUUfc 

?ru ( v^? M " SECN0 * R£G ' EXP - «W ADDRESS 
pi?'?Ifo INITIALIZE CCK 

BR- TO ISSUE START 
X 2A00 CTRL SWITCHES 

x'ponn TEST MUM 

INITIALIZE CCW 

BR * TO ISSUE START 1-0 

HZ'. T E I"?" 65 N U H 

£CW t X*C£* INITIALIZE CCW ■ 



a e 

SENSE 



1-0 



B E 

SENSE 



8 E 
SENSE 



22FEB66 
125621 



13JUN67 
130498 
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001CF4 


45 BO 


F 


10E 




BAL 


RlltlSIO 


BR. TO ISSUE START 1-0 






001CF8 


2A00 








DC 


X«2A00« 


CTRL SWITCHES 






001CFA 


0820 








DC 


X*0820« 


TEST N U M 


B E 


R 


001CFC 


FOOO 








DC 


X«FOOO« 


EXP. COND. CODE - EXP. 


SENSE 




001CFE 


FF4C 








DC 


AL2CPRDC SW-SECNO+REG) 


EXP. CSW ADDRESS 




./ 


001D00 


92 DE 


F 


F58 




MVI 


CCW,X«DE» 


INITIALIZE CCW 






001D04 


45 BO 


F 


10E 




BAL 


RlltlSIO 


BR. TO ISSUE START 1-0 






001D08 


2A00 








DC 


X*2A00* 


CTRL SWITCHES 






001 DO A 


0830 








DC 


X«0830« 


TEST N U M 


B E 


R 


00100C 


FOOO 








DC 


X'FOOO* 


EXP. COND. CODE - EXP. 


SENSE 




001D0E 


FF4C 








DC 


AL2C PRDCSW- SECN0+REG) 


EXP. CSW ADDRESS 






001D10 


92 EE 


F 


F58 




MVI 


CCW,X»EE« 


INITIALIZE CCW 






001D14 


45 BO 


F 


10E 




BAL 


RlltlSIO 


BR. TO ISSUE START 1-0 






001D18 


2A00 








DC 


X»2A00« 


CTRL SWITCHES 






001D1A 


0840 








DC 


X»0840« 


TEST N U M 


B E 


R 


001D1C 


FOOO 








DC 


X«FOOO« 


EXP. COND. CODE - EXP. 


SENSE 




001D1E . 


' FF4C 








DC 


AL2C PRDCSW- SECN0+REG) 


EXP. CSW ADDRESS 






001D20 


92 FE 


F 


F58 




MVI 


CCW,X'FE' 


INITIALIZE CCW 






001D24 


45 BO 


F 


<10E 




BAL 


RlltlSIO 


BR. TO ISSUE START 1-0 






001D28 


2A00 








DC 


X«2A00' 


CTRL SWITCHES 






001D2A 


0850 








DC 


X«0850 f 


TEST N U M 


B E 


R 


001D2C 


FOOO 








DC 


X'FOOO' 


EXP. COND. CODE - EXP. 


SENSE 




001D2E 


FF4C 








DC 


AL2 ( PRDC SW-SECNO+REG ) 


EXP. CSW ADDRESS 






001D30 


92 04 


.F 


F58 




MVI 


CCW,X'04« 


INITIALIZE CCW 






001D34 


45 BO 


F 


10E 




BAL 


RlltlSIO 


BR. TO ISSUE START 1-0 






001 D38 


2A00 








DC 


X'2A00' 


CTRL SWITCHES 






001D3A 


0860 








DC 


X'0860« 


TEST N U M 


B E 


R 


001D3C 


{ F00O 








DC 


X'FOOO' 


EXP. COND. CODE - EXP. 


SENSE 




001D3E 


FF4C 








DC 


AL 2 < PRDC SW-SECNO+REG 1 


EXP. CSW ADDRESS 






001 D40 


92 24 


F 


FSB ' 




MVI 


CCWtX»24« 


INITIALIZE CCW 






001044 


45 BO 


F 


10E 




BAL 


RlltlSIO 


BR. TO ISSUE START 1-0 






001048 


2 ADO 








DC 


X'2A00' 


CTRL SWITCHES 






001D4A 


0870 








DC 


X'0870« 


T E S T N U M 


B E 


& 


001D4C 


FOOO 








DC 


X'FOOO' 


EXP. COND. CODE - EXP. 


SENSE 




001D4E 


FF%C 








DC 


AL 2 ( PRDC SW-SECNO+REG) 


EXP. CSW ADDRESS 






001D50 


92 44 


F 


F58 




MVI 


CCW,X'44' 


INITIALIZE CCW 






001D54 


45 BO 


F 


10E 




BAL 


RlltlSIO 


BR. TO ISSUE START 1-0 






001D58 


2A00 








DC 


X'2A00' 


CTRL SWITCHES 






001D5A 


0880 








DC 


X'0880 9 


TEST N U M 


& E 


R 


001D5C 


FOOO 








DC 


X'FOOO* 


EXP. COND. CODE - EXP. 


SENSE 




001D5E 


FF4C 








DC 


AL 2 ( PRDC SW-SECNO+REG ) 


EXP. CSW ADDRESS 






001D60 


92 64 


. r F 


F58 • 




MVI 


CCWtX'64 9 


INITIALIZE CCW 






001D64 


45 BO 


F 


10 E 




BAL 


RlltlSIO 


BR. TO ISSUE START 1-0 






001D68 


2A00 








DC 


X«2A00» 


CTRL SWITCHES 






001D6A 


0890 








DC 


X*0890« 


TEST N U M 


B E 


R 


001D6C 


FOOO 








DC 


X'FOOO 9 


EXP. COND. CODE - EXP. 


SENSE 




001 D6E 


FF4C 








DC 


AL2( PRDC SW-SECNO+REG) 


EXP. CSW ADDRESS 






001D70 


92 84 


.F 


F58 




MVI 


CCWtX»84« 


INITIALIZE CCW 






001D74 


45 BO 


F 


10E 




BAL 


RlltlSIO 


BR. TO ISSUE START 1-0 






001D78 


2A00 








DC 


X* 2A00* 


r TDI cut TTHF^ 






001D7A 


0900 








DC 


X»0900» 


TEST N U M 


8 E 


R 


001D7C 


FOOO 








DC 


X'FOOO' 


EXP. COND. CODE - EXP. 


SENSE 




001D7E 


FF^C 








DC 


AL2( PRDCSW- SECNO+REG) 


EXP. CSW ADDRESS 






001D80 


92 A4 


F 


F58 




MVI 


CCWtX«A4» 


INITIALIZE CCW 






001D84 


45 BO 


F 


10E 




BAL 


RlltlSIO 


BR. TO ISSUE START 1-0 






001D88 


2A00 








DC 


X«2A00» 


CTRL SWITCHES 






001D8A 


0910 








DC 


X«0910« 


TEST N U M 


B E 


R 


001D8C 


FOOO 








DC 


X*F000» 


EXP. COND. CODE - EXP. 


SENSE 




001D8E 


FF4C 








DC 


AL 2 1 PRDC SW- SECNO+REG S 


EXP. CSW ADDRESS 






001D90 


92 C4 


F 


F58 




MVI 


CCW f X«C4 9 


INITIALIZE CCW 






001 D94 


45 BO 


F 


10E 




BAL 


RlltlSIO 


BR. TO ISSUE START 1-0 






001D98 


2A00 








DC 


X»2A00« 


CTRL SWITCHES 






001 09 A 


0920 








DC 


X»0920« 


TEST N U M 


8 E 


R ^ ^ 


001 D9C 


FOOO 








DC 


X»F000« 


EXP. COND. CODE - EXP* 


SENSE 




001D9E 


FF4C 








DC 


AL2C PRDC SW-SECNO+REG) 


EXP* CSW ADDRESS 






00 ID AO 


92 E4 


F 


FSB 




MVI 


CCW»X«E4» 


INITIALIZE CCW 






001DA4 


45 BO 


F 


10 E 




BAL 


RlltlSIO 


BR* TO ISSUE START 1-0 






001DA8 


2A00 








DC 


X*2A00« 


CTRL SWITCHES 






DATE 


05 MAY 65 




10AUG65 


22FEB66 


15JUN67 






• ID 


'-sNao-s . 


EC 


124252 




12SS80 


125621 


130498 
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001 DAA 


0930 






DC 


X«0930 f 


TEST N U M 


B E 


R 


001 DAC 


FOOO 






DC 


X"FOOO t 


EXP. COND. CODE - EXP. 


SENSE 




0010AE 


FF4C 






DC 


AL21PRDCSW-SECN0+REGJ 


EXP. CSW ADDRESS 






001DB0 


91 01 


F 


0E1 


TM 


UlOPtX^Ol* 


TEST FOR 2 CHAN SW. FEAT. 




001DB4 


47 10 


F 


E38 


BC 


ALL, DONRTN 


BR. TO EXIT IF 2 CHAN SW PRESENT 


0010B8 


92 F4 


F 


F58 


MVI 


CCW t X , F4» 


INITIALIZE CCW 






001 DBC 


45 BO 


F 


10E 


BAL 


Rll, ISIO 


BR. TO ISSUE START 1-0 






001DC0 


2A00 






DC 


X«2A00 t 


CTRL SWITCHES 






001DC2 


0940 






DC 


X , 0940« 


TEST N U M 


B E 


R 


001DC4 


FOOO 






DC 


X'FOOO* 


EXP. COND. CODE - EXP. 


SENSE 




001DC6 


FF4C 






DC 


AL2 ( PRDCSW-SECNO+REG* 


EXP. CSW ADDRESS 






001DC8 


92 34 


F 


F58 


MVI 


CCW,X»34» 


INITIALIZE CCW 






001 DCC 


45 BO 


F 


10 E 


BAL 


R11,ISI0 


BR. TO ISSUE START 1-0 






001DD0 


2A0O 






DC 


X«2A00« 


CTRL SWITCHES 






001D02 


0950 






DC 


X«0950 8 


TEST N U M 


B E 


R 


001DD4 


FOOO 






DC 


X'FOOO* 


EXP. COND. CODE - EXP. 


SENSE 




001DD6 


FF4C 






DC 


AL2(PRDCSW-SECN0+REG) 


EXP. CSW ADDRESS 






001D08 


92 54 


F 


F58 ' 


MVI 


CCW,X»54« 


INITIALIZE CCW 






001 DDC 


45 BO 


F 


10E 


BAL 


Rllf ISIO 


BR. TO ISSUE START 1-0 






001 DEO 


2A00 






DC 


X^AOO* 


CTRL SWITCHES 






001DE2 


0960 






DC 


X«0960« 


TEST N U M 


B E 


R 


001 DE4 


FOOO 






DC 


X'FOOO* ' 


EXP. COND. CODE - EXP. 


SENSE 




001 DE6 


FF4C 






DC 


AL2(PRDCSW-SECN0+REGf 


EXP. CSW ADDRESS 






001DE8 


92 74 


F 


F58 


MVI 


CCW,X»74« 


INITIALIZE CCW 






001DEC 


45 BO 


F 


10E 


BAL 


Rll, ISIO 


BR. TO ISSUE START 1-0 






001DF0 


2A00 






DC 


X^AOO" 


CTRL SWITCHES 






001DF2 


0970 






DC 


X»0970« 


TEST N U M 


B E 


R 


001DF4 


FOOO 






DC 


X»FOOO» 


EXP. COND. CODE - EXP. 


SENSE 




001DF6 


FF4C 






DC 


AL2CPRDCSW-SECN0+REG) 


EXP. CSW ADDRESS 






001 DF8 


92 94 


F 


F58 


MVI 


CCW,X«94« 


INITIALIZE CCW 






001DFC 


45 BO 


F 


10E 


BAL 


RlltlSIO 


BR. TO ISSUE START 1-0 






001E00 


2A00 






DC 


X»2A00« 


CTRL SWITCHES 






001E02 


09B0 






DC 


X»0980« 


TEST N U M 


B E 


R 


001 E 04 


FOOO 






DC 


X'FOOO' 


EXP. COND. CODE - EXP. 


SENSE 




001E06 


FF4C 






DC 


AL2CPRDCSW-SECN0+REGJ 


EXP. CSW ADDRESS 






001E08 


92 B4 


F 


F58 


MVI 


CCW,X»B4« 


INITIALIZE CCW 






001E0C 


45 BO 


:F 


10E 


BAL 


Rll, ISIO 


BR. TO ISSUE START 1-0 






001E10 


2A00 






DC 


X»2A0Q« 


CTRL SWITCHES 






001E12 


0990 






DC 


X»0990» 


TEST N U M 


B E 


R 


001E14 


FOOO 






DC 


X'FOOO* 


EXP. COND. CODE - EXP. 


SENSE 




001E16 


FF4C 






DC 


AL2(PRDCSW-SECN0+REG) 


EXP. CSW ADDRESS 






001E18 


92 D4 


F 


F58 


MVI 


CCW,X»D4» 


INITIALIZE CCW 






001E1C 


45 BO 


F 


10E 


BAL 


Rll, ISIO 


BR. TO ISSUE START 1-0 






001E20 


2A00 






DC 


X«2A00« 


CTRL SWITCHES 






001E22 


1000 






DC 


X'lOOO* 


TEST N U M 


B E 


R 


001E24 


FOOO 






DC 


X•FOOO• 


EXP. COND. CODE - EXP. 


SENSE 




001E26 


FF4C 






DC 


AL2(PRDCSW-SECN0+REG} 


EXP. CSW ADDRESS 






001E28 


92 14 


F 


F58 


MVI 


CCW,X«14« 


INITIALIZE CCW 






001E2C 


45 BO 


F 


10E 


BAL 


RlltlSIO 


BR. TO ISSUE START 1-0 






001E30 


2A00 






DC 


X«2A00» 


CTRL SWITCHES 






001E32 


1010 






DC 


X«1010» 


TEST N U M 


B E 


R 


001E34 


FOOO 






DC 


X»FOOO« 


EXP. COND. CODE - EXP. 


SENSE 




001E36 


FF4C 






DC 


AL2(PRDCSW-SECN0+REGI 


EXP. CSW ADDRESS 






001E38 


OA D6 






DONRTN SVC 


X«D6» 


ROUTINE EXIT 






001E3A 








CNOP 


0,4 








001E3A 


07 00 






BCR 


0,0 









* 



* 

* THE FOLLOWING ROUTINES REQUIRE MANUAL INTERVENTION 

* . 

* ■ 

* ROUTINE 13- MANUAL INTERVENTION ROUTINE 



DATE 05 MAT 65 10AUG65 22FEB66 15JUN67 
EC 124252 125580 125621 130498 



ID F820-3 
PAGE 21 



cccccccccccccccccc 
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001E9Q 
001E91 

001E94 
001E98 



NOTE— THIS ROUTINE IS BYPASSED UNLESS SECTION SENSE 
SWITCH 5 IS ON. 



-NOT READY TESTING- 

A START 1-0 NOOP IS ISSUED TO NOT READY DEVICE. EXPECT 
COND. CODE 1 UNIT CHECK. A TEST 1-0 IS ISSUED* EXPECT 
SAME. A HALT 1-0 IS ISSUED. EXPECT COND. CODE 1 ZEROED 
STATUS. INTERVENTION REQUIRED IS IN SENSE BYTE FOR ABOVE 
**************************^ 
♦ . 



001E3C 


13 






ROUT 13 


DC 


X»13« 


ROUTINE NUMBER 




001E3D 


000E90 






DC 


AL3(R0UT14-SECN0) 


ADDRESS OF NEXT ROUTINE 


001 E40 


OA DO 








SVC 


X»DO« 


PRINT A BLANK 




001E42 


80 








DC 


X«80» 






001E43 


01 








DC 


X«01« 


9 t 




001E44 


FF60 








DC 


AL2CBYPASS- SEC NO* REG ) 






001E46 


91 04 


F 


004 




TM 


SNSW,X«04» 


check'sense SW. 5 




001E4A 


47 10 


F 


E56 




BC 


ALLt G010 


BR. TO EXECUTE ROUTINE 




001E4E 


OA DO 






SOLONG 


SVC 


X'DO 1 


PRINT BYPASS MESSAGE 




001E50 


04 








DC 


X«04« 


v » 




001E51 


OD 








DC 


X»OD« 


9 t 




001E52 


FF60 








DC 


AL2( BYPASS- SECNO+REG) 


f f 




001E54 


OA D6 








SVC 


X , D6» 


ROUTINE EXIT 




001E56 


45 40 


F 


690 


GO 10 


BAL 


R4, INIT 


BR. TO INITIALIZE 




001E5A 


OA DO 








SVC 


X'DO" 


PRINT A BLANK 




001E5C 


80 








DC 


X»80« 






001E5D 


01 








DC 


X»01« 






001E5E 


FF60 








DC 


AL2 (BYPASS- SECNO+REG ) 






001E60 


OA DO 








SVC 


X'DO" 


PRINT-MAKE PUNCH NOT READY- 


001 E62 


04 








DC 


X , 04 t 


t 9 




001E63 


19 








DC 


X»19» 


9 9 




001 E64 


FF6D 








DC 


AL2CPCHI-SECN04REGJ 


9 9 




001E66 


OA DA 








SVC 


X«DA» 


HALT TO PERFORM INTERVENTION 


001 E68 


45 BO 


F 


10 E 




BAL 


R11,ISI0 


BR. TO ISSUE START 1-0 


NOOP 


001E6C 


0800 








DC 


X»0800« 


CONTROL SWITCH 




001E6E 


1020 








DC 


X«1020« 


TEST N U M 


B E 


001E70 


F140 








DC 


X«F140« 


EXP. COND. CODE - EXP. 


SENSE 


001E72 


FF32 








DC 


AL2(UCNVLD~SECN0+REG) 


EXP. CSW ADDRESS 




001 E74 


45 BO 


F 


OF A 




BAL 


R11,ITI0 


BR. TO ISSUE TEST 1-0 




001E78 


4800 








DC 


x^eoo' 


CONTROL SWITCH 




001E7A 


1030 








DC 


X«1030« 


TEST NUN 


B E 


001E7C 


F140 








DC 


X»F140» 


EXP. COND. CODE - EXP. 


SENSE 


001E7E 


FF32 








DC 


AL2CUCNVLD-SECN0+REG) 


EXP. CSW ADDRESS 




001E80 


45 BO 


F 


0E6 




BAL 


Rll.IHIO 


BR. TO ISSUE HALT 1-0 




001E84 


0800 








DC 


X f 0800* 


CONTROL SWITCH 




001E86 


1040 








DC 


X»1040« 


TEST N U M 


B E 


001E88 


F140 








DC 


X»F140 e 


EXP. COND. CODE - EXP. 


SENSE 


001EBA 


FF1 A 








DC 


AL2(CSW0- SECNO+REG) 


EXP. CSW ADDRESS 




001E8C 


OA D6 








SVC 


X«D6« 


ROUTINE EXIT 




001E8E 










CNOP 


0,4 






001E8E 


07 00 






BCR 


0,0 







14 

000 EDC 

91 04 F 004 

47 80 F E4E 



* 
* 
* 

* ROUTINE 14- MANUAL INTERVENTION ROUTINE 

* NOTE— THIS ROUTINE IS BYPASSED UNLESS SECTION SENSE 

* SWITCHES 5 AND 8 ARE BOTH ON. 

* -NOT OPERATIONAL TESTING- 

* A START 1-0 NOOP A TEST 1-0 AND A HALT 1-0 ARE ISSUED TO 

* A DEVICE THAT IS OFF LINE. EXPECT COND. CODE 3 WITH NO 

* STATUS. 
****************************^ 

R0UT14 DC X* 14 s ROUTINE NUMBER 

DC AL3(ROUT15-SECNO) ADDRESS OF NEXT ROUTINE 

TM SNSW»X«04 t TEST FOR SECTION SENSE SWITCH 5 

BC NONE, SOLONG BR. TO TERMINATE RTN IF NO SS 5 



DATE 

EC 



05 MAY 65 
124252 



10AUG65 
125580 



22FEB66 
125621 



15JUN67 
130498 



ID F820-3 
PAGE 2IA 



I 
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001E9C 


91 80 


F 


005 


TIN 


SNSW^-lf K*80 8 


TEST FOR SECTION SENSE 


SWITCH 8 


00 IE AO 


47 80 


F 


E4E 


. BC 


NONE t SOLONG 


TERMINATE RTN IF NO SS 


8 


001EA4 


45 40 


F 


690 


DAL 


R4t INI T 


BR* TO INITIALIZE 




001EA8 


OA DO 






3 VI* 


X • DO* 


PRINT A BLANK 




001EAA 


80 






nr 

v%> 


X 9 80* 


9 9 




001EAB 


01 






ill* 


X • 01 • 






001EAC 


FF60 






DC 


AL2 1 B YPASS"-SECNO*RES) 


9 9 




001EA6 
001 FRO 


OA DO 






. SVC 


X*D0 8 


PRI NT-MAKP PilNrM NfiT nCKDHTmuAt, 










m 


X*04* 






001EB1 


29 






DC 


X«29* 


9 f 




001E82 


FF86 






DC 


AL2!PCH2~SECN0*REG) 


9 9 




001 EB4 


OA DA 






■ SVC 


X*DA* 


HAI T PDfl MAMIIAl IMTCDUCUTfnu 


001E86 


45 BO 


F 


10E 


'■ Bkh 


Rllt ISIO 


BR* TO ISSUE START 1-0 




001EBA 


0200 






DC 


X'0200* 


CONTROL SWITCHES 




001EBC 


1050 






" " DC 


X*1050* 


TEST N U M 


B E R 


001E8E 


F300 






DC 


X«F300* 


EXP* COND. CODE - EXP. 


SENSE 


OOIECO 


45 BO 


F 


OFA 


BAL 


Ril»ITIO 


SR. TO ISSUE TEST 1-0 




001 EC4 


4200 






DC 


X»420Q* 


CONTROL SWITCHES 




001EC6 . 


1060 






DC 


X*1060* 


TEST N U M 




001EC8 


F30O 






DC 


X*F300» 


EXP. COND. CODE ~ EXP. 


B E R 
SENSE 


001ECA 


45 BO 


¥ 


0E6 


BAL 


Rllt IHIO 


BfU TO ISSUE HALT 1-0 




001ECE 


0200 






D€ 


X*0200* 


CONTROL SWITCHES 




001 EDO 


1070 






DC 


X«1070» 


TEST N U M 


B E 'ft 


001E02 


F300 






DC 


X»F300* 


EXP. COND. CODE - EXP. 




001ED4 


OA 00 






SVC 


X'DO* 


PRINT A BLANK 


SENSE 


001ED6 . 


SO ' 






DC 


X*80* 






001E07 - 


01 






DC 


X*01* 


t 9 




001ED8 


FP60 






DC 


AL2C BYPASS- S£CNO*R£GS 


9 9 




001 EDA 


OA m 






SVC 


X*06' 


9 9 

ROUTINE EXIT 




001EDC 








CNOP 

* 


O f 4 







* - 

* ROUTINE 15 - MANUAL INTERVENTION ROUTINE 



* ■ 

* N0Te ~~ THIS ROUTINE IS BYPASSED UNLESS SECTION SENSE 

* SWITCH 5 IS ON. ■ 

* -NOT READY TO READY TESTING- 

J ' A TEST 1-0 IS ISSUED TO A DEVICE THAT JUST WENT 

! mm mj K£AOY TO READY. EXPECT COND. CODE 1 WITH 

* DEVICE END ALONE IN THE CSW AND A ZEROED CSW ADDRESS. 



001 EOC 


15 






ROUT 15 DC 


X® 15® 


ROUTINE NUMBER 


001 EOD 


OOrrrf 




DC 


X'QGFFFF* 


LAST ROUTINE ' 


001EE0 


91 04 


F 




TM 


snsw 9 x 3 04 e . 


TEST FOR SECTION SENSE SWITCH 5 


001EE4 


47 80 


F 


E4fS 


BC 


NONE* SOLONG 


TERMINATE RTN I F SS 5 


001EE8 


45 40 


F 


690 


BAL 


R4,!NIT 


BR. TO INITIALIZE 


ooleec 


OA DO 






SVC 


&«D0* 


PMm MAKE PUNCH OPER AND READY 


001 E£E 


04 






DC 


X*04* 




001EEF 


25 






DC 


X*25« 


9 t 


001EF0 


FFAF 






DC 


AL2(PCH3-SECN0+REGJ 


V 9 


001EF2 


OA DA 






SVC 


X«DA* 


HALT FOR MANUAL INTERVENTION 


001 EF4 : 


45 BO 


F 


OFA 


BAL 


RlltlTIO 


BR. TO ISSUE TEST 1-0 


001EF8 


OAOO 






DC 


X«GA00* 


CONTROL SWITCHES 


©QiEPA 


1080 






DC 


X*1080* 


TEST NUMBER 


001 EFC 


FiOO 






DC 


X'FIOO* 


EXP. COND. CODE - EXP. SENSE 


001EFE 


FF44 






DC 


AL2CD0NLY— SECN04-REG) 


EXP. CSW ADDRESS 


O01F00 


OA 06 






SVC 

* . 


X«06» 


ROUTINE EXIT 



* 

* EXPECTED CSW AND STATUS 

ooir-oa oooooooo 

mnjm ocoooooo dc x*ocoooooo» exp! statu? 

OOIFOA OOOOOOOO mil DC 3CL4*®* 6XP * 5TATUS 



DATE 05MAY65 I0AUG65 22FEB66 15JUN67 
EC 124252 125SS0. 125621' 13©4fS 



ID F820-3 
PA6E 22 
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001F0E 


10000000 




DC 


X* 10000000* 


001F12 


OOOOOOOO 




DC 


XL4*0* 


001F16 


04000000 




DC 


X* 04000000* 


001F1A 


0000000000000000 


cswo 


DC 


XL8*0* 


001F22 


OOOOOOOO 




DC 


XL4*0* 


001F26 


04000000 




DC 


X« 04000000 • 


001F2A 


OOOOOOOO 


DBZY 


DC 


XL4»0* 


001F2E 


14000000 




DC 


X* 14000000* 


001F32 


OOOOOOOO 


UCNVLD 


DC 


XL4*0* 


001F36 


02000000 




DC 


X* 02000000* 


001F3C 


00001F60 


PFRCSW 


DC 


ACCCW+8) 


001F40 


08000000 




DC 


X* 08000000* 


001F44 


OOOOOOOO 


DONLY 


DC 


XL4*0* 


001F48 


04000000 




DC 


X* 04000000* 


001F4C 


00001F60 


PRDCSW 


DC 


A( CCW+8) 


001F50 


OCOOOOOO 




DC 


X* OCOOOOOO* 



001F58 



OATE 

EC 



03 0016D8 2000 0001 



* CHANNEL COMMAND WORDS 

CCW CCW X«03*,PCHAR,X*20%1 NO OP CCW 
* 

* MESSAGES 



001F60 


40D9E3D540C2E8D7C1 


BYPASS 


DC 


C* RTN BYPASSED* 


001F69 


E2E2C5C4 








001F6D 


40D4C1D2C540E3C8C5 


PCH1 


DC 


C* MAKE THE PUNCH » 


001F76 


40D7E4D5C3C840 








001F7D 


D5D6E340D9C5C1C4E8 




DC 


C*NOT READY 8 


001F86 


40D4C1D2C540E3C8C5 


PCH2 


DC 


C* MAKE THE PUNCH • 


001F8F 


40D7E4D5C3C840 








001F96 


D5D6E340D6D7C5D9C1 




DC 


C*NOT OPERATIONAL- • 


001F9F 


E3C9D6D5C1D360 








001FA6 


60D6C6C640D3C9D5C5 




DC 


C»~OFF LINE* 


001FAF 


40D4C1D2C540E3C8C5 


PCH3 


DC 


C* MAKE THE PUNCH • 


001FB8 


40D7E4D5C3C840 








001FBF 


D6D7C5D9C1E3C9D6D5 




DC 


C*OPERATIONAL AND • 


001FC8 


C1D340C105C440 








001FCF 


D9C5C1C4E8 




DC 


C 'READY* 


001FD4 


40D7D3CIC3C540C2D3 


PCH4 


DC 


C* PLACE BLANK CAR* 


001FDD 


C1D5D240C3C1D9 








001 FE4 


C4E240C9D540D7E4D5 




DC 


CDS IN PUNCH HOPP* 


001FED 


C3C840C8D6D7D7 








001FF4 : 


C5D9 




DC 


C*ER* 



* EQUATES 



000000 


NEVER 


EQU 


0 


000007 


NCCO 


EQU 


y 


OOOOOF 


UNC , 


EQU 


15 


000008 


NONE 


EQU 


8 


000004 


SOME 


EQU 


4 


000001 


ALL 


EQU 


1 


000005 


• ANY 


EQU 


5 


000008 


ceo 


EQU 


8 


000004 


CCi 


EQU 


4 


000002 


CC2 


EQU 


2 


000001 


CC3 


EQU 


1 


OOOOOA 


CC02 


EQU 


10 


000006 


CC12 


EQU 


6 


000008 


EQ 


EQU 


8 


000004 


LO 


EQU 


4 


000002 


HI 


EQU 


2 


000006 


UNEQ 


EQU 1 


6 
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22FEB66 

125621 
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oooooc 


EQLO 


EQU 


12 


00000A 


EQHI 


EOU 


10 


000080 


LOGOUT 


EQU 


X»80« 


000181 


SYSMOD 


EQU 


X*181* 


OOFOOO 


REG 


EQU 


X*F000» 


00005A 


WHAT 


EQU 


90 


000000 


RO 


EQU 


0 


000001 


Rl 


EQU 


1 


000002 


R2 


EQU 


2 


000003 


R3 


EQU 


3 


000004 


R4 


EQU 


4 


000005 


R5 


EQU 


5 


000006 


R6 


EQU 


6 


000007 


R7 


EQU 


7 


000008 


R8 


EQU 


8 


000009 


R9 


EQU 


9 


OOOOOA 


RIO 


EQU 


10 


000008 


Rll 


EQU 


11 


oooooc 


R12 


EQU 


12 


OOOOOD 


R13 


EQU 


13 


OOOOOE 


R14 


EQU 


14 


OOOOOF 


R15 


EQU 


15 


000198 


WT 


EQU 


408 


000040 


HCSW 


EQU 


64 


000048 


HCAW 


EQU 


72 


0001A0 


DMSSW 


EQU 


X*01A0« 






END 


R0UT01 



POST ASSEMBLY DATA. 



REFERENCES TO DEFINED SYMBOLS. 



DATE 
EC 



05 MAY 65 

124252 



10AUG65 
125580 



22FE866 
125621 



15JUN67 
130498 



ID F820-3 
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DATE 
EC 



1 
1 
1 
1 
I 
1 
1 
1 



8 

2 
4 

0 

1 
2 
3 
4 



EQ 
HI 
LO 
RO 
Rl 
R2 
R3 
R4 



1350, 14DAt l*E2 



118C, 1190, 119C 



1 


5 


R5 


1 


6 


R6 


i 


7 


R7 


i 


8 


R8 


I 


9 


R9 


1 


198 


WT 


1 


1 


ALL 


1 


5 


ANY 


4 


1048 


CAW 


I 


8 


CCO 


1 


4 


CC1 


1 


2 


CC2 


1 


1 


CC3 


8 


1F58 


CCW 



16B4, 1764t 

186C, 1870, 

1E56, 1EA4, 

1546, 16C6 



1128, 

1346, 

144E, 

1128, 

12D0, 

1558, 

118C, 

1150, 

1364, 

1E4A 

153E 



1268, 
138C, 

1558 
11F4, 

13E8, 
18AC, 
11F4, 
11EC, 

13AC, 
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ITSTNO 


HIE, 


1 


80 


LOGOUT 


1146, 


8 


1070 


MCNPSW 




8 


1030 


MCOPSW 




4 


169C 


NITWIT 


1696 


4 


1F02 


NOPCSW 


17E2 


4 


1F3C 


PFRCSW 


1806, 



8 1068 PGNPSW 
8 1028 PGOPSW 
4 1F4C PRDCSW 





1760 


ROUT 01 




1774 


R0UT02 




17 A4 


R0UT03 




17C8 


ROUT 04 




17E8 


R0UT05 




1848 


R0UT06 




188C 


ROUT 07 




1900 


ROUT 08 




193C 


ROUT 09 




1B78 


ROUT 10 




1BE4 


ROUT 11 




1CAC 


ROUT 12 




1E3C 


ROUT 13 




1E90 


ROUT 14 




1EDC 


ROUT 15 


2 


1E4E 


SOLONG 


8 


1060 


SVNPSW 


8 


1020 


SVOPSW 


1 


181 


SYSMOD 


2 


1742 


TELHIM 


2 


10E2 


U1A0DR 


4 


1F32 


UCNVLD 


1 . 


1000 


XF8203 



1982, 
1A62, 
1B42, 
1B0E, 
1C56, 



1794, 

19B2, 

1A92, 

1B72, 

1D1E, 

1D8E, 

1E06, 

1015, 

1761 

1775 

17A5 

17C9 

17E9 

1849 

1880 

1901 

193D 

1B79 

1BE5 

1CAD 

1E3D 

1E91 

17F0, 



14E6 

14E2 



1378, 


1382, 


1384, 


138A 




1146, 


14EE 








181E, 


1836, 


1866, 


18CC, 


1916, 


19A2, 


19C2, 


19E2, 


1A02, 


1A22, 


1A82, 


1AA2, 


1AC2, 


1AE2, 


1802, 


1B62, 


1B8E, 


1B9E, 


1BAE, 


1BBE , 


1BF6, 


1C06, 


1C16, 


1C26, 


1C36, 


1C66, 


1C76, 


1C86, 


1C96, 


1CA6 



1962 

1A42 
1B22 
1BCE 
1C46 



17BA, 
1902, 
1AB2, 
1CBE, 
1D2E, 
109E, 
1E16, 
1FF6 



1926, 
19F2, 
1A02, 
1CCE, 
103E, 
IDAEt 
1E26, 



1936, 
1A12, 
1AF2, 
ICDE, 
1D4E, 
1DC6, 
IE 36 



1952, 


1972, 


1992 


1A32, 


lA52t 


1A72 


1B12, 


1B32, 


1B52 


ICEEt 


1CF6* 


1D0E 


1D5E » 


106Et 


1D7E 


1006, 


1DE6# 


10F6 



1854, IE98, lEAOt 1EE4 



!E72t 16T6 



NO ERROR DETECTED IN ABOVE ASSEMBLY 



05MAY65 

124252 



10AUG65 
125580 



22FEB66 
125621 



15JUN67 
130498 



ID F820-3 

■ PAGi 2SA 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 
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P/N 840191 
PAGE 26 



PERIODS CORRESPOND TO BLANK COLUMNS. 



COLS. 1 THROUGH 20 



BESD. • 
9 



• AA. • AAXF82 
YQ Y9 
99 9 



BTXT. AAA. .A8..AA8JAA 
9 YQY Y9 Y9 YQY , 
999 9 9 929 

BTXT. AA8 ..A8.. AAAAAA 
9 YQ9 Y9 Y9YYYY 
99 9 9 9999 

BTXT* AAO • « AA» » AAAAAA 
9 YQ* . YQ Y9YYYY 
99- 99 9 9999 • 

BTXT. AAS.. A8* • AABAAA 
9 YQ8 Y9 Y90YYY 
99 9 9 9 9 

BTXT.AJQ..A8. » AA61BS 
9 Y99 Y9 Y9 8- 
9 9 9 9 

BTXT. AJ+. • A8. • AASA1U 
9 Y9 Y9 Y9ZQ 
9 9 9 9 

8TXT • A JH. . A8. • AAGO 1 D •: 
9 Y90 Y9 Y9Z R 
9 9 9 0 

BTXT. A JO «• A8. . A AS GGO 
9 Y9* Y9 Y9 YZ 

9 9 9 

BTXT.AJ8 . • A8 . . AAHAAC 
9 Y9 Y9 Y90QY9 
9 9 9 9 

BTXT.AKA..AS. .AAOUGO 
9 Y9Q Y9 Y9 Z 

9 I 9 9 

BTXT. AKQ». A8* . AA6 00 • 
9 Y9Z Y9 Y9 8 
9 9 9 

BTXT. AK J. «A8*. AAA JOU 
9 Y9Y Y9 Y9-Y 
9 9 9 9 

BTXT. AtCQ*. A8« . AAA.OU ' 
9 Y9 Y9 Y9- 
9 9 9 

BTXT. ALA* • A8« • AAAHAA 
9 Y9Q Y9 Y9-9QY ■ 
9 9 9 9 09 

BTXT«ALH*« A6« « AA3FNG 
9 Y92 Y9 Y9 -8 9 
9 9 9 



COLS. 21 THROUGH 40 

03. . AAAA. AG6* 
YYQY Y8 
9999 99 

AAAAAAAAAAOAADAAAAP- 
YYYYYYYYY9*Y99YYYY9 
999999999 ' 9 9999 

AAAAAA&AAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 
■ 99999999999999999999 

AAAAADAAAAKM* 
YYYY99YYYY99 
9999 9999 

AABF10BH61BH5JBF1MG0 ■ 
YY-Q ,Y~ 8- Y-Q ZZ 
99 9 

5JKA6MABAL6HAI5-KA6E 
Y 9 8Q9QY OQO Y R 
90 9 0 

AOODGA 1 J AAODGA 1UDA0A 
9ZY Y-Y 9ZY 8QY+Y 

9 9 

• HOAHHAACEA0AGA1JFA1D 
R89-0QY9QY+YZY YZQ - 
9 99 9 9 9 

1UB25GG01U815GKG6F0. 
- YZ - Y 9 R- 



FA0UAA6CFA2DAA6DD70U 
-Y YY RZQ 9YY R-8 
9 0 9 0 

20KG5Q0.BEACA1F3B0MC 
♦ 9 Z 8QY9Y8988-Z8 
999 99 9 9 

FJ0UAAAAGA2HAH0UGA2H 
-Y -QQYZY 0-9 ZQ 0 
9 909 9 

GA3FAB6KGA3FHFAHHAAB 
ZY 9-9 ZZY 9RQ9-0QY9 
9 

©A3DG03HAJ00GA3DG03H 
ZQ RZ R-Y ZQ RZ R 
9 9 9 

GA2QA#0UGA3DHCAF«A3U 
ZY — ZY RZYY9 Y 8 
9 9 

6060GA3HFA0UBM3HB05U 
8 '82Y R-9 ~2 0-* 8 
9 



COLS. 41 THROUGH 60 
840 



AAAAAAAAAAAAAAAAAAAA 

YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

AAAAAA A AADAA AAAA AAAA 
YYYYYYYYY9YYYYYYYYYY . 
999999999 9999999999 



10BE10BE1MBT61BT5 JGO 
8-Q Y~Q Z- 8- YZ 
9 9 

OC+NAHB. 6QKF6R6QPG0. 
9 YYZ— 8 9- 
9 

G01MA.ODGA1DEAOAG01M : 
Z 8- 9ZY YQY+YZ+ 8 
9 9- 

PA0U0UFA0UBX5GDA0AGA 
9 -Y - YQY+YZY 
9 9 

F . 0UG01 U805GD70UA. AA 
Z Y-8 - QY 

09 

GQ2HA002G-26D70UA. OU 
Z 08* 8Z 9-8 - 
9 

6FKB5F56BK4LKB5D5GEA 
R 9 Q-8 9 9 Q QZQ 
0 0 9 9 9 

FH0UG014ABAAGA2AA.0U 
-9 Z -9QYZY Q- 
09 0 

AA6Q+EAHDA0AG03DEA0A 
ZY Z YYZQY+YZ+ RQY+Y 
9 9 9 - 9 9 

ED0DG020FD0UNA55AEG- 
~8~»ZZ+ — 9 Y Q9Z 
9 9 0 

NG6F6FG«*3DADAA6A2UAJ 
9 R RZ R-9QYZY -Y 
09 9 

AA0UGA3HAA0DGA5HBU3H 
-9 ZQ R-9 9ZY 2-9-0 
9 0 



COLS. 61 THROUGH 80 
192. 130498.. 82030001 



AAAAAA AAAA AA82030002 

YYYYYYYYYYYY 

999999999999 

AAAAAAAAAAAA82030003 

YYYYYYYYYYYY 

999999999999 



.82030004 



10BD10BD1MBS82030005 
8-Q Y-Q Z~ 
9 

0.PCSASAAAAA82030006 

- 88Y8Y-YQY 
9 09 

A.0DGA1DDA0A82030007 

- 9ZY YQY+Y 

9 9 

1SG.1FGJ1FB382030008 
8Z YZY - 
9 9 

GA2HFA0UHFAH82030009 
ZQ 0-Q RQ9- 
9 9 

GA20KG6FO.F.82030010 
ZQ Z 9 R - 

9 

3DFB0UG040KG82030011 
Q-9 Z Y 9 
Z 9 

GA3FAB6KGA2A82030012 
ZY 9-9 8ZQ Q 
9 0 

G.20FA2HG03F82030013 
Z ZQ Z 9 



3DNA5GADG-3D82030014 
R Y YQ9Z R 
9 0 

0UGA30AHAH.A82030015 
ZY RZ0Y9 Y 
9 

BA5U&A6MAB8E82030016 
~Y .8 9 8Q98Q 
9 90 99 



DATS 05MAY65 10AUG65 22FEB66 ' 15JUN67 In Ftt9n - 

EC ^ 124252 125580 125621 130498 pj^g 26 
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I 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 
F820 2540 PCH FUNCTION SEC 1 



P/N 840191 
PAGE 26A 



BTXT. ALA.. A8. .AAABFM 
9 Y9Y Y9 Y9Y998 
9 9 9 9 9 

BTXT. ALH*. A8. .AABOJG 
9 Y90 Y9 Y98-Y8 
9 - 9 9 9 9 

BTXT. ALO • • A8. • AAGA4Q 
9 Y9 Y9 Y9ZY 9 

9 ' 9 9 

BTXT. AMY • .A3. • AA5 BKB 

9 Y99 Y9 Y9 Y 9 
9 9 9 

BTXT. AM-..A8.. AAGA4D 
9 Y9 Y9 Y9ZY R 
9 9 9 0 

BTXT.AMH..A6. .AA5GKG 
9 Y9- Y9 Y9 Q 9 
9 9 9 9 

BTXT • AMO • • A8 • • A AO CGJ 
9 Y9- Y9 Y9 9ZY 
9 9 9 



BTXT.ANH..A8. 
9 Y99 Y9 
9 9 

BTXT. AN.. .AY. 
9 Y9 Y9 
9 9 

BTXT. ANA. . All. 
9 Y9Y Y9 

9 9 

BTXT.ANL..AJ. 
9 Y90 Y9 
9 9 

BTXT.ANC..A8. 
9 Y90 Y9 
9-9 



» AAK E6B 
Y9 9 8 
9 9 

» AA1MAA 

Y9 8-Y 
9 

.AA.CC. 
Y9 
9 

• AA. ADR 
Y9 
9 

.A A. CAW 
Y9 
9 



BTXT.ANL. 

9 Y9Y 

9 9 

BTXT.AOT. 
9 Y99 
9 

BTXT. AOL. 
9 Y98 

9 

BTXT.AOC. 
9 Y9- 
9 

BTXT.AOC. 
9 Y9Y 

9 9 



• A8. • AAX.EX 
Y9 Y9 

9 9 

.A8..AAT.SS 
Y9 Y9 
9 9 

•A8.« AAAAAA 
Y9 Y9YYYY 
9 9 9999 

•A8..AA.JFG 
Y9 Y9 Z-Z 
9 9 

» AE. • AAAOUG 
Y8 Y9Y Z 

99 9.9 



FMB0MA6PAAADLH+A5QBE 
988-Z8 9ZYY980 Q 08Q 
99 9 9 9-0 99 

5DED10G-4Q+J 5HBEACEI 
— Q YZ 9 Y 08QY990 
-999 - 

AKAHG03SBEAHEQEQKG5B 
ZYY9Z 8QY99Z9Z 9 Y 
9 999 9 

5F5GBK4LAHAAGA4MKB5D 
Q-8 9-9QYZY 8 9 Q 
0 9 09 9 

KB5D5GKG5Q6FEA3DADAA 
9 Q Q 9 Z RZQ Q-9QY 
9 9 Z 09 

5Q60EA3DKA5KAEADOUGA 
Z 8ZQ Q Y YQ9-9 ZY 
Z 9 90 

4WE45KGA4WE455GA7BEA 
- YZY - ZY Z-Q 
9 Z 

5BKE6J52B0JM 5C AB OUGA 
R 9 9 88-Y8 Q-9 ZY 
0 9 9 Z 

0UGNAHAAGA5DACABACAF 
99-9QYZY RZQY9ZQY9 
09 09 09 

•X.EXP. CC..X.ACT.ADR 



•XXXXXX.LINKA 

Y 
9 

•XXXXXX.CSWCCW.CSW.X 



P.SNS.XX.ACT.LOG. XX. 



•O.ON.FOR.LOOP.ON.XI 



AAAAAAAAADAN5AAAAAJ0 
YYYYYYYYY9Y9 YYY9Y9Y 
999999999 9 999 9 

A6DQGH00SD06MAA0UGA 6 
Y Q9QR+ 8R+ -Y ZQ 
9 9 



ACEREQB0JA5LACADAAAA 
Y990908-YQ 0ZQY9-YQY 
9 9 9 09 09 

EHB0JC5CKB5F5BB04LKG 
908- Y8 0 9 -9 9 9 
-9 9- 

5QKG5L50B0JK5EG9KA5E 
Z 9 +8-Y8 9 Y 0 
-9 9 9 

5 SHC A F • A4F AH AH • A4 F KG 
ZYY9 Y RZ0Y9 Y 0 9 
9 9 

GA4DKB5D5SKG5Q5QEA3D 
ZY Y 9 Q 9 Z ZZQ Q 
9 Z 

4WBEAAEKEKB0JC5VBEAA 
8QY99Y9Y8-Y8 8QY9 
999 9 99 9 999 

JAG-5KKC5QSABEADEQEQ 
ZOZ 8 8 Z8Y8QY89Z9Z 
9 9 9999 

5SDE0UG014B0066JB0JA 
8-Q Z 8-+9 Y8-Y9 
9 Z 9 99 

HI 5-GCGAAAAAAAAA. ... 
-0 9Q9YYYYYYYYY 
Z 999999999 



.XXXXXX.XIOA. 

Y 
9 



06MGAAA7G. 
09YYY8Q 
9999Z 



XXXXXXX.XXXXXXXX.EXP 



XXXXXX. XXXXXX.XXXXXX 



OT.SS.i.ON.FOR.TIO.S 
8 



FAA. UI 0. XXXXXXAGAGAG 
Q9Y Y9Y9Y9 
Z 9 9 9 9 

FBCGHA JGHG4KA0C6EB0M 
0-9QR2YQR9 Y 9 R8-Z 
- Z Z 9 09 

. * » . • * # » «'• »•»«»**.«« 



GA4SBEACF0EI82030017 
ZQ 88QY99+9- 
9 9999 - 

5QJAEA3DA0JD82030018 
ZYYZQ Q-+Y9 
9 Z 

ADB0JB5AB0JB82030019 
Q98-Y8 Y8-Y8 
0 9 9 9 9 

5Q5QEA3DA.0U82030020 
Z ZZQ Q- 

Z 

AJ0UGA4MKB5D82030021 
-Y ZY 0 9 Q 
9 9 

E5E5BOJC50EL82030O22 
9 9 8-Y8 -9 
9 9 

KA6A5QKE6C5+82030023 
9 Y Z 9 9 - 
9 

5L+NAHA00DG+82030024 
0 YYZ-* 9Z 
9 



•82030025 



•82030026 



.82030027 



ACTEXP.SNS.X82030028 



• TST.XXXX .SE82030029 



I0.L00PAAAAA82030030 
YYYYY 
99999 

AAAAAAAAALEA82030031 
YYYYY YYYY8Q- 
99999999999 

K7YFA0UE+2AB82030032 

8 9-9 Z Q- 

9 0 

• *»». • * * «m « • 82030033 



DATE 
EC 



05 MAY 65, 

124252 



10AUG65 
125580 



22FEB66 
125621 



15JUN67 
130498 



ID F820-3 

page im 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM p/N 84om 

PAGE 27 

F820 2540 PCH FUNCTION SEC 1 



BTXT* APY*. A8. .AA.PRE 

9 Y99 y 9 y9 

9 9 9 

BTXT. AP-. . A8. .AAA AGO 

9 Y9 Y9 Y99Y9R 
9 9 9 9 0 

BTX T . APH. • A8 . . A AO BB A 

9 Y9- Y9 Y9 Q9Y 
9 9 9 Z 9 

BTXT. APO. • A8. • AABCGH 
9 Y9- Y9 Y9-9QR 
9 9 9 Z 

BTXT.AQH..A8. .AAEAOB 
9 Y99 Y9 Y9ZQ Q 
9 9 9 0 Z 

BTXT. AQ. A8. • AA1 AGK 

9 Y9 Y9 Y9 YQ8 
9 9 9 9Z9 

BTXT.AQH..A8..AAEA1F 
9 Y9R Y9 Y9ZQ 8 
9 0 9 9 0 9 

BTXT. AQA** A8* «AAHAA0 
9 Y9Q Y9 Y90QY9 
9 0 9 9 9 

BTXT.AQY..A8..AA0WBA 

9 Y9 Y9 Y9 8Y 
9 9 9 9 

BTXT.AJJ..A8..AAYAB* 
9 Y8Y Y9 Y99Y9 
999 9 9 9 

BTXT. AJH.. A8. • AAEA1F 
9 Y8R Y9 Y9ZQ 8 
99 9 9 0 9 

BTXT. AJA*. A8. •AAOAGD 

9 Y80 Y9 Y9 YQ8 
99 9 9 9Z 

BTXT. AJH. . A8. . AAEA1F 
9 Y8 Y9 Y9ZQ 8 
99 9 9 0 9 

BTXT.AKA..A8. • AAO AG4 

9 Y8Y Y9 Y9 YQ8 
999 9 9 9Z9 

BTXT. AK8.. A8. .AAEA1F 

9 Y89 Y9 Y9ZQ 8 

99 9 9 0 9 

BTXT. AKO.« AS* .AAOAGD 
9 Y8+ Y9 Y9 YQ8 
99- 9 9 9Z 

BTXT.AKQ..A8..AAEA1F 
9 Y80 Y9 Y9ZQ 8 
99 9 9 0 9 



VIOUS. HANG. UP. DETECT 



E.6AEA0BBAAA0AB0BAGM 
Z QZQ Q9YYQ Y8 9Y90 
0 Z 999 99 9 

A.OABOGACAGHE . 6ABDGH 
Y Y8 9Y9Y9 Z Q-9QR 
9 99 9 9 Z 

AJGHEA 1FBAA01AGBB0GA 
ZYQRZQ 88YY+ YQ98 9Y 
Z 0 9999- 9Z 9 9 

4AAA1AGBEA1FSAAA0AG4 
8YYQ YQ8ZQ 88Y9Y YQ8 
999 9Z9 0 999 9 9Z9 

B0GAFAHDE.6AAA0DGAFF 

8 9Y9Y9YZ Q-9 9ZQQ8 

9 9 9 9Z 

8AA+1AGSBCGHB0GAGAAA 
9Y9 YQ8-9QR8 9Y9Y8Y 
9 9Z9 Z 9 9 999 

FA8DEA0WBAAA0AEA0BBA 
ZQ OZQ ZY9Y YZQ Q8Y 
- 0 9 9 0 Z 9 

BJIAGKEAOBBABAOABOGA 
9Y YQ8ZQ QZY9Q Y8 9Y 
9 9Z9 0 Z 9 Z 99 9 

OAGDBFGHEA 1FYAB-0AG0 
YQ8- QRZQ 89Y9 YQ8 
9Z Z 0 9 9 9Z 

6AB00AG4BBGHEA 1FSABA 
8Y9+ YQ8- QRZQ 88Y9Y 
99 - 9Z9 Z 0 999 

B/GHEA1F6ACA0AG4BSGH 
-8QRZQ 88Y9Q YQ8- QR 
Z 0 999 9 9Z9 Z 

SAC.OAGDB IGHEA 1F6AC+ 
8Y9 YQ8-0QRZQ 88Y9 
99 9Z Z 0 999 

BBGHEA1FSACA0AGDBAGH 
-QQRZQ 88Y9Y YQ8-8QR 
9Z 0 999 9Z 9Z 

6ADA0AG4BBGHEA1FSADJ 
8Y9Q YQ8-QQRZQ 88Y9Y 
99 9 9Z9 ZZ 0 999 9 

BNGHEA1F6AD.*0AG4BKGH ' 
-8QRZQ 88Y9 YQ8- QR 
9Z 0 999 9Z9 2 

SADA0AGDBEGHEA1F6ADA 
8Y9Y YQ8-8QRZQ 88Y9Q 
99 9Z 2 0 999 



EDBOAAG-BO JSGMBOAVGP 
8-Y9Q 8-Y9Q 8-Y9QY 
9 Z 9 Z 9 Z 

E. 6ABDGHE A IFBAA JOAE A 
Z Q-9QRZQ 8ZYYY YZQ 
Z 0 9 999 9 0 

EA1FSAA+0AGDEA0BBAA- 
ZQ 88YY YQ8ZQ Q9YY 
0 9999 9Z 0 Z 99 

E AHHAAODGAFFE .6ABAGH 
9Y9Z-9 9ZQQ8Z Q-ZQR 
9 9Z Z 

EA1FAAAA1 AGBEA1 FSAA J 
ZQ 88Y9Q YQ8ZQ 88Y9Y 
0 999 9 9Z9 0 999 9 

BAGHEA1FSAA. 0AG4B5GH 
-ZQRZQ 88Y9 YQ8- QR 
Z 0 999 9Z9 Z 

E.6ABAGHEA1FBAA-0AEA 
Z Q-ZQRZQ 8ZY9 YZQ 
Z 0 9 9 9 0 

AA1AG4EA0W8ABA1 AGKEA 
9Q YQ8ZQ 8Y9Y YQ8ZQ 
9Z9 0 9 9 9Z9 0 

HAA4E.6ABAGHEA1F6AB. 
9Y88Z Q-ZQRZQ 88Y9 
999 Z 0 99<? 

B0GAAACHE.6ABBGHEA1F 

8 9Y8Y8RZ Q- QRZQ 8 

9 99990 Z 0 9 

0AGDB1GHEA1F6ABA0AG4 
YQ8-8QRZQ 88Y9Q YQ8 
9Z 9Z 0 999 9Z9 

EA1FSAC J0AGDB1GHEA1F 
ZQ 88Y9Y YQ8-8QRZQ 8 
0 999 9 91 Z 0 9 

0AG4BBGHEA1FSAC-0AGD 
YQ8-YQRZQ 88Y9 YQ8 
9Z9 9Z 0 999 9Z 

EA1F6ACA0AG4BKGHEA1F 
ZQ 88Y9Q YQ8-YQRZQ 8 
0 999 9Z9 9Z 0 9 

OAGDB JGHEA1F6ADA0AG4 
YQ8-8QRZQ 88Y9Q YQ8 
9Z 9Z 0 999 I 9Z9 

EAIFSAD-0AGDBAGHEA1F 
ZQ 88Y9 YQ8-8QRZQ 8 
0 999 9Z Z 0 9 

0AG482GHEA1FSAEA0AG0 
YQ8-* QRZQ 88Y9Y YQ8 
9Z9 2 0 999 9 9Z 



BBEA0AG012GA82030034 
8QQY+YZ 99Y 
99 9 9 9 

0BBAAA1AGDEA82030035 
Q8YYQ YQ8ZQ 
Z 99Z 9Z 0 

0AB0DAGYE.6A82030036 
Y8 9Y9 Z Q 
99 9 

EA1FSAAAOAG482030037 
ZQ 88YYY YQ8 
0 9999 9Z9 

0AG4EA0W4AAA82030038 
YQ8ZQ 8Y9Q 
9Z9 0 99 Z 

HFAHH. ADF. 8D82030039 
R89-0 Y9Z R 
9 0 

1FBAA02AHFAH82030040 
8ZY9* YRQ9- 
9 9-9 

1FHABA1AGSEA82030041 
89Y9Q YQ8ZQ 
9 9 9 9Z9 0 

0AG4BBGHEA1F82030042 
YQ8- QRZQ 8 
9Z9 Z 0 9 

SABN0AGDB/GH82030043 
8Y9Z YQ8-8QR 
99 9Z 9Z 

BKGHEA1FS ACA82030044 

- QRZQ 88Y9Y 
Z 0 999 9 

6ACA0AG4B2GH82030045 
8Y9Q YQ8- QR 
99 Z 9Z9 Z 

BIGHEA1F6AC082030046 
-OQRZQ 88Y9+ 
-Z 0 999 - 

SADA0AGDBEGH82O30047 
8Y9Y YQ8-8QR 
99 9 9Z 9Z 

BBGHEA1FSAD.82030048 

- QRZQ 88Y9 
Z 0 999 

6AD00AG4BSGH82030049 
8Y9* YQ8- QR 
99 - 9Z9 2 

BJSHEAXF6AEA82030050 
-8QR2Q 88Y9Q 
2 0 999 9 



DATE 05MAY65 10AUG65 22FEB66 15JUN67 
EC 124252 125580 125621 130498 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM P/N &*0191 

PAGE 27A 

F820 2540 PCH FUNCTION SEC 1 



BTXT.AKS..A8. 

9 Y88 Y9 
99 9 

BTXT.ALQ..A8. 

9 Y89 Y9 
99 9 

BTXT.AL+..A8. 

9 Y8 Y9 
99 9 

BTXT.ALH..A8. 

9 Y80 Y9 
99 9 

BTXT.AL0#.A8. 
9 Y8+ Y9 
99 9 



• AA0AG4 
Y9 YQ8 
9 9Z9 

•AAEA1F 
Y9ZQ 8 
9 0 9 

.AAOAGD 
Y9 YQ8 
9 9Z 

• AA6AFA 
Y98Y9Y 
9 99 9 

• AABJGH 
Y9-0QR 

9 Z 



BTXT. AL8..A8.. AABNGH 
9 Y8 Y9 Y9-9QR 

99 9 9 Z 

BTXT « AMA. *A8.. AA6AGA 
9 Y8Q Y9 Y98Y9Y 
99Z 9 9 99 9 

BTXT • AMQ. • A8 . • AAB AGH 

9 Y8Z Y9 Y9-ZQR 
99 9 9 Z 

BTXT • AM J • • A8 • . AA6 AGO 

9 Y8Y Y9 Y98Y9+ 
99 9 9 99 - 

BTXT • AMQ. • A8. • AAS AHA 

9 Y8 Y9 Y98Y9Y 
99 9 9 99 9 

BTXT. ANA*. A8. .AABOGH 
9 Y8Q Y9 Y9-YQR 
999 9 9 9Z 

BTXT. ANH* • A8 • • AASAHO 
9 Y8Z Y9 Y98Y9+ 
99 9 9 99 - 

BTXT. ANA. . A8. . AABMGH 
9 Y8Y Y9 Y9-0QR 
99 9 9 Z 



BTXT. ANH. 
9 Y80 

99- 

BTXT.ANO. 

9 Y8 
99 

BTXT* AOY« 
9 Y89 

99 

BTXT. AO-. 
9 Y8 

99 



• A8. • AAB4GH 
Y9 Y9- QR 

9 9 Z 

• A8*. AAS AAO 

Y9 Y98Y8+ 

9 9 999- 

•A8. .AABMGH 
Y9 Y9-9QR 
9 9 I 

•A3. .AABODJ 
Y9 Y98-98 

9 9 9 9 



BBGHEA1FSAEJ0AGDBNGH 
-YQRZQ 88Y9Y YQ8-8QR 
9Z 0 999 9 9Z Z 

6AE+0AG4BKGHEA1FSAE- 
8Y9 YQ8-YQRZQ 88Y9 
99 9Z9 9Z 0 999 

BEGHEA1F6AEA0AG4BFGH 
-QQRZQ 88Y9Q YQ8- QR 
Z 0 999 9Z9 Z 

0AG4B1GHEA1F6AFA0AG4 
YQ8-9QRZQ 88Y9Q YQ8 
9Z9 Z 0 999 9 9Z9 

EA1F6AF.0AG4BAGHEA1F 
ZQ 88Y9 YQ8-0QRZQ 8 
0 999 9Z9 -Z 0 9 

EA1F6AF00AG4BAGHEA1F 
ZQ 88Y9+ YQ8-RQRZQ 8 
0 999 - 9Z9 Z 0 9 

0AG4BEGHEA1F6AGA0AG4 
YQ8— QRZQ 88Y9Q YQ8 
9Z9 Z 0 999 9 9Z9 

EA1F6AG.0AG4BEGHEA1F 
ZQ 88Y9 YQ8-ZQRZQ 8 
0 999 9Z9 Z 0 9 

0AG4B0GAKAF4BFGHEA1F 
YQ88 9Y9Y88- QRZQ 8 
9Z99 9 999 Z 0 9 

0AGDB6GHEA1FSAHA0AGD 
YQ8- QRZQ 88Y9Q YQ8 
9Z Z 0 999 9 9Z 

EA1FSAH .OAGDBFGHEA IF 
ZQ 88Y9 YQ8-QQRZQ 8 
0 999 9Z ZZ 0 9 

0AGDBDGHEA1FSAHA0AGD 
YQ8-ZQRZQ 88Y9Y YQ8 
9Z Z 0 999 9Z 

EA1FSAAA0AGDBDGHEA1F 
ZQ 88Y8Q YQ8- QRZQ 8 
0 99999 9Z Z 0 9 

EA1FSAA.0AGDB4GHEA1F 
ZQ 88Y8 YQ8-9QRZQ 8 
0 9999 9Z Z 0 9 

0AGDBDGHEA1FSAAA0AGD 
YQ8— QRZQ 88Y8Y YQ8 
9Z Z 0 9999 9Z 

EA1FSAAA0AGDB0GALAFA 
ZQ 88YQQ YQ88 9Y9Y8Q 
0 99999 9Z 9 9 99 

GVBBEA1FHAAJ1.G2EA0B ' 
Q88QZQ 89YQY Q9ZQ Q 
Z 99 0 9 999 Z 0 Z 



EA1F6AEA0AG4BBGHEA1F 
ZQ 88Y9Q YQ8-QQRZQ 8 
0 999 Z 9Z9 9Z 0 9 

OAGDB IGHEAIF6AE00AG4 
YQ8 — QRZQ 88Y9* YQ8 
9Z Z 0 999 - 9Z9 

EA IF SAEE OAGDBOGAA ACU 
ZQ 88Y9- YQ88 9YQY8 
0 999 9Z 9 9999 

B/GHEA1F6AF J0AG4BAGH 
- QRZQ 88Y9Y YQ8-RQR 
Z 0 999 9 9Z9 OZ 

6AF+0AG4B0GA JADMBJGH 
8Y9 YQ88 9Y9Y8Y-9QR 
99 9Z99 9 99 Z 

6AFA0AG4BEGHEA1F6AFA 
8Y9Y YQ8-RQRZQ 88Y9Q 
99 9Z9 Z 0 999 

BAGHEA1F6AG J0AG4BEGH 
-9QRZQ 88Y9Y YQ8-9QR 
Z 0 999 9 9Z9 2 

6AG+0AG4BAGHEA1F6AG^ 
8Y9 YQ8-0QRZQ 88Y9 
99 9Z9 Z 0 999 

SAGA0AGDB0GHEA1FSAGA 
8Y9Y YQ8- QRZQ 88Y9Q 
99 9Z Z 0 999 

BFGHEA1F SAH JOAGDBFGH , 
-YQRZQ 88Y9Y YQ8-QQR 
9Z 0 999 9 9Z 9Z 

SAH+0AGDBDGHEA1FSAH- 
8Y9 YQ8-9QRZQ 88Y9 
99 9Z Z 0 999 

BMGHEA1FSAHA0AGDBDGH 
-ZQRZQ 88Y9Q YQ8-0QR 
Z 0 999 9Z Z 

SAA J0AGDBUGHEA1FSAAA 
8Y8Y YQ8- QRZQ 88Y8Q 
9999 9Z Z 0 9999Z 

SAA+0AGDBDGHEA1FSAA- 
8Y8 YQ8-RQRZQ 88Y8 
999 9Z Z 0 9999 

80GHEA1F SAAAOAGDBMGH 
-OQRZQ 88Y8Q YQ8- QR 
-2 0 9999 9Z 2 

BOAAG-ADGDGAFFBODEG- 
8-Y9Q -9 92QQR8-98Q 
9 1 92 9- 92 

HAAALG2EA0MHAA. l.GK 

1YQQ Q9ZQ 9YQ Q8 

992 t 0 99 29 



SAE.OAGDBEGH82030051 
8Y9 YQ8-YQR 
99 9Z Z 

BBGHEA1FSAEA82030052 
-QQRZQ 88Y9Y 

ZZ 0 999 

E.6AB/GHEA1F82030053 
Z Q-9 QRZQ 8 
Z 0 9 

EA1F6AFA0AG482030054 
ZQ 88Y9Q YQ8 
0 999 Z 9Z9 

EA1F6AF-0AG482030055 
ZQ 88Y9 YQ8 
0 999 9Z9 

0AG4BAGHEA1F82030056 
YQ8 — QRZQ 8 
9Z9 Z 0 9 

EA1F6AGA0AG482030057 
ZQ 88Y9Q YQ8 
0 999 Z 9Z9 

OAG4BEGHEA1F82030058 

YQ8-0QRZQ 8 
9Z9 Z 0 9 

OAGDBWGHEA1F82030059 
YQ8- QRZQ 8 
9Z Z 0 9 

EA1FSAHAOAGD82030060 
ZQ 88Y9Q YQ8 
0 999 Z 9Z 

0AGDBUGHEA1F82030061 
YQ8-9QRZQ 8 
9Z Z 0 9 

EA1FSAAA0AGD82030062 
ZQ 88Y8Y YQ8 
0 99999 9Z 

0AGDAA0JGAF882030063 
YQ8-9 ZZQQ9 
9Z 9Z 

0AGDBDGHEA1F82030064 

YQ8-RQRZQ 8 
9Z OZ 0 9 

EA1FSAAA0A6D82030065 
ZQ 88YQY YGS 
0 99999 92 

B0E.6AB0AAG-82030066 
8 '2 Q8-Y9Q 

9 9 2 

80GAMAFOA000820B0067 •■ 

8 9Y9Y8Q-9 9 

9 9 999 
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BTXT. AOH. • A8. .AASAFF 
9 ■ Y8- Y9 Y9ZYQ8 

99 9 9 2 



AAOEGAFFE«6ABOAAG-B0 
-Y 9ZYQ8Z Q8-Y9Q 8~ 

Z 9 2 9 



BTXT.AOO* 
9 Y8- 
99 



.A8..AAA03A 

Y9 Y9Q* Y 
9 99-9 



B0AAG-8CNAGGAD0DGA.FF 
8-Y9Q 8 9YQQ-9 9ZYQ8 
9 Z 9 9ZZ Z 



BTXT. APH. 

9 Y89 
99 



» A8* • AAAAAA 

Y9 Y9YYYY , 
9 9 9999 



AAAAAAAAAADAAAAAAAAA 
YYQYYYYYYY9YYYYYYYYY 

9999999999 999999999 



BTXT.AP., 

9 Y8 ' 
99 



» A8. * AAHAAA 
Y9 Y99YYY 
9 9 999 



AAAADAAAAAP~DAAAAAAA 

YYYY9YYYYY8 8YYYYYYY 
9999 999999 99999999 



BTXT* APH. 
9 Y8R 
990 



. A8. • AAUNCH 
Y9 Y9 

9 9 



•NOT«READY«MAKE«THE* 



BTXT. APA. 
9 Y8Q 
990 



> A8. .AAMAKE 
Y9 Y9 
9 9 



•THE .PUNCH. OPERATION 



BTXT* APY# 
9 Y8 ' 
99 



» AF. .AAN.PU 

Y8 Y9 
99 9 



NCH. HOPPER....... 



BSSLD. 
9 



• A«J. « . • AAAA 
YY , Y9Y9 
99 9 9 



AAANEAA4AAO/AAO0EAP4 
aYQ98YQ88Y988Y9+8Y6$ 

999 999 99 99 -9999 



BEND«AP~ 

9 Y9 • 

9 



* AA« • • • 

Y9 

9 



BLOT* 



D/GFBBEA1FBAA+3AEA08 
98Q08QZQ 89YQ YZQ Q 
92 99 0 9 99 9 0 Z 



BAA-3AEA0WBA82030068 
ZYQ YZQ 9Y 
99 9 0 9 



E« 6AB0D VGPBBEA088AAA 
Z Q8-99QY8QZQ Q8YQY . 
9 Z 99 0 Z999 



1AGDB0AAAADA82030069 
YQZ8 YYYY8Y 
92 9 999999 



AAAAAADAAAAAAAMAAAAA 
YYYYYY9YYYYYYY9YYYYY 
999999 9999999 99999 



AABAAAAAAAP-82030070 

YY9YYYYYYY8 

99 99999999 



CAOQJAAA.RTN.BYPASSE 
9Y9 YYY9 
9 999 



D.MAKE.THE.P82030071 



PUNCH. NOT. OPERATIONA 



L--OFF. LINE. 82030072 



AL. AND. READY. PLACE. 8 



LANK. CARDS. 182030073 



•82030074 



EAPDHAPJ* 

8Y8S9Y88 
999 99 



•82030075 



•82030076 



•82030077 
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2540 PUNCH FUNCTION TESTS - SECTION 2 F821 



8213 TITLE 
♦ 

****************************************************^ 

* MODIFICATIONS 
♦ 

* REVISION LEVEL 3 - THIS REVISION DIFFERS FROM VERSION 2 AS FOLLOWS.. 

* 1. THE PROGRAM HAS BEEN MODIFIED TO INCLUDE -TEST NUMBERS-. 

* 2. THE PROGRAM NOW INCLUDES STANDARD ERROR MESSAGE PRINTOUTS. 

* 3. THE PROGRAM TESTS RESPONSE TO ALL INVALIO COMMANDS. 

* 4. THE PROGRAM TESTS PROPER SETTING AND SUPPRESSION OF THE 

* INCORRECT LENGTH INDICATOR. 

* 5. THE STACKER SELECT TESTING HAS BEEN SIMPLIFIED. SECTION 

* SENSE SW 11 12 AND 13 ALLOW LOOPS ON STACKER SELECT POCKET 

* 12 3 RESPECTIVELY. A NEW STACKER SELECT PATTERN OF 1-2-1-3 

* HAS REPLACED THE PREVIOUS RIPPLE PATTERN. 
* 

* E.C. PREREQUISITES * 

* MACHINE • . • NONE * 

* PROGRAM . . . NONE * 
* 

v * USE DESCRIPTION F820* AT EC 130498, DATED 15 JUN 67 OR LATER. * 

* * 
*********************************************************************** 

* * REVISION LEVEL 2 - THIS REVISION DIFFERS FROM VERSION 1 AS FOLLOWS.. 

* 1. THE PROGRAM HAS BEEN MODIFIED TO INCLUDE 1400 MODE CCWS IF 

* THE COMPATIBILITY FEATURE IS ON THE 2821. 
* 

***********************************************^^ 

XF8213 START 4096 
001000 USING *,15 

* 



* 



* 

************************************* 

* TEST NUMBER DESCRIPTION 
**********************************************^ 

*********************************************************************** 

* TEST DESCRIPTION 
* 

* 
* 

* ************** 

* ROUTINE 01 

* ************** 

* 

* 0010 - OPERATION ATTEMPTED 

* v. 

* A TEST 1-0 IS ISSUED TO A READY TEST DEVICE. 
* 

* EXPECTED RESPONSE 
* 

* EXPECT COND. CODE 0 

* . 

* POSSIBLE FAILURE CAUSES 
# 

* 1. CONDITION CODE 2 INDICATES THE CHANNEL APPEARS TO BE BUSY. 

* 2. CONDITION CODE 3 INDICATES THERE IS NO DEVICE FOR THE 

* ADDRESS USED. THE DM UDT ENTRY COULD BE IN ERROR, THE 

* DEVICE MAY BE OFF LINE, OR IF THE 2821 TWO CHANNEL SWITCH 

* FEATURE IS INSTALLED, THE PARTITIONING SWITCH FOR THIS 

* INTERFACE MAY BE DISABLED. 

* 3. IF CONDITION CODE 1 IS SET, THE CSW MUST BE INSPECTED TO 

* DETERMINE THE CAUSE. UNIT CHECK MIGHT BE OUE TO NOT READY 
* 

* f 

* ************** 
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2540 PUNCH FUNCTION TESTS - SECTION 2 F821 

* ROUTINE 02 

* ************** 
* 

* 0020 - OPERATION ATTEMPTED 
* 

* ISSUE INDIVIDUALLY ALL COMMANDS THAT ARE CONSIDERED INVALID 

* TO THE PUNCH. EACH INVALID COMMAND IS FOLLOWED BY THE 

* EXECUTION OF A DIAGNOSTIC CHECK READ COMMAND TO RESET THE 

* SENSE LATCHES IN THE PUNCH. 

* EXPECTED RESPONSE 
* 

* EXPECT CONDITION CODE 1, STATUS STORED WITH UNIT CHECK IN THE 

* DEVICE STATUS AND COMMAND REJECT IN THE SENSE BYTE FOR THE 

* INVALID COMMAND CCW. 

* . 

* 0030 - OPERATION ATTEMPTED 
* 

* ISSUE DIAGNOSTIC CHECK READ FOLLOWING AN INVALID COMMAND 

* START 1-0, TO RESET THE PUNCH SENSE LATCHES. 

* 

* EXPECTED RESPONSE 
♦ 

* EXPECT CONDITION CODE 0 FOR THE VALID DIAGNOSTIC CHECK READ 

* WHICH FOLLOWS EACH INVALID COMMAND START 1-0, AND A SENSE 

* BYTE WITH NO BITS ON. 

* . . 

* ************** 

* ROUTINE 03 

* ************** 

* 

* 0040 - OPERATION ATTEMPTED 
* 

* A WRITE COMMAND -41-, IS ISSUED WITH A SHORT CCW COUNT OF 79. 

* THE CHANNEL IS ENABLED TWICE FOR INTERRUPTS. 

* . 

* EXPECTED RESPONSE 
* 

* COND. CODE 0 SHOULD BE SET ON THE START 1-0. A CHANNEL END 

* INTERRUPT SHOULD OC€UR WITH THE INCORRECT LENGTH RECORD BIT 

* SET ON IN THE CHANNEL STATUS BYTE. A SECOND INTERRUPT SHOULD 

* OCCUR, WITH DEVICE END ALONE IN THE CSW. 
* 

* 0050 - OPERATION ATTEMPTED 
* 

* A WRITE COMMAND -41-, IS ISSUED WITH A LONG CCW COUNT OF 81. 

* THE CHANNEL IS ENABLED TWICE FOR INTERRUPTS. 
* 

* , EXPECTED RESPONSE 
* 

* COND. CODE 0 SHOULD BE SET ON THE START 1-0. A CHANNEL END 

* INTERRUPT SHOULD OCCUR WITH THE INCORRECT LENGTH RECORD BIT 

* SET ON IN THE CHANNEL STATUS BYTE AND A RESIDUAL COUNT OF 1. 

* A SECOND INTERRUPT SHOULD OCCUR, WITH DEVICE END IN THE CSW. 
* 

* 0060 - OPERATION ATTEMPTED 

* . 

* A WRITE COMMAND -41-, IS ISSUED WITH A SHORT CCW COUNT OF 79, 

* AND THE SUPPRESS INCORRECT LENGTH RECORD FLAG ON. THE CHANNEL 

* IS ENABLED TWICE FOR INTERRUPTS. 
* 

* EXPECTED RESPONSE 

* .. 

* COND. CODE 0 SHOULD BE SET ON THE START 1-0. A CHANNEL END 

* INTERRUPT SHOULD OCCURt FOLLOWED BY A DEVICE END INTERRUPT. 

* INCORRECT LENGTH RECORD INDICATION SHOULD BE SUPPRESSED. 
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* 0070 

* . 

4c 

* • 

* . 

* 

4t 

* 0080 
* 
* 

4" 
* 

4c . 
4» . 

* ' 
4c 
4c 

4< 0090 

4c 

'4c . 
4c . 
♦ 
4c 

4c . 
4c , 
4c .' 

* . 
4c , 
4c 

* ' 
4c . 
4c . 
4c 
4c 

* 0100 

4c 

4c . 
• 4c 
4c 
4c 

4c . 
4c . 
4c . 
4c . 
4c . 
4c 

4c . 
4c 

4c . 
4c 
4c 

* 0110 

4c . 

4c . 

4c . 
4i 



- OPERATION ATTEMPTED 

tJt*ll E C0MMAND IS ISSUED WITH A LONG CCW COUNT OF 81, 

?s D EN T A H I LE S D up ? R wfc s i .fS-SSLAKS™ REC0RD FLAG 0N - THE CHANNEL 

EXPECTED RESPONSE 

SSSSS^SS** 1 ! SH0ULD BE SET 0N THE START 1-0. A CHANNEL END 
INTERRUPT SHOULD OCCUR WITH A RESIDUAL COUNT OF 1 FOLLOWED 
BY A DEVICE END INTERRUPT. 

INCORRECT LENGTH RECORD INDICATION SHOULD BE SUPPRESSED* 



4c4c4c4c4c4c4c4c4c4c4c4c4c4c 
ROUTINE 04 

4c*4t4c4>4c4c4c4c4c4t*4c* 

- OPERATION ATTEMPTED 

A DIAGNOSTIC READ -C2- IS ISSUED WITH A SHORT CCW COUNT OF -79 
THE CHANNEL IS ENABLED ONCE FOR INTERRUPTS. 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START 1-0. A CHANNEL END 
f22r?£ V £ E EN ° INTER *UPT SHOULD OCCUR WITH THE INCORRECT 
LENGTH RECORD BIT SET ON IN THE CHANNEL STATUS BYTE. 

- OPERATION ATTEMPTED 

A DIAGNOSTIC READ -C2- IS ISSUED WITH A LONG CCW COUNT OF -81- 
THE CHANNEL IS ENABLED ONCE FOR INTERRUPTS. 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START 1-0. A CHANNEL END 
AND DEVICE END INTERRUPT SHOULD OCCUR WITH THE INCORRECT 

RESIDUAL^COUNT^OF .— 1— ™ E C " ANNEL ™ ™ * 

POSSIBLE FAILURE CAUSES 

UNUSUAL COMMAND SEQUENCE -SENSE 02- WILL OCCUR IF PFR FEATURE 

IS INSTALLED BUT NOT DEFINED IN THE UDT. "ATURfc 

- OPERATION ATTEMPTED 

A DIAGNOSTIC READ -C2- IS ISSUED WITH A SHORT CCW COUNT OF -79 
AND THE SUPPRESS INCORRECT LENGTH RECORD FLAG ON. THE CHANNEL 
IS ENABLED ONCE FOR INTERRUPTS. *»nANNtL 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START 1-0. A CHANNEL END 
AND DEVICE END INTERRUPT SHOULD OCCUR WITH THE INCORRECT 
LENGTH RECORD BIT SUPPRESSED. 

POSSIBLE FAILURE CAUSES 

UNUSUAL COMMAND SEQUENCE -SENSE 02- WILL OCCUR IF PFR FEATURE 
IS INSTALLED BUT NOT DEFINED IN THE UDT. 

- OPERATION ATTEMPTED 

LS 1 ^ 0 !^^ 0 ,:"" IS ISSUED WITH A LONG CCW COUNT OF -81- 
U^LeT^ REC0RD ™* ™* ™ CHANNEL 
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* EXPECTED RESPONSE 

4c , 

* COND. CODE 0 SHOULD BE SET ON THE START 1-0. A CHANNEL END 

* DEVICE END INTERRUPT SHOULD OCCUR WITH A RESIDUAL COUNT OF -1- 

* INCORRECT LENGTH RECORD INDICATION SHOULD BE SUPPRESSED. 

* POSSIBLE FAILURE CAUSES 

4c ■ •■ 

* UNUSUAL COMMAND SEQUENCE -SENSE 02- WILL OCCUR IF PFR FEATURE 

* IS INSTALLED BUT NOT DEFINED IN THE UDT. 

4c 

* - 
4c 

* *4c4c4c4c4c4c*4c4c4c4c4c4c 

* ROUTINE 05 

* ***4>****4t*4>*** 

* . ■ 

4c 0120 - OPERATION ATTEMPTED 

* ■ ■ ' 

» A WRITE COMMAND -41-, IS COMMAND CHAINED TO AN INVALID COMMAND 

* TO THE PUNCH, -53-. THE CHANNEL IS ENABLED ONCE FOR AN 

* INTERRUPT, AND A SENSE IS PERFORMED 

4i . 

* EXPECTED RESPONSE 

4c . . ■ ■ 

* 9 COND. CODE 0 SHOULD BE SET ON THE START 1-0. UNIT CHECK 

* SHOULD BE SET BY COMMAND REJECT ON INITIAL SELECTION OF THE 

* SECOND COMMAND. THIS SHOULD BREAK THE COMMAND CHAIN, AND AN 

* INTERRUPT SHOULD OCCUR. THE CSW SHOULD CONTAIN THE ADDRESS 

* OF THE INVALID CCW ♦ 8, AND THE DEVICE STATUS BYTE SHOULD 

* HAVE UNIT CHECK ONLY. THE COMMAND REJECT BIT SHOULD BE ON 

* IN THE SENSE BYTE. 
4c 

* 0130 - OPERATION ATTEMPTED 

4c . 

* A NOP -03-, IS ISSUED, AND THE CHANNEL IS ENABLED ONCE, FOR 

* ANY UNEXPECTED INTERRUPT. A SENSE IS PERFORMED. 

4c 

* EXPECTED RESPONSE 

4c 

* COND. CODE 1 SHOULD BE SET ON THE START 1-0 WITH CHANNEL AND 

* DEVICE END ONLY STORED. THE SENSE BYTE SHOULD CONTAIN THE 

* COMMAND REJECT BIT, WHICH WAS SET ON BY THE PREVIOUS TEST. 

* THE NOP SHOULD NOT RESET THE SENSE BYTE. 

'4c 

4c 0140 - OPERATION ATTEMPTED 

4c 

* A DIAGNOSTIC CHECK READ -C6-, IS ISSUED AND THE CHANNEL IS 

* ENABLED ONCE FOR AN INTERRUPT. A SENSE IS PERFORMED. 

4c 

* EXPECTED RESPONSE 

4c . 

* , COND. CODE 0 SHOULD BE SET ON THE START I/O. AN INTERRUPT 

* SHOULD OCCUR, WITH ONLY CHANNEL AND DEVICE END, IN THE DEVICE 

* STATUS BYTE. NO SENSE BITS SHOULD BE ON. THE PREVIOUSLY 

* SET COMMAND REJECT BIT SHOULD BE RESET. 

4c 

* 0150 - OPERATION ATTEMPTED ' 

4c , 

* A NOP -03-, IS COMMAND CHAINED TO ANOTHER NOP* THE CHANNEL 

* IS ENABLED FOR AN INTERRUPT, THEN A SENSE IS PERFORMED. 

4c . 

* EXPECTED RESPONSE 

4c , 

*> COND. CODE 0 SHOULD BE SET ON THE START 1-0, DUE TO THE 

* COMMAND CHAIN FLAG. AN INTERRUPT SHOULD OCCUR, AND THE CSW. 

* SHOULD CONTAIN THE ADDRESS OF THE SECOND CCW ♦ 8* THE DEVICE 
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* . 
* 

* 
* 

* 0160 

4t . 
* 

4r . 
4c . 
* 

4c . 

* 

4c 

4c 

4c 

* 

4c 

4c 

4c 

4c 

* 

4c 

* 0170 

* 

4c 

4c , 
4c 

4c . 

4c 

4c 

4c . 
4c 
4c 
4c 
4c 
4c 
4c 
4c 
4c 
4c 



STATUS BYTE SHOULD CONTAIN CHANNEL AND DEVICE END* A RESIDUAL 
COUNT OF 1 SHOULO REMAIN* 



************** 

ROUTINE 06 
************** 

OPERATION ATTEMPTED 

A PUNCH FEED STACKER SELECT IS COMMAND CHAINED TO ANOTHER 
PUNCH FEED STACKER SELECT. THE CHANNEL IS ENABLED TWICE 
FOR INTERRUPTS. EACH COMMAND HAS A COUNT OF -80-. 

EXPECTED RESPONSE 

EXPECT COND. CODE 0 ON THE START 1-0 DUE TO THE COMMAND CHAIN 
FLAG. AT EXECUTION OF THE SECOND COMMAND IN THE CHAIN AN 
INTERRUPT WILL BE TAKEN FOR CHANNEL END FOLLOWED BY A SECOND 
INTERRUPT FOR DEVICE END. THE 80 CHARACTERS PUNCHED -ALL 
BLANKS- BY EACH COMMAND SHOULD NOT BRING WRONG LENGTH 
RECORD INTO STATUS. 



************** 

ROUTINE 07 
************** 

- OPERATION ATTEMPTED 

A PUNCH FEED STACKER SELECT WITH A COUNT OF -79- IS COMMAND 
CHAINED TO A PUNCH FEED STACKER SELECT WITH A COUNT OF -80-. 
THE CHANNEL IS ENABLED TWICE FOR INTERRUPTS. 

EXPECTED RESPONSE 

EXPECT COND. CODE 0 ON THE START 1-0 DUE TO COMMAND CHAINING. 
THE SHORT COUNT -79- OF THE FIRST COMMAND SHOULD BREAK COMMAND 
CHAINING AND THE INCORRECT LENGTH RECORD BIT SHOULD BE SET ON. 
EXPECT CHANNEL END WITH ILR BIT ON FOLLOWED BY DEVICE END. 
CSW ADDRESS SHOULD POINT AT THE SECOND CCW OF THE CHAIN. 



0180 - OPERATION ATTEMPTED 

A PUNCH FEED STACKER SELECT WITH A COUNT OF -81- IS COMMAND 
CHAINED TO A PUNCH FEED STACKER SELECT WITH A COUNT OF -80-. 
THE CHANNEL IS ENABLED TWICE FOR INTERRUPTS. 

EXPECTED RESPONSE 

EXPECT COND. CODE 0 ON THE START 1-0 DUE TO COMMAND CHAINING. 
THE LONG COUNT -81- OF THE FIRST COMMAND SHOULD BREAK COMMAND 
CHAINING AND THE INCORRECT LENGTH RECORD BIT SHOULD BE SET ON 
TOGETHER WITH A RESIDUAL COUNT OF 1 INDICATED. 
EXPECT CHANNEL END. ILRt AND RESIDUAL COUNT OF 1 ALL TOGETHER 
FOLLOWED BY DEVICE END. THE CSW ADDRESS SHOULD POINT AT THE 
SECOND CCW OF THE CHAIN. 



4c 
4c 
4c 
* 

4c . 
4> 
4i 

4c . 
4c , 
4i 

* . 
4c . 
4> 

* , 

4c . 

* . 

* 0190 

4c 

4c 
4i 



************** 

ROUTINE 08 
************** 

OPERATION ATTEMPTED 

A PUNCH FEED STACKER SELECT IS 
CHAINED TO AN INVALID COMMAND. 



DATA AND COMMAND 
THE CHANNEL IS ENABLED TWICE 
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4c 
4c 
4c 

4c . 
* 

4c . 

4c 

4c 

4c 

4c 

4c 

4c 

4c 

4c 

4c 

4c 

* 0200 
4c 



4c 
4c 
4c 
4c 
* 

4c . 
4c 
4c 
* 

* . 
* 
4c 
4c 
4c 

* 0210 



4c 
4c 
* 
4c 
4c 

4c . 
* 

4c . 
4c 

4c . 

4c , 

4c 

4c 

♦ 

4c 

4c 

* 

4c 0220 

* 

* 

4c 

* . 
4c 
4c 
4c 
4c 

* : 
* 
* 

4c 
4c 

- 4c 



FOR INTERRUPTS. 
EXPECTED RESPONSE 

EXPECT DATA CHAINING TO TAKE PRIORITY OVER COMMAND CHAINING 
AND THE INVALID COMMAND SHOULD NOT BE INSPECTED AND SHOULD 
NOT CAUSE COMMAND REJECT* EXPECT COND. CODE 0 ON THE START 
1-0 DUE TO CHAINING. CHAINING SHOULO NOT BE BROKEN AND EXPECT 
CHANNEL END FOLLOWED BY DEVICE END WITH NO OTHER STATUS BITS 
INDICATED* 



************** 

ROUTINE 09 
************** 

OPERATION ATTEMPTED 

A PUNCH FEED STACKER SELECT IS DATA CHAINED TO FOUR DIFFERENT 
PLACES WITH THE TOTAL COUNT EQUAL TO -80-. THE CHANNEL IS 
ENABLED TWICE FOR INTERRUPTS* 

EXPECTEO RESPONSE 

EXPECT CONDITION CODE 0 TO BE SET ON THE START 1-0. 

EXPECT NO WRONG LENGTH RECORD INDICATION DUE TO TOTAL COUNT 

OF -80-. CHANNEL END FOLLOWED BY DEVICE ENQ INTERRUPT SHOULD 

OCCUR. 



************** 

ROUTINE 10 

4c4c4c4c4c4c4c4c4c4c4c4c4c4c 
- OPERATION ATTEMPTED 

A PUNCH FEED STACKER SELECT IS DATA CHAINED TO FOUR DIFFERENT 
PLACES WITH THE TOTAL COUNT EXCEEDING -80-. THE 
CHANNEL IS ENABLED TWICE FOR INTERRUPTS. 

EXPECTED RESPONSE 

EXPECT CONDITION CODE 0 TO BE SET ON THE START 1-0. 
SINCE THE COUNT EXCEEDS -80- EXPECT CHAINING TO BE BROKEN 
WITH ILR AND RESIDUAL COUNT INDICATED IN THE STATUS* 
CHANNEL END WITH A RESIDUAL COUNT AND WRONG LENGTH RECORD 
INDICATION WILL BE FOLLOWED BY DEVICE END STATUS. 



************** 

ROUTINE 11 

*4c4c4c4c4c4c4c4c4c4c4c4c4c 

OPERATION ATTEMPTED 

A PUNCH FEED STACKER SELECT IS DATA CHAINED TO FOUR DIFFERENT 
PLACES WITH TOTAL COUNT EXCEEDING -80-. THE SIL BIT 
IS SET ON AND THE CHANNEL IS ENABLED TWICE FOR INTERRUPTS. 

EXPECTED RESPONSE 

EXPECT CONDITION CODE 0 TO BE SET ON THE START 1-0. 
SINCE THE COUNT EXCEEDS -80- EXPECT CHAINING TO BE BROKEN AND 
A RESIDUAL COUNT INDICATED. SUPPRESS INCORRECT LENGTH RECORD 
FLAG IN ON BUT INCORRECT LENGTH RECORD SHOULD STILL BE 
INDICATED* WHEN DATA CHAIN FLAG IS ON WITH SIL FLAG* WRONG 
LENGTH RECORD IS NOT SUPPRESSED* 

CHANNEL END WITH A RESIDUAL COUNT AND WRONG LENGTH RECORD 
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♦ 

* 
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* 

* 
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♦ 

♦ 
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* . 

* 

* 
* 

* 0260 

* , 
* 

* . 

* 
* 

♦ 

* 0265 
* 

* - 



INDICATION WILL BE FOLLOWED BY DEVICE END STATUS. 



*********** iii** 

ROUTINE 12 
************** 

NOTE THE NUMBERS PUNCHED IN THE FIRST EIGHT COLUMNS OF EACH 
CARD SHOULD MATCH THE STACKER POCKET THEY FALL INTO. 



- OPERATION ATTEMPTED 

A PUNCH FEED STACKER SELECT -STACKER I- COMMAND 
THE CHANNEL IS ENABLED TWICE FOR INTERRUPTS. 

EXPECTED RESPONSE 
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EXPECT COND CODE 0 WITH CHANNEL END RETURNED IN THE 1ST CSW 
AND DEVICE END RETURNED ALONE IN THE 2ND CSW. 



OPERATION ATTEMPTED 



-01- IS ISSUED 



EXPECT COND. CODE 0 ON THE START 1-0. A CHANNEL END INTERRUPT 
SHOULD OCCUR FOLLOWED BY A DEVICE END INTERRUPT. THE CARD 
THAT IS PUNCHED SHOULD FALL INTO STACKER -1- AND THE FIRST 
EIGHT COLUMNS OF THE CARD SHOULD BE PUNCHED WITH -1-. 

OPERATION ATTEMPTED 

A PUNCH FEED STACKER SELECT -STACKER 2- COMMAND -41- IS ISSUED 
THE CHANNEL IS ENABLED TWICE FOR INTERRUPTS 

EXPECTED RESPONSE 

EXPECT COND. CODE 0 ON THE START 1-0. A CHANNEL END INTERRUPT 
SHOULD OCCUR FOLLOWED BY A DEVICE END INTERRUPT. THE CARD 
THAT IS PUNCHED SHOULD FALL INTO STACKER -2- AND THE FIRST 
EIGHT COLUMNS OF THE CARD SHOULD BE PUNCHED WITH -2-. 



* 0270 
* 

**************************************************** 4 ,*** 4c4 i 4(4c *« 4t4(3((4c « 4c] | c4(4( 

* NOTE — SECTION SENSE SWITCH -1- MUST BE ON IN CONJUNCTION WITH 

* SECTION SENSE SWITCH 11 12 OR 13 TO ENTER THIS TEST 

********************************************************* 4 i 4 ( 1 | t * 4l4t] K« 4c] | l * 4( *^ 

* 

A PUNCH FEED STACKER SELECT COMMAND IS ISSUED IN A TIGHT 
START 1-0 TEST 1-0 LOOP. THE STACKER SELECTED IS DETERMINED 
FROM THE SETTING OF SNS SWITCH 11 12 OR 13. NO ERROR CHECKING 
IS PERFORMED AND NO PRINTOUTS WILL INTERRUPT THIS LOOP. 
NOTE— TO LOOP ON ANY ONE STACKER SELECT COMMAND SECTION SENSE 
SWITCH 11 12 OR 13 MUST BE ON. TO GO INTO A TIGHT START 
1-0 TEST 1-0 LOOP SECTION SENSE SW 1 MUST BE ON IN 
CONJUNCTION WITH EITHER SENSE SW 11 12 OR 13. 
SENSE SWITCH 11 SELECTS STACKER POCKET -1- 
SENSE SWITCH 12 SELECTS STACKER POCKET -2- 
SENSE SWITCH 13 SELECTS STACKER POCKET -3- 



OPERATION ATTEMPTED 

A PUNCH FEED STACKER SELECT -STACKER 1- COMMAND 
THE CHANNEL IS ENABLED TWICE FOR INTERRUPTS. 

EXPECTED RESPONSE 



•01- IS ISSUED 



EXPECT COND. CODE 0 ON THE START 1-0. A CHANNEL END INTERRUPT 
SHOULD OCCUR FOLLOWED BY A DEVICE END INTERRUPT. THE CARD 
THAT IS PUNCHED SHOULD FALL INTO STACKER -1- AND THE FIRST 
EIGHT COLUMNS OF THE CARD SHOULD BE PUNCHED WITH 

- OPERATION ATTEMPTED ' 



-81- IS ISSUED 



A PUNCH FEED STACKER SELECT -STACKER 3- COMMAND 
THE CHANNEL IS ENABLED TWICE FOR INTERRUPTS. 

EXPECTED RESPONSE 

EXPECT COND. CODE 0 ON. THE START 1-0. A CHANNEL END INTERRUPT 
SHOULD OCCUR FOLLOWED BY A DEVICE END INTERRUPT. THE CARD 
THAT IS PUNCHED SHOULD FALL INTO STACKER -3- AND THE FIRST 
EIGHT COLUMNS OF THE CARD SHOULD BE PUNCHED WITH -3-. 

- OPERATION ATTEMPTED 

A /360 WRITE STACKER SELECT POCKET 3 COMMAND -81- IS ISSUED 
AND 8 BLANKS ARE SENT OVER THE BUS. THIS COMMAND IS GIVEN TO 
FEED THE LAST CARD TO THE PROPER STACKER. 

EXPECTED RESPONSE 
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* 
♦ 
* 

* 
* 

* . 
* 
* 
* 
♦ 

* , 

* . 
* 
* 
♦ 
♦ 
* 

♦ 
* 

**************************************************** 4 i 4t *,|i* 4l4(4(4 i 4 i* 4t « ] | t4l ^«* ] | l 

* NOTE— THE NUMBERS PUNCHED IN THE FIRST EIGHT COLUMNS OF EACH 

* CARD SHOULD MATCH THE STACKER POCKET THEY FALL INTO. 

*********************************************************** 4t *****4 t] K 4l4l4M | t 

* 

1230 - OPERATION ATTEMPTED 



EXPECTED RESPONSE 
EXPECT COND. CODE 0. 



************** 

ROUTINE 13 
************** 



A 1400 PUNCH COMPATIBILITY STACKER SELECT -STACKER 3- COMMAND 
-91- IS ISSUED. THE FIRST EIGHT COLUMNS ARE PUNCHEO WITH -1- 
THE CHANNEL IS ENABLED TWICE FOR INTERRUPTS. 

THE STACKER SELECTION WHEN IN 1400 PUNCH COMPATIBILITY REFERS 
TO THE PREVIOUSLY PUNCHED CARD. AS AN EXAMPLE, THE NEXT PUNCH 
STACKER SELECT COMMAND WI LL STACKER SELECT THE CARD JUST 
PUNCHED. 



EXPECTED RESPONSE 



1-0. 



A CHANNEL END INTERRUPT 
DEVICE END INTERRUPT* THE CARD 
UPON ISSUANCE OF THE NEXT PUNCH 



EXPECT COND. CODE 0 ON THE START 
SHOULD OCCUR FOLLOWED BY A 
WILL FALL INTO STACKER -1- 
STACKER SELECT COMMAND. 
THE CARD PREVIOUSLY PUNCHED, IF ANY, WILL BE SELECTED INTO 
STACKER -3-. 



1240 - OPERATION ATTEMPTED 

A 1400 PUNCH COMPATIBILITY STACKER SELECT -STACKER 1- COMMAND 
-11- IS ISSUED. THE FIRST EIGHT COLUMNS ARE PUNCHED WITH -2-» 
THE CHANNEL IS ENABLED TWICE FOR INTERRUPTS. 

THE STACKER SELECTION WHEN IN 1400 PUNCH COMPATIBILITY REFERS 
TO THE PREVIOUSLY PUNCHED CARD. AS AN EXAMPLE, THE NEXT PUNCH 
STACKER SELECT COMMAND WILL STACKER SELECT THE CARD JUST 
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* . 
* 

♦ . 

♦ 1250 

* . 



PUNCHED. 



EXPECTED RESPONSE 



EXPECT COND. CODE 0 ON THE START I-G. A CHANNEL END INTERRUPT 

SHOULD OCCUR FOLLOWED BY A DEVICE END INTERRUPT. THE CARD 

THAT WAS PUNCHED BY THE PREVIOUS TEST NUMBER WILL NOW BE 
STACKER SELECTED INTO POCKET 



- OPERATION ATTEMPTED 

A 1400 PUNCH COMPATIBILITY STACKER SELECT -STACKER 2- COMMAND 
-51- IS ISSUED. THE FIRST EIGHT COLUMNS ARE PUNCHED WITH -1-. 
THE CHANNEL IS ENABLED TWICE FOR INTERRUPTS. 

THE STACKER SELECTION WHEN IN 1400 PUNCH COMPATIBILITY REFERS 
TO THE PREVIOUSLY PUNCHED CARD. AS AN EXAMPLE, THE NEXT PUNCH 
STACKER SELECT COMMAND WILL STACKER SELECT THE CARD JUST 
PUNCHED. 

EXPECTED RESPONSE 

EXPECT COND. CODE 0 ON THE START 1-0. A CHANNEL END INTERRUPT 
SHOULD OCCUR FOLLOWED BY A DEVICE END INTERRUPT. THE CARD 
THAT WAS PUNCHED BY THE PREVIOUS TEST NUMBER WILL NOW BE 
STACKER SELECTED INTO POCKET -2-. 



- OPERATION ATTEMPTED 

A 1400 PUNCH COMPATIBILITY STACKER SELECT -STACKER 1- COMMAND 
-11- IS ISSUED. THE FIRST EIGHT COLUMNS ARE PUNCHED WITH -3-. 
THE CHANNEL IS ENABLED TWICE FOR INTERRUPTS. 

THE STACKER SELECTION WHEN IN 1400 PUNCH COMPATIBILITY REFERS 
TO THE PREVIOUSLY PUNCHED CARD. AS AN EXAMPLE, THE NEXT PUNCH 
STACKER SELECT COMMAND WILL STACKER SELECT THE CARD JUST 
PUNCHED. 

EXPECTED RESPONSE 

EXPECT COND. CODE 0 ON THE START 1-0. A CHANNEL END INTERRUPT 
SHOULD OCCUR FOLLOWED BY A DEVICE END INTERRUPT. THE CARD 
THAT WAS PUNCHED BY THE PREVIOUS TEST NUMBER WILL NOW BE 
STACKER SELECTED INTO POCKET 

- OPERATION ATTEMPTED 

A 1400 WRITE STACKER SELECT POCKET 3 COMMAND -91- IS ISSUED 
AND 8 BLANKS ARE SENT OVER THE BUS. THIS COMMAND IS GIVEN 
TO ALLOW FEEDING THE LAST CARD PUNCHED FROM THE PRE-CHECK 
STATION TO THE PROPER STACKER BEFORE LEAVING THE TEST. 

EXPECTED RESPONSE 

EXPECT COND CODE 0 WITH CHANNEL END RETURNED IN THE 1ST CSW 
AND DEVICE END RETURNED ALONE IN THE 2ND CSW. 

- OPERATION ATTEMPTED 
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FROM THE SETTING OF SNS SWITCH 11 12 OR 13. NO ERROR CHECKING 
IS PERFORMED AND NO PRINTOUTS WILL INTERRUPT THIS LOOP. 

EXPECTED RESPONSE 

EXPECT COND. CODE 0. 

NOTE— TO LOOP ON ANY ONE STACKER SELECT COMMAND SECTION SENSE 
SWITCH 11 12 OR 13 MUST BE ON. TO GO INTO A TIGHT START 
1-0 TEST 1-0 LOOP SECTION SENSE SW 1 MUST BE ON IN 
CONJUNCTION WITH EITHER SENSE SW 11 12 OR 13. 
SENSE SWITCH 11 SELECTS STACKER POCKET -1- 
SENSE SWITCH 12 SELECTS STACKER POCKET -2- 
SENSE SWITCH 13 SELECTS STACKER POCKET -3- 
WHEN DOING 1400 PUNCH COMPATIBILITY STACKER SELECT LOOP OPTION 
THE NUMBER PUNCHED IN THE CARD WILL MATCH THE STACKER POCKET 
IT IS FOUND IN. HOWEVER, WHEN LOOP OPTION SWITCH 11 12 OR 13 
IS TURNED OFF THERE WILL UNAVOIDABLY BE GENERATED ONE PUNCHED 
CARD WHICH HAS AN INCORRECT EXPECTED STACKER POCKET NUMBER 
PUNCHED IN IT. THIS SHOULD NOT BE CONSIDERED A MALFUNCTION. 



******************* 



001000 


F82 13000 


SECNO 


DC 


XL4»F8213000 t 


001004 


00000000 


SNSW 


DC 


XL4«00* 


001008 


0000 




DC 


XL2'00 e 


00100A 


0000 


ICM 


DC 


XL2«00 t 


00100C 


00 


SDMF 


DC 


XL1»00« 


00100D 


01 


NIOU 


DC 


XLl^Ol* 


00100E 


CO 


FLAG1 


DC 


X«CO« 


00100F 


00 


FLAG2 


DC 


X«00« 


001010 


0104000000 


INPSW 


DC 


X« 0104000000 1 


001015 


001784 




DC 


AL3(RQUT0U 


001018 


0000000000000000 


EXOPSW 


DC 


XLS'O 1 


001020 


0000000000000000 


SVOPSW 


DC 


XL8«00* 


001028 


0000000000000000 


PGOPSW 


DC 


XLS'OO 1 


001030 


0000000000000000 


MCOPSW 


DC 


XL8«00« 


001038 


0000000000000000 


IOOPSW 


DC 


XL8«00« 


001040 


0000000000000000 


CSW 


DC 


XL8«00» 


001048 


00000000 


CAW 


DC 


XL4»00« 


00104C 


000000000000000000 




DC 


XL12«00« 


001055 


000000 








001058 


0004000000 


EXNPSW 


DC 


X» 0004000000* 


00105D 


000000 


SRET 


DC 


XL3»0* 


001060 


0000000000000000 


SVNPSW 


DC 


XL8»00 § 


001068 


0000000000000000 


PGNPSW 


DC 


XL8»00 9 


0010T0 


0000000000000000 


MCNPSW 


DC 


XL8»00* 


001078 


01040000 


IONPSW 


DC 


XL4« 01040000* 


00107C 


00001230 




DC 


AL4( IRETRN) 


001080 






DS 


96C 


0010E0 


82 


UNIT1 


DC 


X«82« 


0010E1 


00 


U10P 


DC 


X*00« 


0010E2 


8000 


U1ADDR 


DC 


X'8000* 



*** **** ** ********** 
PROGRAM, SECTION AND REVISION NOS. * 
SECTION SENSE SWITCHES * 

INTERRUPTION CONDITION MASK * 
SECTION DM FLAGS * 
NUMBER OF UNIT TABLE ENTRY S * 
EXCLUSIVE CPU * 
I/O INT ARE ERR, EXT INT TO PROG * 
DISABLED, SPVSR STATE, NO PGM MASK * 



ADR OF 1ST ROUTINE PREFIX 
SECTION OLD EXTERNAL PSW 
CLEAR ALL OLD PSWS 
PROGRAM OLD PSW 
MACHINE CHECK OLD PSW 
I/O OLD PSW 
CHANNEL STATUS WORD 
CAW 

RESERVED FOR DM USE 



EXTERNAL NEW PSW * 
ADR OF EXT INTRPT ROUTINE * 
SUPERVISOR NEW PSW * 
PROGRAM NEW PSW * 
MACHINE CHECK NEW PSW * 
I/O NEW PSW * 
ADDRESS OF I/O INTRPT ROUTINE * 
96 BYTE REG DUMP AREA FOR DM USE * 
UNIT TYPE - 2540 PUNCH 
OPTIONAL FEATURES BYTE * 
FLAGS AND CHAN/UNIT ADDRESS * 
*********************************************************************** 
*********************************************************************** 

* 2540 PUNCH OPTIONAL FEATURES ASSIGNMENT 

*********************************************************************** 

* 

* UNITITYPE I OPTIONAL FEATURE DIGIT 1 I OPTIONAL FEATURE DIGIT 2 
****** I ***** I ****************************{ ***************************** 



* I 

* I 
♦2540 I 
♦PUNCHI 

* I 



82 



IBIT 0 

IHEX 8 

I 

I 

! 



BIT 1 
HEX 4 
CARD 
IMAGE 



BIT 2 
HEX 2 
PUNCH 
FEED 
READ 



BIT 3 I 
HEX I I 
51 COL I 
FEAT. i I 
I 



BIT 4 
HEX 8 
1400 
COMPAT 
FEAT. 



BIT 

HEX 



BIT 6 
HEX 2 



BIT 7 
HEX 1 
2 CHAN 
SW. ON 
2821 



****** | *****{ **************************** I ***************************** 



DATE 05MAY65 10AUG65 15N0V65 15JUN67 ID F821-3 

EC 124252 125580 125624 130498 PAGE 5A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM p /N 8 40193 

PAGE % 

2540 PUNCH FUNCTION TESTS - SECTION 2 F82i 

* . 

******>Mt*******************************^^ 
**********************************************^***^^ 

* 2540 PUNCH DIAGNOSTIC CHECK READ BYTE 
*****M*4**********************************^ 

* BIT MEANING 

* 0 NOT USED 

* 1 NOT USED 

* 2 NOT USED 

* 3 X UPPER CHECK PLANE 

* 4 X LOWER CHECK PLANE ' 

* 5 BUFFER PARITY CHECK 

* 6 PUNCH TRANSLATE CHECK 

* 7 PUNCH BUFFER ADDRESS CHECK 
****«M*************************************^^ 
*********4«*******************^^ 
******4**********************************^^ 

* 2540 PUNCH SENSE BYTE 
****Mc*******************************^^ 

* BIT MEANING 

* 0 COMMAND REJECT - INVALID COMMAND ISSUEO TO THE PUNCH 

* 1 INTERVENTION REQUIRED 

* 2 BUS OUT CHECK - PARITY ERROR 

* 3 EQUIPMENT CHECK - TRANSLATE CHECK, ADDRESS CHECK, 

* DATA REGISTER PARITY ERROR, OR A HOLE COUNT ERROR. 

* 4 DATA CHECK 

* 5 OVERRUN - NOT USED 

* 6 UNUSUAL COMMAND SEQUENCE 

* 7 NOT USED 

***********************************************^^ 
*****4*********************^^ 

* 2540 PUNCH STATUS BYTE 
*M*4r*4******************************************^^ 

* BIT MEANING 

* 0 ATTENTION - NOT USED FOR THE 2540 PUNCH 

* 1 STATUS MODIFIER - 2 CHANNEL SWITCH FEATURE ONLY 

* 2 CONTROL UNIT END - 2 CHANNEL SWITCH FEATURE ONLY 

* 3 DEVICE BUSY 

* • 4 CHANNEL END 

* 5 DEVICE END 

* 6 UNIT CHECK 

* 7 UNIT EXCEPTION - NOT USED FOR THE 2540 PUNCH 
♦♦♦**4**************************************^^ 
*****************************************^^ 
*^**«t**4****4t*************************************^^ 

* PARAMETERS USED TO ENTER 

* THE 1-0 HANDLER ROUTINE 
****************************************************^^ 





BAL 


R11,ISI0 


LINK TO 1-0 HANDLER 


♦ 


DC 


XL2«0000« 


CONTROL SWITCHES 


♦ 


DC 


X»0014« 


TEST NO. IN DEC EXPRESSED IN HEX 




DC 


X«FO« 


EXPECTED COND. CODE 


♦ 


DC 


X»00« 


EXPECTED SENSE DATA 


* 


DC 


AL2 ( ADR-B A SE+REG ) 


ADDR. OF EXPECTED CSW IF NEEDED 



**************************************************^ 
*********************************************************************** 

* 1-0 HANDLER CONTROL SWITCHES 

* 2 BYTE PARAMETER FOLLOWING BAL 
************************************************^^ 

* SWITCH DESCRIPTION 

* 0 — OFF - ISSUE AN 1-0 COMMAND 

* ON - DO NOT ISSUE AN 1-0 COMMAND 

* 1 • >~r OFF ENABLE 

* ON . - DO NOT ENABLE 

* 2 — — OFF - EXPECT NO INTERRUPT 

* ON — EXPECT AN INTERRUPT 

41 3 ™_ Q ff • 00 NOT EXPECT 2 INTERRUPTS 

* ON - EXPECT 2 INTERRUPTS 
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0010E4 



0000 





4 ' ; 


OFF 




EXPECT NO CSWS 






ON 




EXPECT A CSW 




5 ■ 


OFF 




DO NOT EXPECT 2 CSWS 


* 




ON 




EXPECT 2 CSWS 




6 . — 


OFF 




ALWAYS TRY TO ISSUE SENSE 






ON 




SENSE ON UNIT CHECK ONLY 




8 ~ 


OFF 




NOT EXECUTING STACKER SELECT TESTS 






ON 




EXECUTING STACKER SELECT TESTS. 



****************************************************************^ 

***************************************************************^ 

* SWITCHES USED BY 1-0 HANDLER 

***************************************************************^^ 



* 


SWITCH 


DESCRIPTION 


♦ 


0 




OFF 




NO HANGUP ON INTERFACE 


* 






ON 




HANGUP OCCURRED 


♦ 


1 




OFF 




NO CSWS STORED 


* 






ON 




ONE CSW STORED 


* 


2 




OFF 




SECOND CSW NOT RECEIVED 








ON 




SECOND CSW RECEIVED 


* 


3 




OFF 




DID NOT ENABLE 


* 






ON 




ENABLED ONCE 




4 




OFF 




DID NOT ENABLE TWICE 


* 






ON 




ENABLED TWICE 


* 


5 




OFF 




NO SENSE DATA RECEIVED 


* 






ON 




SENSE DATA RECEIVED 




6 




OFF 




NO UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 


* 






ON 




UNEXPECTED INTERRUPT FROM UNKNOWN OEVICE 


* 


7 




OFF 




NO ERROR DETECTED 


* 






ON 




AN ERROR WAS DETECTED 



*********************************************************^ 

* REGISTERS USED IN 1-0 HANDLER 

**********************************************************************^ 



REG COMMENTS 
5 USED AS LINK TO ERROR OUTPUT FROM INITIALIZE ROUTINE IF 
PREVIOUS HANGUP ON INTERFACE DETECTED. 

8 USED AS WORK REGISTER. WILL BE RESTORED UPON RETURN. 

9 USED AS WORK REGISTER. WILL BE RESTORED UPON RETURN. 

10 MUST CONTAIN CCW ADDRESS UPON ROUTINE ENTRY 



* 
* 

* . 
* 
* 
* 
* 

* . 
* 
♦ 
* 
♦ 
* 
* 

*********************************************************************** 
ISW DC XL2 , O t 

*********************************************************************** 
*********************************************************************** 

* * 1-0 HANDLER SUB-ROUTINE * 

*********************************************************************** 



11 



MUST BE USED AS LINK REG TO THIS ROUTINE 



12 MUST CONTAIN DEVICE ADDRESS 



0010E6 


92 


9E 


F 


1B6 


IHIO 


MVI 


ISSUE, X«9E* 


SET UP FOR HALT I -0 


0010EA 


92 


C8 


F 


659 




MVI 


IOPTH^SfX^CS' 


MOVE -H- TO OPTION MSG. 


0010EE 


92 


C8 


F 


5C0 




MVI 


I0ADDR+12,X , C8« 




0010F2 


92 


9E 


F 


15A 




MVI 


ILOOP.X^E' 




0010F6 


47 


FO 


F 


HE 




BC 


UNC f I EYE OH 


BR. UNCONDITIONAL 


0010FA 


92 


90 


F 


1B6 


ITIO 


MVI 


ISSUE, X«9D» 


SET UP FOR TEST 1-0 


0010FE 


92 


9D 


F 


15A 




MVI 


IL00P,X*9D* 




001102 


92 


E3 


F 


659 




MVI 


lOPTH^S.X'ES 1 . 


MOVE **T- TO OPTION MSG. 


001106 


92 


E3 


F 


5C0 




MVI 


I0ADDR+12,X*E3' 




001 10A 


47 


FO 


F 


HE 




BC 


UNC i I EYE OH 


BR. UNCONDITIONAL 


00110E 


92 


9C 


F 


1B6 


ISIO 


MVI 


ISSUE,X # 9C< 


SET UP FOR START I -0 


001112 


92 


9C 


F 


15A 




MVI 


IL00P#X*9C« 




001116 


92 


E2 


F 


659 




MVI 


I0PT1+25,X»E2« 


MOVE, -S- TO OPTION MSG. 


00111A 


92 


E2 


F 


5C0 




MVI 


I0ADDR*12tX , E2* 
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00111E 

001124 ! 

001128 

00112C 

001132 

001136 

00113C 

001142 



02 01 
90 AB 
90 89 
02 00 
50 AO 
07 07 
07 OB 



91 80 B 000 



63C B 002 

6A8 

580 

695 F 003 
048 

040 D 040 
080 E 080 



11 



SAVE TEST NUMBER 
SAVE REG 10 AND REG 
SAVE REGS 8 AND 9 
SAVE RT NO. FOR HANGUP. 
STORE COMMAND ADDRESS 



001146 < 


47 


10 


F 


200 




001 14 A 


91 


CO 


F 


004 




001 14E 


47 


80 


F 


196 




001152 


91 


80 


F 


004 . 




001156 * 


47 


80 


F 


162 




00115A 


9C 


00 


c 


000 




00115E 


47 


FO 


F 


152 




001162 


91 


40 


F 


004 




001166 


47 


80 


F 


182 




00116A 


90 


00 


c 


000 




00116E 


47 


70 


F 


152 




001172 


91 


40 


F 


004 




001176 


47 


80 


F 


182 




00117A 


9C 


00 


C 


000 




001 17E 


47 


FO 


F 


16A 




001182 


58 


IE 


0 


198 




001186 


88 


10 


0 


003 




001 18 A 


90 


00 


C 


000 




00118E 


47 


80 


F 


196 




.001192 . 


46 


10 


F 


18 A 




001196 


D7 


01 


F 


0E4 F 


0E4 


001 19C 


96 


80 


F 


0E4 




0011 AO 


92 


E7 


F 


5AF 




0011A4 


91 


01 


B 


001 




0011A8 


47 


10 


F 


1B6 




0011AC 


92 


40 


F 


6FC 




0011 BO 


02 


4E 


F 


6FD F 


6FC 


0011B6 < 


9C 


00 


c 


000 




0011BA 


47 


80 


F 


1FC 




0011BE 


47 


40 


F 


1D6 




0011C2 


47 


20 


F 


ICE 




0011C6 


92 


F3 


F 


5AF 




0011CA 


47 


FO 


F 


200 




0011CE 


92 


F2 


F 


5AF 




001 1D2 


47 


FO 


F 


200 




0011D6 


92 


Fl 


F 


5AF 




0011DA 


02 


07 


F 


676 0 


040 


0011E0 


96 


40 


F 


0E4 




0011E4 : 


91 


80 


B 


001 




0011E8 


47 


80 


F 


200 




0011 EC 


91 


08 


F 


67A 




0011F0 


47 


10 


F 


200 




001 1F4 ! 


96 


40 


B 


000 




0011F8 


47 


FO 


F 


200 




0011FC 


92 


FO 


F 


5AF 




001200 


94 


7F 


F 


0E4 




001204 


91 


40 


B 


000 




001208 


47 


10 


F 


2A4 




00120C 


96 


10 


F 


0E4 




001210 


58 


9E 


0 


198 




001214 


88 


90 


0 


003 




001218 


96 


80 


F 


0E4 




00121C 


80 


00 


F 


693 




001220 


46 


90 


F 


220 




001224 


80 


00 


F 


694 




001228 


94 7F 


F 


0E4 




00122C 


47 


FO 


F 


2A4 





IEYEOH MVC ITSTN0+5C2) ,2(R11) 

STM R10,R11,ISLAVE 

STM R8,R9,ISAVE 

MVC RTSVtl),SECN0+3 

GOMAN ST R10*HCAW(R13) 

XC HCSW(8*R13),HCSW(R13) 

XC LOGOUT! 12,R14)*L0G0UT(R14> 

TM 0CR11),X»80* CHECK CONTROL SWITCH FOR NO 1-0 

BC ALL* INOW BR. IF ON 

TM SNSWtX a CO* 

BC NONE * JOHN 

* SENSE SWITCH LOOPS 

CHECK SECTION SENSE SWITCH 0 
BR. IF OFF 
SlOt TlOt OR HIO 
BR. UNCONDITIONAL 
CHECK SECTION SENSE SWITCH 1 
BR. IF OFF 
TEST 1-0 

BR. IF NOT COND. CODE 0 
CHECK SECTION SENSE SWITCH 1 
BR. IF OFF 
START 1-0 
BR. UNCONDITIONAL 



ITRY1 


TM 


o n t a o \j 




BC 


NDNF . T TR V9 
nUIICf 1 ll\T£ 


ILOOP 


SIO 


0(R12) 




BC 


vf * I 1 IS T A 


I TRY 2 


TM 


oni o It* A *HI 




BC 


NnMF. TMf 


I HANG 


TIO 






Ov 


hire n t tovi 




TM 


oil j flf A H-\t ■ 




up 


NUNc tl HI 






ft 1 O 1 o \ 




DU 


UNU * 1 MANb 


IHI 


I 

L. 


D 1 LIT 1 \ i, \ 






R i » 3 


r*a eft 


T Tn 


0( R 12 ) 




Of* 


CCO* JOHN 




HPT 


R If GREG 






ISWI2) tlSW 




n i 

U 1 


1 5W t X 80' • 




MVI 






TM 


1CR11)*X«01« 




BC 


ALL, ISSUE 




MVI 


PCHAR »C • • 




MVC 


PCHAR+1C 79), PCHAR 


ISSUE 


SIO 


0(R12) 




BC 


CCO, I ZERO 




BC 


CC1,I0NE 




BC 


CC2.ITW0 




MVI 


IACTCC+5,X»F3« 




BC 


UNCI NOW 


ITWO 


MVI 


IACTCC*5,X»F2 9 




BC 


UNCI NOW 


I ONE , 


MVI 


IACTCC+5*X»F1» 




MVC 


ICSWK8) ,HCSW(R13> 




01 


ISW*X«40» 




TM 


KR11) ,X«80* 




BC 


NONE f INOW 




TM 


ICSW1+4, X«08» 




BC 


ALL, INOW 




01 


0(R11),X«40« 




BC 


UNC f INOW 


IZERO 


MVI 


IACTCC+5, X«FO* 


INOW 


NI 


ISW,X«7F« 




TM 


0(R11) ,X»40» 




BC 


ALL 9 1 SEN 




01 


ISW»X«10« 


IWAIT 


L 


R9 f WT(R14| 




SRL 


R9,3 




01 


ISWtX'80« 




SSM 


MSK1 




BCT 


R9 f * 




SSM 


MSK2 




NI 


ISW,X«7F« 




BC 


UNC* I SEN 



MOVE IN A 
SEE IF IN 
BR IF YES 
CLEAR WORK AREA 



-X- 

STACKER SELECT TEST. 



1-0 COMMANO- SlOt TI0» OR HIO 

BR. IF COND. CODE 0 

BR. IF COND. CODE 1 

BR. IF COND. CODE 2 

INDICATE COND. CODE 3 

BR. UNCONDITIONAL 

INDICATE COND. CODE 2 

BR. UNCONDITIONAL 

INDICATE COND. CODE 1 

SAVE CSW 

INDICATE 1 CSW 

SEE IF INVALID COMMANDS TEST 
BR. IF NOT 

SEE IF CHANNEL END IN STATUS 
BR. IF YES 

DO NOT ALLOW FOR ENABLE INTERRUPT 

BR. UNCONDITIONAL 

INDICATE COND. CODE 0 

TURN OFF HANG UP SWITCH 

CHECK CONTROL SWITCH FOR NO ENABLE 

BR. IF ON 

INDICATE ENABLED ONCE 
LOAD DM WAIT FACTOR 
ADJUST 

TURN ON HANG UP SW 

ENABLE 

WAIT 

DISABLE 

TURN OFF HANG SW 
BR. UNCONDITIONAL 



DATE 
EC 
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124252 
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* ALL 1-0 INTERRUPTS RETURN HERE 



001230 


49 


CO 


F 


03A 


IRETRN 


CH 


R12,I00PSW+2 


COMPARE FOR CURRENT 1-0 ADDRESS 


001234 . 


47 


60 


F 


252 




BC 


UNEQy IUIO 


BR. IF UNEQUAL 


001238 


94 7F 


F 


QE4 




NI 


ISWrX^F* 


RESET HANG UP SW 


00123C 


91 


40 


F 


0E4 




TM 


ISWf X«40° 




001240 


47 


10 


F 


282 




BC 


ALL,ISV2 


BR. IF 1 CSW ALREADY STORED 


001244 ! 


02 


07 


F 


676 \f 040 




MVC 


ICSWK8) f HCSW(R15) 


SAVE CSW 1 


00124A 


96 


40 


F 


0E4 




01 


IStft X*40* 


INDICATE 1 CSW STORED 


00124E 


47 


FO 


F 


28C 




BC 


UNCINT3 


BR. UNCONDITIONAL 


001252 


02 


07 


F 


588 F 040 


IUIO 


MVC 


W0RK(8) ,HCSW(R15) 




001258 


OA 


DO 








SVC 


X'DD* 


CONVERT ADDRESS 


00125A 


0003 








DC 


AL2(3) 




00125C 


0039 








DC 


AL2( IOOPSW+l-SECNO) 




00125E 


069B 








DC 


AL2< IUNEX+5-SECN0) 




001260 


OA 


DO 








SVC 


X'DO* 


PRINT UNEXPECTED INTERRUPT DEVICE 


001262 


64 










DC 


X«64« 


ADDRESS 


001263 


OB 










DC 


X»OB» 




001264 


F696 








DC 


AL2 ( IUNEX-SECNO+REGI 




001266 


D2 


02 


F 


5E6 F 50F 




MVC 


IBLAH+1(3),ICSW 


MOVE -CSW- TO MESSAGE 


00126C 


92 


1A 


F 


42F 




MVI 


ICNTtX'lA* 


ADJUST COUNT 


001270 


02 


02 


F 


5FC F 5FF 




MVC 


IBLAH+230) tlACT 


MOVE -ACT* TO MESSAGE 


001276 


45 


90 


F 


418 




BAL 


R9,IC0UT 


BR. TO OUTPUT CSW 


00127A 


96 


02 


F 


0E4 




01 


ISWfX«02« 


INDICATE UIO 


00127E 


47 


FO 


F 


502 




BC 


UNCILOGED 


BR. UNCONDITIONAL 


001282 


D2 


07 


F 


67E F 040 


ISV2 


MVC 


ICSW2(8) ,HCSW«R15i 


SAVE CSW 2 


001288 


96 


20 


F 


0E4 




01 


ISW»X»20« 


INDICATE 2 CSWS STORED 


00128C 


91 


10 


B 


000 


INT3 


TM 


0(Rll),X«10« 


CHECK CTRL SW FOR 2 INTR EXPECTED 


001290 : 


47 


80 


F 


2A4 




BC 


NONE* I SEN 


BR. IF NOT 


001294 


91 


08 


F 


0E4 




TM 


ISW*X«08« 




001298 


47 


10 


F 


2A4 




BC 


ALL* I SEN 


BR. IF ALREADY ENABLED TWICE 


00129C 


96 


08 


F 


0E4 




01 


ISWrX^OS* 


INDICATE ENABLED TWICE 


0012A0 


47 


FO 


F 


210 




BC 


UNC * IWAIT 




0012A4 : 


91 


02 


B 


000 : 


I SEN 


TM 


0(R11)*X«02« 


CHECK CONTROL SWITCH FOR SNS ON UC 


0012A8 


47 


80 


F 


2CC 




BC 


NONE* IOOSNS 


BR. IF OFF TO ISSUE SENSE 


0012AC 


91 


40 


F 


0E4 




TM 


ISW,X«40« 




0012B0 


47 


80 


F 


322 




BC 


NONE* IBSN 


BR. IF NO CSW STORED TO BYPASS SENSE 


0012B4 


91 


02 


F 


67A 




TM 


ICSW1+4,X«02« 


CHECK FOR UNIT CHECK 


0012B8 


47 


10 


F 


2CC 




BC 


ALL,IDOSNS 


IF YES BR. TO ISSUE SENSE 


0012BC 


91 


20 


F 


0E4 




TM 


ISW*X«20« 


CHECK FOR SECOND CSW 


0012C0 


47 


80 


F 


322 




BC 


NONE* IBSN 


BR. IF NOT TO BYPASS SENSE 


001 2 C4 


91 


02 


F 


682 




TM i 


ICSW2+4*X , 02 e 


CHECK FOR UNIT CHECK 


0012C8 


47 


80 


F 


322 




BC 


NONE* IBSN 


BR. IF NOT TO BYPASS SENSE 


0012CC 


58 


9E 


0 


198 


IOOSNS 


L 


R9*WTCR14* 


LOAD DM WAIT FACTOR 


0012D0 


88 


90 


0 


002 




SRL 


R9,2 


CUT IT DOWN TO 2.5 SECS. 


0012D4 


41 


80 


F 


688 




LA 


R8*ISENSE 


LOAD SENSE COMMAND ADDRESS 


0012D8 


50 


80 


0 


048 




ST 


R8,HCAW(R135 


STORE IN CAW 


001 2 DC 


9C 


00 


C 


ooo ; 




SIO v 


0(R12) 


ISSUE SENSE 


0012E0 


47 


70 


F 


370 




BC 


NCCO,INDER 


BR. IF NOT ACCEPTED 


0012E4 


9D 


00 


C 


000 


ITIOLP 


TIO 


0(R12) 


TEST 1-0 


0012E8 


47 


40 


F 


30C 




BC 


CC1, ILOKE 


BR. IF CSW STORED 


0012EC 


46 


90 


F 


2E4 


ITIC 


BCT 


R9, ITIOLP 




0012F0 


47 


FO 


F 


322 




BC 


UNC* IBSN 


BR. UNCONDITIONAL 


0012F4 


91 


40 


F 


0E4 


IN0EX1 


TM 


ISW*X«40 8 




0012F8 


47 


10 


F 


370 




BC 


ALL* INDER 


BR. IF CSW STORED 


0012FC 


47 


FO 


F 


374 




BC 


UNCIDUNCK 


BR. UNCONDITIONAL 


001300 


91 


20 


F 


0E4 


IN0EX2 


TM 


ISW*X«20« 




001304 


47 


10 


F 


370 




BC 


ALL* INDER 


BR. IF CSW 2 STORED 


001308 


47 


FO 


F 


374 




BC 


UNCIDUNCK 


BR. UNCONDITIONAL 


00130C 


95 


OC 


0 


044 : 


ILOKE 


CLI 


HCSW+4(R13I*X»0C < 


CHECK FOR CE DE ONLY 


001310 


47 


70 


F 


2EC 




BC 


NCCO,ITIC 


BR. IF NOT 


001314 i 


96 


04 


F 


0E4 




01 


ISW*X«04* 


INDICATE SENSE DATA RECIEVED 


001318 


D5 


00 


F 


615 B 005 




CLC 


IACSNS^5(1)*5(R11) 


COMPARE FOR EXPECTED SENSE 


00131E 


47 


60 


F 


370 




BC 


UNEQ* INDER 


BR. IF UNEQUAL 


001322 


05 


00 


F 


5AF B 004 


IBSN 


CLC 


IACTCC+5C 11 *4(R11) 


COMPARE FOR EXPECTED COND. CODE 


001328 


47 


60 


F 


370 : 




BC 


UNEQ* INDER 


BR* IF UNEQUAL 


00132C 


91 


08 


B 


000 




TM 


0(Rll)tX'08« 
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001330 


47 


80 F 2F4 ' 




BC 


001334 


91 


40 F 0E4 




TM 


001338 


47 


80 F 370 




BC 


00133C 


48 


8B 0 006 




LH 


001340 


40 


80 F 348 




STH 


001344 


05 


07 F 676 'F 


676 


ICCSW1 CLC 


00134A 


47 


60 F 370 




BC 


00134E 


91 


04 8 000 




TM 


001352 


47 


80 F 300 




BC 


001356 


91 


20 F 0E4 




TM 


00135A 


47 


80 F 370 




BC 


00135E 


41 


88 0 008 




LA 


001362 


40 


80 F 36A 




STH 


001366 


D5 


07 F 67E F 


67E 


ICCSM2 CLC 


00136C 


47 


80 F 374 




BC 


001370 


96 


01 F 0E4 




INDER 01 


001374 


92 


64 F 3A4 




IDUNCK MVI 


001378 


92 


CO F 548 




MVI 


00137C 


91 


01 F 0E4 




TM 


001380 


47 


10 F 394 




BC 


001384 


91 


01 F 004 




TM 


001388 


47 


80 F 564 




BC 


00138C 


92 


24 P 3A4 




MVI 


001390 


92 


80 F 548 




MVI 


001394 


D2 


01 F 63C B 


002 


IOUTIT MVC 


00139A 


OA 


DO 




SVC 


00139C 


0002 




DC 


00139E 


063C 




DC 


0013A0 


063C 




DC 


0013A2 


OA 


DO 




SVC 


0013A4 


64 






IFLAG1 DC 


0013A5 


09 






DC 


0013A6 


F637 




DC 


0013A8 


41 


80 0 004 f 




LA 


0013AC 


IB 


B8 




SR 


0013AE 


50 


BO F 5C8 




ST 


001382 


OA 


DD 




SVC 


001384 


0003 




DC 


0013B6 


05C9 




DC 


0013B8 


05C8 




nr 


00138A 


OA 


DO 




SVC 


0013BC 


AO 






DC 


001 3B0 


10 






DC 


0013BE 


F5C3 




DC 


0013C0 


41 


BB 0 004 




LA 


001 3C4 


91 


80 6 000 




TM 


0013C8 


47 


10 F 446 




Rr 


0013CC 


OA 


DD 




ovv» 


0013CE 


0003 




DC 


0013D0 


0690 




DC 


0013D2 


0589 




DC 


0013D4 


OA 


DO 




SVC 


001 3D6 


AO 






DC 


0013D7 


OF 






DC 


0013D8 


F5B4 




DC 


0013DA 


95 


9C F 1B6 




CLI 


0013DE 


47 


60 F 434 




BC 


0013E2 


50 


AO F 5D8 




ST 


0013E6 


OA 


DD 




SVC 


0013E8 


0003 




DC 


0013EA 


05D9 




DC 


0013EC 


0508 




OC 


0013EE 


OA 


DO 




SVC 


0013F0 


AO 






DC 


0013F1 


OB 






DC 


0013F2 


F5D3 




OC 


0013F4 


02 


02 F 5E6 F 


5E2 


MVC 


0013FA 


92 


16 F 42F 




MVI 



NONE* IN0EX1 

ISW,X«40» 

NONE, INDER 

R8,6{R11) 

R8,ICCSWH-4 

ICSWK8) ,ICSW1 

UNEQ, INDER 

0(R11), X»04» 

N0NE,IN0EX2 

ISW,X«20« 

NONE* INDER 

R8,8(R8) 

R8,ICCSW2+4 

ICSW2(8) , ICSW2 

EQ, IDUNCK 

ISW,X»01* 

IFLAG1,X»64« 

IFLAG2,X»C0« 

ISW,X»01» 

ALL, IOUTIT 

SNSW»X»01 • 

NONE, ILEAVE 

IFLAG1»X«24« 

IFLAG2,X«80« 

ITSTN0+5<2),2tRll) 

X«DD« 

AL2C2) 

AL2UTSTN0+5-SECN0* 

AL2UTSTN0+5-SECN0) 

X«DO« 

X«64» 

X«09« 

AL2CITSTN0-SECN0+RE6) 

R8,4 

R11,R8 

Rll,ILINK+5 

X'DD 1 

AL213) 

AL2ULINK+6-SECN0) 

AL2ULINK+5-SECN0) 

X«DO» 

X^AO* 

X«10« 

A L 2 C I L I NK— SEC NO* REG 1 

R11,4(R11) 

0(R11),X"80» 

ALL, IOCSH 

X«DD» 

AL2C3) 

AL2CI0ADR-SECN0) 

AL2 ( I0ADDR+5-SECN0) 

X«DO« 

X»AO« 

XW 

AL2 ( I OADDR-SECNO+REG) 

ISSUE,X»9C« 

UNEQ, ICCOUT 

R10.ICAW+5 

X f DD« 

AL2(31 

AL2UCAW+6-SECN0) 

AL21ICAW+5-SECN0I 

X«00« 

X«A0« 

X«OB« 

AL2UCAW-SECN0+REG) 

IBLAH+1(3),ICCW 

ICNT,X«16« 



BR. IF NO CSW EXPECTED 

BR. IF NO CSW RECIEVED 
LOAD CSW ADDR 
STORE IN COMPARE INSTR. 
COMPARE FOR EXPECTED CSW 
BR. IF UNEQUAL 

BR. IF NO CSW 2 EXPECTED 

BR. IF NO CSW 2 RECIEVED 
UPDATE TO SECOND CSW 

COMPARE FOR EXPECTED CSW 2 

BR. IF EQUAL 

INDICATE AN ERROR 

SET UP FOR ERROR PRINTOUT 

CHECK FOR A DETECTED ERROR 
BR. IF ERROR DETECTED 
CHECK SECTION SENSE SWITCH 7 
BR. IF OFF 

SET UP FOR CORRECT PRINTOUT 

MOVE TEST NUMBER TO PRINT 
CONVERT TEST NUMBER 



PRINT TEST NUMBER 

ADJUST LINK ADDRESS FOR PRINTOUT 
CONVERT LINK ADDRESS 

PRINT LINK ADDRESS 



BR. IF NO I-C COMMAND ISSUED 
CONVERT 1-0 ADDRESS 



PRINT 1-0 ADDRESS 



COMPARE FOR SIO COMMAND 
BR. IF NOT 
STORE CCW ADDR. 
CONVERT CAW 



PRINT CAW 



MOVE -CCW- TO MESSAGE 
ADJUST COUNT 



DATE 
EC 



05 MAY 65 
124252 



10AUG65 
125580 



15N0V65 
125624 



15JUN67 
130498 
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0013FE 


D2 


07 


F 


588 


A 


000 


ICWOUT fMVC 


W0RM8) ,0(R10) 


MOVE CCW TO WORK AREA 


001404 : 


45 


90 


F 


418 








BAL 


R9, ICOUT 


BR. TO OUTPUT CCW 


001408 


91 


CO 


A 


004 








TM 


4(R10),X , C0 f 


CHECK FOR ANY CHAIN FLAGS 


00140C 


47 


80 


F 


434 








BC 


NONE, ICCOUT 


BR. IF NONE 


001410 


41 


AA 


0 


008 








LA 


R10«8(R10) 


UPDATE TO NEXT CCW 


001414 


47 


FO 


F 


3FE 








BC 


UNO , ICWOUT 


BR. UNCONDITIONAL 


001418 


OA 


DD 










ICOUT 


SVC 


X»DD« 


CONVERT 


00141A 


0008 












DC 


AL2(8) 




00141C 


0588 












DC 


AL2(W0RK-SECN0) 




00141E 


0588 












DC 


AL2(W0RK-SECN0) 




001420 


02 


07 


F 


5EA 


F 


588 




MVC 


IBLAH+5(8) ,WORK 


MOVE TO MESSAGE 


001426 


D2 


07 


F 


5F3 


F 


590 




MVC 


IBLAH+14C8) »W0RK+8 




00142C 


OA 


DO 












SVC 


X«DO« 


PRINT 


00142E 


AO 














DC 


X»AO« 




00142F 


1A 












ICNT 


OC 


X»1A« 




001430 


F5E5 












OC 


AL2( IBLAH-SECNO+REG) 




001432 


07 


F9 












BCR 


UNCt R9 


RETURN VIA REG 9 


001434 


D2 


00 


F 


5A5 


B 


004 


ICCOUT MVC 


1EXPCC+5U),4(R11) 


MOVE EXP CC TO MESSAGE 


00143A 


OA 


DO 












SVC 


X«DO« 


PRINT EXPECTED COND. CODE 


00143C 


AO 














DC 


X«AO« 




00143D 


OA 














DC 


X«OA» 




00143E 


F5A0 












DC 


AL2 ( IEXPCC-SECNO+REG) 




001440 


OA 


DO 












SVC 


X'DO 1 


PRINT ACTUAL COND. CODE 


001442 


AO 














DC 


X«AO» 




001443 


OA 














DC 


X«OA« 




001444 


F5AA 












DC 


AL2 (I ACTCC-SECNO+REG ) 




001446 


02 


02 


F 


5E6 


F 


5DF 


10CSW 


MVC 


IBLAH+1(3),ICSW 


MOVE -CSW- TO MESSAGE 


00144C 


92 


1A 


F 


42F 








MVI 


ICNTtX'lA' 


ADJUST COUNT 


001450 


91 


08 


B 


000 








TM 


0(R11),X»08« 




001454 


47 


80 


F 


478 








BC 


NONE,IDIDI 


BR. IF NO CSW EXPECTED 


001458 


02 


02 


F 


5FC 


F 


602 




MVC 


IBLAH+23(3)tIEXP 


MOVE -EXP- TO MESSAGE 


00145E 


48 


8B 


0 


006 








LH 


R8,6(R11) 




001462 


40 


80 


F 


472 








STH 


R8,ICHNG1*4 




001466 


41 


88 


0 


008 








LA 


R8,8(R8) 




00146A 


40 


80 


F 


4A2 








STH 


R8.ICHNG2+4 




00146E 


D2 


07 


F 


588 


F 


588 


ICHNG1 


MVC 


WORK (8) ,WORK 


MOVE EXPECTED CSW TO WORK AREA 


001474 : 


45 


90 


F 


418 








BAL 


R9# ICOUT 


BR. TO OUTPUT EXPECTED CSW 


001478 


91 


40 


F 


0E4 






IDIOI 


TM 


ISW,X»40» 




00147C 


47 


80 


F 


490 








BC 


NONE, IMORST 


BR. IF NO CSW STORED 


001480 


02 


02 


F 


5FC 


F 


5FF 




MVC 


IBLAH+23(3) ,IACT 


MOVE -ACT- TO MESSAGE 


001486 


D2 


07 


F 


588 


F 


676 




MVC 


W0RK(8),ICSW1 


MOVE ACTUAL CSW TO WORK AREA 


00148C 


45 


90 


F 


418 








BAL 


R 9, ICOUT 


BR. TO OUTPUT ACTUAL CSW 


001490 


91 


04 


B 


000 






IMORST 


TM 


0IR11),X»04* 




001494 


47 


80 


F 


4A8 








BC 


NONE, IDID 


BR. IF NOT EXPECTING 2 CSWS 


001498 


D2 


02 


F 


5FC 


F 


602 




MVC 


IBLAH+2313) ,IEXP 


MOVE -EXP- TO MESSAGE 


00149E 


02 


07 


F 


588 


F 


588 


ICHNG2 


MVC 


WORK (8) ,WORK 


MOVE EXPECTED CSW TO WORK AREA 


0014A4 


45 


90 


F 


418 








BAL 


R9, ICOUT 


BR. TO OUTPUT EXPECTED CSW 2 


0014A8 


91 


20 


F 


0E4 






IDID 


TM 


ISWtX«20' 




0014AC 


47 


80 


F 


4 CO 








BC 


NONE, IPAS 


BR. IF NO SECOND CSW STORED 


0014B0 


02 


02 


F 


5FC 


F 


5FF 




MVC 


IBLAH+23(3) ,IACT 


MOVE -ACT- TO MESSAGE 


001486 


02 


07 


F 


588 


F 


67E 




MVC 


W0RK(8),ICSW2 


MOVE CSW TO WORK AREA 


0014BC 


45 


90 


F 


418 








BAL 


R9, ICOUT 




0014C0 


02 


00 


F 


60 A 


B 


005 


IPAS 


MVC 


IEXSNS+511) ,5(R11) 


MOVE EXP SENSE TO MESSAGE 


0014C6 


91 


04 


F 


0E4 








TM 


ISW,X»04« 


0014CA 


47 


80 


F 


4FA 








BC 


NONE,IPASS 


BR. IF NO SENSE DATA RECIEVED 


0014CE 


OA 


DD 












SVC 


X»DD« 


CONVERT EXPECTED SENSE 


0014D0 


0001 












DC 


AL2U) 




0014D2 


060 A 












DC 


AL2( IEXSNS+5-SECN0) 




0014D4 


060A 












DC 


AL21IEXSNS+5-SECN0) 




0014D6 


OA 


DO 












SVC 


X^DO' 


PRINT EXPECTED SENSE 


0014D8 


AO 














DC 


X«AO« 




0014D9 


OB 














DC 


X«OB f 




00140A 


F605 












OC 


AL2( I EXSNS-SECNO+REG) 




0014DC 


OA 


DD 












SVC 


X«DD« 




00140E 


0001 












DC 


AL2I11 




0014E0 


0615 












DC 


AL2(IACSNS+5-SECN0) 




0014E2 


0615 












DC 


AL2C I ACSNS+5-SECN0) 




0014E4 


OA 


DO 












SVC 


X'DO* 


PRINT ACTUAL SENSE OAT A 



DATE 

EC 



05MAY65 
124252 



10AUG65 
125580 



15N0V65 
125624 



15JUN67 
130498 



ID F821-3 
PAGE 8A 



o o o o oooooooooooooooooooooooooooo 



o o 



3 0 0C0CC00000CCC 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 

2540 PUNCH FUNCTION TESTS - SECTION 2 F821 



P/N 840193) 
PAGE 9 



0014E6 


AO 












DC 


X*AO» 


0014E7 


OB 












DC 


X^OB^ 


0014E8 


F610 












DC 


AL2( I ACSNS-SECNO+REG) 


0014EA 


95 F4 


F 


60 A 








CLI 


IEXSNS+5 V C , 4* 


0014EE 


47 80 


F 


4FA 








BC 


EQ V IPASS 


0014F2 


95 F4 


F 


615 








CLI 


IACSNS+5,C4' 


0014F6 


47 80 


F 


766 








BC 


EQt TELHIM 


0014FA 


95 30 


E 


181 






IPASS 


CLI 


SYSM0D(R14) t X»30» 


0014FE 


47 60 


F 


52E 








BC 


UNEQt ICUIO 


001502 


D2 OB 


F 


588 


E 


080 


ILOGED 


MVC 


WORM 12) 9 LOGOUT! R14I 


001508 


OA DO 












SVC 


X^D 1 


00150A 


OOOC 












DC 


AL2( 12) 


00150C 


0588 












DC 


AL2( WORK-SECNO) 


00150E 


0588 












DC 


AL2( WORK-SECNO) 


001510 


02 01 


F 


620 


F 


588 




MVC 


I0L0G+5(2) , WORK 


001516 


02 05 


F 


623 


F 


58A 




MVC 


I0L0G+8(6) , WORK+2 


00151C 


02 05 


F 


62A 


F 


592 




MVC 


I0L0G+15( 6) tWORK+10 


001522 


D2 05 


F 


631 


F 


59A 




MVC 


I0L0G+22(6) tWORK+18 


001528 


OA DO 












SVC 


X^DO' 


00152A 


AO 












DC 


X^AO* 


00152B 


1C 












DC 


X«1C 


00152C 


F61B 












DC 


AL2( IOLOG-SECNO+REG) 


00152E 


91 02 


F 


0E4 






ICUIO 


TM 


ISW,X«02» 


001532 


47 80 


F 


53E 








BC 


NONE t IOPOUT 


001536 


94 FD 


F 


0E4 








NI 


I SW,X*FD 9 


00153A 


47 FO 


F 


210 








BC 


UNCI WAIT 


00153E 


91 01 


B 


001 






IOPOUT 


TM 


1CR11) ,X , 01 t 


001542 


47 10 


F 


BB6 








BC 


ALLtSNSMES 


001546 


OA DO 












SVC 


X»DO» 


001548 


CO 










IFLAG2 


DC 


X«CO» 


001549 


36 












DC 


X»36» 


0015411 


F640 












DC 


AL2U0PT1-SECN0+REGI 


00154C 


OA DO 












SVC 


X'DO* 


00154E 


AO 












DC 


X«AO» 


00154F 


01 












DC 


X»01« 


001550 


F5C3 












DC 


AL2( I LINK-SEC N04-REG I 


001552 


50 AD 


0 


048 








ST 


R10.HCAWCR13) 


001556 


91 CO 


F 


004 








TM 


SNSW,X*CO» 


00155A 


47 50 


F 


152 








BC 


ANY, I TRY1 


00155E 


91 80 


F 


0E4 






SSRET 


TM 


ISW, X»80» 


001562 


07 15 












BCR 


ALL t R5 


001564 


91 08 


B 


000 






REAVE 


TM 


0(Rll)vX»08* 


001568 


47 80 


F 


570 








BC 


NONE , I UP 


00156C 


41 BB 


0 


002 








LA 


R11,2CR11) 


001570 


41 BB 


0 


006 






I UP 


LA 


R11«6(R11) 


001574 


98 89 


F 


580 








LM 


Ri,R9, ISAVE 


001578 


07 FB 












BCR 


UNCvRll 



SEE IF EXPECTED INTV REQD 

BYPASS INTV REQD MESSAGE 

SEE IF RECEIVED INTV REQD SNS 

BR. TO PRINT OUT INTV REQD MESSAGE 

CHECK FOR MODEL 30 

BR. IF NOT 

MOVE LOG OUT TO WORK AREA 
CONVERT 



MOVE LOG OUT TO MESSAGE 



00157A 




CNOP 


0,8 


00157A 


07 00 


BCR 


0,0 


00157C 


07 00 


BCR 


0 V 0 


00157E 


07 00 


BCR 


0 9 0 


001580 


0000000000000000 


ISAVE DC 


XL8«0* 


001588 




WORK DS 


24C 


001 5 AO 


40C3C34040E740C5E7 


IEXPCC DC 


C* CC 


0015A9 


07 


0015AA 


40C3C34040E740C1C3 


IACTCC DC 


C« CC 


0015B3 


E3 




0015B4 1 


40C1C40940E7E7E7E7 


10ADDR DC 


C 9 ADR 


0015BD 


E7E740E7C9D6 




0015C3 


00 


DC 


X'OO* 


001 5C4 




CNOP 


0,4 


0015C3 


0015C3 


ORG 


*-I 


40C1C4D940E7E7E7E7 


IL INK DC 


C* ADR 


0015CC 


E7E740D3C9D5D2 




0015D3 


00 


DC 


X»00* 



PRINT LOG OUT 



BR. IF NOT UIO 

RESET UIO SWITCH 

BR. UNCONDITIONAL 

SEE IF STACKER SELECT ROUTINE 

BR. IF STACKER SELECT ROUTINE. 



SPACE A LINE 



STORE CAW 

CHECK SECTION SENSE SWITCH 0 AND 1 
BR. IF ANY ON 

RETURN VIA REG 5 IF HANG UP 

BR. IF NO CSW EXPECTED 
UPDATE LINK ADDRESS FOR RETURN 

RESTORE REGS 8 AND 9 
RETURN VIA REG 11 

* 1-0 HANDLER WORK AREA. 



X EXP« 



X ACT' 



DATE 05MAY65 10AUG65 15N0V65 15JUN67 
EC 124252 125580 125624 130498 
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001 504 






CNOP 


0,4 




00 1503 




ORG 


*- 1 


001503 


*»0t3tlc640c7c7c7c7 


ICAW 


DC 


C CAW XXXXXX * 


0015DC 


E7E740 








0015DF 


C3E2E6 


ICSW 


DC 


C , CSW t 


00 1 5E2 


C3C3E6 


ICCW 


DC 


C f CCW' 


0015E5 


HuX3tZt6*»0 t7c7c7E7 


IBLAH 


DC 


C* CSW XXXXXXXX XX* 




tftftftf 40 1 ftf 








001 5F5 


E7E7E7E7E7E740C5E7 




DC 


C 1 XXXXXX EXP f 


0015FE, 


D7 








0015FF 


C1C3E3 


IACT 


DC 


C • ACT' 


001602 


C5E7D7 


IEXP 


DC 


C • E XP • 


UU IDu? 


*rUt cUPCtHUC » t f *fUl»-> 


f CVCMC 


DC 


#* t CMC VV CVDI 


nn Rnc 

UU1DUC 


C7n7 








nn i a i n 




IACSNS 


DC 


• cue vv irTi 
C 5N5 XX ACT 1 


nn i a i a 










nn i a i a 


HUu3U6t f «frUt fci 40 1 f 


I0L0G 


DC 


/» # t r\f+ w www v ■ ■ 

C' LOG XX XXXXXX X' 


001624 


C7C7C7C7C7/.f>C7 
tft ftltftf HUE f 








nni At>n 

UU LOCO 


C7C7C7C7C7AAC7C7C7 
tft ftftftf HO tftl fc« 




DC 


*» • WW W WWW G 

£ ■ XXXXX XXXXXX" 


nn R3t 

UU J,0 3*fr 


C7C7 CTf 
tft ftf 








nn i ti7 


aac ?C7C3An CTCT C7C7 


ITSTNO 


DC 


f fl TCT VVWB 

t" T5T XXXX" 


nni A&n 

UU J. OtU 




I0PT1 


DC 


C 1 CCT cc t\ rifci c no • 
1* " 5fc i 3>3> U UN rUK' 


nn i a a. a 


a n n a n *» a n r a n a n o 

HUUOU->4UUOUOUV 








001650 


40D3D6D6D74006D540 




DC 


r* i nnp nn nin« 

\» uuur un Atvff 


001659 


E7C9D66B40E2E2 








001660 


40F 140D6D540C6D6D9 




DC 


C« 1 ON FOR TIO SI • 


001669 


40E3C9D640E2C9 








001670 


D64003D6D6D7 




DC 


CO LOOP* 


001676 


0000000000000000 


1CSWI 


DC 


XLS^' 


00167E 


0000000000000000 


ICSW2 


DC 




001688 


04 001615 0000 0001 


ISENSE 


CCW 


X«04SIACSNS+5tX«00Sl 


001690 


001 1B6 


IOADR 


DC 


AL3( ISSUE) 


001693 


FE 


MSK1 


DC 


X«FE« 


001694 


01 


MSK2 


DC 


X«01« 


001695 


00 


RTSV 


DC 


X»00« 


001696 


40E4C9 D640E7E7 E7E7 


IUNEX 


DC 


C« UIO XXXXXX* 


00169F 


E7E7 








0016A2 






CNOP 


Of 8 


0016A2 


07 00 


BCR 


0,0 


0016A4 


07 00 


BCR 


0,0 


0016A6 


07 00 


BCR 


0,0 


0016A8 


0000000000000000 


ISLAVE 


DC 


XL8«0« 



SAVE RT NO. FOR HANGUP. 



REGISTER SAVE AREA 
* INITIALIZE ROUTINE 



0016B0 


IB 


DO 






INIT SR 


R13,R13 


ZERO REG 13 


0016B2 


91 


40 


E 


196 


TM 


406(R14),X*40» 


CHECK FOR FORCED PROBLEM STATE 


0016B6 


47 


80 


F 


6BC 


BC 


NONE, NITWIT 


BR. IF NOT 


0016BA 


18 


DF 






LR 


R13,R15 


SET UP FOR PROBLEM STATE 


0016BC 


58 


CO 


F 


0E0 


NITWIT L 


R12,UN1T1 


PUT PCH UNIT TABLE IN 12. 


0016C0 


54 


CO 


F 


6F8 


N 


R12,M0050 


AND OUT ALL BUT ADDRESS. 


0016C4 


91 


80 


F 


0E4 


BLOOP TM 


ISW,X»80« 


CHECK FOR HANG UP 


0016C8 


47 


10 


F 


60A 


BC 


ALL, HANGUP 


BR. IF DETECTED 


0016CC 


92 


03 


F 


CB8 


MVI 


CCW,X«03 f 


PUT A NOOP INTO CCW. 


0016D0 


92 


20 


F 


C8C 


MVI 


CCW+4,X , 20» 


INSURE SIL FLAG IS ON IN CCW 


0016D4 


41 


AO 


F 


CB8 


LA 


RIO, CCW 




0016D8 


07 


F4 






BCR 


UNCR4 


RETURN VIA REG 4 


00160A 


D2 


00 


F 


003 F 695 


HANGUP MVC 


SECN0+3U) ,RTSV 


RESTORE RT NO. 


0016E0 


OA 


DO 






SVC 


X»D0» 


PRINT 


0016E2 


64 








DC 


X«64« 


-PREVIOUS HANGUP DETECTED- 


0016E3 


1A 








DC 


X • 1A • 




0016E4 


F74C 






DC 


AL2CHUNG-SECN0+REGJ : 




0016E6 


96 


01 


F 


0E4 


01 


ISW,X*01« 


SET HANG UP SWITCH 


0016EA 


45 


50 


F 


2CC 


BAL 


R5, IDOSNS 


BR. TO OUTPUT AVAILABLE INFO 


0016EE 


92 


00 


F 


0E4 


MVI 


ISW,X*00» * 


RESET HANGUP SWITCH 


0016F2 


47 


FO 


:F 


6C4 


BC 


UNC, BLOOP < 




0016F6 










CNOP 


0»4 




0016F6 


07 00 






BCR 


0,0 




DATE 


05 MAY 65. 




IOAUG65 


15N0V65 15JUN67 




ID 


EC 


124252 




125580 


125624 130498 
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0016F8 
0016FC 
00174C 
001755 
00175C 
001765 



00003FFF 

400709C5E5C9D6E4E2 
40C8C105C740E4 
0740C4C5E3C5C3E3C5 
C4 



M0D50 OC 
PCHAR OS 
HUNG DC 

DC 



X»00003FFF« 
80C 

C* PREVIOUS HANG U* 
C*P DETECTED 9 



PUNCH WORK AREA 



001766 
001768 
001769 
00176A 
00176C 
00176E 
00176F 
001770 
001772 
001774 
001775 
001776 
001778 
00177A 
00177E 
001782 
001782 



001784 
001785 
001788 
00178C 
001790 
001792 
001794 
001796 
001798 



OA 00 

80 

01 

FF03 
OA 00 
24 
22 

FF03 
OA DO 
80 
25 

FEDE 
OA DA 
90 00 
47 FO 

07 00 



01 

000798 
45 40 F 
45 BO F 
0000 
0010 
FOOO 
OA 06 



000 
132 



6B0 
OFA 



* INTERVENTION REQUIRED MESSAGE 



TELHIM SVC 
DC 
DC 
DC 
SVC 
DC 
DC 
DC 
SVC 
DC 
DC 
DC 
SVC 
TIO 
BC 

CNOP 
BCR 



X»DO» 
X»80« 
X«01« 

AL2(PCH4-SECN0*REGJ 

X«DO« 

X«24« 

X«22» 

AL2C PCH4-SECN0+REG) 

X«DO» 

X«80« 

X«25» 

AL2CPCH3-SECN0+REG) 
X'DA" 
0IR12) 
UNCtGOMAN 
0,4 
0,0 



PRINT A BLANK 



PRINT OPERATOR INSTRUCTIONS 
-PLACE BLANK CARDS 
IN PUNCH HOPPER- 

-MAKE THE PUNCH OPERATIONAL 
AND READY- 



HALT FOR MANUAL INTERVENTION 
CLEAR PENDING INTERRUPT 



* ROUTINE 01- ISSUE A TEST 1-0 TO THE PUNCH. EXPECT CONDITION CODE 0. 



R0UT01 DC 
DC 
BAL 
BAL 
DC 
DC 
DC 
SVC 
CNOP 



X»01» 
AL3U0UT02-SECN0) 
R4,INIT 
R11,ITI0 
X'OOOO* 
X^OIO* 
X»FOOO« 
X»D6» 
0 t 4 



ROUTINE NUMBER 
ADDRESS OF NEXT ROUTINE 
BR. TO INITIALIZE 
BR. TO ISSUE TEST 1-0 
CONTROL SWITCHES 
TEST NUMBER 
EXP. COND. CODE - EXP. SENSE 
ROUTINE EXIT 



* ROUTINE 02- ISSUE ALL COMMANDS THAT ARE INVALID TO THE PUNCH. EACH 

* INVALID COMMAND IS ISSUED IN A SINGLE CCW. EXPECT COND. 

* CODE 1 WITH UNIT CHECK IN THE DEVICE STATUS BYTE AND 

* COMMAND REJECT IN THE SENSE BYTE -80-. EACH INVALID 

* COMMAND ISSUED IS FOLLOWED BY A DIAGNOSTIC CHECK READ 

* C6 TO RESET THE COMMAND REJECT LATCH. 



001798 


02 








R0UT02 


DC 


001799 


00084C 






DC 


00179C 


45 


40 


F 


6B0 




BAL 


0017A0 


IB 


22 








SR 


0017A2 


41 


10 


0 


OFF 




LA 


0017A6 


41 


30 


0 


061 


AGAIN 


LA 


0017AA 


43 


23 


F 


7E9 


RIP 


IC 


0017AE 


19 


12 








CR 


0017B0 


47 


80 


F 


7E4 




BC 


0017B4 


46 


30 


F 


7AA 




BCT 


0017B8 


42 


10 


F 


CBS 




STC 


0017BC 


91 


OF 


F 


CB8 




TM 


0017C0 


47 


80 


F 


7E4 




BC 


0017C4 


92 


38 


F 


7CC 




MVI 


0017C8 


45 


BO 


:F 


10E 




BAL 


0017CC 


3880 






NEIL 


DC 


00I7CE 


0020 








DC 


0017D0 


F180 








DC 


0017D2 


FE40 








DC 


0017D4 


92 


C6 


F 


CB8 




MVI 


0017D8 


45 


BO 


F 


10E 




BAL 



X«02» 

AL3(R0UT03-SECN0) 

R4,INIT 

R2,R2 

Rl,255 

R3 f 97 

R2,VALC0M-HR3) 
R1,R2 
EQt HOHO 
R3,RIP 
RltCCW 
CCW,X«OF« 
NONE t HOHO 
NEIL,X*38* 
RlltlSIO 
X«3880* 
X«0020« 
X»F180« 



AL2( UCNVLD-SECNO+REG) EXP. CSW ADDRESS 



ROUTINE NUMBER 

ADDRESS OF NEXT ROUTINE 

BR. TO INITIALIZE 

CLEAR REGISTER 2 

LOAD TOTAL COMMAND COUNT 

LOAD TOTAL VALID COMMAND COUNT 

INSERT ADDRESS OF TABLE INTO REG 2 

COMPARE FOR POSSIBLE INVALID 

BR. IF A VALID COMMAND 

RIPPLE DOWN THRU TABLE OF VALIDS 

INSERT COMMAND INTO CCW 

CHECK IF BITS 4 THUR 8 

BR. IF NONE - CHANNEL HANGS IF ISSUE 

RESTORE CONTROL SWITCH 

BR. TO ISSUE START 1-0 INVALID CMD. 

CTRL SWITCHES 

T EST NUMBER 
EXP. COND. CODE - EXP. SENSE 



CCW,X»C6« 
RlltlSIO 



INSURE DIAGNOSTIC CK READ COMMAND 
BR. TO 00 DI AG. CHECK READ START 1-0 



DATE 05MAY65 10AUG65 15N0V65 15JUN67 ID co 21 _ 3 

EC 124252 125580 125624 130498 PAGE 10 
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0017DC 


2800 




DC 


X* 2800* 


CONTROL SWITCHES 


0017DE 


0030 




DC 


X , 0030* 


T p c t hi i) ii n c o 


0017E0 


FOOO 




DC 


X'FOOO* 




0017E2 


FD90 




DC 


AL2(NQRSET-SECN0+ REG1 


EXP. ADDRESS OF CSW 


0017E4 


46 10 F 7A6 


HOHO 


BCT 


Rl. AGAIN 


DECREMENT TOTAL COMMAND milNT 


0017E8 


OA 06 




SVC 


X •D6" 


PXIT ROUTINF 


0017EA 


01030405 


VALCOM 


DC 


X* 01 030405* 




0017EE 


090D1114 




DC 


X*090D1114* jl 




0017F2 


15191D21 




DC 


X • 15191D21 • 




0017F6 


2425292D 




DC 


X* 24252920 * 




0017FA 


31343539 




DC 


X*31343539* 




0017FE 


3D4 14445 




DC 


X* 30414445 s 




001802 


494D5154 




DC 


X*494D5154* 




001806 


55595D61 




DC 


X , 55595D61» 




00180A 


6465696D 




DC 


X»6465696D« 




00180E 


71747579 




DC 


X«71747579« 




001812 


7D8 18485 




DC 


X*7D818485« 




001816 


898D9194 




DC 


X«898D9194 I 




00181A 


95999DA1 




DC 


X«95999DA1» 




00181E 


A4A5A9AD 




DC 


X*A4A5A9AD« 




001822 


B1B4B5B9 




DC 


X*B1B4B5B9* 




001826 


BDC4C6CE 




DC 


X*BDC4C6CE* 




00182A 


D4D6DEE4 




DC 


X*D4D6DEE4* 




00182E 


E6EEF4F6 




DC 


X»E6EEF4F6* 




001832 


FE 




DC 


X«FE* 




001833 


081828384858687888 




DC 


X* 081828384858687888* 


COMMANDS THAT ARE 


00183C 


98A8B8C8D8E8F8 




DC 


X*98A8B8C8D8S8F8» 


TICS 


001843 


C2CAD2DA 


PFRFTR 


DC 


X*C2CAD2DA* 


PUNCH FEED READ 


001847 


E2EAF2FA 




DC 


X*E2EAF2FA * 


FEATURE 


00184C 






CNOP 


0,4 





* ROUTINE 03- ISSUE A PUNCH FEED STACKER SELECT WITH A SHORT COUNT 79. 

* EXPECT COND. CODE 0 WITH CHANNEL END AND INCORRECT 

* LENGTH INDICATED IN THE 1ST CSW, AND DEVICE END ALONE IN 

* SECOND CSW. 
* 

* ISSUE A PUNCH FEED STACKER SELECT WITH A LONG COUNT 81. 

* EXPECT COND CODE 0 WITH CHANNEL END AND INCORRECT 

* LENGTH RECORD INDICATOR IN THE 1ST CSW, AND A RES I DUAL . 

* COUNT OF 1 IN THE SAME CSW. DEVICE END ALONE RETURNS 

* IN THE SECOND CSW. 

* ISSUE SAME COMMANDS AGAIN BUT THIS TIME SUPPRESS THE 

* INCORRECT LENGTH RECORD INDICATION. EXPECT RESULTS AS 

* ABOVE BUT WITHOUT THE INCORRECT LENGTH RECORD BIT ON. 



00184C 


03 






R0UT03 DC 


X*03« 


ROUTINE NUMBER 


001840 


0008A8 






DC 


AL3CR0UT04-SECN0) 


ADDRESS OF NEXT ROUTINE 


001850 


45 40 


F 


6B0 




BAL 


R4,INIT 


BR. TO INITIALIZE 


001854 


92 00 


F 


C94 




MVI 


PCSHRT+4,X*00« 


TURN OFF SIL BIT IN CCW SHORT COUNT 


001858 


41 AO 


F 


C90 




LA 


R10,PCSHRT 


SET UP TO DO PUNCH WITH SHORT COUNT 


00185C 


45 BO 


F 


10E 




BAL 


R11,ISI0 


BR. TO ISSUE START 1-0 


001860 


3E00 








DC 


X«3E00 t 


CONTROL SWITCHES 


001862 


0040 








DC 


X'0040" 


TEST NUMB ER 


001864 


FOOO 








DC 


X«FOOO« 


EXP. COND. CODE - EXP. SENSE 


001866 


FD38 








DC 


AL2( SHRTCW-SECNO+REGI 


EXP. CSW ADORES* 


001868 


92 00 


F 


C9C 




MVI 


PCL0NG+4,X»00 f 


TURN OFF SIL BIT IN CCW LONG COUNT 


00186C 


41 AO 


F 


C98 




LA 


R10,PCLONG 


SET UP TO DO PUNCH WITH LONG COUNT 


001870 


45 BO 


F 


10E 




BAL 


R11,ISI0 


BR. TO ISSUE START 1-0 


001874 


3E00 








DC 


X'SEOO 1 


CONTROL SWITCHES 


001876 


0050 








DC 


X^OOSO 9 


T E S T N U M B E R 


001878 


FOOO 








DC 


X»FOOO» 


EXP. COND. CODE ~ EXP. SENSE 


00187A 


FD48 








DC 


AL2 ( LNGC W-SECNO+REG 1 


EXP. CSW ADDRESS 


00187C 


92 20 


F 


C94 




MVI 


PCSHRT+4,X t 20« 


TURN ON SIL BIT IN CCW SHORT COUNT 


001880 


41 AO 


F 


C90 




LA 


R10,PCSHRT 


SET UP TO DO PUNCH WITH SHORT COUNT 


001884 


45 BO 


F 


10 E 




BAL 


RlltlSIO 


BR. TO DO START I-Q 


001888 


3E00 








DC 


X«3E00* 


CONTROL SWITCHES 


00188A 


0060 








DC 


X'0060* . 


TEST NUMBER 


DATE 


05 MAY 65 




10AUG65 


15N0V65 


15JUN67 




ID F821-3 


EC 


124252 




125580 


125624 


130498 




PAGE 10A 
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00188C 


FOOO 






00188E 


FD28 






001890 


92 20 


F 


C9C 


001894 


41 AO 


F 


C98 


001898- 


45 BO 


F 


10E 


00189C 


3E00 






00189E 


0070 






0018A0 


FOOO 






0018A2 


FD58 






0018A4 


OA 06 






0018A6 








0018A6 


07 00 







DC X^FOOO' 

DC AL2 ( NORM-^ SECNO+REG I 

MVI PCL0NG♦4,X•20• 

LA RIOtPCLONG 

BAL R11,ISI0 

DC X»3E00» 

DC X»0070» 

DC X«F000« 

DC AL2(N0ILRL- SECNO+REG) 

SVC X'D6« 

CNOP 0,4 



EXP. COND. CODE - EXP. 
EXP. CSW ADDRESS 

TURN ON SIL BIT IN CCW LONG COUNT 
SET UP TO DO PUNCH WITH LONG COUNT 
BR. TO ISSUE START 1-0 
CONTROL SWITCHES 
TEST N U M 
EXP. COND. CODE - EXP, 
EXP. CSW ADDRESS 
ROUTINE EXIT 



SENSE 



B E 
SENSE 



0018A8 


04 






0018A9 


00090C 




0018AC 


45 40 


F 


6B0 


0018B0 


91. 20 


F 


0E1 


0018B4 


47 10 


F 


908 


0018B8 


92 00 


F 


CC4 


0018BC 


41 AO 


F 


CCO 


0018C0 


45 BO 


F 


10E 


0018C4 


2A00 






0018C6 


008 0 






0018C8 


FOOO 






0018CA 


FD6 8 






0018CC 


92 00 


F 


CCC 


0018D0 


41 AO 


F 


CC8 


0018D4 


45 BO 


F 


10E 


001808 


2A00 






0018DA 


0090 ; 






0018DC 


FOOO 






0018DE 


FD70 






0018E0 


92 20 


F 


CC4 


0018E4 


41 AO 


F 


CCO 


0018E8 


45 80 


F 


10E 


0018EC 


2A00 






0018EE 


0100 






0018FO 


FOOO 






0018F2 


FD78 






0018F4 


92 20 


F 


CCC 


0018F8 


41 AO 


F 


CC8 


0018FC 


45 BO 


F 


10E 


001900 


2A00 






001902 


0110 






001904 


FOOO 






001906 


FD80 






001908 


OA 06 






00190A 








00190A 


07 00 







BCR 0,0 

* ROUTINE 04- ISSUE A DIAGNOSTIC READ WITH A SHORT COUNT 79. EXPECT 

* CONDITION CODE 0 WITH CHANNEL END DEVICE END AND 
INCORRECT LENGTH RECORD ALL TOGETHER 

ISSUE A DIAGNOSTIC READ WITH A LONG COUNT 81. EXPECT 
CONDITION CODE 0 WITH CHANNEL END DEVICE END INCORRECT 
LENGTH RECORD AND A RESIDUAL COUNT OF 1 ALL TOGETHER. 

ISSUE ABOVE COMMANDS AGAIN BUT THIS TIME THE INCORRECT 
LENGTH RECORD INDICATION IS SUPPRESSED. EXPECT SAME 
RESULTS AS ABOVE BUT WITHOUT INCORRECT LENGTH RECORO 
BIT ON. 

R0UT04 DC X»f)4» DDI IT T KIC UllUDta 



BAL 

TM 

BC 

MVI 

LA 

BAL 

DC 

DC 

DC 

DC 

MVI 

LA 

BAL 

DC 

DC 

DC 

DC 

MVI 

LA 

BAL 

DC 

DC 

DC 

DC , 

MVI 

LA 

BAL 

DC 

DC 

DC 

DC 

SVC 

CNOP 



X«04» 

AL3(R0UT05-SECN0* 
R4,INIT 
U10P,X l 20 t 
ALL,EXIT04 
DIARDS+4,X f 00« 
RlOiOIARDS 
RlltlSIO 
X^AOO* 

x'ooeo* 

X'FOOO" 
AL2(DIASRT-SECN0+RE6) 
DIARDL+4,X , 0G i 
RIOtOIARDL 
RlltlSIO 
X«2A00* 
X»0090« 
X'FOOO* 



R0UT04 DC X«04» ROUTINE NUMBER 

DC AL3(R0UT05-SECN0* ADDRESS OF NEXT ROUTINE 

BR. TO INITIALIZE 
TEST FOR PFR FEATURE 
BR. OUT OF RTN IF PFR INSTALLED. 
TURN OFF SIL BIT IN DIAG. READ CCW 
SET UP TO DO DIAG. READ SHORT COUNT 
BR. TO ISSUE START 1-0 
CONTROL SWITCHES 
TEST NUMBER 
EXP. COND. CODE - EXP. SENSE 
EXP. CSW ADDRESS 

TURN OFF SIL BIT IN DIAG. READ CCW 
SET UP TO DO DIAG. READ LONG COUNT 
BR. TO ISSUE START 1-0 
CONTROL SWITCHES 
TEST NUMBER 
EXP. COND. CODE - EXP. SENSE 
AL2( DIALNG- SECNO+REG! EXP. CSW ADDRESS 

DIARDS+4,X»20« TURN ON SIL BIT IN DIAG. READ SHORT 

R10,0IARDS SET UP TO DO DIAG. READ SHORT COUNT 

RlltlSIO BR. TO ISSUE START 1-0 

X»2A0O* CONTROL SWITCHES 

X'OIOO* TES T NUMBER 

X^FOOO* EXP. COND. CODE - EXP. SENSE 

> AL2( DAI LRS- SECNO+REG) EXP. CSW ADDRESS 

• DIARDL+4,X»20» TURN ON SIL BIT IN DIAG. READ LONG 

RIOf DIARDL SET UP TO DO DIAG. READ LONG COUNT 

Rll^SIO BR. TO ISSUE START 1-0 

* X»2A00* CONTROL SWITCHES 

X»0110» TEST NUMBE R 

X # F000« EXP. CONO. CODE - EXP. SENSE 

AL2( DAILRL- SECNO+REG) EXP. CSW ADDRESS 
EXIT04 SVC X«D6» ROUTINE EXIT 

0,4 

BCR 0,0 

* ROUTINE 05- ISSUE A PUNCH FEED STACKER SELECT COMMAND CHAINED TO AN 

* INVALID COMMAND. THE INVALID COMMAND BREAKS COMMAND 

* CHAINING AND THE CHANNEL END DEVICE END STATUS FROM 

* INITIAL SELECTION IS NOT STORED DUE TO CHAINING. 

* EXPECT CONDITION CODE 0 WITH UNIT CHECK ALONE IN THE 

* STATUS AND COMMAND REJECT IN THE SENSE BYTE. 



DATE 05MAY65 10AUG65 15N0V65 15JUN6T Tn CflJ1 ~ 
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ISSUE A NOOP START 1-0 TO THE PUNCH. THE NOOP COMMAND 
SHOULD NOT RESET THE COMMAND REJECT BIT SET FROM THE 
PREVIOUS INVALID COMMAND CHAIN. EXPECT CONDITION CODE 1 
CHANNEL END DEVICE END BUT NO UNIT CHECK. THE COMMAND 
REJECT SENSE BIT SHOULD BE ON. 

ISSUE A DIAGNOSTIC CHECK READ COMMAND TO THE PUNCH. 
EXPECT CONDITION CODE 0 CHANNEL END DEVICE END. THE 
COMMAND REJECT SENSE BIT SHOULD BE RESET WHEN THE 
DIAGNOSTIC CHECK READ COMMAND IS ISSUED. 

ISSUE A NOOP START 1-0 WITH A SHORT COUNT OF 1 COMMAND 
CHAINED TO ANOTHER NOOP WITH A COUNT OF 1. EXPECT 
CONDITION CODE 0. CHANNEL END DEVICE END STATUS FROM 
INITIAL SELECTION IS NOT SAVEO DUE TO CHAINING. CHANNEL 
END DEVICE END FROM THE SECOND COMMAND IS STORED ALONG 
WITH A RESIDUAL COUNT OF 1 IN THE CHANNEL STATUS WORD. 



00190C 


05 






R0UT05 DC 


X»05» 


ROUTINE NUMBER 


001900 


000960 




DC 


AL3(R0UT06-SECN0) 


ADDRESS OF NEXT ROUTINE 


001910 


45 40 


F 


6B0 


BAL 


R4,INIT 


BR. TO INITIALIZE 


001914 


41 AO 


F 


CAO 


LA 


R10,CHAINP 


SET UP TO DO PUNCH CHAIN TO INVALID 


001918 


45 BO 


F 


10 E 


BAL 


RlltlSIO 


BR. TO ISSUE SIO 1 


00191C 


2800 






DC 


X»2800* 


CONTROL SWITCHES 


00191E 


0120 






DC 


X«0120» 


T EST NU MBER 


001920 


F080 






DC 


X«F080» 


EXP. COND. CODE - EXP. SENSE 


001922 


FD88 






DC 


AL2(UNCK- SECNO+REG) 


EXP. CSW ADDRESS 


001924 


41 AO 


F 


CB8 


LA 


RIO, CCW 


SET UP TO ISSUE NOOP 


001928 


45 BO 


F 


10 E 


BAL 


R11,ISI0 


BR. TO ISSUE START 1-0 


00192C 


2800 






DC 


X»2800» 


CONTROL SWITCHES 


00192E 


0130 






DC 


X«0130» 


TE ST NUMBER 


001930 


F180 






DC 


X'F180« 


EXP. COND. CODE - EXP. SENSE 


001932 


FD98 






DC 


AL2 ( NEXT1-SECN0+REG) 


EXP. CSW ADDRESS 


001934 ; 


92 C6 


F 


CBS 


MVI 


CCW,X»C6 t 


INSURE DIAG CHECK READ COMMAND 


001938 


45 BO 


F 


10E 


BAL 


R11,ISI0 


BR. TO ISSUE START 1-0 


00193C 


2800 






DC 


X»2800« 


CONTROL SWITCHES 


00193E 


0140 






DC 


X , 0140« 


T E S T N U M B E R 


001940 


FOOO 






DC 


X , F00O t 


EXP. COND. CODE - EXP. SENSE 


001942 


FD90 






DC 


AL2 ( NOR SET- SECNO+REG I 


EXP. CSW ADDRESS 


001944 


41 AO 


F 


CBO 


LA 


R10,N0PCCW 


SET UP TO DO NOP COMMAND CHAINED NOP 


001948 


92 03 


F 


CB8 


MVI 


CCW,X"03 f 


INSURE NO OP COMMAND 


00194C 


92 00 


F 


CBC 


MVI 


CCW+4,X , 00 t 


TURN OFF SIL FLAG IN CCW 


001950 


45 BO 


F 


10E 


BAL 


R11,ISI0 


BR. TO ISSUE START T-0 


001954 


2800 






DC 


X«2800« 


CONTROL SWITCHES 


001956 


0150 






DC 


x^oiso* 


TEST NUMBER 


001958 


FOOO 






DC 


X«F0OO» 


EXP. COND. COOE - EXP. SENSE 


00195A 


FDAO 






DC 


AL2 ( NOPRES- SECNO+REG I 


EXP. CSW ADDRESS 


00195C 


OA D6 






SVC 


X , D6 t 


ROUTINE EXIT 


00195E 








CNOP 


0,4 




00195E 


07 00 






BCR 


0,0 





* ROUTINE 06- ISSUE A PUNCH FEED STACKER SELECT COMMAND CHAINED TO 

* ANOTHER PUNCH FEED STACKER SELECT* THE SIL FLAG IS LEFT 

* OUT OF THE COMMANDS AND 80 CHARACTERS PUNCHED BY EACH 

* COMMAND SHOULD NOT BRING WRONG LENGTH RECORD INTO STATUS. 

ROUTINE NUMBER 
ADDRESS OF NEXT ROUTINE 
BR. TO INITIALIZE 
SET UP TO DO VALID COM CHAIN 
BR. TO ISSUE START 1-0 
CONTROL SWITCHES 
T EST NU M B ER 
EXP. CONO. CODE - EXP* SENSE 
EXP. CSW ADDRESS 
ROUTINE EXIT 



001960 


06 




R0UT06 DC 


X , 06 l 


001961 


00097C 




DC 


AL3CR0UT07-SECN0I 


001964 


45 40 F 


6B0 


BAL 


R4,INIT 


001968 


41 AO F 


CDO 


LA 


RICCHNPCH 


00196C 


45 BO F 


10E 


BAL 


R11,ISI0 


001970 


3E00 




DC 


X*3E00* 


001972 


0160 




DC 


X»0160* 


001974 


FOOO 




DC 


X*POOO» 


001976 


F0A8 




DC 


AL 2 C VLDCHN- SEC NO+REG I 


001978 


OA 06 




SVC 


X*D6» 


00197A 






CNOP 


0,4 
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00I97A 07 00 BCR 0,0 

********************************^^ 

* ROUTINE 07- ISSUE A PUNCH FEED STACKER SELECT WITH A COUNT OF 79 

* COMMAND CHAINED TO A PUNCH FEED STACKER SELECT. EXPECT 

* INCORRECT LENGTH RECORD BIT TO BE SET AND BREAK COMMAND 

* CHAINING. 

* ISSUE ABOVE CHAIN COMMAND AGAIN BUT WITH A LONG COUNT OF 

* 81. EXPECT INCORRECT LENGTH RECORD TO BREAK COMMAND 

* CHAIN. A RESIDUAL COUNT OF 1 IN THE CSW. 



00197C 


07 






R0UT07 DC 


X»07» 


ROUTINE NUMBER 


00197D 


0009B4 




DC 


AL3CR0UT08-SECN0) 


ADDRESS OF NEXT ROUTINE 


001980 


45 40 


F 


6B0 


BAL 


R4,INIT 


BR. TO INITIALIZE 


001984 : 


92 40 


F 


CE4 


MVI 


SHRTCH+4tX«40« 


INSURE PROPER FLAG IN CCW 


001988 


92 4F 


F 


CE7 


MVI 


SHRTCH+7,X*4F« 


INSURE SHORT COUNT 79 


00198C 


41 AO 


F 


CEO 


LA 


RIO, SHRTCH 


SET UP TO ISSUE SHORT COUNT CHAIN 


001990 


45 BO 


F 


10 E 


BAL 


RlltlSIO 


BR. TO ISSUE START 1-0 


001994 


3C00 






DC 


X«3C00« 


CONTROL SWITCHES 


001996 


0170 






DC 


X«0170« 


TEST NUMBER 


001998 


FOOO 






DC 


X»FOOO t 


EXP. COND. CODE - EXP. SENSE 


00199A 


FOB 8 






DC 


AL2CCHNSRT-SECN0+REGJ 


EXP. CSW ADDRESS 


00199C 


92 51 


F 


CE7 


MVI 


SHRTCH+7,X«51« 


INSURE LONG COUNT OF 81 


0019A0 


41 AO 


;F 


CEO 


LA 


RIO, SHRTCH 


SET UP TO ISSUE LONG COUNT CHAIN 


0019A4 


45 BO 


F 


10E 


BAL 


RlltlSIO 


BR. TO ISSUE START 1-0 


0019A8 


3C00 






DC 


X«3C00« 


CONTROL SWITCHES 


0019AA 


0180 






DC 


X»0180« 


TEST NUMBER 


0019AC 


FOOO 






DC 


X'FOOO" 


EXP. COND. CODE - EXP. SENSE 


0019AE 


FDC8 






DC 


AL2(CHNLNG-SECN0+REG) 


EXP. CSW ADDRESS 


001 9B0 


OA D6 






SVC 


X»D6« 


ROUTINE EXIT 


0019B2 








CNOP 


0,4 




0019B2 


07 00 






BCR 


0,0 





* ROUTINE 08- ISSUE A PUNCH FEED STACKER SELECT DATA CHAINED AND 

* COMMAND CHAINED TO AN INVALID COMMAND. DATA CHAINING 

* SHOULD TAKE PRIORITY AND THE INVALID COMMAND SHOULD NOT 

* BE INSPECTED. EXPECT COND. CODE 0 WITH CHANNEL END THEN 

* DEVICE END WITH NO COMMAND REJECT IN THE SENSE BYTE. 

* CHAINING SHOULD NOT BE BROKEN. 



0019B4 


08 




R0UT08 DC 


X«08« 


ROUTINE NUMBER 


0019B5 


000 9D0 




DC 


AL3(R0UT09-SECN0) 


ADDRESS OF NEXT ROUTINE 


0019B8 


45 40 F 


6B0 


BAL 


R4,INIT 


BR. TO INITIALIZE 


0019BC 


41 AO F 


D10 


LA 


R10,DTAINV 


SET UP TO DATA AND CMD CHAIN TO 


0019C0 


45 BO F 


10E 


BAL 


R11,ISI0 


BR. TO ISSUE START 1-0 


0019C4 


3C00 




DC 


X«3C00» 


CONTROL SWITCHES 


0019C6 


0190 




DC 


X«0190« 


TEST NUM BER 


0019C8 


FOOO 




DC 


X«FOOO* 


EXP. COND. CODE - EXP. SENSE 


0019CA 


FE18 




DC 


AL2 C DTACC W-SEC NO+REG ) 


EXP. CSW ADDRESS 


0019CC 


OA 06 




SVC 


X»D6« 


ROUTINE EXIT 


0019CE 






CNOP 


0,4 




0019CE 


07 00 




BCR 


0,0 





* ROUTINE 09- ISSUE A PUNCH FEED STACKER SELECT DATA CHAINED TO 

* ~ FOUR DIFFERENT PLACES. THE TOTAL COUNT WILL EQUAL 80, 

* THEREFORE NO WRONG LENGTH RECORD INDICATION WILL APPEAR 

* IN THE STATUS. 



0019D0 


09 






R0UT09 DC 


X»09» 


ROUTINE NUMBER 


0019D1 


0009F4 




DC 


AL3(R0UT10-SECN0I 


ADDRESS OF NEXT ROUTINE 


0019D4 


45 40 


F 


6B0 


BAL 


R4,INIT 


BR. TO INITIALIZE 


0019D8 


92 14 


F 


CF7 


MVI 


DTACHN+7»20 


PUT COUNT OF 20 INTO 1ST CCW 


0019DC 


92 80 


F 


004 


MVI 


DTACHN+20tX»80* 


TURN OFF SIL FLAG IN 3RD CCW 


0019E0 


41 AO 


F 


CFO 


LA 


R10,DTACHN 


SET UP TO DATA CHAIN 


0019E4 


45 BO 


F 


10E 


BAL 


RlltlSIO 


BR. TO ISSUE START 1-0 


0019E8 


3C00 






DC 


X«3C00« 


CONTROL SWITCHES 


0019EA 


0200 






DC 


X«0200 f 


TEST NU MBE 


0019EC 


FOOO 






DC 


X f FOOO* 


EXP. CONO CODE - EXP. SENSE 
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0019EE 
0019F0 
0019F2 
0019F2 



FDE8 
OA D6 



07 00 



DC AL2(N0RM1-SECN0+REG) 

SVC X»D6* 

CNOP 0,4 

BCR 0,0 



EXP. CSW ADDRESS 
ROUTINE EXIT 



0019F4 


10 






0019F5 


000A18 




0019F8 


45 40 


F 


6B0 


0019FC 


92 28 


F 


CF7 


001A00 


92 80 


F 


D04 


001A04 


41 AO 


F 


CFO 


001A08 


45 BO 


F 


10E 


001A0C 


3C00 






001A0E 


0210 






001A10 


FOOO 






001A12 


FDF8 






001A14 


OA 06 






001A16 








001A16 


07 00 







* ROUTINE 10- ISSUE A PUNCH FEED STACKER SELECT DATA CHAINED TO 

* FOUR DIFFERENT PLACES. THE TOTAL COUNT WILL EXCEED 80 t 

* THEREFORE WRONG LENGTH RECORD SHOULD APPEAR IN THE STATUS 

* AND CHAINING WILL BE BROKEN. A RESIDUAL COUNT WILL BE 

* IN THE CSW. 



R0UT10 DC 
DC 
BAL 
MVI 
MVI 
LA 
BAL 
DC 
DC 
DC 
DC 
SVC 
CNOP 
BCR 



X«10* 
AL3(R0UT11-SECN0) 
R4.INIT 
DTACHN+7,40 
DTACHN*20,X«80« 
R10,DTACHN 
RlltlSIO 
X«3C00« 
X»0210« 
X'FOOO* 

AL2 ( N0RM2-SECN0+REG ) 

X»D6« 

0,4 

0,0 



ROUTINE NUMBER 
ADDRESS OF NEXT ROUTINE 
BR. TO INITIALIZE 
PUT COUNT OF 40 IN 1ST CCW 
TURN OFF SIL FLAG IN 3RD CCW 
SET UP TO DATA CHAIN 
BR. TO ISSUE START 1-0 
CONTROL SWITCHES 
TEST NUMBE 
EXP. COND. CODE - EXP. SENSE 
EXP. CSW ADDRESS 
ROUTINE EXIT 



* ROUTINE 11- ISSUE A PUNCH FEED STACKER SELECT DATA CHAINED TO FOUR 

* DIFFERENT PLACES WITH THE SIL FLAG ON IN THE COMMAND THAT 

* EXCEEDS A COUNT OF 80. EXPECT CHAINING TO BE BROKEN. I 

* EVEN THOUGH THE SIL FLAG IN ON, WRONG LENGTH RECORD 

* SHOULD APPEAR IN THE STATUS. 

*********************************************************************** 



001A18 


11 






ROUT 11 DC 


X«ll» 


ROUTINE NUMBER 


001A19 


000 A3C 




DC 


AL3(R0UT12-SECN0) 


ADDRESS OF NEXT ROUTINE 


001A1C 


45 40 


F 


6B0 


BAL 


R4, INIT 


BR. TO INITIALIZE 


001A20 


92 29 


F 


CF7 


MVI 


DTACHN+7,41 


PUT COUNT OF 41 IN 1ST CCW 


001A24 


92 AO 


F 


004 


MVI 


DTACHN^OtX^AO* 


TURN ON SIL FLAG IN 3RD CCW 


001A28 


41 AO 


F 


CFO 


LA 


R10.DTACHN 


SET UP TO DO DATA CHAIN 


001A2C 


45 BO 


F 


10E 


BAL 


RlltlSIO 


BR. TO ISSUE START 1-0 


001A30 


3C00 






DC 


X'SCOO' 


CONTROL SWITCHES 


001A32 


0220 






DC 


X»0220» 


TEST NU M BE 


001A34 


FOOO 






DC 


X«FO00« 


EXP. COND. CODE - EXP. SENSE 


001A36 


FE08 






DC 


AL2 C N0RM3-SECN0+REG ) 


EXP. CSW A DDR 


001A38 


OA D6 






SVC 


X«D6« 


ROUTINE EXIT 


001A3A 








CNOP 


0,4 




001 A3 A 


07 00 






BCR 


0,0 





* ROUTINE 12- ISSUE A PUNCH FEED STACKER SELECT -STACKER 1- FOLLOWED 

* BY STACKER SELECT -STACKER 2- FOLLOWED BY STACKER SELECT 

* -STACKER 1- FOLLOWED BY STACKER SELECT -STACKER 3-. THIS 

* SERIES OF COMMANDS WILL GIVE A STACKER PATTERN OF 1-2-1-3 
♦ 

* THE ENTIRE SERIES IS REPEATED -10- TIMES. BY SETTING THE 

* PROPER SENSE SWITCHES ANY ONE STACKER SELECT COMMAND CAN 

* BE LOOPED EITHER IN A TIGHT SIO-TIO LOOP OR A LOOP THAT 

* INCLUDES ERROR MESSAGE PRINTOUTS. PUNCHED IN EACH CARD 

* THAT IS STACKER SELECTED IS THE NUMBER OF THE STACKER 

* POCKET THE CARD SHOULD BE FOUND IN. 

* SENSE SWITCH OPTIONS ARE DESCRIBED IN THE PROGRAM 

* DESCRIPTION AND THE TEST NUMBER WRITE-UP. 



001A3C 


12 




R0UT12 DC 


xm* 




001A3D 


000 C14 




DC 


A L 3 ( R OUT 1 3- SEC NO 1 


ADDRESS OF NEXT ROUTINE 


001A40 


91 04 F 


004 


TM 


SNSW,X*04 e 


SEE IF SSW 5 IS ON. 


001A44 


47 80 F 


B38 


BC 


N0NE,EXIT12 


BR IF NOT* 


001A48 


45 40 F 


6 BO 


BAL 


R4, INIT • 




001A4C 


45 40 F 


C6A 


BAL 


R4,RAC 


BR TO SET UP STK SELECT. 


001 A50 


92 01 F 


A93 


MVI 


D0SS1>1,X«01« - 


INSURE 360 MODE OP CODES 


DATE 


05 MAY 65 


10AUG65 


15N0V65 15JUN67 






EC 


124252 


125580 


125624 130498 
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001 A54 


92 41 


F 


AB1 






001A58 ' 


92 01 


F 


ACF 






001A5C 


92 81 


F 


AEO 






001A60 


92 11 


F 


B4B 






001A64 


92 51 


F 


B6D 






001A68 


92 91 


F 


B8F 






001A6C 


92 02 


F 


AA2 






001A70 


92 02 


F 


ACO 






001A74 


92 02 


F 


AOE 






001A78 


92 02 


F 


AFC 






001A7C 


92 02 


F 


BAA 






001A80 ; 


92 02 


F 


B2E 






001A84 


41 00 


0 


OOA 






001A88 


41 AO 


F 


D20 






001A8C 


02 17 


F 


6FC 


F 


BFA 


001A92 


92 01 


F 


D20 






001A96 


02 02 


F 


021 


F 


E58 


001A9C 


45 BO 


F 


10E 






001 A AO 


3E01 










001AA2 


0230 










001 A A4 


FOOO 










001AA6 


FE48 










001AA8 


91 IC 


F 


005 






001 AAC 


47 40 


F 


B3A 






001AB0 


92 41 


F 


020 






001 AB4 : 


02 02 


F 


D21 


F 


E5B 


001ABA 


45 BO 


F 


10E 






001ABE 


3E01 










001AC0 


0240 










001AC2 


FOOO 










001AC4 


FE48 










001AC6 


91 IC 


F 


005 






001 AC A 


47 40 


F 


B5C 






001ACE 


92 01 


F 


D20 






001A02 


02 02 


F 


D21 


F 


E58 


001 AOS 


45 BO 


F 


10E 






001A0C 


3E01 










001A0E 


0250 










001AE0 


FOOO 










001AE2 


FE48 










001AE4 


91 IC 


F 


005 






001AE8 


47 40 


F 


B3A 






001AEC 


92 81 


F 


020 






001AF0 


02 02 


F 


021 


F 


E5E 


001AF6 


45 BO 


F 


10E 






001AFA 


3E01 










001AFC 


02S0 










001AFE 


FOOO 










00 1 BOO 


FE48 










GQ1B02 


91 IC 


F 


005 






001B06 


47 40 


F 


B7E 






001 BOA 


46 00 


F 


A92 






001B0E 


92 40 


F 


6FC 






001B12 


02 4E 


F 


6FD 


F 


6FC 


001B18 


92 91 


F 


020 






001B1C 


95 13 


F 


003 






001B20 


47 80 


F 


B28 






001B24 


92 81 


F 


020 






001B28 


45 BO 


F 


10E 






001B2C 


3E01 










001B2E 


0265 










001 B30 


FOOO 










001B32 


FE48 










001B34 


45 40 


F 


C7E 






001B38 


OA 06 










001B3A 


91 10 


F 


005 






001B3E 


47 80 


F 


AC6 






001B42 


91 40 


F 


004 









MVI 


D0SS2*l,X«41» . 




MVI 


INTERV+l,X»01« . 




MVI 


D0SS3+lt X'81« 




MVI 


COMPl+l t X ff U* . 




MVI 


C0MP2+l t X , 51» . 




MVI 


C0MP3+l t X»91« 




MVI 


TST230,X , 02« 




MVI 


TST240,X»02« 




MVI 


TST250,X»02» 




MVI 


TST260 t X«02« 




MVI 


TST270,X»02» 




MVI 


TST265,X»02 > 


RTN13 


LA 


R0,10 




LA 


R10,SSC0MN 




MVC 


PCHAR(24),STKR1 


00SS1 


MVI 


SSC0MN,X»01« 


0OSS1C 


MVC 


SSCOMN+H 3) »SSONE 




BAL 


RlltlSIO 




DC 


X»3E01« 


TST230 


DC 


X«0230« 




DC 


X»FOOO» 




DC 


AL2(SSADRS~SECN0+REG) 


ANY1 


TM 


SNSW+1, X»1C» 




BC 


S0ME,SEE11 


D0SS2 


MVI 


SSCOMNtX^l* 


00SS2C 


MVC 


SSCOMN+H 3) fSSTHO 




BAL 


RlltlSIO 




DC 


X*3E01« 


TST240 


DC 


X»0240» 




DC 


X'FOOO' 




DC 


AL2( SSADRS- SECNO+REG) 


ANY2 


TM 


SNSW+1,X«1C« 




BC 


S0ME,SEE12 


INTERV 


MVI 


SSCOMNtX^Ol* 




MVC 


SSC0MN+1C3),SS0NE 




BAL 


RlltlSIO 




DC 


X»3E01« 


TST250 


DC 


X"0250« 




DC 


X'FOOO' 




DC 


AL2( SSADRS— SEC NO+REG) 




TM 


SNSW+ltX'lC 




BC 


S0ME,SEE11 


D0SS3 


MVI 


SSC0MN f X«8l« 


D0SS3C 


MVC 


SSCOMN+H 3) tSSTHRE 




BAL 


RlltlSIO 




DC 


X«3E01« 


TST260 


DC 


X«0260» 




DC 


X»F000« 




DC 


AL2( SSADRS- SECNO+REG) 


ANY3 


TM 


SNSW+ltX'lC* 




BC 


SOME, SEE 13 




BCT 


ROtDOSSl 




MVI 


PCHARtC • • 




MVC ; 


PCHAR+1(79),PCHAR 




MVI 


SSC0MNyX*9l f 




CLI 


SECN0+3,X»13 I 




BC 


EQtBALll 




MVI 


SSC0MNtX»81» 


BAL11 


BAL 


RlltlSIO 




DC 


X»3E01« 


TST265 


DC 


X«0265» 




DC 


X'FOOO" 




DC 


AL2( SSADRS- SECNO+REG > 




BAL 


R4,CCDS 


EXIT12 


SVC 


X«D6« 


SEE11 


TM 


SNSW+ltXUO' 




BC 


NONE t ANY2 




TM 


SNSW,X»40* 



INSURE 360 MODE OP CODES 

INSURE 360 MODE OP CODES 

INSURE 360 MODE OP CODES 

INSURE 360 MODE OP CODES 

INSURE 360 MODE OP CODES 

INSURE 360 MODE OP CODES 

MODIFY TEST NUMBER 

MODIFY TEST NUMBER 

MODIFY TEST NUMBER 

MODIFY TEST NUMBER 

MODIFY TEST NUMBER 

MODIFY TEST NUMBER 

SET UP TO STKR SEL 10 CARDS 

SET UP CCW ADDRESS 

SET UP PUNCH INFO WORK AREA 

SET UP STKR SEL 1 CMD 

SET UP PUNCH ADDR IN CCW 

BR. TO ISSUE START 1-0 



TEST 



N U 



B E R 



TEST FOR ANY LOOP REQUESTS 
BR. IF ANY REQUESTS 
SET UP STKR SEL 2 CMD 
SET UP PUNCH ADDR IN CCW 
BR. TO ISSUE START 1-0 



TEST 



N U M 



E R 



TEST FOR ANY LOOP REQUESTS 
BR. IF ANY REQUESTS 
SET UP STKR SEL I CMD 
SET UP PUNCH ADDR IN CCW 



TEST 



NUMBER 



TEST FOR ANY LOOP REQUESTS 
BR. IF ANY REQUESTS 
SET UP STKR SEL 3 CMD 
SET UP PUNCH ADDR IN CCW 



M B 



TEST FOR ANY LOOP REQUESTS 

BR. IF ANY REQUESTS 

BR. UNTIL 10 PASSES THRU STKR SEL 

MOVE A BLANK 

BLANK THE REST OF THE PCH AREA. 
MOVE IN A 1400 STKR 3 CMD. 
SEE IF IN ROUTINE 13. , 
BR IF YES. 

MOVE IN A 360 STKR 3 CMD. 
BR TO ISSUE START 1-0. 
CTRL SWITCHES 

TEST NUMBER 
EXP COND. CODE AND SENSE 
EXP CSW ADDRESS 
BR TO CHK CDS. 
ROUTINE EXIT 

TEST SNS SW 11 FOR STKR SEL I LOOP 
BR. IF NO LOOP ON STKR SEL 1 
TEST SNS SW 1 -SIO TIO LOOP- 



DATE 05 MAY 65 10AUG65 15N0V65 15JUN67 
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ICOI OWO OH X OAU I IU LUUr" 


nni RAfl 

\J\J i. DO O 


47 


80 


p 


BDA 




BC 


NHNP.rPT? 
IvlJnlCtLr I ,fi 


on _ tn l nnp CTKR CPt 7 WITH PR INTHUT 
o i\ • iu i_uur •) i i\n ocl. c ii a i n mini UU 1 


001B6C 

VrV# i Uuu 


92 


41 


p 


D20 


C0MP2 


MVI 


^^mMN. X*41 • 


SET UP TIGHT LtJOP ROUTINE TO DO.. 


nm R7n 

\J\J 1DI U 


02 


02 


F 


D21 F E5B 




MVC 




cm Ttfl CTKR CFI 7 

OAU IAU OlfVr* OCL c 


nni R7f» 


45 


60 


p 


BAO ' 




BAL 


OA.Tl TP I P 
l\0 t 1 * It- Lr 


RR. Tfl mMMOKI TFCT KJIIMRFR ROUTTNF 


001 B7 A 


47 


FO 


p 


AC6 




BC 


IIKjr . AMY? 


RFTIIRN FOR CMC CU CHECK 


001 B7E 


91 


04 


F 


005 


SEE13 


TM ' 


JilJH ' A. t U~ 


TFCT CMC CU 1^ FOR CTKR CFI 3 LOOP 
icoi owo ott , & *j run o 1 1\ i\ ocl. s> luut 


nni RR? 

UU 1 DOC 


47 


80 


F 


AA8 




BC 


NHNF . ANY1 


RR. IF NO LOOP ON STKR SFL 3 
u vx • a r nu Luur un o i i\r\ o ci» j 


nm RRft 

\J \J 1 DUO 


91 


40 


p 


004 




TM 


olionf A "rU 


TFCT SNS SU 1 —STO TIO 1 OOP— 

ICOI owo on A. wAU IAU LUUr 


nm rr a 

UU i UU H 


47 


80 


; p 


BE A 




BC 


nuncf ■ i* 


RR. TO LOOP STKR SEL 3 WITH PRINTOUT 
D rv a iu Luur «*ii\r\ n 1 1 ri rniniuui 


nm rrf 

UU A DO E. 


92 


81 


p 


D20 


C0MP3 


MVI 


JOUUDNf A OX 


cct lip TIGHT LOOP ROUTINE TO DO... 
oci ur i ivni luu r nuui inc • u vu • • • 


001 B92 


D2 


02 


p 


D21 F • E5E 




MVC 


oovuniiTA i j f innc 


SIO TIO STKR SFL 3 

OAU IAU Ol l\l\ LL & 


nni rqr 

UU A U7U 


45 


60 


p 


BAO 




BAL 


R f%m TTTPI P 

ROf 1 A 1 C Lr 


RR. TO COMMON TFST NUMRFR ROUTINE 
di\* i u vunnuii i Cv i nunocn nuu * ai«c 


nm RQr 

UU 107V< 


47 


FO 


p 


B02 




BC 


univ» t AW I 9 


RETURN FOR SNS SW CHECK 
i\c i uimi run owo on vncvn 


nm rao 

UU Jl U Hw 


41 


AO 


p 


D20 ; 


TITELP 


LA 




SET UP CCU ADORFSS 
oc i ur wvn nuunCdd 


001BA4 


45 


BO 


' F 


I6A 




BAL 


i\ x x t x n a ww 




\J\J A D M U 


3E01 








DC ■ 


X* 3E01 * 




001BAA 


0270 






TST270 


DC 


X*0270* 


T E S T N U M R E R 


nm rap 

UU A. UHW 


FOOO 








DC 


y ♦ Fnnn* 

A r UUv 


! 


001BAE 


FE48 
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ai ?i ^<iAnnc«-<kCrMn^nciit 
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UU X DOO 


AO 










n#* 


v ■ a nt 

A " AU" 




nm rrq 

UU X DO y 


40 










nr 


y • An* 

A "tU 




nm rra 
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nr 

UL 






nm art 

UUX DDI* 


OA 


DO 








cup 
oVV, 


v tnn • 

A "UU * 




001BBE 


CO 










DC 


X'CO* 




001BBF 


3D 










DC 


X«30" 




001BC0 


FEA1 








DC 


A L 2 ( M SG2- SECNO+REG ) 




001BC2 


50 


AD 


0 


048 




ST 


R10,HCAW(R13) 


STORE CAW 


001BC6 


47 


FO 


F 


55E 




BC 


UNCt SSRET 


RETURN TO MAIN HANDLER 


001BCA 


95 


13 


F 


003 


CPT1 


CLI 


SECNO+StX'lS 1 


SEE IF IN RTN 13 


001BCE 


47 


60 


F 


A92 




BC 


UNEQtDOSSl 


BR. IF NOT RTN 13 


001BD2 


92 


11 


F 


D20 




MVI 


SSCOMNtX , ll«. 


MOVE IN C0MPAT STKR SEL CMD 


001BD6 


47 


FO 


F 


A96 




BC 


UNCtDOSSIC 


BR. TO DO STKR SEL C0MPAT CMD LOOP 


001BDA 


95 


13 


F 


003 


CPT2 


CLI 


SECNO+StXUS* 


SEE IF IN RTN 13 


001BDE 


47 


60 


F 


ABO 




BC 


UNEQ«DOSS2 


BR. IF NOT RTN 13 


001BE2 


92 


51 


F 


D20 




MVI 


SSCOMN,X»51* 


MOVE IN C0MPAT STKR SEL CMD 


001BE6 


47 


FO 


F 


AB4 




BC 


UNCDOSS2C 


BR. TO DO STKR SEL C0MPAT CMD LOOP 


001BEA 


95 


13 


F 


003 


CPT3 


CLI 


SECNO+StXUS* 


SEE IF IN RTN 13 


001BEE 


47 


60 


F 


AEC 




BC 


UNEQtD0SS3 


BR. IF NOT RTN 13 


001BF2 


92 


91 


F 


D20 




MVI 


SSC0MNtX«91» 


MOVE IN C0MPAT STKR SEL CMD 


001BF6 


47 


FO 


F 


AFO 




BC 


UNCD0SS3C 


BR. TO DO STKR SEL C0MPAT CMD LOOP 


001BFA 


F1F1F1F1F1F1F1F1 


STKR1 


OC 


X»F1F1F1F1F1F1F1F1» 




001C02 


F2F2F2F2F2F2F2F2 




DC 


X , F2F2F2F2F2F2F2F2» 




001C0A 


F3F3F3F3F3F3F3F3 




DC 


X»F3F3F3F3F3F3F3F3« 




001C12 












CNOP 


0t4 




001C12 


07 00 






BCR 


OtO 





************ ****************** + **+**** + *** 3 l t *********^***4 t *******« + *4t +J » t * 
* ROUTINE 13- ISSUE A 1400 MODE PUNCH STKR SELECT -STACKER 1- FOLLOWED 



BY STACKER SELECT -STACKER 2- FOLLOWED BY STACKER SELECT 
-STACKER 1- FOLLOWED BY STACKER SELECT -STACKER 3-. THIS 
SERIES OF COMMANDS WILL GIVE A STACKER PATTERN OF 1-2-1-3 

THE ENTIRE SERIES IS REPEATED -10- TIMES. BY SETTING THE 
PROPER SENSE SWITCHES ANY ONE STACKER SELECT COMMAND CAN 
BE LOOPED EITHER IN A TIGHT SIO-TIO LOOP OR A LOOP THAT 
INCLUDES ERROR MESSAGE PRINTOUTS. PUNCHED IN EACH CARD 
THAT IS STACKER SELECTED IS THE NUMBER OF THE STACKER 
POCKET THE CARD SHOULO BE FOUND IN. 
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001C14 


13 








001C15 


OOFFFF 




001C18 ' 


91 


04 


F 


004 


001CIC 


47 


80 


F 


C68 


001C20 




nil 


F 


0E1 


001C24 


47 


80 


F 


B38 


001C28 


45 


40 


F 


6 BO 


001C2C 


45 


40 


F 


C6A 


001C30 


92 


91 


F 


A93 


001C34 


92 


11 


F 


AB1 


001C38 


92 


51 


F 


ACF 


001C3C 


92 


11 


F 


AED 


001C40 


92 


11 


F 


B4B 


001 C44 


92 


51 


F 


B6D 


001C48 


92 


91 


F 


B8F 


001C4C 


92 


12 


F 


AA2 


001C50 


92 


12 


F 


ACO 


001C54 


92 


12 


F 


ADE 


001C58 


92 


12 


F 


AFC 


001C5C 


92 


12 


F 


B2E 


001 C60 : 


92 


12 


F BAA 


001C64 '. 


47 


FO 


F 


A84 


001C68 


OA 


06 






001C6A 


OA 


DO 






001 C6C 


2428 






001C6E 


FF2 5 






001C70 


OA 


DA 






001C72 


90 


00 


C 000 


001C76 


OA 


DO 






001C78 


8001 






001 C7 A 


FF2 5 






001C7C 


07 


F4 







* SENSE SWITCH OPTIONS ARE DESCRIBED IN THE PROGRAM 

* ' DESCRIPTION AND THE TEST NUMBER WRITE-UP. 
**************************^ 

ROUT J * Dr. Vtm annrtur i...i.r>r-« 



001C7E 
001C80 
001C82 
001C84 
001C86 
001C88 
001C8A 
001C8C 



001C90 
001C98 
001CA0 
001CA8 
001CB0 
001CB8 
OOICCO 
001CC8 
001CD0 
001CD8 
001CE0 
001CE8 
001CF0 
001CF8 
001D00 
001 DOS 



OA DO 
2432 
FF4D 
OA DA 
OA DO 
8001 
FF4D 
07 F4 



41 0016FC 
41 0016FC 
41 0016FC 
53 0016FC 
03 0016FC 
03 0016FC 
C2 0016FC 
C2 0016FC 
41 0016FC 
41 0016FC 
41 0016FC 
41 0016FC 
41 001710 
41 001724 
41 001710 
41 0016FC 



R0UT13 DC 
DC 
TM 
BC 
TM 
BC 
BAL 
BAL 
MVI 
MVI 
MVI 
MVI 
MVI 
MVI 
MVI 
MVI 
MVI 
MVI 
MVI 
MVI 
MVI 
BC 

EXIT13 SVC 



X"13" 
X"OOFFFF" 
SNSW»X"04" 
N0NE,EXIT13 
U10P,X"08" 
N0NE,EXIT12 
R4.INIT 
R4,RAC 

D0SS1*1,X"91" i 
D0SS2+l,X"ll" , 
INTERV+1,X"51" 
D0SS3+1,X"11" 
C0MP1+1,X"1I" . 
C0MP2+1,X"51" , 
C0MP3+1,X"91" 
TST230,X"12" 
TST240,X"12" 
TST250,X"12" 
TST260,X"12" 
TST265,X"12" 
TST270,X"12" 
UNCRTN13 
X»D6» 



ROUTINE NUMBER 
LAST ROUTINE 
SEE IF SSW 5 IS ON. 
BR IF NOT. 

SEE IF 1400 PUNCH COMPATIBILITY 
ROUTINE EXIT 
BR. TO INITIALIZE 
BR TO SET UP STK SELECT. 
INSURE 1400 MODE COMMANDS 
INSURE 1400 MODE COMMANDS 
INSURE 1400 MODE COMMANDS 
INSURE 1400 MODE COMMANDS 
INSURE 1400 MODE COMMANDS 
INSURE 1400 MODE COMMANDS 
INSURE 1400 MODE COMMANDS 
MODIFY TEST NUMBER 
MODIFY TEST NUMBER 
MODIFY TEST NUMBER 
NUMBER 



MODIFY TEST 
MODIFY TEST NUMBER 
MODIFY TEST NUMBER 
GO TO RTN 12 TO EXECUTE 1400 CMOS 
ca*ii5 ivu A-uo' ROUTINE EXIT. 

*^**W*******************************^ 

* PRINT REMOVE ALL CDS FOR STACKER SELECT TEST 

************ 

RAC SVC X»DO" PRINT -REMOVE CARDS- 

DC X»2428" 

DC AL2 ( DONPRO-SECNO+REG ) 
SVC X'DA" -HALT- 
TEST 1-0 
PRINT A BLANK 



X"DA" 
TIO 0(R12) 
SVC X"DO" 
DC X"8001" 
DC AL2(D0NPR0-SECN0+REG) 
BCR UNC,R4 



0000 
0000 
4000 
0000 
4000 
2000 
0000 
0000 
4000 
0000 
4000 
0000 
8000 
8000 
8000 
0000 



004F 
0051 
0050 
0050 
0001 
0001 
004F 
0051 
0050 
0050 
004F 
0050 
0014 
0014 
0014 
0014 



vniu f n«* RETURN. 

* PRINT MAKE VISUAL CHK OF CARDS IN STACKERS 
************t*********************^^ 

CCDS SVC X'DO" PRINT -CHK CARDS- 
DC X»2432" 

DC AL2(VISUAL-SECN0+REG) 

SVC X'DA" -HALT- 

SVC X'DO" print A BLANK 

DC X»8001" 

DC AL2 ( VI SUAL-SECNO+REG) 

BCR UNCR4 RETURN. 
*************************^ 

* CHANNEL COMMAND WORDS -CCW- 
***************************************^ 

»S, S t!?J CCW X«41«,PCHAR,X»00S79 SHORT COUNT PUNCH -VARIABLE SIL- 

PCLONG CCW X'41",PCHAR,X"00",81 LONG COUNT PUNCH -VARIABLE SIL- 

CHAINP CCW X'41",PCHAR,X«40»,80 PUNCH COMMAND CHAINED 

INVLD CCW X"53",PCHAR,X"00".80 INVALID COMMAND 



COMMON CCW -VARY OP AND FLAG- 
DIAG. READ SHORT COUNT -VARIED SIL- 
DI AG. READ LONG COUNT ^-VARIED SIL- 
PUNCH CHAIN VALID 



X"53",PCHAR,X"00",80 

NOPCCW CCW X»03",PCHAR,X'40",01 

CCW CCW X"03",PCHAR,X«20',01 

DIARDS CCW X"C2",PCHAR,X"00»,79 

DIARDL CCW X'C2",PCHAR,X"00",81 

CHNPCH CCW X"41",PCHAR,X"40",80 

CCW X"41",PCHAR,X"00",80 

SHRTCH CCW X"41",PCHAR,X"40",79 PUNCH CHAIN SHORT -VARIABLE COUNT 

CCW X"4I",PCHAR,X«00",80 

DTACHN CCW X"41 ",PCHAR*20,X "80 • ,20 

CCW X"41",PCHAR440,X"80%20 

CCW X"41",PCHAR+20^X*80*»20 

DATA1 CCW X«41»,PCHAR 9 X"00",2O 



-VARY COUNT 



DATA CHAIN 20 BYTES 
DATA CHAIN 20 BYTES 
DATA CHAIN 20 BYTES -VARY FLAG 
DATA CHAIN 20 BYTES 
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001D10 41 0016FC COOO 0023 DTAINV CCW X"41 • ,PCHAR,X"CO" ,40 DATA AND CMD CHAIN TO INVALID 

001D18 53 001724 0000 0028 < DATA2 CCW X"53" ,PCHAR+40*X"00S40 DATA AND CMD CHAIN TO INVALID 
001D20 01 00 16FC 2000 0008 SSCOMN CCW X"01",PCHAR,X"20*,08 

*********************************************************************** 

* EXPECTED CSW ADDRESS AND EXPECTED CHANNEL STATUS WORD -CSW- 

*********************************************************************** 



001D28 


00001C98 


NORM 


DC 


ACPCSHRT+8) 


001D2C 


08000000 




DC 


X* 08000000" 


001D30 


00000000 




DC 


XL4'0" 


001D34 ; 


04000000 




DC 


X" 04000000" 


001D38 


00001C98 


SHRTCW 


DC 


A(PCSHRT+8) 


001D3C 


08400000 




DC 


X' 08400000" 


001 D40 


00000000 




DC 


XL4"0* 


001 D44 


04000000 




DC 


X' 04000000" 


001D48 


00001CA0 


LNGCW 


DC 


A(PCL0NG+8) 


001D4C 


08400001 




DC 


X'08400001" 


001D50 


000 00000 




DC 


XL4"0" 


001D54 


04000000 




DC 


X" 04000000" 


001D58 


00001CAO 


NOILRL 


DC 


A(PCL0NG+8) ; 


001D5C 


08000001 




DC 


X'08000001" 


001 D60 


00000000 




DC 


XL4"0" 


001D64 


04000000 




DC 


X" 04000000" 


001D68 


00001CC8 


DIASRT 


DC 


A(DIARDS+8) 


001 D6C 


OCA ooooo . 




DC 


X»0C400000" 


001D70 


00001CD0 


DIALNG 


DC 


A (DIAROL+8) 


001D74 


0C400001 




DC 


X "00400001" 


001D78 


00001CC8 


DAILRS 


OC 


A(DIARDS+8) ' 


001D7C 


OCOOOOOO 




DC 


X" OCOOOOOO" , 


001D80 


00001CDO 


DAILRL 


DC 


A(DIARDL+8) 


001 D84 


0C000001 




DC 


X"0C000001" 


001D88 


00001CBO 


UNCK 


DC 


AUNVLD+8) 


001D8C 


02000050 : 




DC 


X"02000050" 


001 D90 


00001CCO 


NORSET 


DC 


AJCCW+8) 


001D94 


OCOOOOOO 




DC 


X"0C000000« 


001 D98 


00000000 


NEXT1 


DC 


XL4"0" 


001D9C 


OCOOOOOO 




DC 


X" OCOOOOOO" 


001DA0 


00001CCO 


NOPRES 


DC 


AICCW+8) 


001DA4 


0C000001 




DC 


X"OC 000001" 


001DA8 


00001CEO 


VLDCHN 


DC 


ACCHNPCH+16) 


001DAC 


08000000 




DC 


X" 08000000" 


001DB0 


00000000 




DC 


XL4»0" 


001DB4 


04000000 




DC 


X" 04000000" 


001DB8 


00001CE8 


CHNSRT 


DC 


A(SHRTCH+8) 


001 DBC 


08400000 




DC 


X" 08400000" 


001DC0 


00000000 




DC 


XL4"0" 


001DC4 


04000000 




DC 


X" 04000000" 


001 DC8 


00001CE8 


CHNLNG 


DC 


A(SHRTCH+8) 


001DCC 


08400001 




DC 


X" 08400001" 


001DD0 


00000000 




DC 


XL4"0" 


001 DD4 


04000000 




DC 


X" 04000000" 


001DD8 


OOOOICFO 


ITSELF 


DC i 


A( SHRTCH+L6J 


001 DDC 


08000000 




DC 


X" 08000000" 


001DE0 


00000000 




DC 


XL4"0" 


001DE4 


04000000 




DC 


X" 04000000" 


001DE8 


00001D10 


N0RM1 


DC 


A (DATA 1+8) 


001DEC 


08000000 




DC 


X" 08000000" 


001DF0 


00000000 




DC 


XL4"0" 


001DF4 


04000000 




DC 


X" 04000000" i 


001 DF8 


0O0O1D1O 


N0RM2 


DC i 


A (DATA 1+8) 


001DFC 


08400014 




DC 


X" 08400014" 


001E00 


00000000 




DC 


XL4»0" 


001E04 : 


04000000 




DC 


X" 04000000" 


001E08 


00001D08 


N0RM3 


DC 


A(DATAl) 


001 EOC 


08400001 




DC 


X"084X)0001" 


001E10 


00000000 




DC 


XL4*0" 


001E14 


04000000 




DC 


X" 04000000" 
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001E18 


00001D20 


DTACCW 


DC 


A(DATA2+8) 


001E1C 


08000000 




DC 


X* 08000000* 


001E20 


00000000 




DC 


XL4*0* 


001E24 


04000000 




DC 


X* 04000000* 


001E28 « 


00001690 ; v 


SNSCSW 


DC 


AUSENSE+8) 


001E2C 


ocoooooo 




DC 


X* OCOOOOOO* 


001E30 


00001CF0 


NEXT 


DC 


A(SHRTCH+16> 


001 E34 I 


08000001 




DC 


X* 08000001* 


001 E38 


00000000 




DC 


XL4*0* 


001E3C 


04000000 




DC 


X* 04000000* 


001 E40 


00000000 


UCNVLD 


DC 


XL4*0* 


001 E44 


02000000 




DC 


X* 02000000* 


001 E48 


00001D28 


SSADRS 


DC 


A(SSC0MN+8» 


001 E4C 


08000000 




DC 


X* 08000000* 


001E50 


00000000 




DC 


XL4*0* 


001E54 


04000000 




DC 


X* 04000000* 


001E58 


0016FC 


SSONE 


DC 


AL3( PCHAR) 


001E5B 


001704 


SSTWO 


DC 


AL3(PCHAR+8) 


001E5E 


00170C 


SSTHRE 


DC 


AL3(PCHAR*16) 



* 
* 

* MESSAGES 

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 



001 E61 , 


40E2D5E240E2E640F1 


MSG1 


DC 


C* SNS SW 11 12 OR* 


001E6A 


F140F1F240D6D9 








001E71 


40F 1F340D6D540E3D6 




DC 


C* 13 ON TO LOOP S* 


001E7A 


40D3D6D6D740E2 








001E81 


E3D2D940E2C5D340F1 




DC 


C'TKR SEL 1 2 OR 3* 


001E8A 


40F240D6D940F3 








001E91 


60E6C9E3C840C5D9D9 - 




DC 


C'-WITH ERR STOPS-* 


001E9A 


40E2E3D6D7E260 








001EA1 


40E2D5E240E2E640FI 


MSG2 


DC 


C* SNS SW 1 WITH A* 


001EAA 


40E6C9E3C840CI 








001EB1 


D5E840D6C640C1C2D6 




DC 


C*NY OF ABOVE FOR 9 


001EBA 


E5C540C6D6D940 








001EC1 


E2C9D640E3C9D640D3 




DC 


C*SIO TIO LOOP-NO • 


001ECA 


D6D6D760D5D640 








001ED1 


C5D9D940C3C8C5C3D2 




DC 


C • ERR CHECKING- 8 


001EDA 


C9D5C760 








001EDE 


4004C1D2C540E3C8C5 


PCH3 


DC 


C* MAKE THE PUNCH « 


001EE7 


40D7E4D5C3C840 








001EEE 


D6D7C5D9C1E3C9D6D5 




DC 


C* OPERATIONAL AND • 


001EF7 


C1D340C1D5C440 








001EFE 


D9C5C1C4E8 




DC 


C* READY* 


001F03 


40D7D3C1C3C540C2D3 


PCH4 


DC 


C* PLACE BLANK CAR* 


001F0C 


C1D5D240C3C1D9 








001F13 


C4E 240 C9 D540 D7 E4D5 




DC 


CDS IN PUNCH HOPP* 


001F1C 


C3C840C8D6D7D7 








001F23 


C5D9 




DC 


C'ER* 


001F25 


40C4D640D5D6D7D9D6 


DONPRO 


DC 


C* DO NOPROt REMOV* 


001F2E 


6B40D9C5D4D6E5 








001 F35 


C540C1D3D340C3C4E2 




DC 


C*E ALL CDS FROM P* 


001F3E 


40C6D9D6D440D7 








001F45 


C3C840E2E3D2D9E2 




DC 


C*CH STKRS* 


001F4D 


40E2C5C540C9C6 


VISUAL 


DC 


C* SEE IF* 


001F54 : 


40C3C4E240D7C3C8C5 




DC 


C* CDS PCHED WITH • 


001F5D 


C440E6C9E3C840 








00IF64 


40F140C9D540D7F16B 




DC 


C* 1 IN PI, 2 IN P* 


001F6D 


40F240C9D540D7 








001F74 


F26B40F340C9D540D9 




DC 


C*2, 3 IN RP3* 


001F70 


D7F3 









* ■ 

* EQUATES 
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000000 


NEVER 


EQU 


0 


000007 


NCCO 


fcUU 




AAAAAC 

OOOOOr 


UNC 




1 c 


000008 


NONE . 


cm i 

tuu 


a 
O 


000004 


SOME 


cm | 
tUU 


4 


000001 


ALL 


cm t 

tuu 


1 
X 


000005 


ANY 


EQU 


5 


000008 


CCO . 


EQU 


8 


000004 


CC1 


EQU 


4 


000002 


CC2 


EQU 


*% 

£, 


000001 


CC3 




L 


OOOOOA 


CC02 


EQU 


i n 
1U 


000006 


CC12 


EQU 


6 


000008 


, EQ 


EQU 


o 
o 


000004 


LO 


EQU 




000002 


HI 


EQU 


2 


000006 


UNEQ 


EQU 


6 


OOOOOC 


EQLO 


EQU 


12 


OOOOOA 


EQHI 


EQU 


i n 

1U 


000080 


LOGOUT 


EQU 


v • ant 

A " OU " 


000181 


SYSMOD 


tuu 




00 FOOD 


REG 


CAM 

tuu 


a ruuu 


00005A 


WHAT 


EQU 


on 


nnnnnn 


KU 


con 

CUU 


0 


000001 


Rl 


EQU 


1 


000002 


R2 


EQU 


2 


000003 


R3 


EQU 


3 


000004 


R4 


EQU 


4 


000005 


R5 


EQU 


5 


000006 


R6 


EQU 


6 


000007 


R7 


EQU 


7 


000008 


R8 


EQU 


8 


000009 


R9 


EQU 


9 


OOOOOA 


RIO 


EQU 


10 


OOOOOB 


Rll 


EQU 


11 


OOOOOC 


R12 


EQU 


12 


OOOOOD 


R13 


EQU 


13 


OOOOOE 


R14 


EQU 


14 


OOOOOF 


R15 


EQU 


15 


000198 


WT 


EQU 


408 


000040 


HCSW 


EQU 


64 


000048 


HCAW 


EQU 


72 


OOOIAO 


DMSSW 


EQU 


X'OIAO* 






END 


R0UT01 
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DATE 
EC 



I 


8 1 


en 
CW 


136C, 


14EE, 


14F6, 


1780, 


1B20 


1 


c 


HI 










I 




i n 
LU 












\ 


0 


DO 


1 to/ 
lAOHf 


1B0A, 


1BB0 






I 


A 


R 1 


1 ID? 


1186, 


1192, 


17A2, 


17AE t 


I 


2 


oo 

f\C 


1 7 An ' 


17A0, 


17AA, 


17AE 




\ 


3 




1 7 A A 
1 1 AO, 


17AA, 


17B4 : 




1 


4 : 


R4 


16D8? 


1788, 


1 70f - 

1 f vu. 


1 OCA 


18AC t 








1980* 


1 Q&Q. 


19D4, 


19F8, 


1A1C # 








1B34, 


1C28, 


1C2C, 


1C7C# 


1C8C 


I ■ 








16EA 






1 


6 


R6 




1B76, 


1B98, 


1BB4 ' 




1 


7 


R7 : 












1 


8 


R8 


1128, 


12D4, 






1340, 








1362, 


13A8, 






1462 * 








146At 


1574 








1 


9 


R9 


1128f 


l Jin. 




1220, 


1276, 












1432, 


1474,; 


148C 9 








1574 










1 


198 


WT 


1182 t 


1210, 


12CC 






1 


1 


ALL 


1146, 


11A8, 


\ ipo, 


1208, 


ic^U f 








12F8, 


1304,1 


1380, 




1542, 








18B4 








1 


5 


ANY 


155A 










4 


1048 


CAW 












1 


8 


CCO 


118E, 


11BA 








1 


4 


CC1 


11BE, 


12E8 








1 


2 


CC2 


11C2 










1 


1 


CC3 












8 


1CB8 


CCW 


16CC, 


16D0, 


16D4, 


17B8, 


17BC 4 








1934, 


1948, 


194C, 


1D90, 


1DA0 


8 


1040 


CSW 












2 


100A 


ICM 












4 ; 


1182 


I HI 


1166* 


1176 








2 


10E4 


ISW 


1196, 


1196, 


119C, 


11E0, 


1200 , 








1228 f 


1238, 


l23Ct 


124A , 


it (A f 








129C f 


12AC, 


12BC, 


12F4, 


1300 , 








1356, 


1370, 


137C, 


1 

X*f I o , 










1536, 


155E, 


16C4, 


16E6, 


16EE 


4 I 


1570 


IUP 


1568 








1 


A 


RIO 


1124, 


1132, 


13E2, 


13FE, 


1408, 








1552, 


16D4, 


1858, 


186C, 


1880, 








18D0, 


18E4, 


18F8, 


1914, 


1924, 








198C, 


19A0, 


19BC, 


19E0, 


1A04, 








1BA0, 


1BC2 






1 


B 


Rll 


HIE, 


1124, 


1142, 


11A4, 


11E4, 








128C, 


12A4, 


1318, 


1322, 


132C, 








1394, 


13AC, 


13AE, 


13C0, 


13C0, 








1450, 


145E, 


1490, 


14C0, 


153E, 








156C, 


1570, 


1570, 


1578* 


178C# 








185C, 


1870, 


1884, 


1898, 


18C0, 








18FC, 


1918, 


1928, 


19389 


1950, 








19A4, 


19C0, 


19E4, 


1A08, 


1A2C» 








1AD8, 


1AF6, 


1B28, 


1BA4 




I 


C 


R12 


115A, 


116A, 


117A, 


118A, 


11B6, 








12E4, 


16BC, 


16C0, 


177A, 


1C72 


1 


/ D 


R13 


1132, 


1136, 


1136, 


11DA, 


12D8, 








16B0, 


16B0, 


16BA, 


1BC2 




1 


E 


R14 


113C, 


113C, 


1210, 


12CC, 


14FA, 


1 


F 


R15 


1244, 


1252, 


1282, 


16BA 




2 


1C6A 


RAC 


1A4C, 


1C2C 









05MAY65. 
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10AUG65 
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15N0V65 
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15JUN67 
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1502 9 16B2 
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1 • 


F000 


REG 


1264, 


13A6t 


13BE, 














1444, 


14DA, 


14E8, 














176A, 


1770, 


1776, 














188E, 


18A2, 


18CA, 














1932, 


1942, 


195A, 














19EE, 


1A12, 


1A36, 














1B32, 


1BAE, 


IBBA9 














1C8A 












• 4 ! 


17AA 


RIP 


17B4 












1 


F-i 


UNC 


10F6, 


110A, 


U5E, 


17B8t 












122C, 


124E, 


127E, 


17E4 










1414, 


1432, 


153 A 9 














1B58, 


1B7A, 


1B9C, 


1910, 












1BF6, 


1C64, 


1C7C, 


1964 : 




4 


1AA8 


ANY1 ; 


1B58, 


1B82 




1A48 9 


1A4C 




4 ' 


1AC6 


ANY2 


1B3E, 


1B7A 










4 


1B02 


ANY3 


1B60, 


1B9C 










1 


A 


CC02 














1 


6 


CC12 














2 


1C7E 


CCDS 


1B34 






135E, 


135E 




4 


1BCA 


CPT1 


1B46 






1466 , 


1466 




4 


1BDA 


CPT2 


1B68 












4 ! 


1BEA 


CPT3 


1B8A 






12CC , 


12D0 




1 


A 


EQHI 








14A4# 


14BC 




1 


C 


EQLO 














4 i 


118A • 


GREG 


1192 












1 


48 * 


HCAW 


1132, 


12D8, 


1552, 


1298, 


12B8 




1 


40 : 


HCSW \ 


1136, 


1136, 


11DA, 


1562, 


16C8 




4 ; 


17 E4 ! 


HOHO 


17B0, 


17C0 










16 


174C 


HUNG 


16E4 












3 


15 FF \ 


I ACT 


1270, 


1480, 


14B0 








6 . 


1322 


IBSN 


12B0, 


12C0, 


12C 89 








12 


15D3 


ICAW 


13E2, 


13EA9 


13EC, 








3 


15E2 


ICCW 


13F4 












1 


142F < 


ICNT 


126C, 


13FA, 


144C 






* 


3 


15DF < 


ICSW 


1266, 


1446 




17D4 , 


1924 




4 : 


14 A8 


IDID 


1494 












3 


1602 


I EXP 


1458, 


1498 










4 


10 E6 


IHIO 














2 


16B0 


INIT « 


1788, 


179C9 


1850 9 


120C 9 












19B8, 


l9D4 t 


19F8 t 


1218 




4 


1200 ' 


INOW 


1146, 


11C A , 


11D2, 


1288 , 


1294 




4 : 


128C 


INT 3 


124E 






1314 , 


1334 




4 : 


11D6 


IONE 


11BE 






1 A.f" A. 
1** t#0 , 


152E 




6 


14 CO 


IPAS 


14AC 












4 


12A4 * 


I SEN 


1208, 


122C, 


1290, 








4 ' 


HOE 


IS 10 


17C8, 


17D8 f 


185C9 


1410, 


1410 


• 








18D4, 


18E8, 


I8FC9 


1894 , 


18BC 










19 6C, 


19909 


19A4, 


1944 y 


1968 










1A9C, 


IABA9 


IAD89 


1A28, 


1A88 




6 


1282 


ISV2 


1240 












4 


12EC 


ITIC 


1310 






11F4, 


1204 




4 


10FA 


ITIO 


178C 






133C, 


134E 




4 


11CE 


ITWO 


11C2 






13C4, 


1434 




6 


1252 


IUIO 


1234 






1564, 


156C 




6 


1196 


JOHN 


114E, 


118E 




17C8, 


1708 




16 


1E61 


MSG1 


1BBA 






18D4, 


18E8 




16 


1EA1 


MSG2 


1BC0 






196C, 


1990 




1 


1693 


MSK1 


121C 






1A9C, 


1ABA 




1 


1694 


MSK2 


1224 












1 . 


7 


NCCO 


116E, 


12E09 


1310 


1230, 


12DC 




2 


17CC 


NEIL 


17C4 












4 


1E30 


NEXT 








130C, 


1552 




1 


100D 


NIOU 














1 . 


8 


NONE 


114E, 


1156 9 


1166, 



12B09 

1388 9 
1532, 



12C0, 
140C, 
15689 



12C 89 
14549 
I6B69 



DATE 
EC 



05 MAY 65 

124252 



10AUG65 
125580 



15N0V65 
125624 



15JUN67 
130498 



I3D89 
*52C, 
l7D2 t 
I8DE9 
1976 9 
1AA6, 
IBCO9 



117E, 
12A0, 
1578, 
1BB4, 
1C8C 



1298 

1870, 

1918* 

19C0, 

IAF69 



13F2, 
154A9 
17E2, 
18F2 9 
199 A 9 
1AC4, 
IC6E9 



11CA, 
12F0, 
I6D89 
IBC69 



l43Q t 
15509 
1866 9 
1906 9 
19AE, 
1AE2, 
1C7A, 



11D2, 
12FC9 
16F2, 
1BD6, 



143E 
16E4 
187A 
1922 
19CA 
1B00 
1C82 



11F8 
1308 
177E 
1BE6 



1BC2 

1244» 1252, 1282 9 130C 



12F0 
13F2 



18AC, 1910, 1964* 1980 
IAIC9 1A48, 1C28 
HE89 UFO, 11F8 



18849 
1928, 
19E4, 
1B28 



1898, 18C0 
1938, 1950' 
1A08* 1A2C 



1176, HE89 1290, 12A8 

1330, 1338 y 1352, 135A 

147C, 1494, 14AC, 14CA 

17C0, 1A44, 1B3E, 1B46 
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DATE 

EC i 









1B60, 


1B68, 


1B82, 


IB 8 A 9 


IClCt 


1C24 




4 ! 


1028 


NORM 


188E 














16 


IEOE 


PCH3 


1776 














16 , 


1F03 


PCH4 


176A, 


1770 












1 


1695 


RTSV 


112C, 


16DA 












1 


100C 


SDMF 
















4 


1004 ' 


SNSW. 


114A, 


1152, 


1162, 


1172, 


1384, 


1556, 


1A40 








1AA8, 


1AC6, 


1AE4, 


1B02, 


1B3A, 


1B42, 


1B5C 








1B64, 


1B7E, 


1B86, 


1C18 








1 


4 


SOME 


1AAC, 


1ACA, 


1AE8, 


IB 06 








3 


1050 


SRET 
















1 


10E1 


U10P 


18B0, 


1C20 












4 : 


1D88 


UNCK 


1922 














1 


6 


UNEQ 


1234, 
1BDE, 


131E, 
IBEE 


1328, 


134A, 


13DE, 


14FE, 


1BCE 


I : 


5A 


WHAT 
















l 


1588 


WORK 


1252, 


13FE, 


141C, 


141E, 


1420, 


1426, 


146E 








146E, 


1486, 


149E, 


149E, 


14B6, 


1502, 


150C 








150E, 


1510, 


1516, 


151C, 


1522 






4 i 


17A6 


AGAIN 


17E4 














4 


1B28 


BAL11 


1B20 














4 : 


16C4 


BLOOP 


16F2 














4 


1B4A 


C0MP1 


1A60, 


1C40 












4 


1B6C 


C0MP2 


1A64, 


1C44 












4 : 


1B8E 


C0MP3 


1A68, 


1C48 












8 


1008 


DAT Al 


1DE8, 


10F8, 


1E08 










8 


1018 


DATA2 


1E18 














1 


1A0 


DMSSW 
















4 


1A92 


D0SS1 


1A50, 


1B0A, 


1BCE, 


1C30 








4 


1AB0 


D0SS2 


1A54, 


1BDE, 


1C34 










4 1 


1AEC 


DOS S3 


1A5C, 


IBEE, 


1C3C 










1 


100E 


FLAG1 
















1 : 


100F 


FLAG2 
















4 ! ■ 


1132 


GOMAN 


177E 














16 


15E5 


I BLAH 


1266, 
1458, 


1270, 
1480, 


13F4, 
1498, 


1420, 
14B0 


1426, 


1430, 


1446 


2 


1418 


ICOUT 


1276, 


1404, 


1474, 


148C, 


14A4, 


14BC 




8< 


1676 


ICSW1 


11DA, 


11EC, 


1244, 


12B4, 


1344, 


1344* 


1486 


8 


167E 


ICSW2 


1282, 


12C4, 


1366, 


1366, 


14B6 






4 ! 


152E 


ICUIO 


14FE 














4 I 


1478 


IDIDI 


1454 














4 


116A 


IHANG 


117E, 


1BA4 












16 


15C3 


IL INK 


13AE, 


13B6, 


13B8, 


13BE, 


1550 






4 ! 


130C 


ILOKE 


12E8 














4 ! 


115A 


ILOOP 


10F2, 


10FE, 


1112 










4 ' 


1370 


INDER 


12E0, 
135A 


12F8, 


1304, 


131E, 


1328* 


1338* 


134A 


5 


1010 


INPSW 
















8 


1CA8 


INVLD 


1D88 














3 


1690 


IOADR 


13D0 














6 


1446 


IOCSW. 


13C8 














16 


161B 


IOLOG 


1510, 


1516, 


151C, 


1522, 


152C 






16 


1640 


I0PT1 


10EA, 


1102, 


1116, 


154A 








4 


14FA 


IPASS 


14CA, 


14EE 












8 


1580 


1SAVE 


1128, 


1574 












4 


11B6 


ISSUE 


10E6, 


10FA, 


HOE, 


11A8, 


13DA, 


1690 : 




4 


1152 


ITRY1 


115E, 


116E, 


155 A 










4 


1162 


ITRY2 


1156 














11 


1696 


IUNEX 


125E, 


1264 












4 


1210 


IWAIT 


12A0, 


153A 












4 


11FC 


IZERO 


11BA 














4 


1048 


LNGCW 


187A 














4 


16F8 


M0050 


16C0 














1 


0 


NEVER 
















4 


1098 


NEXT1 


1932 














4 : 


10E8 


N0RM1 


19EE 














4 


10F8 


N0RM2 


1A12 














4 


1E08 


N0RM3 


1A36 
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DATE 
EC 



16FC PCHAR 



1A84 RTN13 
1000 SECNO 



4 : 


1 

lD^A 


ccc i i 
dCC X 1 


4 




cccn 


4 


1 R7P 
IDlb 


SEE 13 


3 


1 ECkA 
1 C->0 




4 ! 


1 «*«iP 


SSRET 4 


3 


i cun 

1 tDD 


jo 1 HU 


8 . 


1 U. PA 


o 1 IV rv L 


i 


i n cn 
1 u cu 


IIMTT1 


o 


i r An 


CHAINP 


4 ' 


1DC8 


CHNLNG 


8 


1CD0 


CHNPCH 


4 


1DB8 


CHNSRT 


4 : 


1D80 


DAILRL 


4 


1D78 


DAILRS 


4 


1D70 


DIALNG 


8 


1CC8 


DIARDL 


8 


1CC0 


DIARDS 


4 


1D68 


DIASRT 


16 


1F25 


DON PRO 


6 


1A96 


D0SS1C 


6 


1AB4 


D0SS2C 


6 


1AF0 


D0SS3C 


4 ' 


1E18 


DTACCW 


8 


1CF0 


DTACHN 


8 =• 


1D10 


DTAINV 


2 


1908 


EXIT04 


2 


1B38 


EX IT 12 


2 


1C68 


EX IT 13 


5 


1058 


EXNPSW 


8 


1018 


EXOPSW 


6 


16DA 


HANGUP 


11 


1610 


IACSNS 


10 


15AA 


IACTCC 


6 


1434 


ICCOUT 


6 


1344 


ICCSW1 


6 


1366 


ICCSW2 


6 


146E 


ICHNG1 


6 


149E 


ICHNG2 


6 


13FE 


ICWOUT 


4 


12CC 


IDOSNS 


4 ! 


1374 


IDUNCK 


io ; 


15A0 


IEXPCC 


11 


1605 


IEXSNS 


6 


111E 


IEYEOH 


1 


13A4 


IFLAG1 


1 


1548 


1FLAG2 


4 


1564 


ILEAVE 


6 ■ 


1502 


ILOGEO 



05 MAY 65 

124252 



10AUG65 
125580 



11AC, 
1C90, 
1CC8, 
1D00, 
1E5E 
1C64 
112C, 
13B6, 
13EC, 
14D2, 
150E, 
1770, 
1866, 
18F2, 
1961, 
19D1, 
1AA6, 
1BBA, 
1C82, 
1AAC, 
1ACA 
1B06 
1A96, 
1BC6 
1AB4, 
1A8C 
16BC 
1914 
19AE 
1968, 
199A 
1906 
18F2 
18DE 
18CC, 
18B8, 
18CA 
1C6E, 
1BD6 
1BE6 
1BF6 
19CA 
19D8, 
1A24, 
. 19BC 
18B4 
1A44, 
1C1C 



11B0, 11B0, 

1C98, 1CA0, 

1CD0, 1CD8, 

1D08, 1D10, 



1A8C, 
1CA8, 
1CE0, 
1018, 



1B0E, 
1CB0, 
1CE8, 
1020, 



1B12, 
1CB8, 
1CF0, 
1E58, 



1B12 
1CC0 
1CF8 
1E5B 



125C, 


125E, 


1264, 


139E, 


13A0, 


13A6 


13B8, 


13BE, 


13D0, 


13D2, 


1308, 


13EA 


13F2, 


141C, 


141E, 


1430, 


143E, 


1444 


14D4, 


14DA, 


14E0, 


14E2, 


14E8, 


150C 


152C, 


154A, 


1550, 


16DA, 


16E4, 


176A 


1776, 


1785, 


1799, 


17D2, 


17E2, 


1840 


187A, 


188E, 


18A2, 


18A9, 


18CA, 


18DE 


1906, 


1900, 


1922, 


1932, 


1942, 


195A 


1976, 


1970, 


199A, 


19AE, 


19B5, 


19CA 


19EE, 


19F5, 


1A12, 


1A19, 


1A36, 


1A30 


1AC4, 


1AE2, 


IB 00, 


1B1C, 


1B32, 


1BAE 


1BC0, 


1BCA, 


1B0A, 


1BEA, 


1C6E 0 


1C7A 


1C8A 












1AE8 












1A02, 


1B4E 











1B70 



1DA8 



1800, 
18BC, 

1C7A 



18F4, 18F8, 1D70, 1D80 
18E0, 18E4 9 1068, 1078 



19DCf 19E0, 19FC» 1A00, 1A04* 1A20 
1A28 



1C24 
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16C8 












1318, 


14E0, 


14E2, 


14E8, 


14F2, 


1688 


11A0, 


11C6, 


11CE, 


1106, 


llFCp 


1322, 1444^ 


13DE, 


140C 










1340 










[ 


1362 












1462 












146A 












1414 : 












12A8, 


12B8, 


16EA 






1 


12FC, 


1308, 


136C 








1434, 


143E 










14C0, 


1402, 


1404, 


140 A 9 


14EA 


! 


10F6, 


110A 








i 


1374, 


138C 








\ 


1378, 


1390 










1388 










- 


127E 













15N0V65 
125624 



15JUN67 < 

13049S * 
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DATE 

EC! 



4 


1490 


IMORST 


4 


12F4 


IN0EX1 


4 


1300 


IN0EX2 


4 


1ACE 


INTERV 


15 


15B4 


IOADDR 


4 


1078 


IONPSW 


8 


1038 


IOOPSW 


4 


153E 


IOPOUT 


6 


1394 


IOUTIT 


4 


1230 


IRETRN 


8 


1688 


ISENSE 


8 


16A8 


ISLAVE 


4 


12E4 


ITIOLP 


4 


1DD8 


ITSELF 


9 


1637 


ITSTNO 


1 


80 


LOGOUT 


8 


1070 


MCNPSW 


8 


1030 


MCOPSW 


4 


16BC 


NITWIT 


4 


1D58 


NOILRL 


8 


1CB0 


NOPCCW 


4 ! ID AO 


NOPRES 


< 4 


., 1D90 


NORSET 


8 


1C98 


PCLONG 


8 


1C90 


PCSHRT 


4 


, 1843 


PFRFTR 


8' 


'•1068 


PGNPSW 


8 


1028 


PGOPSW 


1 


1784 


R0UT01 


1 


1798 


R0UT02 


1 


184C 


ROUT 03 


1 


18 A8 


R0UT04 


1 


190C 


R0UT05 


1 


1960 


R0UT06 


1 


197C 


ROUT 07 


1 


19B4 


ROUT 08 


1 


19 DO 


R0UT09 


1 


19 F4 


ROUT 10 


1 


1A18 


ROUT 11 


1 


1A3C 


ROUT 12 


1 


1C14 


ROUT 13 


8 


lCEO 


SHRTCH 


4 


1038 


SHRTCW 


4 


1E28 


SNSCSW 


2 


1BB6 


SNSMES 


4 


1E48 


SSADRS 


8 


1D20 


SSCOMN 


3 


1E5E 


SSTHRE 


8 


1060 


SVNPSW 


8 


1020 


SVOPSW 


1 


181 


SYSMOD 


2 


1766 


TELHIM 


4 


I B AO 


TITELP 


2 


1AA2 


TST230 


2 


1AC0 


TST240 


2 


1A0E 


TST250 


2 


1AFC 


TST260 


2 


1B2E 


TST265 


2 


18AA 


TST270 


2 


10 E2 


U1AD0R 


4 


1E40 


UCNVLD 


4 


I 17EA 


VALCOM 


7 


1F4D 


VISUAL 


4 


! 10A8 


VLDCHN 



05 MAY 65 
124252 



10AUG65 
125580 'y 



147C 

1330 

1352 

1A58, 

10EE, 

1230, 

1532 

1380 

107C 

1204, 

1124 

12EC 

lllEt 
113C» 



16B6 

18A2 

1944 

195A 

17E2, 

1868, 

1854, 



1015, 

1785 

1799 

1840 

18A9 

1900 

1961 

197D 

19B5 

1901 

19F5 

1A19 

1A30 

1984,: 

1DD8, 

1866 

1542 

1AA6, 

1A88, 

1AEC, 

1B70, 

1E48 

lAFOy 



14FA 

14F6 

1B54» 

1A6C 9 

1A70, 

1A74, 

1A78, 

1A80, 

1A7C, 

1702 
17AA 
1C82, 
1976 



1C38 

1106, 111A, 1 1302 9 
125C 



1E28 



1394, 139E, 13A0v 
113C, 1502 



1942. 

186C, 1890, 1894, 
1858, I87C, 1880, 



1308 



13A6 



1048, 
1D28, 



1058 
1038 



1F7F , 



1988, 


198C, 


199C» 


19A0 V 


1DB8, 


1DC8 


1E30 












1AC4, 


1AE2, 


1B00, 


1B32, 


1BAE 




1A92, 


1A96, 


1AB0, 


1AB4, 


1ACE, 


1A02 


1AF0, 


1B18, 


1B24, 


1B4A, 


1B4E, 


1B6C 


1B8E, 


1B92, 


1BA0, 


1BD2, 


1BE2, 


1BF2 


1B92 













IBM MAINTENANCE DIAGNOSTIC PROGRAM 

2540 /PUNCH FUNCTION TESTS - SECTION 2 F821 

1 . 1000 XF8213 

NO ERROR DETECTED IN ABOVE ASSEMBLY 



P/N 840193 
PAGE 18A 



1B76, 

1C4C 

1C50 

1C54 ' 

1C58 

1C5C 

1C60 



1C8A 



1B98 



15N0V65 
125624 



15JUN67 
130498 



ID F821-3 
PAGE 18 



DATE 

■ t EC 



05 MAY 65 
124252 



10AUG65 
125580 



15N0V65 
125624 



15JUN67 ■ 
130498 



ID F821-3 
PAGE 18A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 



P/N 840193 
PAGE 19 



F821 2540 PCH FUNCTION SEC 2 



PERIODS CORRESPOND TO 

COLS. 1 THROUGH 20 

BESD......AA. .AAXF82 

9 YQ Y9 

99 9 

BTXT. AAA. • A8 . . AA8/AA 
9 YQY Y9 Y9 9QY 
999 9 9 Z9 

BTXT. AA8 • . A8 . . AAA AAA 

9 YQ9 Y9 Y9YYYY 
99 9 9 9999 

BTXT.AAO.. AA. .AAAAAA 
9 YQ+ YQ Y9YYYY 
99- 99 9 9999 

BTXT. AAS • • A8 • • AAB AAA 

9 YQ8 Y9 Y90YYY 
99 9 9 9 9 

BTXT. AJQ.. AB. .AA6JBS 
9 Y99 Y9 Y9 8- 
9 9 9 

BTXT.AJ+..A8..AA1FAA 

9 Y9 Y9 Y9 — Y 
9 9 9 

BTXT. A JH. • A8 • . AAACEA 
9 Y90 Y9 Y9Y9QY 
9 9 9 9 9 

BTXT.AJ0..A8. .AA10GJ 
9 Y9* Y9 Y9 ZY , 
9 9 9 9 

BTXT.AJ8..A8. .AAG02A 
9 Y9 Y9 Y9Z Y 
9 9 9 9 

BTXT. AKA. . A8. . AAA002 
9 Y9Q Y9 Y98+ 8 
9 Z 9 9 9 

BTXT.AKQ..A8.-AA5W5G 
9 Y9Z Y9 Y9 Q 
9 9 9 9 

BTXT.AKJ..A8..AAG02A 

9 Y9Y Y9 Y9Z Q , 
9 9 9 9 

BTXT.AKQ..A8..AA+EAH 
9 Y9 Y9 Y9 YYZ 
9 9 9 9 

BTXT. ALA. • A8« . AAG02M 
9 Y9Q Y9 Y9Z* Y , 
9 9 9 9 - 9 

BTXT.ALH..A8..AA6FG- 
9 Y9Z Y9 Y9 RZ 
9 9 9 0 



JLANK COLUMNS. 

COLS. 21 THROUGH 40 

13..AAAA.AG7 

YYQY Y88 
9999 99 

AAAAAAAAAAOAADAAAAPD 
YYYYYYYYY94Y99YYYY90 
999999999 9 9999 

AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

AAAAADAAAAKA 

YYYY99YYYY9Q 
9999 9999 Z 

AABF1FBH6JBH50BF1KG0 
YY-Q 0- 8- +-Q 8Z 
99 

50K A64ABAL 6Q A 1 5AKA6E 
+ 9 8Q9QY OQO Y Y - 
90 9 

0DGA1KDA0AG01BA. ODGA 
9ZY ZQY4YZ R- 9ZY 
9 9 

0AGA1FFA1BPA0U0UFA0U 
♦YZY -ZQ Y 9 -Y 
9 9 

1FB35PG02AB25PG02AB1 
Y- YZ Y- YZ Y- 
9 9 9 

B05PD70UA.AAGA2MFA0U 

- Y-8 - QYZQ 0-Q 

09 9 9 

G-2BD70UA.0UGA2BKG6F 
Z R-8 - ZQ 0 9 R 
9 0 

BK4XKB505GEA4QFB0UG0 
-8 8 9 Q QZQ 9-9 Z 
9 9 Z Z 

ABAAGA2DA •0UGA3SAB62 
-9QYZY Y- ZY 9-9 8 
09 9 

DA0AG030EA0AG. 3DFA2U 
QY+YZ+ +QY+YZ 8ZQ 
9 9 9 9 9 

FD0UNA6NAEG-30NA5PAD 
-9 Y 9Q9Z ♦ Y YQ9 
9 0 - 9 0 

30 A D AAG A3 A A J OUGA 30AH 
♦-9QYZY Y-Y ZY +Z0 

- 09 9 9 



COLS. 41 THROUGH 60 
840 



AAAAAAAAAAAAAAAAAAAA 

YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

AAAAAAAAAOAAAAAAAAAA 

YYYYYYYYY9YYYYYYYYYY 
999999999 9999999999 



10BE1FBE1 KBT6 JBT50G0 
8-Q 0-Q 8- 8- + Z 
9 

OC+NAHPGO.O.PCSASAAA 

9 YYZ 9 88Y8Y-Y 

9 9 

1BEA0AG01BA.0DGA1B0A 
OQY+YZ+ R- 9ZY OQY 
9 9 - 9 

BX5PAAAAGA1FB.6DKF6E 
- Y-9Q9ZQ 0- Q 8 Q 
0 9 - Z Z 

5PKG6F0.F.0UAAAAGA2A 
Y 9 R- - -YQ9ZY Y 
0 0 9 

HFAHHAACFA0UAA6CFA2J 
RQ9-0QY9-Y YY -ZQ Y 
9 9 9 

O.F. 0UG02DKG5H0.BE AC 
Z Y 9 0 8QY9 
999 

5BKG660.F J0UAAAAGA2M 
9 9 8 -Y -QQYZY 0 
9 909 

GA2DA J0UGA3SAB6BGA3S 
ZQ Y-Y ZY 9-9 OZY 9 
9 9 9 

G03SA.0UGA30G03DAJ0U 
I 9- ZQ +Z R-Y 
9 - 0 9 

G-30AHA AG A24A. OUG A30 
Z +-9QYZY - ZY ♦ 
- 09 

AH.A3+NG6666GA3DFA0U 
Y9 Y - 9 8 8ZY R-9 
9 0 



COLS. 61 THROUGH 80 
194. 1 30498 • • 82 13000 1 



AAAAAAAAAAAA82130002 

YYYYYYYYYYYY 

999999999999 

AAAAA A AAA A AA82 130003 

YYYYYYYYYYYY 

999999999999 

82130004 



10BD1FBD1KBS82130005 
8-Q 0-Q 8- 
9 

AAGA2AAOOOGA82130006 
QYZQ Y-+ 9ZY 
09 9 9 

0AG01+H0AHHA82 130007 
♦YZ -R89-0Q 
9 9 9 

6DDA0AGA1DG.82130008 
QQY+YZY QZ 
Z 9 9 Z 

AH62GA2AF.AA82130009 
-9 8ZQ Y- QY 
9 9 09 

AA60D70UG02M82130010 
YY —8 Z 0 
9 

A1FCB0MC6FKB82130011 
Y89Q8-Z8 - 9 
99 9 9 

AH0UGA2MFH0U82130012 
-9 ZQ 0-9 
9 

HFAHHAABAA6H82 130013 
RQ9-0QY9ZY 0 
9 

GA30G03DE00082130014 
ZQ +Z R-8-Z 
9 - 0 9 

HCAF.A3HNG6F82 1300 15 
ZYY9 Y Z 9 R 
9 0 

BM3MB05HAA0U82 1300 16 
~Z 0-* Z-9 



DATE 05MAY65 10AUG65 15N0V65 15JUN67 
EC 124252 125580 125624 130498 



10 F821- 
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c c o c c c c c c c c c c c c c c 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 
F821 2540 PCH FUNCTION SEC 2 



P/N 840193 
PAGE 19A 



BTXT. ALA.. A8. 
9 Y9Y Y9 
9 9 

BTXT.ALH..A8. 

9 Y90 . Y9 
9-9 

BTXT.AL0..A8. 
9 Y9 Y9 
9 9 

BTXT. AMY. .AB. 
9 Y99 Y9 
9 9 

BTXT. AM-.. A8. 
9 Y9 Y9 
9 9 

BTXT.AMH..A8. 
9 Y9- Y9 
9 9 

BTXT.AM0..A8^ 
9 Y9- Y9 
9 9 

BTXT. ANH.. A8. 
9 Y99 Y9 
9 9 

BTXT. AN... A8. 
9 Y9 Y9 
9 9 

BTXT. ANH. . AA. 
9 Y9R YQ 
9 0 99 

BTXT.ANJ*. AU. 
9 Y9Y Y9 
9 9 

BTXT.ANC..AJ. 

9 Y9 Y9 
9 9 

BTXT.ANL..A8. 
9 Y9 Y9 
9 9 

BTXT.A0C..A8. 
9 Y98 Y9 
9 9 9 

BTXT.A0C..A8. 
9 Y9Z Y9 
9 9 

BTXT.A03..A8. 
9 Y98 Y9 
9 9 

BTXT.AOC. A8» 
9 Y90 : Y9 
9-9 



•AAGA3D 

Y9ZQ - 
9 9 

•AAEHBO 
Y99 8- 
9 9 

•AAJC5L 
Y9Y8 
9 9 

•AA535A 
Y9 Q 

9 

• AAAF. A 
Y9Y9 Y 
9 9 

• AAKB5D 
Y9 9 Q 
9 Z 

•AAAAFB 
Y9Y998 
9 9 9 

•AABEAD 
Y98QY8 
9 9999 

•AAAAGA 
Y9Q9ZQ 
9 0 9 

• AAGCGA 
Y99Q9Y , 
9 Z 9 

•AA.CC. 
Y9 
9 

• AA. ADR 

Y9 

9 

.A A. CAW 

Y9 
9 

.A AX. EX 

Y9 
9 

•AAT.SS 
Y9 

9 

• AAAAAA 
Y9YYYY 
9 9999 

•AA. JFG 
Y9 Z-Z 

9 



AA00GA5MBU3MBA5HKA64 
-9 9ZY Z-9 0-Y Z 9 8 
9 

JA5CACADAAAAGA4FBEAC 
YQ ZQY9-YQYZQ Z8QY9 
9 09 09 9 999 

KB5W5SB04XKG5HJAEA4Q 
9 -9 8 9 OYYZQ 9 
9 9 

B0JK5VG9KA5NADB0J85J 
8-Y8 9 Y 0Q98-Y8 Y 
9 9 9 0 9 9 

4BAHAH.A4KKG5H5HEA4Q 
RZ0Y9 Y 0 9 0 OZQ 9 
0 9 

6BKG5H5HEA4QAJ0UGA40 
9 9 0 OZQ 9-Y ZY ♦ 
9 

FBB0JC6EBEAAFNFNB0JC 
988-Y8 98QY999998-Y8 
99 9 999 9 9 

EHEHKA6J5HKE6T5BKE6S 
9090 9Y099Y98 
9 9 

CFB0066.B0JA5C^NAHA0 

Q08-*9 8-Y9 YYZ-* 
Z-9 9 9 

GAGAAAAAAAAA * • . . » . 
9Y9YYYYYYYYY 
9 999999999 

• X.EXP.CC.X.ACTiAOII 



•XXXXXX.LINKA....... 

Y 
9 

•XXXXXX.CSMCCW.CSM.X 



P. SNSeXX.ACT.LOG. XX. 



•0.0N.FOR.LOOP.ON.XI 



AAAAAAAAADAON AAAAA JF 
YYYYYYYYY9Y99YYY9Y90 
999999999 9 999 9 - 

A6DQGH00SD068AA0UGA6 
Y Q9QR* 8R* -Y ZQ 
0 9 9 



ABBEABF4F4B0MA67AAAD 
Q98QY998988-Z8 9ZYY9 
0 999 9 99 9 9 

FAEIB0JG5DED1FG-44+J 
9Q908-Y8 0-Q OZ 9 Y 
-9 9- 

A0JDGA44AKAHG03FBEAH 
-♦Y9ZY 9ZYY9Z Q8QY9 
9 Z999 

B0JB5KKB5W5GBK4XAHAA 
8-Y8 Y 9 Q-8 8-9 QY 
9 9 9 9 9 09 

A. 0UGA4AKB5D5GKG5H6F 
ZYQ9QQ90R 
Z Z 0 

KB 50 5GKG 5H66E A4 QK A6 B 
9 Q Q 9 0 8ZQ 9 Y 8 
Z Z 9 9 

6AE46BGA4BE46NGA70EA 
Q- 8ZY Q- 9ZY Z-Q 
9 9 Z Z 

5BKE615BB0JM6LAB0UGA 
- 9 9 Q8-Y8 8-9 ZY 
9 9 9 

ODG+ IB AAOUGNAH AAGA50 
9Z R-Y 99-9QYZY 
09 

' in »'. «... . e . ... . . • . . « e 

• XXXXXX.XIOA.. • 

Y 
9 



XXXXXXX. XXXXXXXX. EX P 



xxxxxx. xxxxxx.xxxxxx 



OT.SS.l.ON.FOR.TIO.S 



FAA.UIO.XXXXXXAGAGAG 
Q9Y Y9Y9Y9 
Z 9 9 9 9 

BBCDHBJDDA JDHG4KA0C6 
Q-9Q0-YQQZYQ09 Y 9 
9 Z- 9Z0 Z- 9 



LH+A5HBEACEI82130017 
80 Q 8QY99 
9- 0 999 

5QBEACEREQB082 130018 
8QY99 9 8- 
999 9 

EHEHKG5K5HKG82 1300 19 
9090 9 Y 0 9 
9 

GA4HKB5D6BHC82130020 
ZY R 9 Q 9ZY 

0 Z 

EA4QADAAGA4Q82130021 
ZQ 9-9QYZY 0 
09 

AEAD0UGA4BBE82 130022 
Q9-9 ZY Q8Q 
0 Z99 

JAG-5WKC5HSA82 130023 
ZOZ 8 8 08Y 
9 9 

560E0UG02AAA82130024 
8-Q Z Q-9 
9 Z 9 

ACABACAFHI5A82 130025 
ZQY9ZQY9-0 Y 
09 09 

»*••.•••»•»• 82 130026 



•82130027 



•82130028 



ACT EX P.SNS .X82 130029 



• TST.XXXX • SE82 130030 



I0.L00PAAAAA82130031 
YYYYY 
99999 

AA AAA A AAAL EA82 130032 

YYYYYYYYY8Q- 

99999999999 

EB0MK7 OF A0UE82 130033 
-8-Z8 8-9 I 
9 9 



DATE 
EC 



05 MAY 65 
124252 



10AU665 
125580 



15N0V65 
125624 ' 



15JUN67 
130498 



ID F821-3 I 
PAGE ^ 19A |. 



IBM MAINTENANCE DIAGNOSTIC PROGRAM p/N 040193 

PAGE 20 

F821 2540 PCH FUNCTION SEC 2 



BTXT. AOL. . AJ. . AA+2DB 
9 Y9Y Y9 Y9 Y- 
9 9 9 9 9 

BTXT. APD. . A8. . AA. PRE 
9 Y98 Y9 Y9 
9 9 9 

BTXT. APD.. A8..AAAAGH 

9 Y90 ; Y9 Y99Y9- 
9 9 9 9 

BTXT.APD.. A8. . AAAGDH 
9 Y9Q Y9 Y9-8Q0 
9 0 9 9 9Z- 

BTXT.AP4..A8..AAN/UV 

9 Y9 Y9 Y98999 
9 9 9 9 

BTXT. AQU . . A8 . . A AFUWO 
9 Y98 Y9 Y9Q Y 
9 9 9 9 9 9 

BTXT.AQM..A8..AA0AE8 

9 Y9Z Y9 Y9 YQ9 
9 9 9 92 

BTXT.AQD.. A8..AA6AA0 
9 Y9Q Y9 Y98YY+ 
9 9 9 999- 

BTXT.AQM.. A8. .AAEA1F 
9 Y9 Y9 Y9ZQ 8 
9 9 9 0 9 

BTXT. A JD. • A8 • • AAE AA- 
9 Y88 Y9 Y99Y8 
999 9 9 99 

BTXT. AJD.. A8. .AAA J DA 
9 Y8Z Y9 Y9ZYQQ 
99 9 9 ZO 

BTXT.AJ4*. A8. • AAGAAD 
9 Y88 Y9 Y99Y80 ; 
99 9 9 99- 

BTXT. AJD. • A8. . AAHAAO 
9 Y80 Y9 Y99Y8- 
99- 9 9 99 

BTXT.AJM..A8. .AAOAEY 
9 Y8Y Y9 Y9 YQ 
999 9 9 9Z 

BTXT. AKU. • A8 • • AAB J ED 

9 Y89 Y9 Y9-YQ9 
99 9 9 Z 

BTXT. AKH. • A8. • AABABN 
9 Y88 Y9 Y9-0QY 
99 9 9 Z9 

BTXT.AKD..A8. .AAEJKB 
9 Y8* Y9 Y9QY 9 
99 9 9 Z9 



A0UG06DGAAA7G 

Y Z 9YYY8Q 
9 9999Z 

VIOUS. HANG. UP. DETECT - 



E.6AEA0BAAAA0AB0BAHD * 
Z QZQ QYYYQ Y8 9Y98 
0 0 Z9999 99 9 

GA7UB87DEA1F8AAJ 1AF. 
ZY -9 YZQ 89YYY YQ 
9 0 9 99 Z 

/V14515ADEAEADEJN/MN 
8899988ZZZ88RRR88 ZZ 
99 99 

46FHQY8HHQHHHQHHQY8B 
Q9999ZRZR0-00 
Z 0 

8ADDAJDHEA1F6AA+0AEH 
-YQQZYQ-ZQ 88YY YQZ 
9Z Z 0 9999 9Z 

0AEHB0GADAADE.6AAJ0J 
YQR8 9Y9Y88Z Q-Y Z 
9Z 9 9 999 0 9 

S AAAOAEOBJDDAJDOEA IF 
8YYQ YQ+-YQ ZYQ+ZQ 8 
999 9Z- 9Z Z 0 9 

E.6AAJ DJEA1FYAAJ0AEH 
Z QZYQYZQ 89Y9Y YQO 
0 Z 0 9 9 9 Z 

BCDHBADDEA1FYAA+0AEJ 
-9Q0-YQQZQ 89Y9 YQY 
Z- 9Z0 0 9 9 9Z 

E.6AB.DUBGDXAJDSEA1F 
Z Q- Q -8Q ZYQ8ZQ 8 
0 Z Z Z 0 9 

E.6AAJEAEA1F4AAA0AFQ 
Z QZYQQZQ 88Y9Q YQ9 
0 Z9 0 999 9Z 

B0GAAABQE.6ABYD7BAED 

8 9YQY89Z Q-9Q -YQ9 

9 9999 0 Z Z 

A J DOEA 1F4AB JOAFHBOGA 
ZYQ ZQ 88Y9Y YQ98 9Y 
Z 0 999 9 9Z 9 9 

BJCCBACVBACGBBBKBBBO 
-9Q8-RQ8J— QY-9Q0-9Q+ 

z z z z z 

E/FHEA1F6ABA0AFHAM0E 
Q9QRZQ 8899Q YQZ- 8 9 
Z Z 0 99 Z 9Z 9 



»••...*..». 



EDBOAAGCBOUSGCBOAVFF 
8-Y9Q98-99Q98-Y9QQ 
9 Z 9 Z 9 Z9 

E.6ALSAAAGAAA/CT7ZJK 
Z Q89ZQYQZQY Z9 89 
09 99Z Z9 9 

BFDHEA1FYAAA0AEAFA70 
- QOZQ 89YYQ YQQZQ 0 
Z- 0 9 99Z 9Z 9 

/VADE15ADEIEADEIE JMN 

88RRR880000Y -QOOO 

000 

BKBSK2BACAHQE. 6ABADD 
YQY QY9Y90Z Q-YQ- 
9 9 9 Z9 9 0 9Z 

B JDDA JDAEA1F6AA-0AEY 
-YQ-ZYQQZQ 88YY YQ9 
9Z Z 0 9999 9Z 

GA9HBADDA JD0EA1 FSAAA 
ZQ 9-YQ ZYQ+ZQ 88YYY 
9 9Z Z 0 9999 

SAAAOAEHB JDDA JDHEA1F 
8Y9Y YQR-YQYZYQ ZQ 8 
99 9 9Z0 9Z9 Z 0 9 

A JDHEA1FYAAA1AEHBFDH 
ZYQOZQ 89Y9Q YQ— QO 
Z- 0 9 9 Z Z Z- 

B0GAFAA4E.6AA JD0EA1F 

8 9Y9Y88Z QZYQ-ZQ 8 

9 9 99 0 Z 0 9 

4AA00AEHBADXA JDSEA1F 
8Y9+ YQO-RQ ZYQ8ZQ 8 
99 - 9Z- Z Z 0 9 

B0GAAAA4E. 6ABMD7BAED 

8 9Y8Y8 Z Q-9Q -YQ9 

9 9999 0 Z Z 

A JD0EA1F4ABA0AE8B0GA 
ZYQ ZQ 88Y9Q YQ 8 9Y 
Z 0 999 9 9Z 9 9 

KADMAD0DGAC8E.6AE.D+ • 
9Y89-9 9ZYQ9Z QZ Q- 
99 Z 0 Z 

BBBFBBBDBBCKBBCWAAAB 
-9QQ-9QQ-9QY-9Q8ZYY8 
Z9 ZZ Z Z9 999 

G.C2BAE JKBE/FLEA1F6A 
Z Q8-ZQY 9Q9Q8ZQ 889 
Z9 19 H 0 99- 



82130034 : 



BBE AO AG012GA82 130035 
8QQY+YZ 99Y 
99 9 9 9 

GA7UFA7KBADH82 130036 
ZY ZQ YZQQO 
Z 9Z- 

BOACDEAE JMNJ82 130037 

8 9999889998 

9 99 9 

» RNADEI EDFFM082 130038 
OYOOOOQ Y 
0 9 

AJDAEA1F6AA.82 130039 
ZYQQZQ 88YY 
Z 0 9999 

BJDDAJDHEA1F82 130040 
-YQQZYQ-ZQ 8 
9Z Z 0 9 

0AEQBADDAJDH82 130041 
YQZ-YQYZYQ 
9Z 9Z9 Z 

SAAA0AEAB0GA82130042 
8Y9Q YQY 8 9Y 
99 9 9Z 9 9 

EA1FYAA.0AEA82130043 
ZQ 89Y9 YQQ 
0 9 9 9Z 

6AA-0AEQB0GA82130044 
8Y9 YQ08 9Y 
99 9Z 9 9 

4AAA0AEHB0GA82130045 
8Y9Y YQ 8 9Y 
99 9Z 9 9 

AJD0EA1F4ABA82 130046 
ZYQ ZQ 88Y9Y 
Z 0 999 9 

JAB4E.6AB/D782 130047 
9Y88Z Q-8Q 
999 0 92 

BABCBABABABG82 130048 
-9Q— ZQ0-9QY 
Z Z- Z9 

A JEJKP6DCBBA82 130049 
ZYQY 9 QQQ-9 
Z9 ZZZ 

B.OAFHAMOEG. 82130050 
9 YQZ-8 9Z 
9Z 9 



DATE 
EC 



05MAY65 
124252 



10AU665 
125580 



15N0V65 
125624 



15JUN67 
130498 



ID F821-3 
PAGE 20 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 



P/N 840193 
PAGE 20A 



F821 2540 PCH FUNCTION SEC 2 



BTXT.AKD. 
9 Y8Y 
999 



1 A8. . AACMBA : 
Y9 Y9Q8-9 
9 9 It 



» EJKBE/FHEA1F6AB+0AFH 
QY 9Q9QRZQ 8899 YQZ 
Z9 Z Z 0 99 9Z 



AM0EG.C2BAE JKBE/FOEA 
-8 9Z Q8-0QY 909Q8ZQ 
9 Z9 Z9 Z Z 6 



1F6AB-«OAFHAM821300§1 
8899 YQZ-8 
99 9Z 9 



BTXT. ALD. 

9 Y89 
99 



>A8..AA0EG. 
Y9 Y9 9Z 
9 9 



C6FABBB.6DKF6E6DBAEJ 
Q8ZYQ— Q 8 Q Q— QY 
Z 9Z Z Z Z Z9 



ELOCGAC YBAE JEA1F6ABN 
-9.9ZYQ9-0QYZQ 8899Z 
Z Z9 0 99 



0AFHE.D6B0AA82130052 
YQZZ Q88 -Q 
9Z Z 9 9 



BTXT.AL4. 

9 Y88 * 
999 



» A8. .A AO EGA 

Y9 Y9 9ZY 
9 9 



BFA.ODGACBBAEJKBE/FH 
Q - 9ZYQY-9QY 9Q9QR 
Z 19 19 I I 



E-CJGOBQAHOEGACBA.OD 
Z QYZ QO-9 9ZYQ9- 9 
Z Z Z 



GACBBAEJKBE/82130053 
ZYQQ-ZQY 9Q9 
Z9 Z9 Z 



BTXT. ALD. 
9 Y8R 
990 



.A8..AAFLE- 
Y9 Y9Q8Z 
9 9 Z 



C JGOBFADOEGABQA • ODGA 
QYZ Q -9 9ZYQ0- 9ZY 
Z Z Z 



CKBAE JKBE/FOE-C JGOCB 
QY-OQY 9Q9Q8Z QYZ Q9 
Z9 Z9 Z Z Z Z 



A JEJEA1+6AB082 130054 
ZYQYZQ -899+ 
Z9 0 9 - 



BTXT. ALM. 
9 Y8Y 
99 



1 A8. .AAOAFH 
Y9 Y9 YQZ 
9 9 9Z 



AAAAG6B0J.F/B005FJ-I-N 
ZYY99 8-Y Q 8-+8Q0 Y 
99 9 Z 9 9Z 



AHG050EL0CG-BBBJEJG0 
YZZ 8-9 9Z Q— 9QYZ 
9 Z Z9 



BFEL0CG-BABA82130055 
Q— 9 9Z QQ-R 
Z ZO 



BTXT. ALU. 

9 Y8 
99 

BTXT. A MM. 

9 Y88 
999 



» A8. .AAEJGO 
Y9 Y9QYZ 
9 9 Z9 

. A8. . AAGADQ 
Y9 Y9ZYQZ 
9 9 Z 



BDELOCG-BMBAEJG0B01I 
QO-9 9Z QY--QYZ Q 
Z- Z9 Z9 Z 

AH0JGAC8E.6AE .D+BABC 
-9 ZZYQ9Z QZ Q-— Q- 
Z 0 Z Z 



11111122222222333333 



BJBABABGB JBNB JCCBACV 
-9Q0-RQY-9QY-9Q8-RQ8 
Z- Z9 Z9 Z Z 



33GALAGGAD0D82130056 
9Y9YQQ-9 9 
9 9ZZ 

BACGBKBKBKB082 130057 
-QY-9Q0-9Q+ 
ZZZ 



BTXT. AMD. 
9 Y8R 
99 



• A8. .AABKBF 
Y9 Y9-9QQ 
9 9 Z9 



BKBDBKCWBKCKGOBDBOBO 
-9QQ-9Q8-9QYZ Q08 8- 
ZZ Z9 Z Z 9 9 



UYGVBBEA0AB0AAGVG4B0 
99Q98QQY+Y8-Y9Q99 8- 
Z 99 9 99 Z 9 



U2GEBBB0AAGE82130058 
99Q88Q8-Y9Q8 
Z 999 Z 



BTXT. AMD. 
9 Y8Y 
99 



> A8« . AAG4AA 
Y9 Y99 YY 
9 9 99 



AAODAAAGAAODAAAAAAOD 
ZY9QYYY8ZY9QYYYRZY9Q 
9 Z999 9 Z999 9 Z 



•AA+CAODAAA+CAOD. AAA 
YY RY9QYYY 9Y9Q YY9 
99 9 Z999 9 Z 99 



CA0DJAAABA0D82130059 
9Y9QYYY9 Y9Q 
9 Z999 9 Z 



BTXT. AMD.. A8„ • AAAAAG BAODAAAAAAOD. AA+AAOD 

9 Y8 Y9 Y9YYY8 Y9QYYYRZY9Q YY ZY9Q 

99 9 9 999 9 Z999 9 Z 99 9 Z 



AAA+AAOD. A AGAAOD AA A* 
YYY ZY9Q YY8ZY9QYYY 
999 9 Z 99 9 Z999 



AAPAAAAMAAPU82 130060 
ZY9QYYY9ZY99 
9 9 99 9 



BTXT. AMD. .A8* . AAAAAM I AAPAAAAMAAODAAAMAAOD 
9 Y8Q Y9 Y9YYY9 ZY9QYYY9ZY9QYYY9Z Y9Q 

99Z 9 9 99 9 9 99 9 Z999 9 Z 



OAAYCAPUAAAYAAODJAAH 
♦YY9RY99YYY99Y9QYYY9 
99 9 999 9 Z999 



AAMHHAAAAAAA82 130061 

YY8-9YYYYYYY 

999 9999999 



BTXT. AN4*. A8. .A AD AAA AAMHH. AAAAAADAAAAAMJ 

9 Y89 Y9 Y99YYY YY8-9 YYYYYY9YYYYY8Y 

99 9 9 999 999 999999 999999 



H.AAAAAADAAAAAMJHAAA 
9 Y9YYYY9YYYYY8Y9YY9 
9 9999 999999 99 



AAAAD A AAAAMH82 130062 

YYYY9YYYYY8 

9999 999999 



BTXT. ANU*. A8. • AAD.AA AAMOD.AAAAMHDAAAAAMO 
9 Y88 Y9 Y98 YY YY8-8 Y9YY8 8YYYYY8- 

99 9 9 9 99 999 9 9 999 9999999 



DAAAAAMABAA+AAMODAAA 
8YY9YY8Q9YY YY8+8YYY 
999 9990 99 999 9999 



AAAADAAAAAM082130063 

YYYY8YYYYY8* 

99999999999 



BTXT. ANM.. A8. .AADAAA AAMSHAAAAAAADAAAAAMY . 

9 Y80 Y9 Y98YY9 YY889YYYYYYY9YYYYY8 
99 9 9 999 999 9999999 999999 



H.AAAAAADAAAAAMYH. AA 
9 YYYYYY9YYYYY8 9 Y9 
999999 999999 9 



A A AADA AAA AM082 130064 

YYYY9YYYYY8 

9999 999999 



BTXT. AND. • A8. . AAHAAA AAAADAAAAANAHAAAAAAA 

9 Y8Q Y9 Y99YYY YYYY9YYYYY8Q9YYYYYYY 

999 9 9 999 9999 9999999 9999999 

BTXT.AOM.. A8. .AADAAA A AN J HAAAAAAADAAAAAOA 

9 Y89 Y9 Y99YYY YY8Y9YYYYYYY9YYYYY9Q i 

99 9 9 999 9999 9999999 99999 

BTXT. A0D..A8.. AAHAAA AAAADAAAAODAPDAPD.SN 

9 Y88 Y9 Y99YYY YYYY9YYYY9QY99Y98 

99 9 9 999 9999 9999 Z9 9 9 



DAAAAANAH. AMAAAAD AAA 
9YYYYY8Q9 Y9YYYY9YYY 
9999999 9 9999 999 

DAAAAAMOHAAAAAAADAAA 
8YYYYY8 9YY9YYYY9YYY 
9999999 99 9999 999 

S«$W.11*12*0R«13«0N. 



AANHH. AAA A AA82 130065 
YY899 Y9YYYY 
999 9 9999 

AAAABAAAAANY82130066 

YYYY9YYYYY89 

9999 999999 

TO. LOO P. ST KR82 130067 



DATE 
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BTXT.A0D..A8..AA.SEL 
9 Y80 Y9 Y9 
99 9 9 

BTXT.AOD.. A8. .AA. FOR 
9 Y8Q Y9 Y9 
990 9 9 

BTXT.A04..A8..AAI0NA 

9 Y8 Y9 Y9 
99 9 9 

BTXT.APU..A8. .AAROT. 
9 Y88 Y9 Y9 8 
999 9 9 

BTXT. APM.. AL. .AA. I.I 

9 Y8Z Y8 Y9 
99 99 9 



BRLD. • • 

9 



• A8. ...A AAA 

Y9 Y9Y9 
9 9 9 



BRLD* A8. ••• AAAA 

9 Y9 Y9Y9 

9 9 9 

BRLD.. .... A8« ...AAAA 

9 Y9 Y9Y9 

9 9 9 

BRLD.. ...•AY. ...AAAA 

9 Y9 Y9Y9 

9 9 9 

BEND. APD. .... .AA. . 

9 Y90 Y9 
9 9 

BLDT •»••«•«.« 
9 



■1.2.0R.3-WITH.ERR.S 



•SIO.TIO.LOOP-NO.ERR 



L. AND. READY. PLACE. BL 



REMOVE .ALL .CDS. FROM. 



N.P1T.2.IN.P2T.3.IN. 

8 8 



AAANEAA4AA0I AAOAAAMA 
8YQ98YQ88Y908Y9Q8Y8- 
999 999 99 99 999 

AAMRAAMJAAMZAAM1AAM9 
8Y8 8Y8Z8Y8 8Y8 8Y8 
999 999 999 999 999 

EANHEANQEANOEANHEANA 
8Y8R8Y8Z8Y8+8Y8R8Y8Y 
999 999 999-9990999 

EAN8EA0HEA0QEA0YEA0A 
8Y8 8Y898Y898Y898Y8Q 
999 999 999 999 999Z 



•*••••« 



TOPS-. SNS.SM.l. WITH. ANY. OF • AB0VE82 130068 



.CHECKING-. MAKE. THE. PUNCH.0PERAT82130069 



ANK. CARDS. IN. PUNCH. H 



PCH. STKRS. SEE. IF. CDS 



RP3. 



AAMI AAM JAAMRAAMAAAMl 
8Y8-8Y8Q8Y808Y808Y80 
999 999 999 999-999- 

AANAAANAAANJAANJAAN/ 

8Y898Y888Y898Y888Y89 
999 9999999 9999999 

EANHEANAEAN4EANQEANH 
8Y808Y8Q8Y8Y8Y808Y80 
999 999 999 999 999- 

EAOHAAOKAAOLHAOO. ... 

8Y8Z8Y8RSY889Y88 
999 999 999 99 



0PPER.D0.N0P82 130070 



.PCHED.WITH*82130071 



.82130072 



AAMAA AMI HAM J82 130073 
8Y8 8Y8 9Y8 
999 999 99 

EANYE AN8DANH82 130074 

8Y898Y898Y8Z 
999 999 999 

EANHEANQ0ANY82 130075 
8Y8 8Y8 8Y8 
999 999 999 



.82130076 



.82130077 



* * ... * » • * » • • 32 130078 



DATE 
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2540 PUNCH FUNCTION TESTS - SECTION 3 F822 



8220 TITLE 

*********************************************************************** 



* * 

* MODIFICATIONS * 

* * 

* REVISION LEVEL 0. INITIAL RELEASE OF THE PROGRAM. * 

* EXPANSION TO THIS SECTION HAS THE RESULT OF THE TESTING ADDED * 

* TO SECTIONS 820 AND 821. * 

* 1. THIS SECTION IS THE RIPPLE PUNCH TEST, WHICH WAS FORMERLY * 

* LOCATED IN SECTION F821 VERSION 2. * 

* 2. THE PROGRAM INCLUDES TEST NUMBERS AND THE COMMON ERROR * 

* ERROR MESSAGE FORMAT*. * 

* * 

* E.C. PREREQUISITES * 

* MACHINE • . . NONE * 

* PROGRAM • • . NONE * 

* * 

* USE DESCRIPTION F820* AT EC 130498, DATED 15 JUN 67 OR LATER. * 

* * 



*********************************************************************** 

XF8220 START 4096 
001000 USING ^,15 

* \ 

*********************************************************** ******^ 

* TEST NUMBER DESCRIPTION 

*********************************************************************** 
*********************************************************************** 

* TEST DESCRIPTION 



* 

* ************** 

* ROUTINE 01 

* ************** 

* 



* 0010 - OPERATION ATTEMPTED 
* 

* A WRITE, FEED, AND STACKER SELECT PI COMMAND -01- WAS ISSUED 

* TO THE PUNCH. THE 1-0 ROUTINE AFTER ISSUING THE WRITE COMMAND, 

* AUTOMATICALLY ISSUED A CHECK READ -C2- TO READ BACK WHAT WAS 

* SENT TO THE PUNCH BUFFER, AND ALSO ISSUED A DIAGNOSTIC CHECK 

* READ COMMAND -C6- TO ENABLE CHECKING THE TRANSLATOR, BUFFER 

* ADDRESS REGISTER, BUFFER PARITY, AND THE X UPPER AND LOWER 

* CHECK PLANES SET BY THE PREVIOUS CARD. 
* 

* EXPECTED RESPONSE 
* 

* CONDITION CODE 0 WITH CHANNEL AND DEVICE END SEPARATELY IN 

* TWO CSWS. 

* IF MESSAGES ARE ISSUED THAT INDICATE THE DIAGNOSTIC COMMANDS 

* HAVE FAILED, ALLOW THE PROGRAM TO CONTINUE TO ENABLE THE NEXT 

* TEST MESSAGE TO DISPLAY THE STATUS AND CONDITION CODE, THE 

* INFORMATION THAT PRECEDED THE COMMAND FAILURE MESSAGE SHOULD 

* ALSO BE AN AID IN DETERMINING THE CAUSE OF THE ERROR. 
* 

* 



* POSSIBLE ERROR CAUSES 
* 

* 1. CARD FEED SKEW COULD BE WRONG DUE TO SOME MALFUNCTION IN 

* THE CARD FEED PATH. IF THE DATA PRESENTED IN THE MESSAGE 

* DOES NOT INDICATE A DEFINITE PATTERN, THIS IS THE MOST 

* LIKELY CAUSE OF THE PROBLEM. 

* 2. ERRORS IN PUNCHING OR THE CHECK CIRCUITRY MAY OCCUR. 

* 3. BUFFER PARITY, DATA TRANSLATION, OR THE BUFFER ADORESS 
* * REGISTER COULD BE IN ERROR. 
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* 
* 

* 0020 
* 

* . 
* 
* 

* . 

* . 
* 

* 
* 
* 
* 
* 
* 
* 
* 

* • 
* 
* 
* 
* 
* 
* 
* 
♦ 
* 
* 

* 

* - 
* 

* . 
♦ 

* . 
* 
* 

* 

* . 
* 

* 
* 
♦ 

* - 
* 
* 

* 

* 
* 
* 
* 



************** 

ROUTINE 02 
************** 

OPERATION ATTEMPTED 

ISSUE A READ NO FEED COMMAND -C2- TO THE READER. THE READ 
DATA IS COMPARED TO EXPECTED DATA AND ERRORS ARE INDICATED 
IF ACTUAL AND EXPECTED DATA ARE NOT EQUAL. TWO DIAGNOSTIC 
CHECK READ COMMANDS ARE ATTEMPTED. THE DIAGNOSTIC CHECK 
READ DATA IS TESTED COLUMN BY COLUMN FOR ANY ERRORS. 
THE FOLLOWING HEADING WILL BE OUTPUT AFTER THE INITIAL 
INFORMATION MESSAGE WHICH IS EXPLAINED IN THE DESCRIPTION 
UNDER -STATUS MESSAGES-. 



DATA ERROR MESSAGE EXPLANATION 

-READ ERROR 

-CARD IN PRESTKR STA 

EXPECTED SHD BUF 
-COL PUNCHES RD RD XU XL PAR ADR TRAN 

I 
I 

I READER TRANSLATE CHK. 

I READ BUFFER ADDRESS CHECK. 

— READ BUFFER PARITY CHECK. 

I X LOWER CHECK PLANE. 

-X UPPER CHECK PLANE. 

-DATA BYTE READ FROM THE READER. 

— EXPECTED DATA BYTE. 

I HOLE PUNCHES EXPECTED TO BE IN THIS COLUMN. 

-COLUMN OF CARD WHERE ERROR WAS DETECTED. 

NOTE- THE INDICATION FOR XU, XL, PAR, BUF ADR, AND TRAN 
WILL BE AS FOLLOWS- 

0 IF NO ERROR. 

1 IF ERROR. 

POSSIBLE ERROR CAUSES 

1. IT IS POSSIBLE UNDER LOOPING CONDITIONS FOR THE PROGRAM 
TO LOSE TRACK OF THE DETAIL CARD SEQUENCE. IF ALL 80 COLS 
INDICATE AN ERROR IN THE DATA BYTES IT IS POSSIBLE THAT 
THIS IS THE CAUSE. THE WAY TO DISTINGUISH BETWEEN A 
MACHINE FAILURE AND A SEQUENCE PROBLEM IS TO VISUALLY 
SCAN THE DATA BYTE READ FROM THE READER FOR EACH CARD 
COLUMN, IF THE DATA IN EACH SUCCESSIVE COLUMN IS 
INCREMENTED BY 1 THE READ DATA IS GOOD. 

2. ANY OTHER ERRORS INDICATED SHOULD BE VALID MACHINE ERRORS 
WHICH THE PROGRAM ERROR MESSAGE SHOULD GIVE SUFFICIENT 
INFORMATION ON TO POINT TO THE MACHINE PROBLEM. 

3. X LOWER OR X UPPER INDICATIONS THAT DO NOT INDICATE A 
DEFINITE PATTERN OF TROUBLE MAY BE DUE TO A READER 
SKEW PROBLEM. 
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2540 PUNCH FUNCTION TESTS - SECTION 3 F822 



X UPPER - X LOWER FAILURE CHART 



THIS CHART IS ONLY VALID IF THERE IS AT LEAST ONE PUNCH IN THE 
ERROR COLUMN AND THERE IS NOT A PARITY ERROR OR DOUBLE FAILURE 
IN ONE POSITION OF THE BUFFER. MORE THAN ONE ERROR SHOULD BE 
ANALYZED TO HELP LOCALIZE THE PROBLEM. 



DATA REG I 
STATUS I 

— ........ i- 

DATA REG I 

CORRECT I 
— — -I- 
DATA REG I 

BLANK I 

CORRECT I 
OR NOT I 
CORRECT I 
--.—-i 

DATA REG I 

INCORRECT! 
——I 
DATA REG I 
CORRECT I 

I 



XU I XL 

BIT I BIT 
— I— ~ 
ON ION OR 

I OFF 

1 

ON ION OR 

I OFF 
~I — 
OFF I OFF 

I 

I 

OFF I ON 

I 

— 1~ 
I ON 
I 

I 



OFF 



SUSPECTED FAILURE 



2821 PROBLEM- XU PLANE FAILED TO RESET OR 
PICKED BITS AFTER RESET. 



A- 2540 PROBLEM -NO RD2 PULSES 
8- 2821 PROBLEM -ADDR REG FAILURE 



2821 PROBLEM - FALSE READ CHECKS 
NOTE - COULD BE A MULTIPLE PROBLEM, BUT FALSE 
READ CHECKS SHOULD BE FIXED FIRST. 



A- 2540 PROBLEM -MISSING RD2 PULSES. 
8~ 2821 PROBLEM - ADDR REG FAILURE 



A- 2540 PROBLEM -MISSING OR EXTRA RD1 PULSES 

8- 2821 PROBLEM -ADDR REG FAILURE 

C- 2821 PROBLEM -XL OR YL PLANE FAILURE. 



* 

* THIS CHART IS ONLY VALID IF THERE ARE NO PUNCHES IN THE ERROR 

* COLUMN, AND THERE IS NOT A PARITY ERROR OR DOUBLE FAILURE IN 

* ONE POSITION OF THE BUFFER. MORE THAN ONE ERROR SHOULD BE 

* ANALYZED TO HELP LOCALIZE THE PROBLEM® 

*— — — ... — - — ... . — ,. — . ..... . . 

* DATA REG I XU I XL I 

* STATUS I BIT 1 BIT I SUSPECTED FAILURE 

... i ..... i ..... | . ................ . 

* DATA REG I ON I ON I A- 2540 PROBLEM -PICKED UP AN ODD NUMBER OF 

* BLANK I I I RD1 PULSES. 

* 1 I IB- 2821 PROBLEM -ADDR REG FAILURE 
*-.-.*_-.—. i ... — i ..... | .......... . . 

* DATA REG I OFF I ON I 2821 PROBLEM -XL OR YL PLANE PICKED UP A BIT. 

* BLANK I I I 

* — — — I — 1 ... 1 — . . . 

* DATA REG I ON ION ORI 2821 PROBLEM -FAILING TO RESET XU PLANE. 

* NOT BLNK 1 I OFF I NOTE- THIS IS A MULTIPLE PROBLEM, BUT FAILURE 

* III TO RESET XU SHOULD BE FIXED FIRST. 

* 1 — 1 1 ™— — . . —~ 

* DATA REG I OFF I ON I 2540 PROBLEM -PICK UP AN ODD NUMBER OF RD2 

* NOT BLNK I I I PULSES. 

| ..... i .. | ... . . .. . . . 

* BLNK OR I OFF I OFF I 2821 PROBLEM - FALSE READ CHECKS 

* NOT BLNK I I I 

I 1 . | ... .. . 

* DATA REG I ON I OFF I A- 2540 PROBLEM -PICKED UP EVEN NUMBER OF 

* BLANK III RD1 PULSES. 

* II IB- 2821 PROBLEM -ADDR REG FAILURE 

* I I i C- 2821 PROBLEM -XU OR YU PLANES PICKED A BIT 

~- — .... — — „. 

* 

* . 

* ■ EXPECTED RESPONSE 
* 

* CONDITION CODE 0 WITH CHANNEL AND DEVICE ENDS RETURNED IN THE 

* SAME CSW BECAUSE NO FEED CYCLE OCCURS. 



READ DATA SHOULD BE EQUAL TO EXPECTED DATA. 

DIAGNOSTIC READ DATA SHOULD RETURN WITH 80 BYTES ALL ZERO. 



- OPERATION ATTEMPTED 

A FEED, STACKER SELECT Rl -23- IS ISSUED TO THE READER. 
EXPECTED RESPONSE 

CONDITION CODE 1 -COMMAND IMMEDIATE WITH CHANNEL AND DEVICE 
ENDS IN TWO SEPARATE CSWS. SENSE IS ISSUED IF UNIT CHECK IS 
DETECTED DURING THE FEED COMMAND. 



******************* 



* . 
* 

* 0030 
* 

* 
* 

* 
* 
* 

* 

*********************************************************************** 
******************* ******************* 

* SECTION PREFACE *********************************** SECTION PREFACE * 
******************* 



001000 


F8220000 


SECNO 


DC 


XL4«F8220000» 


PROGRAM, SECTION AND REVISION NOS. 


* 


001004 


00000000 


SNSW 


DC 


XL4«00« 


SECTION SENSE SWITCHES 


* 


001008 


0000 




DC 


XL2»00« 




* 


00100A 


0000 


ICM 


DC 


XL2»00» 


INTERRUPTION CONDITION MASK 


* 


00100C 


00 


SDMF 


DC 


XLl'OO' 


SECTION DM FLAGS 


* 


00100D 


02 


NIOU 


DC 


XLl«02 t 


NUMBER OF UNIT TABLE ENTRIES. 




00100E 


CO 


FLAG1 


DC 


X«CO« 


EXCLUSIVE CPU 


* 


00100F 


00 


FLAG2 


DC 


X'OO' 


I/O INT ARE ERR, EXT INT TO PROG 


* 


001010 


0104000000 


INPSW 


DC 


X« 0104000000* 


DISABLED, SPVSR STATE, NO PGM MASK 


* 


001015 


001C6C 




DC 


AL3CR0UT0H 


ADR OF 1ST ROUTINE PREFIX 


* 


001018 


0000000000000000 


EXOPSW 


DC 


XL8»0' 


SECTION OLD EXTERNAL PSW 


* 


001020 


0000000000000000 


SVOPSW 


DC 


XL8«00» 


CLEAR ALL OLD PSWS 


* 


001028 


0000000000000000 


PGOPSW 


DC 


XL8«00« 


PROGRAM OLD PSW 




001030 


0000000000000000 


MCOPSW 


DC 


XL8»00« 


MACHINE CHECK OLD PSW 


* 


001038 


0000000000000000 


IOOPSW 


DC 


XL8»00» 


I/O OLD PSW 


* 


001040 


0000000000000000 


CSW 


DC 


XL8»00« 


CHANNEL STATUS WORD 


* 


001048 


00000000 


CAW 


DC 


XL4»00« 


CAW 


* 


00104C 


000000000000000000 




DC 


XL12*00* 


RESERVED FOR DM USE 


* 


001055 


000000 












001058 


0004000000 


EXNPSW 


DC 


X« 0004000000* 


EXTERNAL NEW PSW 


* 


00105D 


000000 


SRET 


DC 


XL3 , 0» 


ADR OF EXT INTRPT ROUTINE 


* 


001060 


0000000000000000 


SVNPSW 


DC 


XLS'OO* 


SUPERVISOR NEW PSW 


* 


001068 


0000000000000000 


PGNPSW 


DC 


XL8»00» 


PROGRAM NEW PSW 


* 


001070 


0000000000000000 


MCNPSW 


DC 


XL8'00' 


MACHINE CHECK NEW PSW 


* 


001078 


01040000 


IONPSW 


DC 


XL4»01040000» 


I/O NEW PSW 


* 


00107C 


000011DA 




DC 


AL4( IRETRN) 


ADDRESS OF I/O INTRPT ROUTINE 


* 


001080 






DS 


96C 


96 BYTE REG DUMP AREA FOR DM USE 


* 


0010E0 


82 


UNIT! 


DC 


X»82» 


UNIT TYPE - 2540 PUNCH. 


* 


0010E1 


00 


U10P 


DC 


X^OO' 


OPTIONAL FEATURES BYTE 


* 


0010E2 


8000 


Ul ADDR 


DC 


X»8000» 


FLAGS AND CHAN/UNIT ADDRESS 


* 


0010E4 


81 . 


UNIT2 


DC 


X«81* 


UNIT TYPE - 2540 READER 




0010E5 


00 


U20P 


DC 


X»00» 


OPTIONAL FEATURES 




0010E6 


8000 


U2ADDR 


DC 


X»8000» 


FLAGS AND CHAN/UNIT ADDRESS. 





*********************************************************************** 

* 2540 PUNCH OPTIONAL FEATURES ASSIGNMENT 
*********************************************************************** 

* UNITITYPE I OPTIONAL FEATURE DIGIT 1 I OPTIONAL FEATURE DIGIT 2 
******!***** !****************************! ***************************** 

* I IBIT 0 BIT 1 BIT 2 BIT 3 I BIT 4 BIT 5 BIT 6 BIT 7 

* I IHEX 8 HEX 4 HEX 2 HEX 1 I HEX 8 HEX 4 HEX 2 HEX 1 
*2540 1 82 I CARD PUNCH 51 COL I 1400 2 CHAN 
♦PUNCHI I IMAGE FEED FEAT. I COMPAT SW. ON 

* I I READ I FEAT. * 2821 
******!***** i ****************************i ***************************** 
*********************************************************************** 

* 2540 PUNCH DIAGNOSTIC CHECK READ BYTE 
*********************************************************************** 

* BIT MEANING 

* 0 NOT USED 
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* 1 NOT USED 

* 2 NOT USED 

* 3 X UPPER CHECK PLANE 

* 4 X LOWER CHECK PLANE 

* 5 BUFFER PARITY CHECK 

* 6 PUNCH TRANSLATE CHECK 

* 7 PUNCH BUFFER ADDRESS CHECK 
********************************************** J> * 3 ^ 

* 2540 PUNCH SENSE BYTE 
****************************************************^^ 

* BIT MEANING 

* 0 COMMAND REJECT - INVALID COMMAND ISSUED TO THE PUNCH 

* 1 INTERVENTION REQUIRED 

* 2 BUS OUT CHECK - PARITY ERROR 

* 3 EQUIPMENT CHECK - TRANSLATE CHECK, ADDRESS CHECK, 

* DATA REGISTER PARITY ERROR, OR A HOLE COUNT ERROR. 

* 4 DATA CHECK 

* 5 OVERRUN - NOT USED 

* 6 UNUSUAL COMMAND SEQUENCE 

* 7 NOT USED 

* ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 

* 2540 PUNCH STATUS BYTE 

* BIT MEANING 

* 0 ATTENTION - NOT USED FOR THE 2540 PUNCH 

* 1 STATUS MODIFIER . - 2 CHANNEL SWITCH FEATURE ONLY 

* 2 CONTROL UNIT END - 2 CHANNEL SWITCH FEATURE ONLY 

* 3 DEVICE BUSY 

* 4 CHANNEL END 

* 5 DEVICE END 

* 6 UNIT CHECK 

* 7 UNIT EXCEPTION - NOT USED FOR THE 2540 PUNCH 
*************************************************** + **^ 

* PARAMETERS USED TO ENTER 

* THE 1-0 HANDLER ROUTINE 
*^************************************************^ 

* 

* 

*** 

*******************************************************^^ 

* 1-0 HANDLER CONTROL SWITCHES 

* 2 BYTE PARAMETER FOLLOWING BAL 
******************************************************^^ 

* SWITCH DESCRIPTION 



BAL 


R11,ISI0 


LINK TO 1-0 HANDLER 


DC 


XL2»0000« 


CONTROL SWITCHES 


DC 


X«0014« 


TEST NO. IN DEC EXPRESSED IN HEX 


DC 


X»F0« 


EXPECTED COND. CODE 


DC 


X»00» 


EXPECTED SENSE DATA 


DC 


AL2 ( ADR-BASE+REG) 


ADDR. OF EXPECTED CSW IF NEEDED 



* 0 




OFF 




ISSUE AN 1-0 COMMAND 


* 




ON 




DO NOT ISSUE AN 1-0 COMMAND 


* 1 




OFF 




ENABLE 


* 




ON 




DO NOT ENABLE 


* 2 




OFF 




EXPECT NO INTERRUPT 


* 




ON 




EXPECT AN INTERRUPT 


* 3 




OFF 




DO NOT EXPECT 2 INTERRUPTS 


* 




ON 




EXPECT 2 INTERRUPTS 


* 4 




OFF 




EXPECT NO CSWS 


* 




ON 




EXPECT A CSW 


* 5 




OFF 




DO NOT EXPECT 2 CSWS 






ON 




EXPECT 2 CSWS 


* 6 




OFF 




ALWAYS TRY TO ISSUE SENSE 


* 




ON 




SENSE ON UNIT CHECK ONLY 


* 8 




OFF 




DO NOT ISSUE 2 DIAGNOSTIC CHECK READ START 1-0 CMOS 


* 




ON 




ALWAYS ISSUE 2 DIAGNOSTIC CHECK READ COMMANDS 


***********************************^^ 


ISW 


DC 


XL2* 







0010E8 0000 

**************************************************^^ 
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* SWITCHES USED BY 1-0 HANDLER 

*********************************************************************** 





SWITCH 


DESCR1 


tPTION 


* 


0 




OFF 




NO HANGUP ON INTERFACE 


* 






ON 




HANGUP OCCURRED 




1 




OFF 




NO CSWS STORED 


* 






ON 




ONE CSW STORED 


♦ 


2 




OFF 




SECOND CSW NOT RECEIVED 








ON 




SECOND CSW RECEIVED 


* 


3 




OFF 




DID NOT ENABLE 


* 






ON 




ENABLED ONCE 




4 




OFF 




DID NOT ENABLE TWICE 


* 






ON 




ENABLED TWICE 


* 


5 




OFF 




NO SENSE DATA RECEIVED 


* 






ON 




SENSE DATA RECEIVED 




6 




OFF 




NO UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 


* 






ON 




UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 


* 


7 




OFF 




NO ERROR DETECTED 


* 






ON 




AN ERROR WAS DETECTED 


* 


14 




OFF 




DO NOT PRINT CARD DATA 


* 






ON 




PRINT CARD DATA 



*********************************************************************** 

* REGISTERS USED IN 1-0 HANDLER 

************ *********************************************************** 



REG COMMENTS 

5 USED AS LINK TO ERROR OUTPUT FROM INITIALIZE ROUTINE IF 
PREVIOUS HANGUP ON INTERFACE DETECTED. 

8 USED AS WORK REGISTER. WILL BE RESTORED UPON RETURN. 

9 USED AS WORK REGISTER. WILL BE RESTORED UPON RETURN. 

10 MUST CONTAIN CCW ADDRESS UPON ROUTINE ENTRY 

11 MUST BE USEO AS LINK REG TO THIS ROUTINE 



12 MUST CONTAIN DEVICE ADDRESS 



0010EA 



0000 



* 
* 
* 

* 

*********************************************************************** 

DATSW DC XL2«00« DATA CONTROL SWITCHES. 

*********************************************************************** 

* EXPLANATION OF START 1-0 DATA SWITCHES 
* 

* 
* 

* 
* 
* 
* 
♦ 

* 



SWITCH 

0 — 

1 — 

2 — 

4 — 

5 — 

6 — 



9 

10 

11 



P010EC 
0010F2 
0010F6 
0010FC 



001102 
001106 
00110A 
00110E 



D2 01 F 93C B 002 
90 09 F 860 
D7 07 D 040 D 040 
D7 OB E 080 E 080 



91 40 F 004 
47 10 F 146 
50 AO 0 048 
91 80 F 004 



DESCRIPTION 

1ST AREA MAIN START 1-0 DATA. 
1ST AREA DIAGNOSTIC READ DATA. 
1ST AREA 1ST DIAGNOSTIC CHECK READ DATA. 
2ND AREA MAIN START 1-0 DATA. 
2ND AREA DIAGNOSTIC READ DATA. 
2ND AREA 1ST DIAGNOSTIC CHECK READ DATA. 
ERROR IN PRESENT START 1-0 
ERROR IN PREVIOUS START I~0 
PRINT PRESENT DATA 
PRINT PREVIOUS DATA 
*********************************************************** **********^ 

* * 1-0 HANDLER SUB-ROUTINE * 
**************** ***♦♦*♦*♦* 

ISIO MVC ITSTN0*5C2),2<R11> SAVE TEST NUMBER 

STM R0,R9,ISAVE SAVE WORK REGISTERS* 

CONP XC HCSW(8,R13) ,HCSW(R13) ZERO THE CSW AREA. 
XC L0G0UT(12,R14) , LOGOUT (R14) 

*********************************************************************** 

* SENSE SWITCH LOOPS 

*********************************************************************** 
ILOOP TM SNSW,X*40* DESIRED TO LOOP PREVIOUS SIO. 

BC ALL,SULP BR IF YES. 

ST R10,HCAW(R13) STORE CMD ADDRESS. 

TM SNSW,X*80 f DESIRED TO LOOP PRESENT SIO. 
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001 112 


47 


80 


F 


15E 




BC 


NONE, JOHN 


BR IF NO. 


001116 


90 


00 


C 


000 


IHANG 


TIO 


0(R12) 


TEST 1-0 


00111 A 


47 


70 


F 


12E 




BC 


NCCO, IHI 


BR IF NOT AVAILABLE. 


00111E 


91 


CO 


F 


004 




TM 


SNSW,X»C0« 


SEE IF SSW 0 OR 1 ON. 


001122 


47 


80 


F 


12E 




BC 


NONE , IHI 


BR IF NO. 


001126 


9C 


00 


C 


000 




SIO 


0IR12S 


START 1-0 


00112A 


47 


FO 


F 


116 




BC 


UNC, IHANG 


BR TO TEST 1-0. 


00112E 


58 


9E 


0 


198 


IHI 


. L 


R9,WT(R14) 


PICK UP DM WAIT FACTOR. 


001132 


88 


90 


0 


003 




SRL 


R9,3 


CUT IT DOWN TO 1.25 SECS. 


001136 


90 


00 


C 


000 


GREG 


TIO 


0(R12) 


TEST 1-0 TO DEVICE. 


00113A 


47 


80 


F 


102 




BC 


CC0,IL00P 


BR IF AVAILABLE. 


00113E 


46 


90 


F 


136 




BCT 


R9,GREG 


LOOP UNTIL TIME OUT. 


001142 


47 


FO 


F 


102 




BC 


UNC 1 1 LOOP 


BR TO TRY AGAIN. 


001146 


41 


70 


F 


OCO 


SULP 


LA 


R7, WRT1 


PICK UP 1ST AREA CCW ADDRESS. 


00114A 


91 


60 


F 


C4E 




TM 


KEYSW,X'80» 


SEE IF 2ND AREA CURRENT. 


00114E 


47 


10 


F 


156 




BC 


ALL, STCD 


BR IF YES. 


001152 


41 


70 


F 


DC 8 




LA 


R7,WRT2 


PICK UP 2ND AREA CCW ADDRESS. 


001156 


50 


70 


0 


048 


STCD 


ST 


R7,HCAW(RI3} 


STORE THE CMD ADDRESS. 


00115A 


47 


FO 


F 


116 




BC 


UNC , IHANG 


BR. UNCONDITIONAL 



DATE 

EC 



* ■ EXECUTE START 1-0 HERE 



00115E 


D7 


01 


F 


0E8 F 0E8 


JOHN 


XC 


ISW(2),ISW 


ZERO THE 1-0 HANDLER SWITCHES. 


001164 


96 


80 


F 


0E8 




01 


ISW,X 9 80» 


TURN ON THE HANG SWITCH. 


001168 


94 


00 


F 


CAD 




NI 


CRSM, X«00 v 


ZERO DI AG MSG SW. 


00116C 


94 


00 


F 


C4C 




NI 


HDSW,X«00» 


ZERO THE HEADING SWITCH. 


001170 


92 


00 


F 


915 




mi 


IACSNS+5,X«00« 


ZERO THE ACTUAL SENSE DATA. 


001174 


9C 


00 


C 


000 


ISSUE 


SIO 


0(R12) 


1-0 COMMAND- SIO, TIO, OR HIO 


001178 


47 


80 


F 


1A6 




BC 


CCO, IZERO 


BR. IF CONO. CODE 0 


00117C 


47 


40 


F 


194 




BC 


CO, IONE 


BR. IF COND. CODE 1 


001180 


47 


20 


F 


18C 




BC 


CC2t ITWO 


BR. IF COND. CODE 2 


001184 


92 


F3 


F 


8AF 




MVI 


IACTCC+5,X»F3« 


INDICATE COND. CODE 3 


001188 


47 


FO 


F 


1AA 




BC 


UNC, INOW 


BR. UNCONDITIONAL 


00118C 


92 


F2 


F 


8AF 


ITWO 


MVI 


IACTCC+5,X»F2» 


INDICATE COND. CODE 2 


001190 


47 


FO 


F 


1AA 




BC 


UNC, INOW 


BR. UNCONDITIONAL 


001194 


92 


Fi 


F 


8AF 


IONE 


MVI 


IACTCC+5,X»F1» 


INDICATE COND. CODE 1 


00U98 


02 


07 


F 


888 D 040 




MVC 


ICSW1C8),HCSWCR13) 


SAVE CSW 


00119E 


96 


40 


F 


0E8 




01 


ISW,X»40» 


INDICATE 1 CSW 


0011A2 


47 


FO 


F 


1AA 




BC 


UNC, I NOW 


BR. UNCONDITIONAL 


0011A6 


92 


FO 


F 


8AF 


IZERO 


MVI 


IACTCC+SvX'FO' ■ 


INDICATE CONO. CODE 0 


0011AA 


94 


7F 


F 


0E8 


INOW 


NI 


ISW,X«7F» 


TURN OFF HANG UP SWITCH 


0011AE 


91 


40 


B 


000 




TM 


0(R11) ,X«40 8 


CHECK CONTROL SWITCH FOR NO ENABLE 


0011B2 


47 


10 


F 


24E 




BC 


ALL , I SEN 


BR. IF ON 


0011B6 


96 


10 


F 


0E8 




01 


ISW,X«10« 


INDICATE ENABLED ONCE 


0011BA 


58 


9E 


0 


198 


■ IWAIT 


L 


R9,WTCR14I 


LOAD DM WAIT FACTOR 


0011BE 


88 


90 


0 


003 




SRL 


R9,3 


ADJUST 


0011C2 


96 


80 


F 


0E8 




01 


ISW,X«80» 


TURN ON HANG UP SW 


0011C6 


80 


00 


F 


A42 




SSM 


MSK1 


ENABLE 


0011CA 


46 


90 


F 


1CA 




BCT 


R9,* 


WAIT 


0011CE 


80 


00 


F 


A43 




SSM 


MSK2 


DISABLE 


0011D2 


94 


7F 


F 


0E8 




NI 


ISW,X»7F* 


TURN OFF HANG SW 


0011D6 


47 


FO 


F 


24E 




BC 


UNC, I SEN 


BR. UNCONDITIONAL 



* ALL 1-0 INTERRUPTS RETURN HERE 



0011DA 


49 CO 


F 


03A 




IRETRN 


CH 


R12,I00PSW+2 


COMPARE FOR CURRENT 1-0 ADDRESS 


00110E 


47 60 


F 


1FC 






BC 


UNEQ,IUI0 


BR. IF UNEQUAL 


0011E2 


94 7F 


F 


0E8 






NI 


ISW,X»7F» 


RESET HANG UP SW 


0011E6 


91 40 


F 


0E8 






TM 


1SW,X«40« 




0011EA 


47 10 


F 


22C 






BC 


ALL,ISV2 


BR. IF 1 CSW ALREADY STORED 


0011EE 


02 07 


F 


888 F 


040 




MVC 


1CSW1C8),KCSW(R15) 


SAVE CSW 1 


0011F4 


96 40 


F 


0E8 






01 


ISW*X f 40« 


INDICATE 1 CSW STORED 


001 1F8 


47 FO 


F 


236 






BC 


UNCINT3 


BR. UNCONDITIONAL 


0011FC 


02 07 


F 


AOO F 


040 


IU10 


MVC 


W0RKC8>,HCSW«R15) 


001202 


OA DD 










SVC 


X*0D* 


CONVERT ADDRESS 


001204 


0002 










DC 


AL2I21 


2 BYTES OF 1-0 OLD PSW« 


001206 


003 A 










DC 


AL2t I OOP SW* 2- SEC NO) 


FROM HERE. 


001208 


0A55 










DC 


AL2C IUNEX+17-SECN0) 


TO HERE 



15JUN67 
130498 



00120A 


OA 


DO 








SVC 


X , DO* 


PRINT UNFXPEfTFD INT FRRtlPT nFVTTF 


00120C 


64 










DC 


X * 64 ' 




00120D 


15 










DC 


X • 15 • 




00120E 


FA44 








DC 


AL?( I UNFX-^FrNfl+RFfil 




001210 






F 


8E6 F 8DF 




MVC 


IRI AH+1 (31- trey 


MDVF — fSW— TP MF^^ACF 


00 1 2 1 6 


no 


1 A 


p 


439 




MVI 


irNT.X>lA« 


An iikt rniiNT 


00121 A 


nj 

Uc 




F 


8FC F 8FF 




MVC 


iBLAH-f 23(31 .TACT 


MflVF —ATT— Tfl MF*>*1AGF 


001220 


45 


90 


F 


422 




BAL 


R9 • irnuT 


DD. Tfl OUTPUT r«\U 


001224 


96 


\Jc. 


F 


0E8 




0 1 


I *iw . x • n? • 

JL O VI , /> \JiC 


T NDT r ATF lit fl 


001228 


47 


FO 


p 


4FC 




BC 


Villi* , A L.UV7C.IS 


RR. UNr HND ITT flNAI 


00122C 




U f 


F 


890 F 040 


ISV2 


MVC 


I r SW7 ( fl 1 -HP <.W( R1 5 1 


cAv/F r*iu 7 

JflVC V/OfV c 


001232 


96 


20 


F 


0E8 




01 


1 SW,X'20 a 


i Nm r atf 7 r^w*; <LTnRFn 


001236 


91 


10 


B 


000 


INT3 


TM 


0( Rll 1 .X» 10« 


r HFf K f TRl <»W FflR 7 TNTR FXPFfTFfJ 


00123A 


*r f 


ou 


p 


24E 




BC 


NDNF • I <iFN 


RR- IF NflT 


00123E 


Q1 


no 
Uo 


p 


0E8 




TM 


1 On 1 A \J %j 




001242 


47 


J.U 


p 


24E 




BC 


ALL • I S.FN 


RR. IF Al RFADY FNARI FD TU IT F 


001246 


96 


08 


p 


0E8 




01 


TCU.Y *flft • 

1 Jnf A V* CJ 


I Nni r ATF FNARI FD TUITF 


00124A 


47 


FO 


p 


1BA 




BC 


UNP . T UA T T 




00124E 


Q1 


yJc. 


B 


000 


I SEN 


TM 


OfRlll.X* (\7 * 


rMFTK rnwTDni cutTru cno cmc nfci iir 
i»ncu iv tuii i rul oni i i»n rui\ ono UIM Ut 


001252 


47 


fin 
ou 


p 


276 




BC 


nonf . inn<tN<t 


no tc nPF Tn T C^l IP ccucc 


001256 


91 


40 


p 


0E8 




TM 


I <*W«X *40* 

A J n f /\ TV 




00125A 


47 


80 


p 


2A4 




BC 


NONE • I FUR 


RR IF NflNF. 


001 25E 


Ql 


t\7 

\J£. 


p 


88C 




TM 






001262 


47 


10 


p 


276 




BC 


At i . mns.N*. 


IF YF*\ RR Tfl I CCIIP ccuc c 


001266 


91 


20 


p 


0E8 




TM 






00126 A 


47 


80 


p 


2A4 




BC 




DO T p NflNF 
din i r iMunc 


00126E 


9 1 


02 


p 


894 




TM 




rHFPK FOR UNIT fMPPK 


001272 


47 


80 


p 


2A4 




BC 


NONE. I PUR 

liUIIL, fir v#r\ 


RR IF NHNF- 


001276 


41 


80 


p 


858 




LA 




1 HAD CPNQF mMM AND A DnR 


O0127A 


45 


70 


p 


664 




BAL 


R7, I STRT 


RR Tfl AUX ^T ART I-fl- 


00127E 


91 


40 


p 


915 




TM 


I Af *>!SI "5 . X • 4fl * 


juc ir iniCINVCrll i UiX KCUU 1KCU* 


001282 


47 


10 


p 


64E 




BC 


Ail .RRM 


RR IF YF^- 
O i\ ir ICO. 


001286 


91 


80 


p 


0E9 




TM 


I SW+1,X'80* 


CHK FDR DATA RFCFIVFD 


00128A 


47 


80 


p 


2A4 




BC 


NONE, I FUR 


RR IF NOT- 


00128E 


96 


04 


F 


0E8 




01 


I SW,X*04* 


INDICATE CCNS-F RFC I FVFn 


001292 


94 


7F 


p 


0E9 




NI 


I SW+1 .X'TF • 


TURN (IFF HATA RFTFIVFn. 


001296 


D5 


00 


p 


915 B 005 




CLC 


IACSNS+51 11 .5 IRI 11 


CDMPARF FDR FXPFTTFR ^FN^F 


00129C 


47 


80 


F 


2A4 




BC 


EQ, IFUR 


BR I F FOUAL. 


0012A0 


96 


01 


p 


0E8 




01 


I SW.X *01 • 


INDICATF AN FRRDR. 


0012A4 


41 


80 


F 


DB8 


I FUR 


LA 


R8,CHR02 


PUT AOHR HF ?Nn f HFf K Rfl iNTfl R 


0012A8 


91 


80 


F 


C4E 




TM 


KEYSW,X' 80* 


<c.FF 1 F 2ND DATA ARFA I <s fURRFNT 


0012AC 


47 


10 


p 


2B4 : 




BC 


ALL, IASI02 


BR I F YES. 


0012B0 


41 


80 


F 


DBO 




LA 


R8,CHRD1 


PUT ADDR OF 1ST CHECK READ INTO 8. 


0012B4 


45 


70 


F 


664 


IASI02 


BAL 


R7, I STRT 


BR TO AUXI LI ARY START I— 0. 


0012B8 


91 


80 


F 


0E9 




TM 


I SW+1 ,X'80 9 


SEE I F DATA RECEIVED 


0012BC 


47 


80 


F 


2FC 




BC 


NONE. ISCR 


RR IF NOT- 


0012C0 


91 


80 


p 


C4E 




TM 


KFYSW^X^ftO 1 

rv L» 1 Jn f A U v 


epp Ip 7hin DATA ARFA I C. rilRRFNT 


0012C4 


47 


80 


p 


2D4 




BC 


N0NE,S82 


RR IF Nfl- 


0012C8 


96 


02 


F 


OEA 




01 


DATSW,X , 02« 


TURN ON BIT 6 OF DATA SWITCHES. 


0012CC 


94 


7F 


F 


0E9 


RRS2 


NI 


ISW+LX'TF^ 


TURN OFF DATA RECEIVED SWITCH. 


0012D0 


47 


FO 


F 


2FC 




BC 


UNC, I SCR 


BR TO READ BACK PUNCH BUFFER. 


0012D4 


96 


20 


F 


OEA 


SB2 


01 


DATSW,X«20« 


TURN ON BIT 2 OF DATA SWITCHES. 


0012D8 


47 


FO 


F 


2CC 




BC 


UNCRRS2 


BR TO RESET COMMON DATA RECEIVED SW. 


0012DC 


96 


04 


F 


OEA 


T05 


01 


DATSW,X«04« 


TURN ON 2ND AREA DATA RECEIVED SW. 


0012E0 


47 


FO 


F 


324 




BC 


UNCRRS1 


RETURN TO MAIN LINE. 


0012E4 


91 


40 


F 


0E8 


IN0EX1 


TM 


ISW,X«40» 




0012E8 


47 


10 


F 


382 




BC 


ALL, INDER 


BR. IF CSW STORED 


0012EC 


47 


FO 


F 


386 




BC 


UNCIDUNCK 


BR. UNCONDITIONAL 


0012F0 


91 


20 


F 


0E8 


IN0EX2 


TM 


ISW,X«20« 




0012F4 


47 


10 


F 


382 




BC 


ALL, INDER 


BR. IF CSW 2 STORED 


0012F8 


47 


FO 


F 


386 




BC 


UNCIDUNCK 


BR. UNCONDITIONAL 


0012FC 


41 


80 


F 


DA8 


I SCR 


LA 


R8,DGRD2 


PUT ADDR OF 2ND DI AG RD CCW INTO 8. 


001300 


91 


80 


F 


C4E 




TM 


KEYSW,X«80» 


SEE IF 2ND DATA AREA IS CURRENT. 


001304 


47 


10 


F 


30C 




BC 


ALL,IASI01 


BR IF YES. 


001308 


41 


80 


F 


DAO 




LA 


R8,DGRD1 


PUT ADDR OF 1ST DI AG RD CCW INTO 8. 


00130C 


45 


70 


F 


664 


IASI01 


BAL 


R7,ISTRT 


BR TO AUXILIARY START 1-0. 


001310 


91 


80 


F 


0E9 




TM 


ISW+ltX«80« 


SEE IF DATA RECEIVED. 


001314 


47 


80 


F 


328 




BC 


NONEtBTCO i 


BR IF NOT* 
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0C13I8 


91 


80 


F 


C4E 








TM 


KEYSW,X V 80« 


SEE IF 2ND DATA AREA IS CURRENT 


00131C 


47 


10 




20C 








BC 


ALL«T05 


BR IF YES. 


001320 


96 


40 


p 


OEA 








01 


DATSWtX'40 9 


TURN ON 1ST AREA DATA RECEIVED SW* 


001324 


94 


7F 


p 


0E9 






RRS1 


NI 


ISW+ltX^F* 


RESET COMMON DATA RECEIVED SW. 


001328 


91 


10 


F 


915 






BTCD 


TM 


lACSNS+StXUO 1 


SEE IF EQUIPMENT CHECK IN SENSE DATA 


00132C 


47 


80 


F 


334 








BC 


NONE? IBSN 


BR IF NOT. 


001330 


45 


80 


F 


5B8 








BAL 


R8» SUCP 


BR TO SET UP COMPARE PARAMETERS. 


001334 


05 


00 


F 


8AF 


B 


004 


IBSN 


CLC 


IACTCC+5tl)f4(RU) 


COMPARE FOR EXPECTED COND. CODE 


00133A 


47 


60 


F 


382 








BC 


UNEQt INDER 


BR. IF UNEQUAL 


00133E 


91 


08 


B 


000 








TM 


0(Rll)tX«08 9 


... 


001342 


47 


80 


F 


2E4 








BC 


NONEt IN0EX1 


BR. IF NO CSW EXPECTED 


001346 


91 


40 


F 


0E8 








TM 


ISW v X t 40 s 




00134A 


47 


80 


F 


382 








BC 


NONEt INDER 


BR. IF NO CSW RECIEVED 


00134E 


48 


8B 


o 


006 








LH 


R8 t 6CR11) 


LOAD CSW ADDR 


001352 


40 


80 


F 


35A 








STH 


R8»ICCSWl+4 


STORE IN COMPARE INSTR. 


001356 


05 


07 


F 


888 


F 


688 


ICCSW1 


CLC 


ICSWK8), ICSW1 


COMPARE FOR EXPECTED CSW 


00135C 


47 


60 


F 


382 








BC 


UNEQt INDER 


BR. IF UNEQUAL 




91 


04 


B 


000 








TM 


0(RU)tX'04* 




001364 


47 


80 


F 


2F0 








BC 


NONEt IN0EX2 


BR. IF NO CSW 2 EXPECTED 


001368 


91 


20 


F 


0E8 








TM 


ISWtX^O* 




00136C 


47 


80 


F 


382 








BC 


NONEt INDER 


BR. IF NO CSW 2 RECIEVED 


001370 


41 


88 


o 


008 








LA 


R8, 8(R8) 


UPDATE TO SECOND CSW 


001374 


40 


80 


F 


37C 








STH 


R8t ICCSW2+4 




001378 


05 


07 


F 


890 


F 


890 


ICCSW2 


CLC 


ICSW2(8)tICSW2 


COMPARE FOR EXPECTED CSW 2 


00137E 


47 


80 


F 


386 








BC 


EQt IDUNCK 


BR. IF EQUAL 


001382 


96 


01 


F 


0E8 






INDER 


01 


ISNtX'Ol 1 


INDICATE AN ERROR 


001386 


92 


64 


F 


386 






IDUNCK 


MVI 


IFLAGitX* 64* 


SET UP FOR ERROR PRINTOUT 


00138A 


92 


CO 


F 


584 








MVI 


IFLAG2tX«C0 f 




001386 


91 


01 


F 


0E8 








TM 


ISW,X«01 f 


CHECK FOR A DETECTED ERROR 


001392 


47 


10 


F 


3A6 








BC 


ALLtlOUTIT 


BR. IF ERROR DETECTED 


001396 


91 


01 


F 


004 








TM 


SNSWtX'Ol v 


CHECK SECTION SENSE SWITCH 7 


00139A 


47 


80 


F 


5A2 








BC 


NONE ,ILE AVE 


BR. IF OFF 


00139E 


92 


24 


F 


3B6 








MVI 


IFLAGltX t 24 f 


SET UP FOR CORRECT PRINTOUT 


0013A2 


92 


80 


F 


586 








MVI 


IFLAG2tX v 80* 




0013A6 


02 


01 


F 


93C 


B 


002 


IOUTIT 


MVC 


ITSTN0+5C2) f 2(Rll) 


MOVE TEST NUMBER TO PRINT 


0013AC 


OA 


00 












SVC 


X'DD' 


CONVERT TEST NUMBER 


0013AE 


0002 












DC 


AL2I2) 




%i%J &■ 3 WW 


093C 












OC 


AL2 ( I TSTN0+5-SECNQ) 




0013B2 


093 C 












DC 


AL2C ITSTN0+5-SECNQ) 




0013B4 


OA 


DO 












SVC 


X f DO» 


PRINT TEST NUMBER 


001386 


64 












IFLAG1 


DC 


X f 64« 




001387 


09 














DC 


X f 09 f 




001388 


F937 












DC 


AL2 C I TSTNO-SECNO+REG) 




0013BA 


41 


80 


0 


004 








LA 


R8 9 4 


ADJUST LINK ADDRESS FOR PRINTOUT 


0013BE 


18 


B8 












SR 


R11 V R8 




0013C0 


50 


BO 


F 


8C8 








ST 


Rll,ILINK+5 




0013C4 


OA 


DO 












SVC 


X^D^ 


CONVERT LINK ADDRESS 


0013C6 


0003 












DC 


AL2C 3) 




0013C8 


06C9 












DC 


AL2CILI NK+6-SECN0) 




0013CA 


08C8 












DC 


AL2ULINK+5-SECN0) 




0013CC 


OA 


DO 












SVC 


X f DO« 


PRINT LINK ADDRESS 


0013CE 


AO 














DC 


X*AO* 




0013QF 


10 














DC 


X»10 f 




001 3D0 


F8C3 












DC 


AL2 C ILINK-SECNO+REG ) 




001302 


41 


BB 


0 


004 








LA 


Rllt4tRll! 




001306 


91 


80 


B 


000 








TM 


0CRll) f X f 80« 




0013DA 


47 


10 


F 


450 








BC 


ALLtlOCSW 


BR. IF NO 1-0 COMMANO ISSUED 


0013DE 


OA 


DO 












SVC 


X»DO« 


CONVERT 1-0 ADDRESS 


0013E0 


0003 












DC 


AL2C31 




0013E2 


0A3F 












DC 


AL2 C I DADR-SECNQI 




0013E4 


0889 












DC 


AL2 C I QADDR+5-SECN0) 




0013E6 


OA 


DO 












SVC 


X^OO 1 


PRINT 1-0 ADDRESS 


0013E8 


AO 














DC 


X«AO« 




0013E9 


OF 














OC 


X«OF f 




0013EA 


F884 












OC 


AL2 C I OADDR-SECNO+REG I 




0013EC 


50 


AO 


F 


S0i 








ST 


R10 f ICAW*5 


STORE CCW ADDR* 


0013F0 


OA 


OD 












SVC 


X»00 f 


CONVERT CAW 


0O13E2 


0003 












DC 


AL2I3I 
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AA1 ]ri 

U0l3r4 . 


08D9 


















0013ro 


08D8 












nr 






nn 1 ICO 


OA 


DO 












KMT 


y t nnt 


PRINT CAW 




AO 














nr 






aa i sco 


08 














nr 


y t no • 




0013FC 


F803 












nr 


AL 4C I iir Air* dCwNU* KCv I 




r\r\ i otc 


02 


02 


m 
r 


O Cl 


r 


OC9 




uur 
nVU 


t o i 1 ai.trry 


MnVF —CCU* TO MESSAGE 


001404 


92 


16 


r 


439 








U VI T 


f r mt vn /li 

llffMI t A'lO' 


in 11 ict rniJMT 


r\r\ i /.no 


D2 


07 


r 


AAA 

AUU 


A 


Ann 




n VL- 


wnp ki Ai.ni&im 

WfUrMVl OS f UlK&Uf 


MOVE CCW TO WORK AREA 


aa i Anc 


45 


90 


p 

r 










DHL 


do. irnnT 


BR. TQ OUTPUT CCW 


001412 


91 


CO 


A 


AAA 
004 








TM 




THFCK FDR ANY CHAIN FLAGS 


001416 


47 


80 


F 


43E 








or 


uakjc t rr AI IT 


op tc MnKiP 


00141A 


41 


AA 


0 


008 








1 A 

LA 


RlUtOlKlUl 


iipdatp Tn mp¥t rm 


00141E 


47 


FO 


F 


408 








or* 




bo iiwr nhint TI rtM&i 


r\r\ i /. •> o 
00142Z 


OA 


DO 










trnnT 




v * nn« 


CONVERT 


aa i £* ^ a 


0008 












nr 






001426 


OAOO 












r\r 

VL 


ai oi unDif_ccrwn 1 




001428 


OAOO 












PC 






00142 A 


02 


07 


r 


OCA 

OCA 


r 


A A A 

AUU 




Mi/r 


TAI I A I - wnDK 


MOVE TO MESSAGE 


A A % t. ^ A 

001*^30 


02 


07 


r 


o ca 


c 


AAA 




Mur 






001436 


OA 


DO 














v * nn t 

A * UU 


PRINT 


001438 


AO 














nr 


V t A A • 

a 'AO' 




001439 


1A 












ICNT 


nr 
OC 


*r s 1 A f 
A * 1A" 




00143A 


F8E5 


















00143C 


07 


F9 












BCR 


UNC f R9 


UPTURN VIA RFK 9 
nc 1 UMI w * ** net? » 


00143E 


D2 


00 


F 


8A5 


B 


004 


ICCOUT 


MVC 


fcvorri.cn % Afoif 1 


MnvP py p rr to MK^AGf 


001444 


OA 


00 














A l/w 


PRINT EXPECTED COND. CODE 


A A % i. t. £. 

001446 


AO 














nr 


V 8 A At 

A *»U 




A A 1 A *9 

00144T 


OA 














nr 


y t A A t 

A SJM 




001448 


F8A0 












nr 


At ^ f t p yprr—^prwn+RPis i 




00144A 


OA 


DO 














V • A A i 
A 'DO* 


PRINT ACTUAL COND. CODE 


00144C 


AO 














DC 


X*A0* 




00144D 


OA 














nr 


V t A A 9 
A ' UA ' 




00144E 


F8AA 










- 


nr 
DC 


a i *> f t Arxrr ccr AinjkDCf!!i 1 




001450 


02 


02 


F 


8E6 


F 


8DF 


IOCSW 


MVC 


I BLAH"*-! I 3 1 1 IL bM 


ma\/p -f cy- Tn MP^^ACF 


001456 


92 


1A 


F 


439 








MVI 


ICNT iX'IA* 


An iiicT rmiMT 


00145A 


91 


08 


B 


000 








TM 


a < n t t % VCAOfl 

y IRll I fX'Oo* 




00145E 


47 


60 


F 


482 








nr 

DW 


KinMP mint 


op> IP WO CSW EXPECTED 


001462 


02 


02 


F 


8FC 


F 


902 




MVC 


IBLAH4-Z313I flcAP 


MOVE -EXP- TO MESSAGE 


001468 


48 


8B 


0 


006 








LH 


. KBtDlRllI 




00146C 


40 


80 


F 


47C 








STH 


Rot ICHN51*% 




001470 


41 


88 


0 


008 








LA 


RBf Bf RBI 




Art * ATA 

001474 


40 


80 


r 


£ if 

4At 








din 


do if UM(I944 


MOVE EXPECTED CSW TO WORK AREA 


001478 


02 


07 


F 


AOO 


F 


AOO 


ICHNG1 


MVC 


Lino tf ot uno if 
WORK 1 82 1 WURK 


00147E 


45 


90 


F 


422 








nil 

dAl 


do trni it 
R9 t I LOUT 


qd TO nijTPUT PXPECTED CSW 


001482 


91 


40 


F 


0E8 






IDI DI 


TM 


1 2»M 9 A W ^U* 




001486 


47 


80 


r 


AAA 

49A 








or 


nhkip. t una Kt 


BR« IF NO CSW STORED 


00148A 


D2 


02 


F 


8FC 


F 


8FF 




MVC 


TBI IUa^'JIIII Tif T 
1 OL Ali+ZJ I 3 1 fl AU 1 


MOVE -ACT- TO MESSAGE 


AA 1 A OA 

U014VO 


02 


07 


c 
r 


AAA 
AUU 


r 


AAA 




Mur 


uf]DK f ai - irsui 


MOVE ACTUAL CSW TO WORK AREA « 


001496 


45 


90 


F 


422 








BAL 


R9f IUUUT 


BR. TO OUTPUT ACTUAL CSW 


00149A 


91 


04 


B 


000 






IMORST 


TM 


nfovi% AA • 
OlKll 1 fX' W 


BR* IF NOT EXPECTING 2 CSWS ' 


00149E 


47 


80 


r 


4o2 








or 

DU 


MnMP . mtn 

nturact iwiu 


0014A2 


D2 


02 


F 


8FC 


F 


902 




uwr 
rlVL» 


lDLArl^^Jl^* f ICAr 


MOVE ~EXP— TO MESSAGE 


0014A8 


02 


07 


F 


AOO 


F 


AOO 




rlVU 


unov f fit urtD k 


MOVE EXPECTED CSW TO WORK AREA 


0014AE 


45 


90 


F 


422 








BAL 


OA 9 r A 1 tv 
R9t ICUUT 


op Tn niiTPiiT pypprTFD csw 2 




91 


20 


F 


0E8 






IDID 


TM 


ISW#X 9 20 4 


BR. IF NO SECOND CSW STORED 


0014B6 


47 


80 


F 


4CA 








BC 


NONE* I PAS 


0014BA 


02 


02 


F 


8FC 


F 


8FF 




MVC 


IBLAH+23C3) tIACT 


MOVE -ACT— TO MESSAGE 


0014C0 


02 


07 


F 


AOO 


F 


890 




MVC 


W0RK(8)*ICSW2 


MOVE CSW TO WORK AREA 


0014C6 


45 


90 


F 


422 








BAL 


R9, ICOUT 


MOVE EXP SENSE TO MESSAGE 


0014CA 


D2 


00 


F 


90A 


B 


005 


IPAS 


MVC 


IEXSNS*5Cllt5IRlll 


0014D0 


91 


04 


F 


0E8 








TM 


ISW«X f 04 9 


BR. IF NO SENSE DATA RECIEVED 


001404 


47 


80 


F 


4F4 








BC 


NONEt IPASS 


001408 


OA 


OD 










SVC 


X*DD f 


CONVERT EXPECTED SENSE 


00140A 


0001 












DC 


AL2I1I 




00140C 


090A 












DC 


AL2 ( IEXSNS^5-SECN0I 




0014DE 


O90A 












DC 


AL2CIEXSNS-f3-SECN01 




0014E0 


OA 


DO 












SVC 


X«D0* 


PRINT EXPECTEO SENSE 
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0014E2 


AO 














DC 


X*A0« 




0014E3 


OB 














DC 


X*OB» 




0014E4 


F905 












DC 


AL2( IEXSNS-SECNO+REG) 




0014E6 


OA 


DD 












SVC 


X'DD' 




0014E8 


000 1 












DC 


AL2U) 




0014EA 


0915 












DC 


AL2*( IACSNS+5-SECN0) 




001 4 EC 


0915 












DC 


AL2 ( I ACSNS+5-SECN0) 




0014EE 


OA 


DO 












SVC 


X'DO* 


PRINT ACTUAL SENSE DATA 


0014F0 


AO 














DC 


X»AO» 




0014F1 


OB 














DC 


X«OB 9 




0014F2 


F910 












DC 


AL2UACSNS-SECN0+REG) 




00I4F4 


95 


30 


E 


181 






1PASS 


CLI 


SYSM0D(R14) »X , 30« 


CHECK FOR MODEL 30. 


0014F8 


47 


60 


F 


528 








BC 


UNEQ t ICD 


BR. IF NOT 


00I4FC 


D2 


OB 


F 


AOO 


E 


080 


1L0GED 


MVC 


W0RK(12),L0G0UTIR14> 


MOVE LOG OUT TO WORK AREA 


001502 


OA 


DD 












SVC 


X«DD» 


CONVERT 


001504 


OOOC 












DC 


AL2U2) 




001506 


OAOO 












DC 


AL2CW0RK-SECN0) 




001508 


OAOO 












DC 


AL2 1 WORK- SECNO ) 




00150A 


02 


01 


F 


920 


F 


AOO 




MVC 


I0L0G+5(2) f WORK 


MOVE LOG OUT TO MESSAGE 


001510 


02 


05 


F 


923 


F 


A02 




MVC 


I0L0G*8(6) »W0RK+2 




001516 


D2 


05 


F 


92A 


F 


AOA 




MVC 


I0L0&+15C6) , WORK* 10 




00151C 


02 


05 


F 


931 


F 


A12 




MVC 


I0L0G+22C6) ,W0RK+18 




001522 


OA 


DO 












SVC 


X»DO« 


PRINT LOG OUT 


001524 


AO 














DC 


X'AO 9 




001525 


1C 














DC 


K»1C« 




001526 


F918 












DC 


AL2 ( I 0L0G-SECNQ+RE6 1 




001528 


91 


02 


F 


0E8 






ICO 


in 


ISW,X 8 02' ' 


SEE IF UIO. 


0Q152C 


47 


80 


F 


538 








BC 


NONE* IBCD 


BR IF NO 


001530 


94 


FD 


F 


Ob8 








NI 


I5W,X»FD« 


RESET UIO SWITCH 


001534 


47 


FO 


F 


IRA 








BC 


UNCtlWAIT 


BR. UNCONDITIONAL 


001538 


96 


02 


F 


0K9 






IBCO 


01 


ISW+1 9 X*02' 


TURN ON PRINT SW. 


00153C 


91 


80 


F 


OEB 








TM 


DATSW+lt X«80 8 


SEE IF ERROR IN PRESENT DATA. 


001540 


47 


80 


F 


554 








BC 


NONE f SIPP 


BR IF NO. 


001544 


96 


20 


F 


OKB 








01 


DATSW+1»X«20« 


TURN ON PRINT PRESENT DATA SW. 


001548 


45 


80 


F 


588 








BAL 


R8,SUCP 


BR TO SET UP COMPARE PARAMETERS. 


00154C 


94 


7F 


F 


C4C 








Nl 


HDSW,X»7F» 


TURN OFF HEADING SWITCH. 


001550 


94 


OF 


F 


OEB 








NI 


DATSW+1,X 8 DF S 


RESET PRINT 1ST DATA SW. 


001554 


91 


40 


F 


OEB 






SIPP 


TM 


DATSW*1»X«40» 


SEE IF ERROR IN PREVIOUS CD. 


001558 


47 


80 


F 


584 








BC 


NONE, IOPOUT 


BR IF NOT. 


00155C 


96 


10 


F 


OEB 








01 


DATSW+l,X»10« 


TURN ON PRINT PREVIOUS DATA SW. 


001560 


41 


30 


F 


A68 








LA 


R3.PCH1 


PUT ADDR OF PCH DATA INTO 3. 


001564 


41 


40 


F 


B58 








LA 


R4t CRD2 


PUT ADDR OF CHK READ DATA INTO 4. 


001568 


41 


70 


F 


BA8 








LA 


R7,RD1 


PUT ADDR OF RD DATA INTO 7. 


00156C 


91 


80 


F 


C4E 








TM 


KEYSWsX^SO 8 


SEE IF 2ND AREA CURRENT. 


001570 


47 


10 


F 


580 








BC 


ALL tCTD 


8R IF YES. 


001574 


41 


30 


F 


ABB 








LA 


R3,PCH2 


PUT ADDR OF PCH DATA INTO 3. 


001578 


41 


40 


F 


808 








LA 


R4,CRD1 


PUT ADDR OF CHK READ DATA INTO 4. 


00157C 


41 


70 


F 


BF8 








LA 


R7»RD2 


PUT ADDR OF RD DATA INTO 7. 


001580 


45 


10 


F 


50E 






CTD 


BAL 


RltlCDT 


BR TO CHK DATA. 


001584 


OA 


DO 










IOPOUT 


SVC 


X»DO» 


PRINT LOOP OPTIONS 


001586 


CO 












IFLAG2 


DC 


X«CO» 




001587 


45 














DC 


X«45» 




001588 


F940 












DC 


AL2U0PT1-SECN0+REG) 




00158A 


OA 


DO 












SVC 


X»DO» 


SPACE A LINE 


00158C 


AO 














DC 


X'AO* 




00158D 


01 














DC 


X»01 a 




00158E 


F8C3 












DC 


AL2CILI NK-SECNO+REG > 




001590 


50 


AD 


0 


048 








ST 


R10,HCAW(R13) 


STORE CAW 


001594 


91 


CO 


F 


004 








TM 


SNSW,X»CO» 


CHECK SECTION SENSE SWITCH 0 AND 1 


001598 


47 


50 


F 


102 








BC 


ANY, I LOOP 


BR. IF ANY ON 


00159C 


91 


80 


F 


0E8 








TM 


ISW,X»80» 




0015AO 


07 


15 












BCR 


ALL ,R5 


RETURN VIA REG 5 IF HANG UP 


0015A2 


91 


08 


B 


000 






REAVE 


TM 


OtRU) 9 X'08« 




0015A6 


47 


80 


F 


5AE 








BC 


NONE , I UP 


BR. IF NO CSW EXPECTED 


0015AA 


41 


BB 


0 


002 








LA 


R11,21R1U 


UPDATE LINK ADDRESS FOR RETURN 


0015AE 


41 


BB 


0 


006 






I UP 


LA 


RU,6(RU) 




001 5B2 


98 


09 


F 


860 








LM 


R0,R9, ISAVE 


RESTORE WORKING REGS. 


0015B6 


07 


FB 












BCR 


UNCyRll 


RETURN VIA REG 11 
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*********************************************************************** 
* SET UP PARAMETERS FOR DATA COMPARE HERE. 

*********************************************************************** 



0015B8 


41 


30 


F 


A68 


SUCP 


LA 


R3,PCH1 


PUT ADDR OF 1ST AREA DATA INTO 3. 


0015BC 


41 


40 


F 


BOS 




LA 


R4,CRD1 


PUT ADDR OF CHK READ DATA INTO REG 4 


0015C0 


41 


70 


F 


BA8 




LA 


R7,RD1 


PUT ADDR OF READ DATA INTO REG 7. 


0015C4 


91 


80 


F 


C4E 




TM 


KEYSW,X«80» 


SEE IF 2ND DATA AREA CURRENT. 


0015C8 


47 


80 


F 


508 




BC 


N0NE,SU1P 


BR IF NOT. 


0015CC 


41 


30 


F 


AB8 




LA 


R3,PCH2 


PUT ADDR OF EXP DATA INTO REG 3. 


0015D0 


41 


40 


F 


B58 




LA 


R4,CRD2 


PUT ADDR OF CHK READ DATA INTO REG 4 


0015D4 


41 


70 


F 


BF8 




LA 


R7,RD2 


PUT ADDR OF READ DATA INTO REG 7. 


0015D8 


45 


10 


F 


5DE 


SU1P 


BAL 


R1,ICDT 


BR TO COMPARE DATA. 


0015DC 


07 


F8 








BCR 


UNCR8 


RETURN 












*********************************************************************** 












4i 


DATA 


COMPARE ROUTINE 














*********************************************************************** 


0015DE 


41 


20 


0 


001 


ICDT 


LA 


R2,l 


PUT 1 IN REG 2. 


0015E2 


D5 


00 


3 


000 7 000 


CODA 


CLC 


0( 1,R3) ,0(R7) 


SEE IF DATA AS EXPECTED. 


0015E8 


47 


60 


F 


616 




BC 


UNEQ, ERPRS 


BR IF NO. 


0015EC 


91 


07 


4 


000 




TM 


0(R4) ,X t 07» 


SEE IF ADDR, TRANS, OR PARITY CHKS. 


0015F0 


47 


50 


F 


616 




BC 


ANY, ERPRS 


BR IF YES. 


0015F4 


91 


18 


4 


000 


TXS 


TM 


0(R4) ,X»18« 


SEE IF XU OR XL. 


0015F8 


47 


50 


F 


632 




BC 


ANY, ERPRE 


BR IF YES. 


0015FC 


41 


22 


0 001 


UPD 


LA 


R2,1(R2) 


ADD 1 TO REG 2. 


001600 


41 


33 


0 


001 




LA 


R3,1(R3) 


ADD 1 TO REG 3. 


001604 


41 


44 


0 


001 




LA 


R4,1(R4) 


ADD 1 TO REG 4. 


001608 


41 


77 


0 


001 




LA 


R7,1(R7) 


ADD 1 TO REG 7. 


00160C 


55 


20 


F 


A60 




CL 


R2, ATE1 


SEE IF 80 COLUMNS HANDLED. 


001610 


47 


60 


F 


5E2 




BC 


UNEQ, CODA 


BR IF NO. 


001614 


07 


Fi 








BCR 


UNCRl 


RETURN. 


001616 


96 


80 


F 


OEB 


ERPRS 


01 


DATSW+l^BO* 


TURN ON ERROR IN PRESENT CD SW. 


00161A 


91 


10 


F 


OEB 




TM 


DATSW+ltXHO* 


SEE IF PRINTING PREVIOUS DATA. 


00161E 


47 


10 


F 


5F4 




BC 


ALL ,TXS 


BR IF YES. 


001622 


91 


02 


F 


0E9 




TM 


ISW+1,X»02» 


SEE IF PRINT SW ON. 


001626 


47 


10 


F 


69E 




BC 


ALL,IGOP 


BR IF YES. 


00162A 


96 


01 


F 


0E8 




01 


ISW,X«01« 


INDICATE AN ERROR. 


00162E 


47 


FO 


F 


5F4 




BC 


UNCTXS 


BR TO TEST PREVIOUS DATA. 


001632 


96 


40 


F 


OEB 


ERPRE 


01 


DATSW+1,X«40« 


TURN ON ERROR IN PREVIOUS CD SW. 


001636 


91 


20 


F 


OEB 




TM 


DATSW+1,X«20« 


SEE IF PRINTING PRESENT DATA. 


00163A 


47 


10 


F 


5FC 




BC 


ALL ,UPD 


BR IF YES. 


00163E 


91 


02 


F 


0E9 




TM 


ISW+1»X«02* 


SEE IF PRINT SW ON. 


001642 


47 


10 


F 


69E 




BC 


ALLtlGOP 


BR IF YES. 


001646 


96 


01 


F 


0E8 




01 


ISWyX'Ol* 


TURN ON ERROR SW. 


00164A 


47 


FO 


F 


5FC 




BC 


UNCUPO 


BR TO UPDATE. 












*********************************************************************** 












* 


INTERVENTION REQUIRED ROUTINE 












***************************************************************4>****4>«* 


00164E 


OA 


DO 






RRM 


SVC 


X'DO' 


PRINT -MAKE DEVICE READY- 


001650 


240 D 








DC 


X , 240D« 




001652 


FA32 








DC 


AL2 ( MDR-SECNO+REG ) 




001654 


OA 


DA 








SVC 


X»DA« 


HALT 


001656 


9D 


00 


C 


000 




TIO 


0(R12) 


TEST 1-0 


00165A 


OA 


DO 








SVC 


X«DO« 


PRINT A BLANK. 


00165C 


8001 








DC 


X'8001* 




00165E 


FA32 








DC 


AL2( MDR-SECNO+REG) 




001660 


47 


FO 


F 


0F6 




BC 


UNCCONP 


BR TO CONTINUE. 












*********************************************************************** 












* 


AUXILIARY START 1-0 ROUTINE 














*********************************************************************** 


001664 : 


58 


9E 


0 


198 


1STRT 


L 


R9 f WT(R14) 


LOAD DM WAIT FACTOR. 


001668 


88 


90 


0 


002 




SRL 


R9,2 


CUT IT DOWN TO 2.5 SECS. 


00166C 


50 


80 


0 


048 




ST 


R8,HCAW(R13) 


STORE IN CAW 


001670 


9C 


00 


C 


000 




SIO 


0(R12) 


START 1-0 


001674 


47 


70 


F 


694 




BC 


NCCOtlBACK 




001678 


9D 


00 


C 


000 


ITIOLP 


TIO 


0(R12) 


TEST 1-0 


00167C 


47 


40 


F 


686 




BC 


CCit ILOKE 


BR. IF CSM STORED 


001680 


46 


90 


F 


678 * 


ITIC 


BCT 


R9t ITIOLP 




001684 


07 


F7 








BCR 


UNCR7 


RETURN* 



OATE 
EC 



15JUN67 < 
130498 
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PAGE 6A 



o o o o O 0 0 o o o o o o o o o o 



cccccccc 



ccccooco 



cccccccccccccccccc 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 

2540 PUNCH FUNCTION TESTS - SECTION 3 F822 



P/N 840576 
PAGE 7 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 

2540 PUNCH FUNCTION TESTS - SECTION 3 F822 



P/N 840576 
PAGE 7A 



001686 


91 


04 


D 


044 


ILOKE 


TM 


00168A 


47 


80 


F 


680 




BC 


00168E 


96 


80 


F 


0E9 




01 


001692 


07 


F7 








BCR 


001694 


91 


40 


F 


915 


IBACK 


TM 


001698 


47 


10 


F 


0F6 




BC 


00169C 


07 


F7 








BCR 



HCSW+4(R13) t X'04» 
NONE,ITIC 
ISW*1,X»80« 
UNC,R7 

IACSNS+5,X«40» 
ALUCONP 
UNC,R7 



00169E 


92 


40 


F 


AOO 






I60P 


MVI 


GOODYfC* • 


0016A2 


02 


24 


F 


A01 


F 


AOO 




MVC 


goody* l ( 37 i .Gnnnv 


0016A8 


D2 


OA 


F 


996 


F 


9AC 




MVC 


HOI A-f 9( 1 1 1 . <ITK1 


0016AE 


91 


20 


F 


OEB 








TM 


DAT^W+1 . X • 70 • 

Vfn 1 OCT * X , /\ £. \J 


0016B2 


47 


80 


F 


6E8 








BC 


NDNF . f MT 


0016B6 


D2 


OA 


F 


996 


F 


9A1 




MVC 


Hill A -l-Qf 1 1 1 . PBF<1 


0016BC 


91 


80 


F 


C4E 








TM 


KF YSW . X » RO » 


0016C0 


47 


10 


F 


6F0 








BC 


ALL t TF 


0016C4 


91 


20 


F 


OEA 






C1CR 


TM 




0016C8 


47 


50 


F 


6F8 








BC 


ANY.f nPT 


0016CC 


91 


80 


F 


C40 






TPNC 


TM 


CRSWf X * 80 ■ 


0016D0 


47 


10 


F 


748 








BC 


ALL, NTC 


0016D4 


02 


01 


F 


FB6 


F 


EOA 




MVC 




00160A 


OA 


00 












SVC 


X * DO * 


0016DC 


A013 












DC 


X • A013 * 


00160E 


FFAC 












DC 




0016E0 


96 


80 


F 


C4D 








01 


ro cu . X • RO • 


0016E4 


47 


FO 


F 


748 








BC 




Q016E8 


91 


80 


F 


C4E 






CMI 


TM 


KFY<*U« X • Rfl < 


0016EC 


47 


10 


F 


6C4 








BC 


ALL tClCR 


0016F0 


91 


02 


F 


OEA 






TF 


TM 


DAT<iW.X«07» 


0016F4 


47 


80 


F 


6CC 








BC 


NONE » TPNC 


0016F8 


92 


FO 


F 


A16 






COPT 


MVI 


G00DY+22 ,C •O • 


0016FC 


91 


10 


4 


000 








TM 


0( R4) 9 X* 10 s 


001700 


47 


80 


F 


708 








BC 


NONE »NXU 


001704 


92 


Fl 


F 


A16 








MVI 


G00DY+22,C • 1 • 


001708 


92 


FO 


F 


A19 






NXU 


MVI 


G00DY*25,C»0* 


00170C 


91 


08 


4 


000 








TM 


0(R4) ,X»08« 


001710 


47 


80 


F 


718 








BC 


NONEtNXL 


001714 


92 


Fi 


F 


A19 








MVI 


G00DY+25,C , l t 


001718 


92 


FO 


F 


A1C 






NXL 


MVI 


G00DY+28,C»0« 


00171C 


91 


04 


4 


000 








TM 


0(R4) ,X»04» 


001720 


47 


80 


F 


728 








BC 


NONE, NBP 


001724 


92 


Fl 


F 


A1C 








MVI 


G00DY+28 ff C f 1* 


001728 


92 


FO 


F 


A20 






NBP 


MVI 


G00DY+32,C , 0» 


00172C 


91 


01 


4 


000 








TM 


0(R4) ,X«01« 


001730 


47 


80 


F 


738 








BC 


NONE, NAC 


001734 


92 


Fl 


F 


A20 








MVI 


G0'0DY+32,C*1* 


001738 


92 


FO 


F 


A25 






NAC 


MVI 


G00DY+37,C«0 f 


00173C 


91 


02 


4 


000 








TM 


0(R4) ,X«02« 


001740 


47 


80 


F 


748 








BC 


NONE, NTC 


001744 


92 


Fl 


F 


A25 








MVI 


G00DY+37,C , 1» 


001748 


90 


04 


F 


DD8 






NTC 


STM 


R0,R4, TWENTY 


00174C 


91 


20 


F 


OEB 








TM 


DATSW+l v X f 20 v 


001750 


47 


80 


F 


780 








BC 


NONE,C2A 


001754 


91 


80 


F 


C4E 








TM 


KEYSW,X»80' 


001758 


47 


80 


F 


78C 








BC 


NONE, CIA 


G0175C 


91 


04 


F 


OEA 






TSRD 


TM 


DATSW,X»04« 


001760 


47 


50 


F 


794 








BC 


ANY,CPRT 


001764 


91 


40 


F 


C4D 






IFM 


TM 


CRSW,X»40« 


001768 


47 


10 


F 


84C 








BC 


ALL ,RSRG 


00176C 


02 


01 


F 


FB6 


F 


£08 




MVC 


XX(2),C2 


001772 


OA 


DO 












SVC 


X^DO 8 


001774 


A013 












DC 


X»A013« 


001776 


FFAC 












DC 


AL2(DCA-SECN0*REG) 


001778 


96 


40 


F 


C40 








01 


CRSW,X«40« 


00177C 


47 


FO 


F 


84C 








BC 


UNCtRSRG 


001780 


91 


80 


F 


C4E 






C2A 


TM 


KEYSW,X»80* 



CHECK FOR DEVICE END. 
BR IF NOT IN YET. 
INDICATE THE DATA RECEIVED. 
RETURN. 

SEE IF INTERVENTION REQUIRED. 
BR IF YES. 
RETURN. 

DATA PRINTOUT ROUTINE 
♦♦♦***********************#***«*******^^ 

MOVE A BLANK TO MESSAGE AREA. 
BLANK THE REST. 
MOVE WORD STKR PI TO MSG. 
SEE IF PRINTING PRESENT DATA 
BR IF NOT. 

MOVE WORD PRESTK TO MSG. 
SEE IF 2ND AREA CURRENT. 
BR IF YES. 

SEE IF 1ST AREA CHK RD WORKED. 

BR IF YES. 

SEE IF MSG ALREADY PRINTED. 
BR IF IT WAS. 

MOVE DI AG CHK RD CMD TO MSG. 
PRINT -2 CHK RDS FAIL ED- 



TURN ON PRINT SW. 

BR TO CONTINUE. 

SEE IF 2ND AREA CURRENT. 

BR IF YES. 

SEE IF 2ND AREA CHK RD WORKED. 
BR IF NO- 
MOVE ZERO INTO PRINT AREA. 
SEE IF XU ON IN DI AG CHK READ BYTE. 
BR IF NOT ON. 
MOVE ONE INTO PRINT AREA. 
PUT ZERO INTO PRINT AREA. 
SEE IF XL ON IN DI AG CHK DATA. 
BR IF NOT ON. 
MOVE ONE INTO PRINTOUT 
MOVE ZERO INTO PRINTOUT. 
SEE IF BUFFER PARITY ON IN CHK DATA. 
BR IF NOT ON. 
MOVE A ONE INTO PRINTOUT. 
MOVE A ZERO INTO PRINTOUT. 
SEE IF ADDR CHK IN CHK DATA 
BR IF NOT. 

MOVE A ONE INTO THE PRINTOUT. 
MOVE A ZERO INTO PRINTOUT. 
SEE IF TRANSLATE CHK 
BR IF NO. 

MOVE A ONE INTO PRINTOUT. 
SAVE REGS 0 THRU 4. 
SEE IF PRINTING PRESENT DATA. 
BR IF NOT. 

SEE IF 2ND AREA CURRENT. 
BR IF NOT. 

SEE IF 2ND AREA READ WORKED. 
BR IF YES. 

SEE IF MSG PRINTED BEFORE 
BR IF YES. 

MOVE DI AG RD CMD TO MSG. 
PRINT DIAGNOSTIC READ FAILED. 



TURN ON MSG SW. 

BR TO UPDATE. 

SEE IF 2ND AREA CURRENT. 



001784 


47 


10 


F 


78C 








BC 


ALL, CIA 


BR IF YES. 


001788 


47 


FO 


F 


75C 








BC 


UNC ,TSRD 


BR IF NO. 


00178C 


91 


40 


F 


OEA 






CIA 


TM 


DATSWt X'40 a 


SEE IF 1ST AREA RD OK. 


001790 


47 


80 


F 


764 








BC 


NONE, IFM 


BR IF NOT. 


001794 


91 


80 


F 


C4C 






CPRT 


TM 


HDSW,X•80• 


SEE IF HEADING ALREADY PRINTED. 


001798 


47 


10 


F 


7BE 








BC 


ALL, IPDA 


BR IF YES. 


00179C 


OA 


DO 












SVC 


X^DO 1 


PRINT 1ST HDR. 


00179E 


A008 












DC 


X 1 A008 , 




001 7 AO 


F985 












DC 


AL2 (HD1-SECN0+REG) 




0017A2 


OA 


DO 












SVC 


X'DO' 


PRINT CARD LOCATION IN READER. 


0017A4 


A014 












DC 


X , A014« 




0017A6 


F98D 












DC 


AL2 ( HD1A-SECN0+REG) 




0017A8 


OA 


00 












SVC 


X^DO* 


PRINT A BLANK. 


0017AA 


A001 












DC 


X»A001» 




0017AC 


F9B7 












DC 


AL2 (BIG-SECNO+REG) 




0017AE 


OA 


DO 












SVC 


X'DO 1 


PRINT HEADING 3. 


0017B0 


A022 












DC 


X»A022' 




0017B2 


F9B7 












DC 


AL2 ( BIG-SECNO+REG) 




0017B4 


OA 


DO 












SVC 


X'DO* 


PRINT HEADING 4. 


0017B6 


A02 7 












DC 


X«A027« 




0017B8 


F9D9 












DC 


AL2 { BEAUT Y-SECNO+REG) 




0017BA 


96 


80 


F 


C4C 








01 


HDSW,X«80» 


TURN ON THE HEADING SW. 


0017BE 


D2 


00 


F 


C4F 


3 


000 


IPDA 


MVC 


IC0DATC1) ,0(R3) 


MOVE EXP DATA TO WORK AREA • 


0017C4 


18 


42 












LR 


R4,R2 


PUT THE COLUMN NO. INTO REG 4. 


0017C6 


4E 


40 


F 


898 








CVD 


R4,DBWD 


CONV IT TO DECIMAL. 


0017CA 


F3 


11 


F 


A02 


F 


89E 




UNPK 


G00DY+2(2) ,DBWD+6<2) 


PUT IT INTO PRINT AREA. 


0017D0 


96 


FO 


F 


A03 








01 


G00DY+3»X»F0« 


COVER SIGN UP FOR PRINTING. 


0017D4 


02 


00 


F 


898 


'7 


000 




MVC 


DBWD(1),0(R7) 


MOVE ACTUAL DATA TO CONVERT AREA. 


00 17 DA 


OA 


DD 












SVC 


X«DD« 


CONVERT FROM HEX TO 8INARY • 


0017DC 


0001 












DC 


AL2C01I 


1 BYTE. 


0017DE 


0898 












DC 


AL2(DBWD-SECN0) 


FROM HERE. 


0017E0 


0A12 












DC 


A L 2 ( GOODY* 1 8- SECNO ) 


TO HERE 


0017E2 


OA 


DD 












SVC 


X»D0« 


CONVERT FROM HEX TO BINARY. 


0017E4 


0001 












DC 


AL2(01) 


1 BYTE. 


0017E6 


0C4F 












DC 


AL2f I CODAT-SECNO) 


FROM HERE 


0017E8 


OAOE 












DC 


AL2 ( GOODY* 14*- SECNO 1 


TO HERE 


0017EA 


IB 


11 












SR 


R1,R1 


ZERO REG 1 


0017EC 


IB 


22 












SR 


R2,R2 


ZERO REG 2. 


0017EE 


IB 


33 












SR 


R3,R3 


ZERO REG 3. 


0017F0 


41 


40 


0 


002 








LA 


R4,2 


LOAD DIVISOR 


0017F4 


43 


30 


F 


C4F 








IC 


R3, ICODAT 


PICK UP HEX CHARACTER 


0017F8 


18 


13 












LR 


R1,R3 


SAVE HEX CHARACTER 


0017FA 


10 


24 












OR 


R2»R4 


DIVIDE HEX CHARACTER BY 2 


0017FC 


1A 


31 












AR 


R3,R1 


ADD DIVIDEND TO CHARACTER 


0017FE 


43 


13 


F 


EOC 








IC 


R1,H0L£SCR3* 


PICK UP FIRST BYTE 


001802 


89 


10 


0 


008 








SLL 


Rl,8 


SHIFT 


t\n 1 o r\ £~ 

001806 


43 


13 


F 


EOD 








IC 


Rl » HOLE 5+1 |R3) 


PICK UP SECOND BYTE 


00180A 


41 


30 


0 


OFF 








LA 


R3,255 


LOAD MASK 


00180E 


14 


23 












NR 


R2,R3 


AND WITH REMAINDER 


001810 


47 


50 


F 


818 








BC 


ANY,*+8 


BR. IF THERE WAS A REMAINDER 


001814 


88 


10 


0 


004 








SRL 


Rl,4 


SHIFT OFF UNUSED 4 BITS 


001818 


50 


10 


F 


898 








ST 


R1,DBWD 


SAVE REG 1. 


00181C 


41 


40 


0 


006 








LA 


R4,6 


SET UP FOR 6 POSSIBLE PUNCHES 


001820 


41 


30 


0 


OOC 








LA 


R3,12 


SET UP TO CHECK 12 PUNCHES 


001824 


41 


00 


0 


001 








LA 


R0,1 


LOAD MASK 


001828 


43 


23 


F 


A25 






PIK 


IC 


R2,PUNCHS-1(R3J 


PICK UP PRINTABLE CHARACTER 


00182C 


58 


10 


F 


898 








L 


R 1 , DBWD 


RESTORE REG 1. 


001830 


14 


10 












NR 


R1,R0 


TEST FOR PUNCH 


001832 


47 


80 


F 


83E 








BC 


NONE, NXT 


BR. IF NONE 


001836 


42 


24 


F 


AOS 








STC 


R2,G00DY+5(R4) 


STORE PRINTABLE CHARACTER 


00183A 


46 


40 


F 


83E 








BCT 


R4,*+4 


DECREMENT PRINT AREA INDEX 


00183E 


89 


00 


0 


001 






NXT 


SLL 


R0,1 


SHIFT MASK FOR NEXT BIT 


001842 


46 


30 


F 


828 








BCT 


R3,PIK 


BR. UNTIL 12 CHECKED 


001846 


OA 


DO 










PRGD 


SVC 


X'DO 9 


PRINT THE DATA. 


001848 


8026 












DC 


X«8026« 




00184A 


FAOO 












DC 


AL2( GOODY-SECNO+REG 1 




00184C 


98 


04 


F 


DD8 






RSRG 


LM 


R0,R4, TWENTY 


RESTORE REGS. 


001850 


47 


FO 


F 


5FC 








BC 


UNCUPD 


BR TO CONTINUE DATA OUTPUT. 



DATE 

EC 
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001858 
001860 
001864 
001868 
00186C 
001870 
001874 
001878 
00187C 
001880 
001884 
001888 
001890 
001898 
0018A0 
0018A9 
0018AA 
0018B3 
0018B4 
0018BD 
0018C3 
0018C4 

0018C3 
0Q18CC 
0018D3 
0018D4 

0018D3 
0018DC 
0018DF 
0018E2 
0018E5 
0018EE 
0018F5 
0018FE 
0018FF 
001902 
001905 
00190E 
001910 
001919 
001918 
001924 
00192B 
001934 
001937 
001940 
001949 
001950 
001959 
001960 
001969 
001970 
001979 
001980 
001985 
00198D 
001996 
00199F 
0019A1 
0019AA 
0019AC 
0019B5 
0019B7 



DATE 
EC 



04 001915 0000 0001 

00000000 

000 00000 

00000000 

00000000 

00000000 

00000000 

000 00000 

00000000 

00000000 

00000000 

0000000000000000 
0000000000000000 
+00 . 00000000000000 
40C3C34040E740C5E7 

07 

40C3C34040E740C1C3 

E3 

40C 1C40940E7E7E7E7 

E7E74GE2C9D6 

00 

0018C3 

40C 1C40940E7E7E7E7 

E7E740D3C9D5D2 

00 

001803 

40C3C1E640E7E7E7E7 

E7E740 
C3E2E6 
C3C3E6 

40C3E2E640E7E7E7E7 
E7E7E7E740E7E7 
E7E7E7E7E7E740C5E7 
07 

C1C3E3 
C5E7D7 

40E2D5E240E7E740C5 
E7D7 

40E2D5E240E7E740C1 

C3E3 

40D3D6C740E7E740E7 
E7E7E7E7E740E7 

E7E7E7E7E740E7E7E7 
E7E7E7 

40E3E2E340E7E7E7E7 
40E2C5E340E2E240F0 

40D6D540C60609 

4003D6D6D740D6D540 

D7D9C5E2E3D2D9 

40C3C440D6D940E2E2 

40F140D6D540C6 

D60940D3D6D6D740D6 

D540E2E3C1C3D2 

C5C440C3C4 

40U7C3C840C5D9D9 

40C3C1D9C440C9D540 

07D9C5E2E3D2D940E2 

E3C1 

D709C5E2E3D2D940E2 
E3C1 

E2E3C1C3D2C5D940D7 
F14B 

4O4O40404OC5E7D7C5 



15JUN67 

130498 



«*******************************^ 
* 1-0 HANDLER WORK AREA. 

ISENSE CCW X»04«,IACSNS+5,X , 00»»1 
ISAVE DC 10F«0» 



ICSW1 
ICSW2 
DBWD 
IEXPCC 



DC 

DC 

DC 
DC 



IACTCC DC 

IOADDR DC 



IL INK 



ICAW 

ICSW 
1CCW 
IBLAH 



IACT 
IEXP 
IEXSNS 

IACSNS 

IOLOG 



ITSTNO 

10PT1 



DC 

CNOP 

ORG 

DC 

DC 

CNOP 

ORG 

DC 

DC 
DC 
DC 

DC 

DC 
DC 
DC 

DC 

DC 

DC 

DC 
DC 

DC 

DC 
DC 



XL8»0» 
XL8»0* 

D 
C 



CC X EXP* 

CC X ACT' 

ADR XXXXXX SIG* 

00* 

4 

1 

ADR XXXXXX LINK' 

00« 
4 

1 

CAW XXXXXX • 

CSW» 
CCW» 

CSW XXXXXXXX XX* 

XXXXXX EXP* 

ACT* 
EXP 9 
SNS XX EXP* 

SNS XX ACT* 

LOG XX XXXXXX X* 

XXXXX XXXXXX • 

TST XXXX* 

SET SS 0 ON FOR' 

LOOP ON PRESTKR* 
CD OR SS 1 ON F' 
OR LOOP ON STACK 1 



0019C0 


C3E3C5C440E2C8 








0019C7 


C44 040404040404040 




DC 


C*D B* 


0019D0 


404040404040C2 








0019D7 


E4C6 




DC 


C *UF* 


0019D9 


40C3D6D340D7E4D5C3 


BEAUTY 


DC 


C • COL PUNCHES RD* 


0019E2 


C8C5E24040D9C4 








0019E9 


4040D9C440E7E440E7 




DC 


C* RD XU XL PAR A* 


0019F2 


D340D7C1D940C1 








0019F9 


C4D940E3D9C1D5 




DC 


C*DR TRAN* 


001A00 


404040404040404040 


GOODY 


DC 


C* • 


001A09 


40404040404040 








001A10 


404040404040404040 




DC 


c* ■ 


001A19 


40404040404040 








001 A20 


404040404040 




DC 


c* • 


001A26 


E3C5F0F1F2F3F4F5F6 


PUNCHS 


DC 


CTE0123456789* 


001A2F 


F7F8F9 








001A32 


- 4004C1D2C540D7C3C8 


MDR 


DC 


C* MAKE PCH RDY* 


001A3B 


40D9C4E8 








001 A3F 


001 174 


IOADR 


DC 


AL3( ISSUE) 


001A42 


FE 


MSK1 


DC 


X*FE* 


001A43 


01 


MSK2 


DC 


* X*01* 


001A44 


40E4C90640C6D9D6D4 . 


IUNEX 


DC 


C* UIO FROM DEVICE 9 


001A4D 


40C4C5E5C9C3C5 








001A54 


40E7E7E7E7 




DC 


C* XXXX* 












* 


AUXILIARY WORK AREA. 








001 A5C 


00000000 


PCH 


DC 


F*0* 


nn i a An 

UUi AOU 




ATE 1 


DC 


F*81* 


001A64 


00003FFF 


MOD50 


DC 


X*00003FFF* 


001A68 




PCH1 


DS 


80C 


001AB8 




PCH2 


DS 


80C 


001B08 




CRD1 


DS 


80C 


001B58 




CRD2 


DS 


80C 


001BA8 




RD1 


DS 


80C 


001BF8 




RD2 


DS 


80C 


001C48 


OFOO 


RESET1 


DC 


X*OFOO» 


001C4A 


FOOO 


RESET2 


DC 


X*F0OO* 


001C4C 


00 


HDSW 


DC 


X*00* 


001C4D 


00 


CRSW 


DC 


X*00* 


001C4E 


00 


KEYSW 


DC 


X*00* 


001C4F 


00 


ICODAT 


DC 


X*00* 


001C50 


00 


GENDAT 


DC 


X*00* 


001C51 


4007D9C5E5C9D6E4E2 


HUNG 


DC 


C« PREVIOUS HANG U» 


001C5A 


40C8C1D5C740E4 








001C61 


D740C4C5E3C5C3E3C5 




DC 


C«P DETECTED* 


001C6A 


C4 








001C6C 






CNOP 


0,4 



* ROUTINE 01 - THIS ROUTINE IS THE PUNCH RIPPLE TEST. 39 CARDS ARE 

* PUNCHED AND THE OPERATION IS FULLY TESTED. EACH ROW ON 

* A CARD IS INDIVIDUALLY PUNCHED, STARTING WITH ROW 12 

* IN THE FIRST CARD AND ADVANCING A ROW IN EACH SUCCESIVE 

* CARD UNTIL ALL NINES ARE PUNCHED IN THE TWELFTH CARD. 

* THE NEXT 27 CARDS CONTAIN A RIPPLE PATTERN OF THE EBCDIC 

* CARD CODE. 











001C6C 


01 






R0UT01 


DC 


X»01» 


ROUTINE NUMBER 






DC 


C 


ED CD* 


001C6D 


00 








DC 


x»oo» 


ROUTINE FLAGS -NONE- 




HD1 


DC 


C 


PCH ERR* 


001C6E 


FFFE 








DC 


X 1 FFFE • 


OVERLAY FOLLOWS. 




HD1A 


DC 


C 


» CARD IN • 


001C70 


IB DO 






INIT 


SR 


R13,R13 


ZERO REG 13 






DC 


C 


'PRESTKR STA« 


001C72 


91 40 


E 


196 




TM 


406(R14)tX l 40* 


CHECK FOR FORCED PROBLEM STATE 












001C76 


47 80 


F 


C7C 




BC 


NONE, NITWIT 


BR. IF NOT 




PRES 


DC 


C 


'PRESTKR STA* 


001C7A 


18 DF 








LR 


R13,R15 • 


SET UP FOR PROBLEM STATE 












001C7C 


58 CO 


F 


OEO 


NITWIT 


L 


R12,UNIT1 


PICK UP THE PUNCH UNIT TABLE. 




STK1 


DC 


C 


•STACKER Pl.« 


i 001C80 


54 CO 


F 


A64 




N 


R12,M0D50 


SAVE ONLY THE PUNCH AOOR* 












001C84 


50 CO 


F 


A5C 




ST 


R12,PCH 


SAVE IT 




BIG 


DC 


C 


1 EXPECTED SH« 


001C88 


91 80 


F 


0E8 


BLOOP 


TM 


ISWtX'80 9 


CHECK FOR HANG UP 
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DATE 
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ID 
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EC 
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PAGE 


8A 



O O O 0 O O O O O O O 3 O O 3 3 O O O 3 O O 3 O O O O O O O O O O O 



cccccccccccccccc 



IBM MAINTENANCE DIAGNOSTIC PROGRAM P/N 840576 

PAGE 9 

2540 PUNCH FUNCTION TESTS - SECTION 3 F822 



OOICBC 


47 10 


F 


02 E 








BC 


ALL, HANGUP 


BR. IF DETECTED 


001C90 


OA DO 












SVC 


X*D0* 


TELL OPERATOR TO REMOVE CDS 


001C92 


2419 












DC 


X*2419* 


FROM STACKERS. 


001C94 


FFBF 












DC 


AL21RCFP-SECN0+REG) 




001C96 


OA DO 












SVC 


X*DO* 


PRINT MAKE DEVICE RDY. 


001C98 


AOOD 












DC 


X'AOOD* 




001C9A 


FA32 












DC 


AL2 ( MDR-SECNO+REG) 




001C9C 


OA DA 












SVC 


X*DA* 


-HALT- 


001C9E 


9D 00 


C 


000 








TIO 


0(R12) 


TEST 1-0 


001CA2 


OA 00 












SVC 


X*DO* 


PRINT A BLANK. 


001CA4 


8001 












DC 


X*8001* 




001CA6 


FFBF 












DC 


AL2(RCFP-SECN0+REG) 




001CA8 


41 60 


0 


027 








LA 


R6,39 


PUT 39 INTO REG 6. 


001CAC 


92 00 


F 


C4E 








MVI 


KEYSW,X*00* 


INITIALIZE TO 1ST DATA AREA. 


OOiCBO 


92 00 


F 


C50 








MVI 


GENDAT,X*00* 


ZERO INITIAL EBCDIC CHARACTER. 


001CB4 


D2 OB 


F 


DF8 


F 


DEC 




MVC 


PARAMU2) ,R0W 


INITIALIZE PARAMETERS. 


OOICBA 


45 40 


F 


D44 






PSIO 


BAL 


R4, INDAT 


BR TO GENERATE DATA. 


OOiCBE 


58 CO 


F 


A5C 








L 


R12,PCH 


PUT PUNCH ADDR INTO REG 12. 


001CC2 


41 AO 


F 


DCO 








LA 


RlOtWRTl 


PUT CMD ADDR INTO REG 10. 


001CC6 


D2 01 


F 


CE8 


F 


E04 




MVC 


0RIGC2) ,FIR 


MOVE ADDR OF EXP CSW INTO PARAMS. 


OOICCC 


91 80 


F 


C4E 








TM 


KEYSW,X*80* 


SEE IF 2ND AREA SHOULD BE USED. 


001CDO 


47 80 


F 


CDE 








BC 


NONE, BAL 


BR IF NO. 


Q01CD4 


41 AO 


F 


DC8 








LA 


R10,WRT2 


PUT 2ND AREA CMD ADDR. INTO REG 10* 


001CD8 


D2 01 


F 


CE8 


F 


E06 




MVC 


0RIG(2),SEC 


MOVE ADDR OF EXP CSW INTO PARAMS. 


001CDE 


45 BO 


F 


OEC 






BAL 


BAL 


R11,ISI0 


BR TO ISSUE START 1-0. 


001CE2 


3E00 












DC 


X*3E00* 


CTRL SWITCHES 


001CE4 


0010 












DC 


X'OOIQ* 


TEST NUMBER 


001CE6 


FOOO 












DC 


X*F000* 


EXP COND. CODE AND SENSE. 


001CE8 


FF8C 










ORIG 


DC 


AL2 ( EXPl-SECNO+REGl- 


EXP CSW ADDR. 


001CEA 


91 80 


F 


C4E 








TM 


KEYSW^'SO* 


SEE IF 2ND AREA USED LAST 


001CEE 


47 10 


F 


D20 








BC 


ALL, SUFA 


BR IF IT WAS 


001CF2 


96 80 


F 


C4E 








01 


KEYSW,X*80* 


TURN ON THE SW IF NOT ON. 


001CF6 


04 01 


F 


OEA 


F 


C4A 




NC 


DATSW(2),RESET2 


RESET AREA 2 CONTROL. 


001CFC 


46 60 


F 


CBA 






COP 


BCT 


R6,PSI0 


BR UNTIL ALL CARDS PUNCHED. 


001D00 


41 AO 


F 


DCS 








LA 


R10,WRT2 


PUT CMD ADDR INTO REG 10. 


001D04 


58 CO 


F 


A5C 








L 


R12,PCH 


PUT PCH ADDR INTO REG 12. 


001008 


92 40 


F 


AB8 








MVI 


PCH2,C* • 


PUT A BLANK INTO DATA AREA. 


001D0C 


D2 4E 


F 


AB9 


F 


AB8 




MVC 


PCH2+1C79),PCH2 


BLANK OUT THE REST. 


001D12 


45 BO 


F 


OEC 








BAL 


R11,ISI0 


BR TO ISSUE START 1-0 


001016 


3E0O 












DC 


X*3E00* 


CTRL SWITCHES 


001018 


0010 












DC 


X'0010* 


TEST NUMBER 


001DIA 


FOOO 












DC 


X'FOOO* 


EXP COND CODE AND SENSE. 


001D1C 


FF9C 












DC 


AL2CEXP2-SECN0+REG) 


EXP CSW ADDR. 


001D1E 


OA D6 










EXTP 


SVC 


X*D6* 


ROUTINE EXIT 


001D20 


D4 01 


F 


OEA 


F 


C48 


SUFA 


NC 


DATSW(2),RESET1 


RESET AREA 1 CONTROL. 


001D26 


94 7F 


F 


C4E 








NI 


KEYSW,X*7F* 


TURN OFF 2ND AREA POINTER. 


00102A 


47 FO 


F 


CFC 








BC 


UNCtCOP 


BR TO CONTINUE 


001D2E 


OA DO 










HANGUP 


SVC 


X*DO* 


PRINT 


001030 


64 












DC 


X*64* 


-PREVIOUS HANGUP DETECTED- 


001031 


1A 












DC 


X*1A* 




001D32 


FC51 












DC 


AL2 ( HUNG- SECNO+REG ) 




001D34 


96 01 


F 


0E8 








01 


ISW,X*01* 


TURN ON ERROR SWITCH. 


001D38 


45 50 


F 


276 








BAL 


R5,ID0SNS 


BR. TO OUTPUT AVAILABLE INFO 


001D3C 


92 00 


F 


0E8 








MVI 


ISW,X*00« 


RESET HANGUP SWITCH 


001040 


47 FO 


F 


C88 








BC 


UNCBLOOP 





*********************************************************************** 

* GENERATE PUNCH DATA HERE 

*********************************************************************** 



001D44 


41 


80 


F 


A68 


INDAT 


LA 


R8,PCH1 


PICK UP 1ST PCH AREA ADDR. 


001048 


91 


80 


F 


C4E 




TM 


KEYSW,X*80* 


SEE IF 2ND AREA AVAILABLE. 


001D4C 


47 


80 


F 


054 




BC 


NONE , LA5 


BR IF NOT. 


001050 


41 


80 


F 


AB8 




LA 


R8,PCH2 


PICK UP 2ND PCH AREA ADDR. 


001054 


50 


80 


F 


DD4 


LAS 


ST 


R 8, DA TAD 


SAVE THE BUFFER ADDR. 


001D58 


55 


60 


F 


DOO 




CL 


R6 t TW7 


SEE IF REG 6 IS 27. 


001D5C 


47 


20 


F 


084 




BC 


HI,LA52 


BR IF HIGHER. 


001060 


43 


70 


F 


C50 




IC 


R7, GENDAT 


PICK UP 1ST EBCDIC CHAR. 


001D64 


41 


50 


0 


050 




LA 


R5»80 


PUT 80 INTO REG 5. 


001D68 


42 


78 


0 


000 


PIB 


STC 


R7,0(R8) 


STORE THE CHARACTER INTO THE 
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001D6C 


41 


77 


0 


001 






001D70 


41 


88 


0 


001 






001D74 


46 


50 


F 


D68 






001D78 


58 


80 


F 


DD4 






001D7C 


02 


00 


F 


C50 


8 


007 


001082 


07 


F4 










001D84 


02 


00 


8 


000 


F 


DF8 


001D8A 


D2 


4E 


8 


001 


8 


000 


001090 


D2 


OA 


F 


DF8 


F 


DF9 


001D96 


D2 


00 


F 


E03 


8 


000 


001D9C 


07 


F4 











001DA0 
001 DA8 
001DB0 
001DB8 
001DC0 
001DC8 
001000 
001 DD4 
001DD8 
001DEC 
001DF5 
001DF8 
001E01 
001E04 
001E06 
001E08 
001E0A 



C2 001BA8 
C2 001BF8 
C6 001B08 
C6 001B58 
01 001A68 
01 001AB8 
0000001B 
00000000 



2000 0050 
2000 0050 
2000 0050 
2000 0050 
2000 0050 
2000 0050 



5060F0FIF2F3F4F5F6 
F7F8F9 

5060F0F1F2F3F4F5F6 

F7F8F9 

FF8C 

FF9C 

C3F2 

C3F6 



ADD 1 TO THE DATA BYTE 
ADD. I TO BUFFER ADDR. 
BR UNTIL FULL BUFFER. 
PICK UP START OF BUFFER ADDR. 
MOVE THE 7TH CHAR FOR NXT CARD. 
RETURN. 

MOVE CHARACTER TO PUNCH DATA AREA. 
FILL BUFFER WITH SAME CHARACTER. 
SHIFT PARAMETERS OVER. 
RESTORE 1ST PARAMETER TO LAST POS. 
RETURN TO MAIN ROUTINE. 
********************************^ 

CCW AREA ^ _ 

*********************************************************^^ 



LA52 



LA 
LA 
BCT 
L 

MVC 
BCR 
MVC 
MVC 
MVC 
MVC 
BCR 



R7,1(R7) 

R8,1(R8) 

R5,PIB 

R8, DATAO 

GENDAT(1),7(R8) 

UNCR4 

0( 1 ,R8) tPARAM 
1(79, R8) ,0(R8) 
PARAM(11),PARAM+1 
PARAM+1 1 ( 1) ,0(R8) 
UNCR4 



**** 
DGRD1 
DGRD2 
CHRD1 
CHRD2 
WRT1 
WRT2 
TW7 
DATAD 
TWENTY DS 
ROW DC 



CCW 
CCW 
CCW 
CCW 
CCW 
CCW 
DC 
DC 



PARAM DC 



FIR 

SEC 

C2 

C6 

* 

* 



DC 
DC 
DC 
DC 



001E0C 


B039018818418218 


HOLES DC 


001E14 


1180980580390388 


DC 


001E1C 


384382381380B807 


DC 


001E24 


D035014814414214 


DC 


001E2C 


1140940540350348 


DC 


001E34 


344342341340B407 


DC 


001E3C 


7033012812412212 


DC 


001E44 


1120920520330328 


DC 


001E4C 


324322321320B207 


DC 


001E54 


F031010810410210 


DC 


001E5C 


1100900500310308 


DC 


001E64 


30*302301300B007 


DC 


001E6C 


OO0B01A81A41A21A 


DC 


001E74 


11A09A05A0390288 


DC 


001E7C 


284282281280A806 


DC 


001E84 


800D01C81C41C21C 


DC 


001E8C 


11C09C05C0350248 


DC 


001E94 


244242241240A406 


DC 


001E9C 


4003006816416216 


DC 


001EA4 


11609605603302C0 


DC 


001EAC 


024222221220A206 


DC 


001EB4 


E00FO1E81E41E21E 


DC 


001EBC 


11E09E05E0310208 


DC 


001EC4 


204202201200A006 


DC 


001ECC 


B02B00A80A40A20A 


DC 


001ED4 


10A08A04A02A01A8 


DC 


001EDC 


2A42A22A12A0AA06 


DC 


001EE4 


002 D00C80C40C20C 


DC 


001EEC 


10C08C04C02C01C8 


DC 


001EF4 


2C42C22C12C0AC06 


DC 


001EFC 


702 7006806406206 


DC 


001F04 


1060860460260168 


DC 


001F0C 


264262261260A606 


DC 


001F14 


F02 F00E80E40E20E 


DC 



X*C2*,RD1,X*20*,80 

X*C2*,RD2,X*20.*,80 

X*C6*,CRD1,X*20*,80 

X*C6*,CRD2,X*20* ,80 

X*01* f PCHl,X*20* ,80 

X*01«*PCH2tX*20%80 

F*27« 

F*0« 

20C 

X*5060F0F1F2F3F4F5F6F7F8F9* 

X*5060F0F1F2F3F4F5F6F7F8F9* 

AL2( EXP1-SECN0+REG ) EXP CSW ADDR. 
AL2(EXP2-SECN0+REG) EXP CSW ADDR. 
C*C2* 
C*C6* 

*************** 

* HOLES TABLE * 
*************** 

X*B039018818418218* 
X* 1180980580390388* 
X»384382381380B807« 
X*D035014814414214* 
X* 1140940540350348* 
X«344342341340B407* 
X'7033012812412212* 
X* 1120920520330328* 
X»324322321320B207« 
X , F031010810410210* 
X* 1100900500310308* 
X«304302301300B007* 
X'000B01A81A41A21A* 
X* 11A09A05A0390288* 
X*284282281280A806* 
X*800D01C81C41C21C* 
X*11C09C05C0350248* 
X • 244242241240A406 » 
X* 4003006816416216* 
XU1609605603302C0* 
X*024222221220A206* 
X'E00F01E81E41E21E* 
X* 11E09E05E0310208* 
X*204202201200A006* 
X*B02B00A80A40A20A* 
X* 10A08A04A02A01A8* 
X*2A42A22A12A0AA06* 
X*D02D00C80C40C20C* 
X • 1 OC 08C 04C 02C 0 1 C 8 * 
X*2C42C22C12C0AC06* 
X • 7027006806406206 * 
X * 1060860460260168 • 
X • 264262261260A606 • 
X • F02F00E80E40E20E • 
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001F1C 10E08E04E02E01E8 

001F24 2E42E22E12E0AE06 

001F2C A009008808408208 

001F34 10S08804802801A8 

001F3C 3A43A23A13A0BA07 

001F44 6005004804404204 

001F4C 10408404402401C8 

001F54 3C43C23C13C0BC07 

001 F5C 2827012802402202 

001F64 1020820420220168 

001F6C 364362361360B607 

001F74 2001000800400200 

001F7C 10008004002001E8 

001F84 3E43E23E13E0BE07 



001F8C 00001DC8 

001F90 08000000 

001F94 00000000 

001F98 04000000 

001F9C 00001DD0 

001FA0 08000000 

001FA4 00000000 

0Q1FA8 04000000 



001FAC 40C4C9C1C740C3D4C4 

001FB5 40 

001FB6 C3F640C6C1C903C5C4 

001FBF 40C4D640D506D7D9D6 

001FC8 6BC5D407E3E840 

001FCF 07C3C840E2E302D9E2 



000000 
000007 
OOOOOF 
000008 
000004 
000001 
000005 
000008 
000004 
000002 
000001 
OOOOOA 
000006 
000008 
000004 
000002 
000006 
OOOOOC 
OOOOOA 
000080 
000181 
OOFOOO 
00005A 
001A00 
000000 
000001 
000002 
000003 
000004 
000005 
000006 



DC 


X* 1GE08E04E02E01E8 1 • 


000007 


R7 


EQU 


7 


DC 


X«2E42E22E12E0AE06» 


000008 


R8 


EQU 


8 


DC 


X» A009008808408208* 


000009 


R9 


EQU 


9 


DC 


X» 10808804802801A8 1 


OOOOOA 


RIO 


EQU 


10 


DC 


X«3A43A23A13A0BA07« 


OOOOOB 


Rll 


EQU 


11 


DC 


X • 6005004804404204' 


OOOOOC 


R12 


EQU 


12 


DC 


X» 10408404402401C8' 


OOOOOD 


R13 


EQU 


13 


DC 


X»3C43C23C13C0BC07» 


OOOOOE 


R14 


EQU 


14 


DC 


X«2827012802402202» 


OOOOOF 


R15 


EQU 


15 


DC 


X* 1020820420220168' 


000198 


WT 


EQU 


408 


DC 


X«364362361360B607» 


000040 


HCSW 


EQU 


64 


DC 


X s 2001000800400200* 


000048 


HCAW 


EQU 


72 


DC 


X»10008004002001E8» 


OOOIAO 


DMSSW 


EQU 


X'OIAO' 


DC 


X»3E43E23E13E0BE07» 


000189 


OMIOL 


EQU 


X«01B9» 


********************** 4**** 


000 1BC 


OMPTR 


EQU 


X'OIBC 


* EXP 


CSW AREA 






END 


R0UT01 



EXP1 DC A(WRTl+8) 

DC X* 08000000* 

DC XL4«0» 

DC X B 04000000 9 

EXP2 DC A!WRT2*8) 

DC X« 08000000* 

DC XL4»0« 

DC X s 04000000 9 

* MESSAGES 



OCA 



XX 

RCFP 



DC 



C* DIAG CMD • 



DC CC6 FAILED* 

DC C 9 DO NOPRQ»EMPTY * 



DC C'PCH STKRS' 

* EQUATES 

****^***>>.4'^#*^ 

NEVER EQU 0 

NCCO EQU 7 

UNC EQU 15 

NONE EQU 8 

SOME EQU 4 

ALL EQU 1 

ANY EQU 5 

CCO EQU 8 

CC1 EQU 4 

CC2 EQU 2 

CC3 EQU 1 

CC02 EQU 10 

CC12 EQU 6 

EQ EQU 8 

LO EQU 4 

HI EQU 2 

UNEQ EQU 6 

EQLO EQU 12 

EQHI EQU 10 

LOGOUT EQU X«80« 

SYSMOD EQU X*I81« 

REG EQU X'FOOO* 

WHAT EQU 90 

WORK EQU GOODY 

RO EQU 0 

Rl EQU 1 

R2 EQU 2 

R3 EQU 3 

R4 EQU 4 

R5 EQU 5 

R6 EQU 6 
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DATA. 
























1246, 


1256, 


1266, 


1286, 


128E, 


1292, 


12A0 




























12B8, 


12CC, 


12E4, 


12F0, 


1310, 


1324, 


1346 




























1368, 


1382, 


138E, 


1482, 


14B2, 


14D0, 


1528 




























1530, 


1538, 


159C, 


1622, 


162 A, 


163E, 


1646 


FENCES TO DEFINED 


SYMBOLS. 




















168E, 


1C88, 


1D34, 


1D3C 




























4 


15AE 


IUP 


15A6 
















1E08 


C2 
















4 


1D54 


LA5 


1D4C 














2 


176C 














13 


1A32 


MDR 


1652, 


165E, 


1C9A 










2 


1E0A 


C6 


1604 














4 


1738 


NAC 


1730 














1 


8 


EQ 


129C t 


137E 












4 


1728 


NBP 


1720 














1 


2 


HI 


1D5C 














4 . 


1748 


NTC 


16D0, 


16E4, 


1740 










1 


4 


LO 


10F2, 














4 


1718 


NXL 


1710 














1 


0 


RO 


15B2, 


1748, 


1824, 


1830, 


183E, 


184C 


4 


183E 


NXT 


1832 














1 


1 


Rl 


1580, 


15D8, 


1614, 


17EA, 


17EA, 


17F8, 


17FC 


4 : 


1708 


NXU 


1700 




















17FE, 


1802, 


1806, 


1814, 


1818, 


182C, 


1830 


4 


1A5C 


PCH 


1C84, 


1CBE, 


1D04 










1 


2 


R2 


15DE, 


15FC, 


15FC, 


160C, 


17C4, 


17EC, 


17EC 


4 


1D68 


PIB 


1D74 


















R3 


17FA, 


180E, 


1828, 


1836 








4 


1828 


PIK 


1842 














1 


3 


1560, 


1574, 


15B8, 


15CC, 


15E2, 


1600, 


1600 


1 


A 


RIO 


110A, 


13EC, 


1408, 


1412, 


141A, 


141A, 


1590 








17BE, 


17EE, 


17EE, 


17F4, 


17F8, 


17FC, 


17FE 








1CC2, 


1CD4, 


1D00 
















1806, 


160A, 


180E, 


1820, 


1828, 


1842 




1 


B 


Rll 


10EC, 


11AE, 


1236, 


124E, 


1296, 


1334, 


133E 


1 


4 


R4 


1564, 


1578, 


15BC, 


15D0, 


15EC, 


15F4, 


1604 








134E, 


1360, 


13A6, 


13BE, 


13C0, 


1302, 


1302 








1604, 


16FC, 


170C, 


171C, 


172C, 


173C» 


1748 








13D6, 


143E, 


145A, 


1468, 


149A, 


14CA, 


15A2 








17C4, 


17C6, 


17F0, 


17FA, 


181C, 


1836, 


183A 








15AA, 


15AA, 


15AE, 


15AE, 


15B6, 


1CDE, 


1D12 








184C, 


1CBA, 


1D82, 


1D9C 








1 


c 


R12 


1116, 


1126, 


1136, 


1174, 


11DA, 


1656, 


1670 


1 


5 


R5 


15A0, 


1D38, 


1064, 


1D74 














1678, 


1C7C, 


1C80, 


1C84, 


1C9E, 


1CBE, 


1D04 


1 


6 


R6 


1CA8, 


1CFC, 


1D58 










1 


D 


R13 


10F6, 


10F6, 


110A, 


1156, 


1198, 


1590, 


166C 


1 


7 


R7 


1146, 


1152, 


1156, 


127A, 


12B4, 


130C, 


1568 








1686, 


1C70, 


1C70, 


1C7A 














157C, 


15C0, 


15D4, 


15E2, 


1608, 


1608, 


1684 


1 


E 


R14 


10FC, 


lOFCi 


112E, 


11BA, 


14F4, 


14FC, 


1664 








1692, 


169C, 


17D4, 


1D60, 


1D68, 


106C, 


1D6C 








1C72 














1 


8 


R8 


1276, 


12A4, 


12B0, 


12FC, 


1308, 


1330, 


134E 


1 


F 


R15 


11EE, 


HFC, 


122C, 


1C7A 














1352, 


1370, 


1370, 


1374, 


13BA, 


13BE, 


1468 


1 


1BA8 


RD1 


1568, 


15C0, 


1DA0 
















146C, 


1470, 


1470, 


1474, 


1548, 


15DC, 


166C 


1 


1BF8 


R02 


157C, 


1504, 


IDAS 
















1D44, 


1050, 


1054, 


1D68, 


1D70, 


1D70, 


1078 


1 


FOOO 


REG 


120E, 


13B8, 


13D0, 


13EA, 


13FC, 


143A, 


1448 








107C, 


1084, 


108A, 


1D8A« 


1D96 












144E, 


14E4, 


14F2, 


1526, 


1588, 


158E, 


1652 


1 


9 


R9 


10F2, 


112E, 


1132, 


113E, 


11BA, 


11BE, 


11CA 








165E, 


16DE, 


1776, 


17A0, 


17A6, 


17AC, 


17B2 








1220, 


140E, 


143C, 


147E, 


1496, 


14AE, 


14C6 








17B8, 


184A, 


1C94, 


1C9A, 


1CA6, 


1CE8, 


1D1C 




16F0 




15B2, 


1664, 


1668, 


1680 














1032, 


1E04, 


1E06 










4 


TF 


16C0 














12 


1DEC 


ROW 


1CB4 














1 


198 


WT 


112E, 


11BA, 


1664 










2 


164E 


RRM 


1282 














9 


1FB6 


XX 


16D4, 


176C 












4 


1204 


SB2 


12C4 














1 


1 


ALL 


1106, 


114E, 


11B2, 


11EA, 


1242, 


1262 , 


1282 


2 


1E06 


. SEC 


1CD8 




















12AC, 


12E8, 


12F4, 


1304, 


131C, 


1392, 


13DA 


4 


12DC 


T05 


131C 




















1570, 


15A0, 


161E, 


1626, 


163 A, 


1642, 


1698 


4 


1DD0 


TW7 


1D58 




















16C0, 


16D0, 


16EC, 


1768, 


1784 9 


1798, 


1C8C 


4 


15F4 


TXS 


161E, 


162E 


















1CEE 














1 


F 


UNC 


112A, 


1142, 


115A, 


1188, 


1190, 


11A2, 


11D6 


1 


5 


ANY 


1598, 


15F0 t 


15F8, 


16C8, 


1760* 


1810 










11F8, 


1228, 


124A, 


12D0, 


1208, 


12E0, 


12EC 


4 


1CDE 


BAL 


1CD0 




















12F8, 


141E, 


143C, 


1534, 


15B6, 


15DC, 


1614 


16 


19B7 


BIG 


17AC, 


17B2 


















162E, 


164A, 


1660, 


1684, 


1692, 


169C, 


16E4 


4 


178C 


CIA 


1758, 


1784 


















177C, 


1788, 


1850, 


1D2A, 


1D40, 


1D82, 


1D9C 


4 


1780 


C2A 


1750 














4 


15FC 


UPD 


163A, 


164A, 


1850 










4 


1048 


CAW 
















4 


1A60 


AT El 


160C 














1 


8 


CCO 


113A, 


1178 












4 


1328 


BTCD 


1314 














1 


4 


CC1 


117C, 


167C 












4 


16C4 


C1CR 


16EC 














1 


2 


CC2 


1180 














1 


A 


CC02 
















1 


1 


CC3 
















1 


6 


CC12 
















4 


16E8 


CMI 


16B2 














6 


15E2 


CODA 


1610 














4 


1CFC 


COP 


1D2A 














6 


10F6 


CONP 


1660, 


1698 












8 


1040 


CSW 
















4 : 


16F8 


COPT ' 


16C8 














4 


1580 


CTD 


1570 














4 


1794 


CPRT i 


1760 














10 


1FAC 


DCA 


16DE, 


1776 












1 


1B08 


CRD1 


1578, 


15BC, 


1DB0 










2 


1E04 


FIR 


1CC6 














1 ;• 


1B58 


CRD2 


1564, 


15D0, 


1DB8 










8 


1985 


HD1 


17A0 














1 


1C40 


CRSW 


1168, 


16CC, 


16E0, 


1764, 


1778 






4 


1528 


ICD 


14F8 














8 


1898 


DBWD 


17C6, 


17CA, 


17D4, 


17DE, 


1818, 


182C 




2 


100A 


I CM 
















1 


A 


EOHI 
















4 


1764 


I FN 


1790 














1 


C 


EQLO 
















4 


112E 


IHI 


111A, 


1122 












4 


1F8C 


EXP1 


1CE8, 


1E04 












2 


10E8 


1SW 


115E V 


115Et 


1164* 


119E, 


11AA, 


11B6, 


11C2 


4 


1F9C 


EXP2 


IDlCr 


1E06 


















11D2, 


11E2, 


11E6, 


11F4, 


1224, 


1232 , 


123E 


2 


1D1E 


EXTP 
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4 


1136 


GREG 


1 


48 


HCAW 


1 


40 


HCSW 


9 


198D 


HD1A 


1 


1C4C 


HDSW 


16 


1C51 


HUNG 


3 


18FF 


IACT 


4 


1538 


IBCO 


6 


1334 


ISSN 


12 


18D3 


ICAW 


3 


18E2 


1CCV* 


4 


15DE 


ICDT 


1 


1439 


ICNT 


3 


18DF 


ICSW 


4 


14B2 


IDIO 


3 


1902 


IEXP 


4 


12A4 


IFUR 


4 


169E 


IGOP 


2 


1C70 


INIT 


4 


11AA 


INOW 


4 


1236 


I NT 3 


4 


1194 


IONE 


6 


14CA 


. IPAS 


6 


17BE 


IPDA 


4 


12FC 


ISCR 


4 


124E 


ISEN 


6 


10EC 


ISIO 


6 


122C 


ISV2 


4 


1680 


ITIC 


4 


use 


I TWO 


6 


11FC 


IU 10 


6 


115E 


JOHN 


6 


1D84 


LA52 


I 


1A42 


MSK1 


1 


1A43 


MSK2 


I 


7 


NCCO 


1 


1000 


NIOU 


1 


8 


NONE 



113E 
110A, 
10F6, 
16A8, 
116C* 
1D32 
121A, 
152C 
132C 
13£C* 
13FE 
' 1580, 
1216, 
1210, 
149E 
1462, 
125A, 
1626, 

1188, 

11F8 

117C 

I486 

1798 

12BC, 

1182? 

1CDE, 

11EA 

168A 

1180 

11DE 

1112 

IDSC 

11C6 

11CE 

111A, 

1112, 
128A, 
1364, 
I486, 
168A, 
1740, 
1D4C 



2 


ICES 


OR IG 


1CC6* 


1 


1A68 


PCH1 


1560, 


i 


1AB8 


PCH2 


1574, 


11 


19A1 


PRES 


1686 


2 


1846 


PRGO 




4 


1CBA 


PSIO 


1CFC 


16 


1FBF 


RCFP 


1C94, 


4 


1324 


RRSl 


12E0 


4 


12CC 


RRS2 


12D8 


4 


184C 


RSRG 


1768, 


i 


iooc 


SDMF 




4 


1554 


SIPP 


1540 


4 


1004 


SNSW 


1102, 


1 * 


4 


SOME 




3 


105D 


SRET 




4 


1156 


STCD 


114E 


11 


19AC 


STKi 


16A8 


4 


15D8 


SU1P 


15C8 


4 


15B8 


SUCP 


1330* 


6 


1D20 


SUFA 


1CEE 


4 


1146 


SULP 


1106 


4 


16CC 


TPNC 


16F4 


4 


175C 


TSRO 


1788 


i 


iOEl 


UiOP 





1156, 
10F6, 

16B6, 

154C 9 


1590, 
1198, 

17A6 
1794, 


166C 
11EE, 

17BA 


148A, 


148 A 




13F4, 


13F6, 


13FC 


1508 

1404, 

1450 


1456 




14A2 
126A, 

1642 


1272, 


128A, 


1190, 


11A2 




12D0 
11D6, 


123A, 


1242 



1012 



1674 












1122, 


123A, 


1252, 


125A, 


126A, 


1272 


12BC, 


12C4, 


1314 f 


132C, 


1342* 


134A 


136C, 


139A, 


1416, 


145E, 


1486, 


149E 


14D4, 


I52C, 


1540, 


1558, 


15A6, 


15C8 


16B2, 


16F4, 


1700, 


1710, 


1720, 


1730 


1750, 


1738* 


1790, 


1832, 


1C76, 


icoo 


1C08 












1588, 


1D44, 


10C0 








15CC, 


1008, 


IOOC, 


1D0C , 


1050, 


IOCS 



1CA6 



177C 



110E, I11E, 1396, 1594 



1548 



1 


10E5 


U20P 


1 


6 


UNEQ 


1 


5A 


WHAT 


16 


1A00 


WORK 


8 


1DC0 


WRT1 


8 


1DC8 


WRT2 


4 


1C88 


BLOOP 


8 


1DB0 


CHRD1 


8 


1 DB8 


CHRD2 


4 


1DD4 


DAT AO 


2 


10EA 


DATSW 


8 


ID AO 


DGRD1 


8 


IDAS 


DGRD2 


1 


1B9 


DMIOL 


1 


1BC 


DMPTR 


1 


1A0 


DMSSW 


4 : 


1632 


ERPRE 


4 


1616 


ERPRS 


1 


100E 


FLAG1 


1 


100F 


FLAG2 


16 


1A00 


GOODY 


8 


1E0C 


HOLES 


4 


1694 


IBACK 


16 


18E5 


IBLAH 


2 


1422 


ICOUT 


8 


1888 


ICSW1 


8 


1890 


ICSW2 


4 


1482 


IDIDI 


4 


1116 


IHANG 


16 


18C3 


RINK 


4 . 


1686 


ILOKE 


4 


1102 


ILOOP 


4 


1D44 


INDAT 


4 


1382 


INDER 


5 


1010 


INPSW 


3 


1A3F 


IOADR 


6 


1450 


IOCSW 


16 


191B 


IOLOG 


16 


1940 


10PT1 


4 


14F4 


IPASS 


4 


1860 


ISAVE 


4 


1174 


ISSUE 


4 


1664 


ISTRT 


16 


1A44 


IUNEX 


4 


11BA 


IWAIT 


4 


11A6 


IZERO 


1 


1C4E 


KEYSW 


4 


1A64 


M0D50 


1 


0 


NEVER 


12 


1DF8 


PARAM 


4 


1000 


SECNO 


1 


10E0 


UNIT! 



11DE, 

11FC, 
1478, 
1508, 
1146, 

1152, 

1D40 

12B0 

12A4 

1D54, 

12C8, 

1554, 

16C4, 

1308 

12FC 



15F8 
15E8, 



169E, 

1718, 

17D0, 

17FE, 

1674 

1210, 

1462, 

1220, 

1198, 

122C, 

145E 

112A, 

13C0, 

167C 

113A, 

1CBA 

12E8, 

13E2 

13DA 

150A, 

1588 

1404 

10F2, 

1A3F 

127A, 

1208, 

124A, 

1178 

114A, 

16BC, 

1CF2, 

1C80 

1CB4, 
1206, 
13CA, 
13FC, 
14DE, 
1526, 
17A0, 
17E6, 
1D1C, 
IC7C 



133A, 


135C, 


14F8, 


15E8, 


1610 


1408, 


1426, 


1428, 


142A, 


1430, 


1490, 


14AS, 


14A8, 


14C0, 


14FCt 


150A, 


1510, 


1516, 


151C 




1CC2, 


1F8C 








1CD4, 


1D00, 


1F9C 






1D78 










1204, 


12DC, 


1320, 


153C, 


1544, 


155C, 


1616, 


161A, 


1632, 


1636, 


16F0, 


174C, 


175C, 


178C, 


1CF6, 



1478 
1506 



15F0 



1550 
16AE 
1D20 



16A2, 


16A2, 


16F8, 


1704, 


1708, 


1714 


1724, 


1728, 


1734, 


1738, 


1744, 


17CA 


17E0, 


17E8, 


1836, 


184A, 


1F08 




1806 












121A, 


13FE, 


142A, 


1430, 


143A, 


1450 


148A, 


14A2, 


14BA 








140E, 


147E, 


1496, 


14AE, 


14C6 




11EE, 


125E, 


1356, 


1356, 


1490 




126E, 


1378, 


1378, 


14C0 






115A 












13C8, 


13CA, 


13D0, 


158E 






1142, 


1598 










12F4, 


133A, 


134A, 


135Ct 


I36C 




1510, 


1516, 


151C, 


1526 






15B2 












12B4, 


130C 










120E 












1534 












12A8, 


12C0, 


1300, 


1318, 


156C, 


15C4 


16E8, 


1754, 


1780, 


ICACt 


1CCC, 


1CEA 


1D26, 


1D48 










1D84, 


1D90, 


1090, 


1096 






1208, 


120E, 


13B0, 


13B2, 


13B8, 


13C8 


13D0, 


13E2, 


13E4, 


13EA, 


13F4, 


13F6 


1426, 


1428, 


143A* 


1448, 


144E, 


14DC 


14E4, 


14EA, 


14EC* 


14F2, 


1506 ,. 


1508 


1588, 


158E, 


1652, 


165E, 


16DE, 


1776 


17A6, 


17AC, 


17B2, 


17B8, 


17DE t 


17E0 


17E8* 


184A, 


1C94, 


1C9A, 


1CA6, 


1CE8 


1032, 


1E04, 


1E06 









OATE 
EC 
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FUNCTION 


TESTS - 


SECT ION 


"X coin 




i 


1 0 E4 


UNIT2 








16 


19 D9 


BEAUTY 


17B8 






5 


1058 


EXNPSW 








3 


1018 


EXOPSW 








1 


1C50 


GENDAT 


1CB0, 


1D60, 


1D7C 


2 


1D2E 


HANGUP 


1C8C 






1 1 


1910 


I ACSNS 


1170t 


127E, 


1 296, 








1694 t 


1 858 




10 


1 8 AA 


I ACTCC 


1 184i 


1 18C, 


1 194, 


4, 


1 30C 


I AS 101 


1 304 






4 


1 2B4 


I AS 1 02 


12AC 






6 


1 4 3E 


ICCQUT 


1416 






6 


1 356 


ICCSW1 


1352 






5 


1378 


ICCSW2 


1374 






5 


1478 


1CHNG1 


146C 








14 A8 


ICHNG2 


1474 








1C4F 


ICODAT 


17BE, 


17E6, 


17F4 




1408 


ICWOUT 


141E 






4 


1276 


IDOSNS 


1252? 


1262, 


1 r\~xa 
IV 3 0 


4 


1386 


I DUNCK 


12ECt 


1 2F8, 


lilt 


10 


18 AO 


IEXPCC 


143Ef 


1448 




1 1 


1905 


IEXSNS 


14CA, 


14DC, 


140E, 




1 3B6 


IFLAG1 


1386 f 


139E 






1586 


IFLAG2 


138A t 


13A2 




4 


15 A2 


IL EAVE 


139A 






6 


14FC 


ILOGED 


1228 






4 


149A 


I MORST 


1486 








12E4 


IN0EX1 


1342 






4 


12F0 


IN0EX2 


1364 






15 


18B4 


IOADDR 


13E4, 


13EA 






1078 


IONPSW 








3 


1038 


IOOPSW 


1 IDA, 


1206 




2 


1584 


IOPOUT 


1558 








13A6 


IOUT IT 


1392 








1 IDA 


IRETRN 


107C 






3 


1858 


ISENSE 


1276 








1678 


IT IOLP 


1680 






9 


1937 


ITSTNO 


lOECt 


13A6, 


13B0, 


1 


80 


LOGOUT 


lOFCt 


10FC, 


% Acr 


8 


1070 


MCNPSW 








8 


1030 


MCOPSW 








4 


1C7C 


NITWIT 


1C76 






8 


1068 


PGNPSW 








8 


1028 


PGOPSW 








12 


1A26 


PUNCHS 


1828 






2 


1C48 


RESET1 


1D20 






2 


1C4A 


RESET2 


1CF6 






1 


1C6C 


R0UT01 


1015, 


1FD8 




8 


1060 


SVNPSW 








8 


1020 


SVOPSW 








1 


181 


SYSMOD 


14F4 






1 


1DD8 


TWENTY 


1748, 


184C 




2 


10 E2 


U1ADDR 








2 


10 E6 


U2ADDR 








1 


1000 


XF8220 









1328, 14EA, 14EC, 14F2 
11A6, 1334, 144E 



14E4 



13B2, 13B8 



NO ERROR DETECTEO IN ABOVE ASSEMBLY 
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2540 PUNCH FUNCTION TESTS - SECTION 3 F822 
2540 PUNCH OVERLAY SECTION 



001000 



8220 TITLE 2540 PUNCH OVERLAY SECTION 

*********************************************************************** 

XF8220 START 4096 
USING *,15 

*********************************************************************** 
******************* ******************* 
* SECTION PREFACE *********************************** SECTION PREFACE * 



******************* 



******************* 



001000 






SECNO 


DS 


F 




001004 






SNSW 


DS 


F 








001015 




ORG 


SECNO+21 


ORIGIN INITIAL PSW ADDRESS* 


001015 


001B10 


001038 




DC 
ORG 


AL3(R0UT02) 
SECNO+56 


ADDR OF ROUTINE PREFIX. 


001038 




00107C 


IOOPSW 


DS 
ORG 


F 

SECNO+124 




00107C 


000011DE 






DC 


AL4( IRETRN) 


1-0 RETURN ADDRESS. 






0010E0 




ORG 


SECNO+224 


ORIGIN AFTER SECTION PREFACE. 


0010E0 






UNIT1 


DS 


F 




0010E4 






UNIT2 


DS 


F 





*********************************************************************** 

* OPTIONAL FEATURE BYTE DEFINITION 

*********************************************************************** 



* * BIT 0 * BIT 1 * BIT 2 * BIT 3 * BIT 4 

* * HEX 8 * HEX 4 * HEX 2 * HEX 1 * HEX 8 

* * ASCII * CARD * * 51 * 1400 

* * * IMAGE * * COL RD* COMP 

* * * * * * 
*********************************************************************** 

* 2540 READER SENSE BYTE 

*********************************************************************** 



* BIT 5 * BIT 6 

* HEX 4 * HEX 2 

* * 

* * 

* * 



BIT 7 * 
HEX 1 * 
2821 * 
2 CHN * 
SW. * 



* 


BIT 


MEANING 


* 


0 


COMMAND REJECT 


* 


1 


INTERVENTION REQUIRED 


* 


2 


BUS OUT CHECK 


* 


3 


EQUIPMENT CHECK 


* 


4 


DATA CHECK - VALIDITY CHECK - INVALID CARD CODE 


* 


5 


OVERRUN - NOT USED 


* 


6 


UNUSUAL COMMAND SEQUENCE-2 READS WITHOUT INTERVENING FEED 


* 


7 


NOT USED 



********************************************************************^ 

* 2540 READER STATUS BYTE 

*************************************************************^ 

* BIT MEANING 

* 0 ATTENTION - 1400 COMPATIBILITY FEATURE ONLY - INDICATES 

* SENSE WAS ISSUED BEFORE 6 MS TIME OUT AFTER 

* A 1400 COMPATIBILITY READ. 

* 1 STATUS MODIFIER - 2 CHANNEL SWITCH FEATURE ONLY 

* 2 CONTROL UNIT END - 2 CHANNEL SWITCH FEATURE ONLY 

* 3 DEVICE BUSY 

* 4 CHANNEL END 

* 5 DEVICE END 

* 6 UNIT CHECK 

* 7 UNIT EXCEPTION - LAST CARD PREVIOUSLY READ, AND END OF 

* FILE WAS ON. 

*********************************************************************** 

* 2540 READER DIAGNOSTIC CHECK READ BYTE DEFINITION 
*********************************************************************** 

* BIT MEANING 

* 0 NOT USED 

* 1 NOT USED 

* 2 NOT USED 

* 3 XU CHECK PLANE 

* 4 XL CHECK PLANE 

* 5 BUFFER PARITY CHECK 

* 6 READ TRANSLATE CHECK 

* 7 READER BUFFER ADDRESS CHECK 
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2540 PUNCH FUNCTION TESTS - SECTION 3 F822 
2540 PUNCH OVERLAY SECTION 



************************************************************* 
*********************************************************************** 

*********************************************************************** 

* PARAMETERS USED TO ENTER 

* THE 1-0 HANDLER ROUTINE 

*************** ******************************************************** 

* BAL Ril v ISIO LINK TO 1-0 HANDLER 

* DC XL2 f 0000' CONTROL SWITCHES 

* DC X»0014» TEST NO. IN DEC EXPRESSED IN HEX 

* DC X»FO» EXPECTED COND. CODE 

* DC X'00» EXPECTED SENSE DATA 

* DC AL2«ADR~BASe*REG> ADDR. OF EXPECTED CSW IF NEEDED 

************************************************************* ********** 

*******#*********************************************************^ 

* I~0 HANDLER CONTROL SWITCHES 

* 2 BYTE PARAMETER FOLLOWING SAL 

*********************************************************************** 



* 


SWITCH 


DESCRIPTION 






* 


0 




OFF 




ISSUE AN I-Q COMMAND 






* 






ON 




DO NOT ISSUE AN I-Q COMMAND 








1 




OFF 




ENABLE 






* 






ON 




DO NOT ENABLE 






* 


2 




OFF 




EXPECT NO INTERRUPT 












ON 




EXPECT AN INTERRUPT 






* 


3 




OFF 




DO NOT EXPECT 2 INTERRUPTS 






* 






ON 




EXPECT 2 INTERRUPTS 






* 


4 




OFF 




EXPECT NO CSWS 






* 






ON 




EXPECT A CSW 








5 




OFF 




DO NOT EXPECT 2 CSWS 












ON 




EXPECT 2 CSWS 






* 


6 




OFF 




ALWAYS TRY TO ISSUE SENSE 






* 






ON 




SENSE ON UNIT CHECK ONLY 








8 




OFF 




DO NOT ISSUE 2 DIAGNOSTIC CHECK 


READ 


START 1-0 CMOS 


* 






ON 




ALWAYS ISSUE 2 DIAGNOSTIC CHECK 


READ 


COMMANDS 



*********************************************************************** 

*********************************************************************** 

* SWITCHES USED BY 1-0 HANDLER 

*********************************************************************** 



* 


SWITCH 


DESCRIPTION 


* 


0 




OFF 




NO HANGUP ON INTERFACE 


* 






ON 




HANGUP OCCURRED 


* 


1 




OFF 




NO CSWS STORED 


* 






ON 




ONE CSW STORED 




2 




OFF 




SECOND CSW NOT RECEIVED 


* 






ON 




SECOND CSW RECEIVED 


* 


3 




OFF 




DID NOT ENABLE 


* 






ON 




ENABLED ONCE 


* 


4 




OFF 




DID NOT ENABLE TWICE 


* 






ON 




ENABLED TWICE 


* 


5 




OFF 




NO SENSE DATA RECEIVED 


* 






ON 




SENSE DATA RECEIVED 




6 




OFF ' 




NO UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 


* 






ON 




UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 


* 


1 




OFF 




NO ERROR DETECTED 


* 






ON 




AN ERROR WAS DETECTED 



**^***#**************************************************************** 

* REGISTERS USED IN 1-0 HANDLER 

*********************^********************#**^****#********** ********** 

* REG COMMENTS 

* 5 USED AS LINK TO ERROR OUTPUT FROM INITIALIZE ROUTINE IF 

* PREVIOUS HANGUP ON INTERFACE DETECTED. 

* 3 USED AS WORK REGISTER. WILL BE RESTORED UPON RETURN. 

* 

* 9 USED AS WORK REGISTER. WILL BE RESTORED UPON RETURN. 
* 

* 10 MUST CONTAIN CCW ADDRESS UPON ROUTINE ENTRY 
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2540 PUNCH FUNCTION TESTS - SECTION 3 F822 
2540 PUNCH OVERLAY SECTION 



0010E8 



0000 



* 

* 11 MUST BE USED AS LINK REG TO THIS ROUTINE 
* 

* 12 MUST CONTAIN DEVICE ADDRESS 
* 

************************************************************* **** ****** 
ISW DC XL2»0» 

*********************************************************************** 
**********************************************************************$ 

* * 1-0 HANDLER SUB-ROUTINE * 

**********************************************************************$ 



OOIOEA 


D2 


01 


F 


854 


B 


002 


ISIO 


MVC 


ITSTNO+5C2) f 2(Rll) 


SAVE TEST NUMBER 


OOIOFO 


90 


09 


F 


760 








STM 


R0,R9, ISAVE 


SAVE WORK REGISTERS. 


0010F4 


D2 


00 


F 


961 


F 


003 




MVC 


RTSV(l) ,SECNQ+3 


SAVE RT NO. FOR HANGUP. 


0010FA 


50 


AD 


0 


048 






CONP 


ST 


RIOtHCAWf R13) 


STORE CMD ADDRESS. 


0010FE 


D7 


07 


D 


040 


D 


040 




XC 


HCSW(8,R13),HCSW(R13) 




001104 


D7 


OB 


E 


080 


E 


080 




XC 


LOGOUT ( 12,R14 ) .LOGOUT (R14) 


001 10A 


91 


80 


B 


000 








TM 


0(R11) ,X«80« 


CHECK CONTROL SWITCH FOR NO 1-0 


00110E 


47 


10 


F 


1AE 








BC 


ALL 9 INOW 


BR. IF ON 


001112 


91 


CO 


F 


004 








TM 


SNSW,X«CO« 




001116 


47 


80 


F 


15E 








BC 


NONE t JOHN 


















*************************************************** ******************** 
















* 




SENSE SWITCH LOOPS 
















*********************************************************************** 


001 11A 


91 


80 


F 


004 






ITRY1 


TM 


SNSW, X«80» 


CHECK SECTION SENSE SWITCH 0 


001 HE 


47 


80 


F 


12A 








BC 


NONE. ITRY2 


BR. IF OFF 


001122 


9C 


00 


C 


000 






ILOOP 


SIO 


0(R12) 


START 1-0 


001126 


47 


FO 


F 


HA 








BC 


UNCITRYl 


BR. UNCONDITIONAL 


00112A 


91 


40 


F 


004 






ITRY2 


TM 


SNSWtX'40' 


CHECK SECTION SENSE SWITCH 1 


00112E 


47 


80 


F 


14A 








BC 


NONE 9 IHI 


BR. IF OFF 


001132 


9D 


00 


C 


000 






IHANG 


TIO 


0(R12) 


TEST 1-0 


001 136 


47 


70 


F 


HA 








BC 


NCCO9 ITRY1 


BR. IF NOT COND. CODE 0 


00113A 


91 


40 


F 


004 








TM 


SNSW, X«40« 


CHECK SECTION SENSE SWITCH 1 


00113E 


47 


80 


F 


14A 








BC 


NONE9 IHI 


BR. IF OFF 


001142 


9C 


00 


C 


000 








SIO 


0(R12) 


START 1-0 


001146 


47 


FO 


F 


132 








BC 


UNC 9 IHANG 


BR. UNCONDITIONAL 


001 14A 


58 


9E 


0 


198 






IHI 


L 


R9,WT(R14) 


PICK UP DM WAIT FACTOR. 


001 14E 


88 


90 


0 


003 








SRL 


R9 t 3 


CUT IT DOWN TO 1.25 SECS. 


001152 


90 


00 


C 


000 






GREG 


TIO 


0(R12) 


TEST 1-0 TO DEVICE. 


001156 


47 


80 


F 


15E 








BC 


CCO, JOHN 


BR IF AVAILABLE. 


00115A 


46 


90 


F 


152 








BCT 


R9,GREG 


LOOP UNTIL TIME OUT. 
















*********************************************************************** 
















* 


EXECUTE START 1-0 HERE 


















*********************************************************************** 


00115E 


07 


01 


F 


0E8 


F 


0E8 


JOHN 


XC 


ISW(2),ISW 


ZERO THE 1-0 HANDLER SWITCHES. 


001164 


96 


80 


F 


0E8 








01 


ISW9X»80 9 


TURN ON THE HANG SWITCH. 


001168 


94 


00 


F 


AF3 








NI 


CRSW,X«OO s 


ZERO DI AG MSG SW. 


00116C 


94 


00 


F 


AF1 








NI 


HDSW9X , 00« 


ZERO THE HEADING SWITCH. 


001170 


92 


E7 


F 


820 








MVI 


IACSNS+5,C»X« 


MOVE AN X INTO THE ACTUAL SENSE DATA 


001174 


92 


E7 


F 


7C7 








MVI 


IACTCC+59CX 9 


MOVE IN A -X~ 


001178 


9C 


00 


C 


000 






ISSUE 


SIO 


0(R12) 


START 1-0 COMMAND. 


00117C 


47 


80 


F 


1AA 








BC 


CCO,IZERO 


BR. IF COND. CODE 0 


001180 


47 


40 


F 


198 








BC 


CCI9IONE 


BR. IF COND. CODE 1 


001184 


47 


20 


F 


190 








BC 


CC2.ITW0 


BR. IF COND. CODE 2 


001188 


92 


F3 


F 


7C7 








MVI 


IACTCC+59X«F3« 


INDICATE COND. CODE 3 


00118C 


47 


FO 


F 


1AE 








BC 


UNC ♦ INOW 


BR. UNCONDITIONAL 


001190 


92 


F2 


F 


7C7 






ITWQ 


MVI 


IACTCC+5,X , F2« 


INDICATE COND. CODE 2 


001194 


47 


FO 


F 


1AE 








BC 


UNC 9 I NOW 


BR. UNCONDITIONAL 


001198 


92 


Fl 


F 


7C7 






IONE 


MVI 


IACTCC+59X 9 F1« 


INDICATE COND. CODE 1 


00119C 


D2 


07 


F 


788 


D 


040 




MVC 


ICSW1(8) 9 HCSW(R13) 


SAVE CSW 


0011A2 


96 


40 


F 


0E8 








01 


ISW,X»40« 


INDICATE 1 CSW 


0011A6 


47 


FO 


F 


1AE 








BC 


UNC 9 I NOW 


BR. UNCONDITIONAL 


0011AA 


92 


FO 


F 


7C7 






I ZERO 


MVI 


IACTCC+5,X»F0» 


INDICATE COND. CODE 0 


0011AE 


94 


7F 


F 


0E8 






INOW 


NI 


ISW,X«7F« 


TURN OFF HANG UP SWITCH 


0011B2 


91 


40 


B 


000 








TM 


OfRlDtX'tO* 


CHECK CONTROL SWITCH FOR NO ENABLE 


0011B6 


47 


10 


F 


252 








BC 


ALL 9 1 SEN 


BR. IF ON 


0011BA 


96 


10 


F 


0E8 








01 


ISW9X«10« 


INDICATE ENABLED ONCE 


0011BE 


58 


9E 


0 


198 






IWAIT 


L 


R9 t WT<Rl4) 


LOAD DM WAIT FACTOR 
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2540 PUNCH FUNCTION TESTS - SECTION 3 F822 
2540 PUNCH OVERLAY SECTION 



001 1C2 


88 


90 


o 


003 




SRL 


R9,3 


ADJUST 


0011C6 


96 


80 


F 


0E8 




01 


isw.x'so' 


TURN ON HANG UP SW 


001 1CA 


80 


00 


F 


95F 




SSM 


MSKl' 


ENABLE 


0011CE 


46 


90 


F 


ICE 




BCT 


R9,* 


WAIT 


0011D2 


80 


00 


F 


960 




SSM 


MSK2 


DISABLE 


001 1D6 


94 


7F 


F 


0E8 




NI 


ISW,X«7F« 


TURN OFF HANG SW 


001 IDA 


47 


FO 


F 


252 




BC 


UNCI SEN 


BR. UNCONDITIONAL 
























♦ 




ALL 1-0 


INTERRUPTS RETURN HERE 












it*******************************************************************, 


001 IDE 


49 


CO 


F 


03A 


IDC TO M 

1 Kfc 1 RN 


CH 


R12 » IOOP5W+2 


COMPARE FOR CURRENT 1-0 ADDRESS 


001 1E2 


47 


60 


F 


200 




BC 


UNEQt I UIO 


BR. IF UNEQUAL 


001 1E6 


94 


7F 


F 


0E8 




NI 


I SW, X • 7F • 


RESET HANG UP SW 


001 1 E A 


91 


40 


F 


0E8 




TM 


I 5W , X *40 ■ 




0011EE 


47 


10 


F 


230 




BC 


ALL , I SV2 


BR. IF 1 CSW ALREADY STORED 


001 1F2 


D2 


07 


F 


788 F 040 




MVC 


ICSWlt8),HCSW(Rl5) 


SAVE CSW 1 


0011F8 


96 


40 


F 


0E8 




0 1 


I SW , X ' 40 ' 


INDICATE 1 CSW STORED 


0011FC 


47 


FO 


F 


23A 




DV. 


i ikir* i kit^ 
UNL t I NT3 


BR. UNCONDITIONAL 


001200 


D2 


07 


F 


7A0 F 040 


lull) 


HI VI* 


unD viol ur cui n i c i 
WUKM 8 1 t HC5W ( RlJ» J 




001206 


OA 


DD 








o VI, 


X * DD • 


CONVERT ADDRESS 


001208 


0002 








nr 
UK, 


AL2 ( 2 ) 


2 BYTES OF 1-0 OLD PSW* 


00120A 


003 A 








DC 


Aloft nn o c i_i i *» r r<*kint 

ALZl I UOP5W+2— 5ECNO) 


FROM HERE- 


00120C 


0973 








DC 


A Let I UNfc a+1 f— 5cCNU I 


TO HERE 


00120E 


OA 


DO 










y • nn • 

a u u 


PRINT UNEXPECTED INTERRUPT DEVICE 


001210 


64 












y • a/, » 

A OH * 


ADURcSS 


001211 


15 










nr 

UK, 


a' 15' 




001212 


F962 








DC 


AL 2 l I UNfc X— StCNU+RfcG 1 




001214 


D2 


02 


F 


7FE F 7F7 




MVC 


TD| luxl lit ireu 
1 DL AM+ 1151 f lUoM 


Untie p f li °f r"i UCP^ Af*r 

MUVfc —CSW- TO MESSAGE 


00121A 


92 


1A 


F 


429 




PI V i 


lL.ft I 9 A LA" 


Art iiiPT rut ait 

ADJUST COUNT 


00 12 IE 


D2 


02 


F 


814 F 817 




M\/r 


THI AUi.711 11 t »pt 
1 DLAnt^Ji 31 1 1 At 1 


MUVc —ACT— TO MESSAGE 


001224 


45 


90 


F 


412 




DAL. 


oo t r n i it 
!\7t 1UUU 1 


BR. TO OUTPUT CSW 


001228 


96 


02 


F 


0E8 




0 I 


1 oM f A " \j£. 


1 NU1 LA ft UIO 


00122C 


47 


FO 


F 


4EC 




DP 


i ikir f i nr* c n 
UINU t 1 LUbtU 


BR. UNCONDITIONAL 


001230 


D2 


07 


F 


790 F 040 


1 a v a 


n vl. 


I r cui I at ur* cut disi 


SAVE CSW 2 


001236 


96 


20 


F 


0E8 




0 1 




TMntrtTC "i /"Cue rTnn r n 

1 IMU 1 LA I c c LSWS STORED 


00123A 


91 


10 


B 


000 


INT3 


TM 


U 1 KJL1 1 , A " 1U * 


CHECK CTRL SW FOR 2 INTR EXPECTED 


00123E 


47 


80 


F 


252 




or 

DU 


IMUIMt , 1 JtN 


BR. I r NUT 


001242 


91 


08 


F 


0E8 




TM 


I c u vtnof 
1 5 W , A " Uo 




001246 


47 


10 


F 


252 




nr 

DL. 


All T CCM 
ALL 9 i ofciM 


BR. IF ALREADY ENABLED TWICE 


00124A 


96 


08 


F 


0E8 




01 


ISW.X'OB' 




00124E 


47 


FO 


F 


1BE 




BC 


UNCI WAIT 




001252 


91 


02 


B 


000 


ISEN 


TM 


0(R11) , X«02 t 


CHECK CONTROL SWITCH FOR SNS ON UC 


001256 


47 


80 


F 


27A 




BC 


NONE, IDOSNS 


BR. IF OFF TO ISSUE SENSE 


00125A 


91 


40 


F 


0E8 




TM 


ISW,X«40« 


SEE IF 1ST CSW IN. 


00125E 


47 


80 


F 


30C 




BC 


NONE t IBSN 


BR IF NONE. 


001262 


91 


02 


F 


78C 




TM 


ICSWl+4,X«02 f 


CHECK FOR UNIT CHECK 


001266 


47 


10 


F 


27A 




BC 


ALL, IDOSNS 


IF YES BR. TO ISSUE SENSE 


00126A 


91 


20 


F 


0E8 




TM 


ISW,X»20» 


CHECK FOR SECOND CSW 


00126E 


47 


80 


F 


30C 




BC 


NONE, IBSN 


BR IF NONE. 


001272 


91 


02 


F 


794 




TM 


ICSW2+4,X»02« 


CHECK FOR UNIT CHECK 


001276 


47 


80 


F 


30 C 




BC 


NONE, IBSN 


BR IF NONE. 


00127A 


41 


80 


F 


750 


IDOSNS 


LA 


R8,ISENSE 


LOAD SENSE COMMAND ADDR. 


00127E 


45 


70 


F 


5 DC 




BAL 


R7,ISTRT 


BR TO AUX START 1-0. 


001282 


91 


80 


F 


0E9 




TM 


ISW+1 9 X*80' 


CHK FOR DATA RECEIVED 


001286 


47 


80 


F 


2A0 




BC 


NONE, IFUR 


BR IF NOT. 


00128A 


96 


04 


F 


0E8 




01 


ISW,X«04 f 


INDICATE SENSE RECIEVED 


00128E 


94 


7F 


F 


0E9 




NI 


ISW+1,X»7F« 


TURN OFF DATA RECEIVED. 


001292 


05 


00 


F 


82D B 005 




CLC 


IACSNS+5U),5tRll) 


COMPARE FOR EXPECTED SENSE 


001298 


47 


80 


F 


2A0 




BC 


EQ, IFUR 


BR IF EQUAL. 


00129C 


96 


01 


F 


0E8 




01 


ISW,X'01» 


INDICATE AN ERROR. 


0012A0 


91 


80 


F 


0E8 


I FUR 


TM 


ISW, X«80» 


SEE IF HANG UP CONDITION. 


0012A4 


47 


10 


F 


30C 




BC 


ALL, IBSN 


BR IF YES. 


0012A8 


91 


80 


B 


001 




TM 


1IR11) ,X'80» 


SEE IF DIAGNOSTIC CHK RD WANTED. 


0012AC 


47 


80 


F 


30C 




BC 


NONE, IBSN 


BR IF NOT. 


001280 


41 


80 


F 


758 




LA 


R8,DCRD 


PUT ADDR* OF CHK RD INTO 8. 


0012B4 


45 


70 


F 


5 DC 




BAL 


R7,ISTRT 


BR TO AUX, START 1-0. 


0012B8 


91 


80 


F 


0E9 




TM 


ISW+1,X»80» 


TEST FOR DATA RECIVED 


0012BC 


47 


80 


F 


2C8 




BC 


NONE, I SEA 


BR IF NOT* 
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0012C0 


96 


40 


F 


0E9 








01 


ISW+1,X»40 8 


INDICATE 1ST CHK READ DATA RECEIVED. 


0012C4 


94 


7F 


F 


0E9 








NI 


ISW+1,X»7F« 


TURN OFF DATA RECEIVED SW. 


0012C8 


41 


80 


F 


758 






ISEA 


LA 


R8.DCRD 


PUT ADDR. OF CHK RD INTO 8. 


0012CC 


45 


70 


F 


5DC 








BAL 


R7,ISTRT 


BR TO AUX, START 1-0. 


0012D0 


91 


80 


F 


0E9 








TM 


isw+i^'so* 


SEE IF DATA RECEIVED 


0012D4 


47 


80 


F 


2E0 








BC 


NONE, BTCD 


BR IF NOT. 


0012D8 


96 


20 


F 


0E9 








01 


ISW+1,X»20« 


INDIC 2ND CHK READ DATA RECEIVED. 


0012DC 


94 


7F 


F 


0E9 








NI 


ISW+1,X»7F« 


TRN OFF GENERAL DATA REC. SW. 


0012E0 


45 


10 


F 


570 






BTCD 


BAL 


Rl, ICDT 


BR TO CHK DATA. 


0012E4 


91 


60 


F 


0E9 








TM 


ISW+1,X*60 - 


SEE IF ANY OF THE CHK READS OK. 


0012E8 


47 


50 


F 


30C 








BC 


ANY, IBSN 


BR IF YES. 


0012EC 


96 


01 


F 


0E8 








01 


ISW,X«01« 


TURN ON ERROR SW. 


0012F0 


47 


FO 


F 


30C 








BC 


UNCIBSN 


BR TO CONTINUE. 


0012F4 


91 


40 


F 


0E8 






IN0EX1 


TM 


ISW,X»40« 




0012F8 


47 


10 


F 


35A 








BC 


ALL, INDER 


BR. IF CSW STORED 


0012FC 


47 


FO 


F 


35E 








BC 


UNC, IDUNCK 


BR. UNCONDITIONAL 


001300 


91 


20 


F 


0E8 






IN0EX2 


TM 


ISW,X«20« 




001304 


47 


10 


F 


35A 








BC 


ALL, INDER 


BR. IF CSW 2 STORED 


001308 


47 


FO 


F 


35E 








BC 


UNC IDUNCK 


BR. UNCONDITIONAL 


00130C 


D5 


00 


F 


7C7 


B 


004 


IBSN 


CLC 


IACTCC+5< 1) ,4<R11) 


COMPARE FOR EXPECTED COND. CODE 


001312 


47 


60 


F 


35A 








BC 


UNEQ, INDER 


BR. IF UNEQUAL 


001316 


91 


08 


B 


000 








TM 


0(R11) ,X»08« 




00131A 


47 


80 


F 


2F4 








BC 


N0NE.IN0EX1 


BR. IF NO CSW EXPECTED 


00131E 


91 


40 


F 


0E8 








TM 


ISW^^O* 




001322 


47 


80 


F 


35A 








BC 


NONE, INDER 


BR. IF NO CSW RECIEVED 


001326 


48 


8B 


0 


006 








LH 


R8,6(R11) 


LOAD CSW ADDR 


00132A 


40 


80 


F 


332 








STH 


R8,ICCSWl+4 


STORE IN COMPARE INSTR. 


00132E 


D5 


07 


F 


788 


F 


788 


ICCSW1 


CLC 


ICSW1(8),ICSW1 


COMPARE FOR EXPECTED CSW 


001334 


47 


60 


F 


35A 








BC 


UNEQ, INDER 


BR. IF UNEQUAL 


001338 


91 


04 


B 


000 








TM 


0(R11) ,X«04» 




00133C 


47 


80 


F 


300 








BC 


N0NE,IN0EX2 


BR. IF NO CSW 2 EXPECTED 


001340 


91 


20 


F 


0E8 








TM 


ISW,X'20» 




001344 


47 


80 


F 


35A 








BC 


NONE, INDER 


BR. IF NO CSW 2 RECIEVED 


001348 


41 


88 


0 


008 








LA 


R8,8(R8) 


UPDATE TO SECOND CSW 


00134C 


40 


80 


F 


354 








STH 


R8,ICCSW2+4 




001350 


D5 


07 


F 


790 


F 


790 


ICCSW2 


CLC 


ICSW2(8) , ICSW2 


COMPARE FOR EXPECTED CSW 2 


001356 


47 


80 


F 


35E 








BC 


EQ, IDUNCK 


BR. I F EQUAL 


00135A 


96 


01 


F 


0E8 






INDER 


01 


ISW,X*01 f 


INDICATE AN ERROR 


00135E 


92 


64 


F 


39 E 






IDUNCK 


MVI 


IFLAG1,X»64» 


SET UP FOR ERROR PRINTOUT 


001362 


92 


CO 


F 


53E 








MVI 


IFLAG2,X , C0« 




001366 


91 


01 


F 


0E8 








TM 


ISW,X«01» 


CHECK FOR A DETECTED ERROR 


00136A 


47 


10 


F 


37E 








BC 


ALL, IOUTIT 


BR. IF ERROR DETECTED 


00136E 


91 


01 


F 


004 








TM 


SNSW,X«01 • 


CHECK SECTION SENSE SWITCH 7 


001372 


47 


80 


F 


55A 








BC 


NONE, ILEAVE 


BR. IF OFF 


001376 


92 


24 


F 


39E 








MVI 


IFLAG1,X«24« 


SET UP FOR CORRECT PRINTOUT 


00137A 


92 


80 


F 


53E 








MVI 


IFLAG2,X«80« 




00137E 


95 


40 


F 


82D 






IOUTIT 


CLI 


IACSNS+5,X«40« 


SEE IF INTERVENTION REQUIRED* 


001382 


47 


80 


F 


5C6 








BC 


EQ,RRM 


BR IF YES. 


001386 


91 


01 


F 


78C 








TM 


ICSW1+4,X»01» 


SEE IF UNIT EXCEPTION. 


00138A 


47 


10 


F 


5C6 








BC 


ALL ,RRM 


BR IF YES. 


00138E 


D2 


01 


F 


854 


B 


002 




MVC 


ITSTN0+5C2) ,2(R11) 


MOVE TEST NO. TO PRINT AREA* 


001394 


OA 


DD 












SVC 


X*DD 8 


CONVERT TEST NUMBER 


001396 


000 2 












DC 


AL2(2) 




001398 


0854 












DC 


AL2UTSTN045-SECN0) 




00139A 


0854 












DC 


AL2UTSTN045-SECN0S 




00139C 


OA 


DO 












SVC 


X»D0» 


PRINT TEST NUMBER 


00139E 


64 












IFLAG1 


DC 


X»64» 




00139F 


09 














DC 


X«09« 




0013A0 


F84F 












DC 


AL2 ( I TSTNO-SECNO+REG 1 




0013A2 


41 


80 


0 


004 








LA 


R8,4 


ADJUST LINK ADDRESS FOR PRINTOUT 


0013A6 


IB 


B8 












SR 


R11,R8 




0013A8 


50 


BO 


F 


7E0 








ST 


Rll,ILINK+5 




0013AC 


OA 


DD 












SVC 


X^DD^ 


CONVERT LINK ADDRESS 


0013AE 


0003 












DC 


AL2C3) 




0013B0 


07E1 












DC 


AL2ULINK+6-SECN0) 




0013B2 


07E0 












DC 


AL2ULINK+5-SECN0) 




0013B4 


OA 


DO 












SVC 


X»D0« 


PRINT LINK ADDRESS 


0013B6 


AO 














DC 


X«A0« 
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0013B7 


10 












DC 


X» 10' 




001388 


F70B 












DC 


AL2I ILINK-SECNO+REG! 




0013BA 


41 BB 


0 


004 








LA 


Rll ,4(R11 ) 




0013BE 


91 80 


B 


000 








TM 


0CR11 1 ,X 9 80» 




0013C2 


47 10 


F 


440 








BC 


ALLtlOCSW 


BR. IF NO 1-0 COMMAND ISSUED 


0013C6 


OA DD 












SVC 


X»DD' 


CONVERT 1-0 ADDRESS 


0013C8 


0003 












DC 


AL2( 3) 




0013CA 


095C 












DC 


AL2 ( IOADR-SECNO) 




0013CC 


0701 












DC 


AL2C I0ADDR+5-SECN0) 




0013CE 


OA DO 












SVC 


X'DO* 


PRINT 1-0 ADDRESS 


0013D0 


AO 












DC 


X'AO* 




001301 


OF 












DC 


X 8 OF« 




001302 


F7CC 












DC 


AL2( IOADDR-SECNO+REG) 




001304 


95 9C 


F 


178 








CLI 


ISSUE, X»9C« 


COMPARE FOR SIO COMMAND 


0013D8 


47 60 


F 


42E 








BC 


UNEQ, ICCOUT 


BR. IF NOT 


0013DC 


50 AO 


F 


7F0 








ST 


RIO, ICAW+5 


STORE CCW ADDR. 


0013E0 


OA DD 












SVC 


X»DD' 


CONVERT CAW 


0013E2 


0003 












DC 


AL2C 31 




0013E4 


07F1 












DC 


AL2( ICAW+6-SECN0) 




0013E6 


07 FO 












DC 


AL2C ICAW+5-SECN0) . 




0013E8 


OA 00 












SVC 


X»DO« 


PRINT CAW 


0013EA 


AO 












DC 


X»AO s 




0013E8 


OB 












DC 


X»OB* 




00 13 EC 


F7EB 












DC 


AL2UCAW-SECN0+REG) 




0013EE 


02 02 


F 


7FE 


F 


7FA 




mc 


IBLAH+K3) ,ICCW 


MOVE -CCW- TO MESSAGE 


0013F4 


92 16 


F 


429 








MVI 


ICNT,X»16« 


ADJUST COUNT 


0013F8 


02 07 


F 


7 AO 


A 


OOO 


ICWOUT 


MVC 


W0RKC81 *0(R10) 


MOVE CCW TO WORK AREA 


0013F6 


45 90 


F 


412 








BAL 


R9, ICOUT 


BR. TO OUTPUT CCW 


001402 


91 CO 


A 


004 








TM 


4«R10) ,X*CQ* 


CHECK FOR ANY CHAIN FLAGS 


001406 


47 80 


F 


42E 








BC 


NONE, ICCOUT 


BR. IF NONE 


00140A 


41 AA 


0 


008 








LA 


RiOt 8CR101 


UPDATE TO NEXT CCW 


00140E 


47 FO 


F 


3F8 








BC 


UNC, ICWOUT 


BR. UNCONDITIONAL 


001412 


OA DD 










ICOUT 


SVC 


X»DD» 


CONVERT 


001414 


000 8 












DC 


AL2C8) 




001416 


07A0 












DC 


AL2C WORK-SECNO) 




001418 


07A0 












DC 


AL2( WQRK-SECNOI 




00 141 A 


02 07 


F 


802 


F 


7A0 ' 




MVC 


I8LAM+5I 8 } t WORK 


MOVE TO MESSAGE 


001420 


02 07 


F 


BOB 


F 


7A8 




MVC 


IBLAH4-I4I 81 ,W0RK+8 




001426 


OA DO 












SVC 


X»DO® 


PRINT 


001428 


AO 












DC 


X'AO 8 




001429 


IA 










ICNT 


DC 


XUA* 




00142A 


F7FD 












DC 


AL2UBLAH-SECN0+REG) 




00142C 


07 F9 












BCR 


UNC,R9 


RETURN VIA REG 9 


00142E 


D2 00 


F 


7BD 


B 




ICCOUT 


MVC 


1 EXPCC+5C 1 ) 9 4(R11) 


MOVE FXP rr TO MFSS AGF 


001434 


OA DO 












SVC 


x'oo' 


PRINT EXPECTED COND. CODE 


001436 


AO 












BC 


X« AO 1 




001437 


OA 












DC 


X* OA* 




001438 


F788 












DC 


AL2UEXPCC-SECNQ+REG) 




00 143 A 


OA DO 












SVC 


X»DO» 


PRINT ACTUAL COND. CODE 


00143C 


AO 












DC 


X«AO» 




00 14 3D 


OA 












DC 


X'OA 9 




00143E 


F7C2 












DC 


AL2(I ACTCC-SECNO+REG ) 




001440 


D2 02 


F 


7FE 


F 


7F7 


IOCSW 


MVC 


IBLAH+K3),ICSW 


MOVE -CSW- TO MESSAGE 


001446 


92 1A 


F 


429 








MVi 


ICNT, X 1 1A 9 


ADJUST COUNT 


00144A 


91 08 


B 


000 








TM 


0(R11) ,X*08» 




00144E 


47 80 


F 


472 








BC 


NONEt IDIDI 


BR. IF NO CSW EXPECTED 


001452 


02 02 


F 


814 


F 


81A 




MVC 


IBLAH+23<3> ,IEXP 


MOVE -EXP- TO MESSAGE 


001458 


48 8B 


0 


006 








LH 


R8,6(R11) 




00145C 


40 80 


F 


46C 








STH 


R8 8 ICHNGl+4 




001460 


41 88 


0 


008 








LA 


R8,8(R8) 




001464 


40 80 


F 


49C 








STH 


R8«ICHNG2+4 




001468 


D2 07 


F 


7 AO 


F 


7 AO 


ICHNG1 


MVC 


WORK! 8) » WORK 


MOVE EXPECTED CSW TO WORK AREA 


00146E 


45 90 


F 


412 








BAL 


R9, ICOUT 


BR. TO OUTPUT EXPECTED CSW 


0014T2 


91 40 


F 


0E8 






1DIDI 


TM 


isy,x»40* 




001476 


47 80 


F 


48A 








BC 


NONE, IMORST 


BR. IF NO CSW STORED 


00147A 


D2 02 


F 


814 


F 


817 




MVC 


IBLAH+23C3i,IACT 


MOVE -ACT- TO MESSAGE 


001480 


02 07 


F 


7A0 


F 


788 




MVC 


W0RM8t*ICSWl 


MOVE ACTUAL CSW TO WORK AREA 


001486 


45 90 


F 


412 








BAL 


R9» ICOUT 


BR. TO OUTPUT ACTUAL CSW 



nn i a. a a 

UU 1 HO A 


7 1 U4 


o 


nnn 

uuu 






f yno ct 


TM 


n(ni 11 VI AA t 

UlKllJ , X 04 1 




nn i aq p 

UU 1 HO C 


a 7 on 
4 1 tsu 


P 

r 


4A2 








BC 


NUNt, IOI D 


BR# I F NOT EXPECTING 2 CSWS 


00 1 492 


D2 02 


p 


O 14 


p 


Q 1 A 
Ol A 




MVC 


1 DLAH+Z3 1 3 ) ,1c XP 


MOVE -EXP- TO MESSAGE 


001498 


D2 07 


F 


7 AO 


F 


7 AO 


lunrivic. 


m\/p 

HVt 


una tr i o t uno v 


nUVc caPcC 1 hO CSW TO WORK AREA 


00149E 


45 90 


F 


41 o 








D. A6 
DAL 


n O If ni IT 


BK« TO OUTPUT EXPECTED CSW 2 


00 1 4 A2 


9 1 20 


F 


npn 
uco 






tntn 


TM 


1 OHt A * £.{} * 




nn l a. a a 

UU 14 A© 


A. 7 nn 

4 I OU 


p 


AO A 

4DA 








BC 


NUNc , I P A5 


BR. I F NO SECOND CSW STORED 


nn i AAA 

UU IHAft 


no no 

VC Ui 


C 

r 


a i a 
o 14 


r 


Oil 




MVC 


1BLAH+Z3131 , I ACT 


MOVE -ACT- TO MESSAGE 


nn i Ann 

UU A *r DU 


D2 07 


p 

r 


"7 An 

1 MU 


p 
r 


1 TfU 




MVC 


WUKIv \ ol til bfi4C 


MOVE CSW TO WORK AREA 


nn i ara 

UU A *♦ DO 


45 90 


F 


41 O 








BAL 


DO T r* n 1 IT 




nn l 4RA 


■• D2 00 


p 


n oo 


ft 

o 


005 


inae 
irfto 


n vu 


T P V CM C juK fit c I n 1 t % 


untie c:vn rriiif c vn ucrr *f<<- 

MUVc fcXP 5EN5E TO MESSAGE 


nn i A.r n 

UU J. *TU u 


91 04 


p 


0E8 








TM 

i n 


I O W , A U4 * 




0014C4 


47 80 


F 


4E4 








or 
DU 


MHKIP IDACC 
IMUf>Jt , 1 Y A 55 


do If C centre; n&*r a ncr veiiirrk 

BR» I r NO ScNSc DATA RcC IcVED 


nm Arn 
uu ituo 


OA DD 












SVC 


X 1 DD * 


CONVERT EXPECTED SENSE 


0014C A 


000 1 












r»r 
uv» 


A 1 Oil \ 
AL<£ I 1 1 




nni uvc 

UU X *TUU 


0822 














ALcl 1 1 A5N5TD"~5tv»riUI 




001 4TF 

UU A. *T U C. 


082 2 












Uu 


file* 1 c A5IM5T3— • 5CuNU# 




UU A tUU 


OA DO 












PUf" 

ovv. 


X ' DO * 


on V ait c vnrrircn r rue e 
PRINT cXPcCTcD SENSE 


0014D2 


AO 












Uu 


v i a n • 

A AU " 




00 14D3 


OB 












nr 

Uu 


X ' OB ' 




0014D4 


F81 D 












DC 


ai o 1 1 p v cm C— cpr Kin^opr i 

ALcl 1 C A5W5 5Cul>IUTKCl» 1 




on 1 4 DA 

UU k *T UU 


OA DD 












5 VI* 


y t nn t 

A " UU " 




nni 4nH 


000 1 












Ul# 


At O 1 1 1 
AL(d 1 1 J 




0014DA 


082 D 












nr 

Uu 


AI 9 f T Ar CM Ca K„CCf un 1 
ML<£ I 1 Au5rl5*D~5turtU J 




ooi 4 or 

UU X *T UU 


082 D 












Uu 


A! O 1 T Ar CM Ci-C-CCf Mn 1 
ALZ I 1 Au5Pi5+!>"~5l:urlUI 




0014DE 


OA DO 












SVC 


X * DO ' 


DD T MT Ar Tl 1 A t C PMC C n AT A 
rKl Ti 1 At 1 UAL 5CN5C UAI A 


0014E0 


AO 












DC 


X ' AO • 




0014E1 


OB 












DC 


X * OB ' 




00 14E2 


F82 8 












nr 

Uu 


Al_<£ l 1 Au5nl5~5CuniU*HCl» 1 




00 14E4 


95 30 


E 


'181 








ri i 

UU 1 


cvcMnni di 4% y t an t 


rucr if crso unn nn 
bncwn r UK nUU 3\) • 


00 14E8 


47 60 


F 


518 








nr 

Ou 


iiMPn irn 
UPic W , iuU 


nn tt AtnT 

BK» 1 r NU I 


0014EC 


D2 OB 


F 


7 AO 


E 


080 


ILUvcU 


n vu 


uno u i i o t i nrni itidiai 
WUKM xc.lt LubUU 1 \ K14 J 


MUVe LUI9 UU 1 lu WORK AREA 


0014F2 


OA DO 












O Vu 


v i nn t 

A uu 


uUlM VCR 1 


0014F4 


OOOC 












nr 

Uu 


A 1 Oli 91 




00 14F6 


07A0 












DC 


ai o f uriD tt ccr*Kin i 

ALtl WUKtV—btuNU l 




nn i apr 
UU 1 4 r o 


n"7 a n 

U f A U 












DC 


AL2 I WORK— 5ECNU } 




nni ap a 

UU If IH 


no n i 

Ut U 1 


F 


o 


p 


7 ah 

I AU 




MVC 


tni nnci ~$ \ unsv 
IULUb+D 1 cl t WUKK 


AAr%i#e ft t*%f+ r%i it urv ^ A#«f^ 

MOVE LOG OUT TO MESSAGE 


nni Rfin 

UU 1 0\J\i 


no c\f\ 


F 


aiD 
OOO 


p 
r 


7*o 
I A£ 




MVC 


1 ULUb+ol o 1 , WORK+Z 




nn i *%nA 

UU 1 DUO 


02 05 


r 


842 


r 


"7 A A 
f AA 




MVC 


10LUG+15I o ) , WuRK+10 




nn i cnr 

UU 1 3UU 


D2 05 


p 
r 


849 


r 






MVC 


10LOG+ZZ( 61, WORK-rlS 




00 1512 


OA DO 












SVC 


X ' DO * 


PRINT LOG OUT 


00 1514 


AO 












nr 


X * AO • 




001 5 15 


i r 
lu 












Uu 


X * 1C * 




001 516 


F833 












DC 


AL2 ( I OLOG-SECNO+REGi 




00 1 518 


91 02 


F 


0E8 






ICD 


TM 


I SW,X'02* 


SEE IF UI0* 


nn i «; i r 

UU 


ai on 
4 ( oU 


F 










BC 


MrtKic torn 
NUNC , IBCD 


BR IF NO 


nn i R?n 


94 FD 


F 


0E8 








N I 


I SW, X* FD' 


RESET UI0 SWITCH 


001524 


47 FO 


p 


1BE 








BC 


UiMu f 1 flM I 1 


utv* UriuUiVUl I 1UINAL 


001528 


91 80 


F 


0E8 






IBCD 


TM 


ISW,X«80» 


SEE IF HANG UP CONDITION. 


00152C 


47 10 


F 


53C 








BC 


ALL,I0P0UT 


BR IF YES. 


001530 


91 80 


B 


001 








TM 


1(R11),X«80« 


SEE IF DI AG CHK READ DONE. 


001534 


47 80 


F 


53C 








BC 


N0NE.I0P0UT 


BR. IF NOT UI0 


001538 


45 10 


F 


570 








BAL 


RltlCDT 


BR TO INDICATE ANY DATA ERRORS. 


00153C 


OA DO 










I0P0UT 


SVC 


X«D0« 


PRINT LOOP OPTIONS 


00153E 


CO 










IFLAG2 


DC 


X'C0« 




00153F 


36 












DC 


X»36» 




001540 


F858 












DC 


AL2U0PT1-SECN0+REG) 




001542 


OA DO 












SVC 


X»D0« 


SPACE A LINE 


001544 


AO 












DC 


X'AO' 




001545 


01 












DC 


X«01« 




001546 


F7DB 












DC 


AL2 ( ILINK-SECNO+REG) 




001548 


50 AD 


0 


048 








ST 


R10,HCAW(R13I 


STORE CAW 


00154C 


91 CO 


F 


004 








TM 


SNSW,X»C0« 


CHECK SECTION SENSE SWITCH 0 AND 


001550 


47 50 


F 


11A 








BC 


ANY, ITRY1 


BR. IF ANY ON 


001554 


91 80 


F 


0E8 








TM 


ISW»X«80« 




001558 


07 15 












BCR 


ALL tR5 


RETURN VIA REG 5 IF HANG UP 


00155A 


91 08 


B 


000 






ILEAVE 


TM 


0(R11I»X»08« 




00155E 


47 80 


F 


566 








BC 


NONE v I UP 


BR* IF NO CSW EXPECTED 



DATE 
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001562 


41 


BB 


0 


002 


001566 


41 


BB 


0 


006 


00156A 


98 


09 


F 


760 


00156E 


07 


FB 






001570 


41 


20 


0 


001 


001574 


41 


30 


F 


AAO 


001578 


D2 


00 


F 


AF2 


00157E 


41 


42 


F 


A4F 


001582 


41 


72 


F 


9FF 


001586 


D5 


00 


7 


000 


00158C 


47 


60 


F 


5B6 


001590 


91 


60 


F 


0E9 


001594 


47 


80 


F 


5A0 


001598 


91 


FF 


4 


000 


00159C 


47 


50 


F 


5B6 


0015A0 


41 


33 


0 


001 


0015A4 


41 


22 


0 


001 


0015A8 


55 


20 


F 


9F8 


0015AC 


47 


60 


F 


578 


0015B0 


96 


02 


F 


0E9 


0015B4 


07 


Fl 






0015B6 


91 


02 


F 


0E9 


0015BA 


47 


10 


F 


61E 


0015BE 


96 


01 


F 


0E8 


0015C2 


47 


FO 


F 


5 BO 


0015C6 


OA 


DO 






0015C8 


2410 






0015CA 


F92 6 






0015CC 


OA 


DA 






0015CE 


90 


00 


C 


000 


0015D2 


OA 


DO 






0015D4 


8001 






0015D6 


F926 






0015D8 


47 


FO 


F 


OFA 


0015DC 


58 


9E 


0 


198 


0015E0 


88 


90 


0 


002 


0015E4 


50 


8D 


0 


048 


0015E8 


9C 


00 


C 


000 


0015EC 


47 


70 


F 


60C 


0015F0 


90 


00 


C 


000 


0015F4 


47 


40 


F 


5FE 


0015F8 


46 


90 


F 


5F0 


0015FC 


07 


F7 






0015FE 


91 


04 


D 


044 


001602 


47 


80 


F 


5F8 


001606 


96 


80 


F 


0E9 


00160A 


07 


F7 






00160C 


91 


01 


F 


78C 


001610 


47 


10 


F 


5C6 


001614 


95 


40 


F 


820 


001618 


47 


80 


F 


5C6 


00161C 


07 


F7 






00161E 


91 


60 


F 


0E9 


001622 


47 


50 


F 


63C 


001626 


91 


80 


F 


AF3 


00162A 


47 


10 


F 


692 



IUP 



LA 
LA 
LM 
BCR 



UPDATE LINK ADDRESS FOR RETURN 



3 000 



F AF2 



R11,2(R11) 
R11,6(R11) 

R0,R9,ISAVE RESTORE WORKING REGS. 

UNCRll RETURN VIA REG 11 

* DATA COMPARE ROUTINE 

ICDT 

IT80 



ITCO 



LA 


R2,l 


PUT A 1 INTO REG 2. 


LA 


R3f EXPBUF 


PICK UP ADDR OF EXP DATA. 


MVC 


ICODATl 1) ,0(R3) 


SAVE THE BYTE FOR COMPARE. 


LA 


R4,CHKBUF-KR2) 


PICK UP ADDR OF CHK DATA BYTE. 


LA 


R7.BUFFER-KR2) 


PICK UP ADDR OF DATA BYTE. 


CLC 


0( 1,R7),IC0DAT 


SEE IF DATA BYTE AS EXPECTED. 


BC 


UNEQt I SIP 


BR IF NOT EQUAL. 


TM 


ISW+1 9 X V 60* 


SEE IF ANY CHK READS DONE. 


BC 


NONE t IRTU 


BR IF NO. 


TM 


0(R4) ,X»FF» 


SEE IF ANY CHK BITS ON. 


BC 


ANY, ISIP 


BR IF YES. 


LA 


R3,1(R3) 


ADD 1 TO EXP DATA BYTE. 


LA 


R2,1(R2> 


ADD 1 TO INDEX VALUE. 


CL 


R2 » ATE1 


SEE IF END OF COMPARE 


BC 


UNEQ,IT80 


BR IF NO. 


01 


ISW+1 V X«02 C 


TURN ON 1ST PASS SW. 


BCR 


UNCRl 


RETURN. 


TM 


ISW+1,X«02» 


SEE IF 1ST PASS SW ON. 


BC 


ALL , IGOP 


BR IF YES 


01 


ISW,X«01« 


INDICATE AN ERROR 


BC 


UNCISSW 


BR TO EXIT ROUTINE 



IRTU 



ISSW 



ISIP 



* INTERVENTION REQUIRED ROUTINE 

RRM 



SVC 


X'DO« 


PRINT -MAKE DEVICE 


DC 


X»2410» 




DC 


AL2 ( MDR-SECNO+REG) 




SVC 


X»DA« 


HALT 


TIO 


0(R12> 


TEST 1-0 


SVC 


X«DO» 


PRINT A BLANK. 


DC 


X'8001» 




DC 


AL2( MDR-SECNO+REG) 




BC 


UNCCONP 


BR TO CONTINUE. 



t***********^*******************^ 
* AUXILIARY START 1-0 ROUTINE 

jM^********************************^ 



ISTRT 


L 


R9,WT«R14) 


LOAD DM WAIT FACTOR. 




SRL 


R9,2 


CUT IT DOWN TO 2.5 SECS. 




ST 


R8,HCAW(R13) 


STORE IN CAW 




SIO 


0(R12) 


START 1-0 




BC 


NCCO«IBACK 




ITIOLP 


TIO 


0(R12) 


TEST 1-0 




BC 


CC1, ILOKE 


BR. IF CSW STORED 


ITIC 


BCT 


R9, ITIQLP 






BCR 


UNCR7 


RETURN. 


ILOKE 


TM 


HCSW+4(R13) ,X«04« 


CHECK FOR DEVICE END. 




BC 


NONE, ITIC 


BR IF NOT IN YET. 




01 


ISW+1,X«80» 


INDICATE THE DATA RECEIVED. 




BCR 


UNCR7 


RETURN. 


I BACK 


TM 


ICSW1+4,X»01» 


SEE IF UNIT EXCEPTION. 




BC 


ALL, RRM 


BR IF YES. 




CLI 


IACSNS+5,X»40« 


SEE IF INTERVENTION REQUIRED. 




BC 


EQ,RRM 


BR IF YES. 




BCR 


UNCR7 


RETURN. 



* DATA PRINTOUT ROUTINE 

IGOP TM ISW+1,X«60» SEE IF AT LEAST ONE CHK READ OK. 

BC ANY, COPT BR IF YES. 

TM CRSW,X«80* SEE IF MSG ALREADY PRINTED. 

BC ALLtNTC BR IF YES. 
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00162E 


OA 


DO 






SVC 


001630 


8026 






DC 


001632 


F936 






DC 


001634 


96 


80 F AF3 






01 


001638 


47 


FO F 692 






BC 


00163C 


02 


24 F 8F5 F 


8F4 


COPT 


MVC 


001642 


92 


FO F 90A 






MVI 


001646 


91 


10 4 000 






TM 


00164A 


47 


80 F 652 






BC 


00164E 


92 


Fl F 90A 






MVI 


001652 


92 


FO F 90D 




NXU 


MVI 


001656 


91 


08 4 000 






TM 


00165A 


47 


80 F 662 






BC 


00165E 


92 


Fl F 90D 






MVI 


001662 


92 


FO F 910 




NXL 


MVI 


001666 


91 


04 4 000 






TM 


00166A 


47 


80 F 672 






BC 


00166E 


92 


Fl F 910 






MVI 


001672 


92 


FO F 914 




NBP 


MVI 


001676 


91 


01 4 000 






TM 


00167A 


47 


80 F 682 






BC 


00167E 


92 


Fl F 914 






MVI 


001682 


92 


FO F 919 




NAC 


MVI 


001686 


91 


02 4 000 






TM 


00168A 


47 


80 F 692 






BC 


00168E 


92 


Fl F 919 






MVI 


001692 


91 


80 F AF1 




NTC 


TM 


001696 


47 


10 F 6BC 






BC 


00169A 


OA 


DO 






SVC 


00169C 


A009 






DC 


00169E 


F88E 






DC 


0016A0 


OA 


DO 






SVC 


0016A2 


A014 






DC 


0016A4 


F897 






DC 


0016A6 


OA 


DO 






SVC 


0016A8 


A001 






DC 


0016AA 


F8AB 






DC 


0016AC 


OA 


DO 






SVC 


0016AE 


A022 






DC 


0016B0 


F8AB 






DC 


0016B2 


OA 


DO 






SVC 


0016B4 


A027 






DC 


0016B6 


F8CD 






DC 


0016B8 


96 


80 F AF1 






01 


0016BC 


18 


42 




IPDA 


LR 


0016BE 


4E 


40 F 798 






CVD 


0016C2 


F3 


11 F 8F6 F 


79E 




UNPK 


0016C8 


96 


FO F 8F7 






01 


0016CC 


D2 


00 F 798 7 


000 




MVC 


0016D2 


OA 


DD 






SVC 


0016D4 


0001 






DC 


0016D6 


0798 






DC 


0016D8 


0906 






DC 


00160A 


OA 


DD 






SVC 


0016DC 


0001 






DC 


0016DE 


OAF 2 






DC 


0016E0 


0902 






DC 


0016E2 


90 


04 F C20 






STM 


0016E6 


IB 


11 






SR 


0016E8 


IB 


22 






SR 


0016EA 


IB 


33 






SR 


0016EC 


41 


40 0 002 






LA 


0016F0 


43 


30 F AF2 






IC 


0016F4 


18 


13 






LR 


0016F6 


ID 


24 






DR 


0016F8 


1A 


31 






AR 


0016FA 


43 


13 F C4C 






IC 


0016FE 


89 


10 0 008 






SLL 



X'DO* 
X«8026« 

AL2 ( TCRA-SECNO+REG) 

CRSW.X'SO* 

UNCNTC 

G00DY+K37) , GOODY 

G00DY+22,C , 0« 

0(R4) ,XUO« 

NONE , NXU 

G00DY+22,C , l t 

GOaDY+25,C•0• 

0(R4) ,X«08 t 

NONE, NXL 

G0ODY+25,C»l« 

GOODY+28,C , 0» 

0(R4) ,X«04» 

NONE, NBP 

GOODY^S^'l* 

G0ODY+32tC»0* 

0(R4) ,X«01» 

NONE, NAC 

G00DY+32 f C«l» 

G00DY+37,C , 0» 

0(R4) ,X'02» 

NONE , NTC 

G00DY+37 f C , l» 

HDSW,X»80" 

ALL, IPDA 

X«DO« 

X«A009 9 

AL2 ( HD1-SECN0+REG) 

X'DO 1 

X«A014 f 

AL2 (HD1A-SECN0+REG) 

X*DO» 

X , A001 t 

AL2( BIG-SECNO+REG) 

X'DO' 

X»A022« 

AL2 ( BIG-SECNO+REG ) 

X«DO« 

X , A027» 

AL2( BEAUTY- SECNO+REG) 

HDSW,X«80« 

R4,R2 

R4,DBWD 

GOODY+2(2) »DBWD+6<2) 

G00DY+3,X»F0» 

DBWD(1),0(R7) 

X'DD 1 

AL2I01) 

AL2CDBWD-SECN0I 

AL2(G00DY+18-SECN0) 

X'DD* 

AL2C01) 

AL2C ICODAT-SECNO) 

AL2(G000Y+14-SECN0) 

R0,R4, TWENTY 

R1,R1 

R2,R2 

R3,R3 

R4,2 

R3,IC0DAT 
R1,R3 
R2tR4 
R3 t Rl 

R1,H0LES(R3) 
Rlt8 



PRINT BOTH CHK READS FAILED. 



TURN ON SWITCH FOR MSG. 
GO TO MSG. 

BLANK DATA PRINT AREA. 

MOVE ZERO INTO PRINT AREA. 

SEE IF XU ON IN DI AG CHK READ BYTE. 

BR IF NOT ON. 

MOVE ONE INTO PRINT AREA. 

PUT ZERO INTO PRINT AREA. 

SEE IF XL ON IN DI AG CHK DATA. 

BR IF NOT ON. 

MOVE ONE INTO PRINTOUT 

MOVE ZERO INTO PRINTOUT. 

SEE IF BUFFER PARITY ON IN CHK DATA. 

BR IF NOT ON. 

MOVE A ONE INTO PRINTOUT. 

MOVE A ZERO INTO PRINTOUT. 

SEE IF ADDR CHK IN CHK DATA 

BR IF NOT. 

MOVE A ONE INTO THE PRINTOUT. 
MOVE A ZERO INTO PRINTOUT. 
SEE IF TRANSLATE CHK 
BR IF NO. 

MOVE A ONE INTO PRINTOUT. 
SEE IF HEADING PRINTED. 
BR IF YES. 
PRINT 1ST HDR. 



PRINT CARD LOCATION IN READER. 



PRINT A BLANK. 



PRINT HEADING 3. 



PRINT HEADING 4. 



TURN ON THE HEADING SW. 

PUT THE COLUMN NO. INTO REG 4. 

CONV IT TO DECIMAL. 

PUT IT INTO PRINT AREA. 

COVER SIGN UP FOR PRINTING. 

MOVE ACTUAL DATA TO CONVERT AREA. 

CONVERT FROM HEX TO BINARY. 

1 BYTE. 

FROM HERE. 

TO HERE 

CONVERT FROM HEX TO BINARY. 
1 BYTE. 
FROM HERE 
TO HERE 

SAVE REGISTERS 

ZERO REG 1 

ZERO REG 2. 

ZERO REG 3. 

LOAD DIVISOR 

PICK UP HEX CHARACTER 

SAVE HEX CHARACTER 

DIVIDE HEX CHARACTER BY 2 

ADD DIVIDEND TO CHARACTER 

PICK UP FIRST BYTE 

SHIFT 
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001702 


43 


13 


F 


C4D 




IC 


Rl ,HGLE$*1< R3J 


PIPK IIP <vFf niun RYTF 


001706 


41 


30 


0 


OFF 




LA 


R3t255 


i n»n mack 


00170A 


14 


23 








NR 


R2,R3 


A Kin UTTN RFMAT KJDFi) 


00170C 


47 


50 


F 


714 




BC 


ANY,*+8 


BR. IF THERE WAS A REMAINDER 


001710 


88 


10 


0 


004 




SRL 


Rl,4 


SHIFT OFF UNUSED 4 BITS 


001714 


50 


10 


F 


798 




ST 


R1,DBWD 


SAVE REG 1. 


001718 


41 


40 


0 


006 




LA 


R4»6 


SET UP FOR 6 POSSIBLE PUNCHES 


00171C 


41 


30 


0 


OOC 




LA 


R3,12 


SET UP TO CHECK 12 PUNCHES 


001720 


41 


00 


0 


001 




LA 


R0,1 


LOAD MASK 


001724 


43 


23 


F 


919 


PIK 


IC 


R2,PUNCHS-HR3> 


PICK UP PRINTABLE CHARACTER 


001728 


58 


10 


F 


798 




L 


R 1 »DB WD 


RESTORE REG 1. 


00172C 


14 


10 








NR 


R1,R0 


TEST FOR PUNCH 


00172E 


47 


80 


F 


73A 




BC 


NONE t NXT 


BR. IF NONE 


001732 


42 


24 


F 


8F9 




STC 


R2,G00DY+5«R4) 


STORE PRINTABLE CHARACTER 


001736 


46 


40 


F 


73A 




BCT 


R4,**4 


DECREMENT PRINT AREA INDEX 


00173A 


89 


00 


0 


001 


NKT 


SLL 


R0,1 


SHIFT MASK FOR NEXT BIT 


00173E 


46 


30 


F 


724 




BCT 


R3.PIK 


BR. UNTIL 12 CHECKED 


001742 


98 


04 


F 


C20 




LM 


R0,R4? TWENTY 


RESTORE REGISTERS 


001746 


OA 


DO 






PRGD 


SVC 


X»DO* 


PRINT THE DATA. 


001748 


8026 








DC 


X*S026* 




00174A 


F8F4 








DC 


AL2 {GOODY- SECNO^REG I 




00174C 


47 


FO 


F 


SAO 




BC 


UNCtlRTU 


RETURN TO COMPARE RTN. 



001750 
001758 
001760 
001764 
001768 
00176C 
001770 
001774 
001778 
00177C 
001 7 80 
001784 
001788 
001790 
001798 
00 17 AO 
001788 
0017C1 
0017C2 
0017CB 
0017CC 
001705 
0017DB 
001 7 DC 

001 7 DB 
0017E4 

0017EB 
0017EC 

0017EB 
0017F4 
0017F7 
0017FA 

0017FD 
001806 
00180D 
001816 
001817 
00181A 
00181D 
001826 
001828 



DATE 

EC 



04 00182D 0000 0001 

C6 001A50 2000 0050 

00000000 

00000000 

00000000 

00000000 

00000000 

00000000 

00000000 

00000000 

00000000 

00000000 

0000000000000000 
0000000000000000 
-foo .00000000000000 

40C3C34040E740C5E7 
07 

40C3C34040E740C1C3 
E3 

40C1C40940E7E7ETE7 

E7E740E2C9D6 

00 

00170B 

40C1C4D940E7E7E7E7 

E7E740D3C9D5D2 

00 

0017EB 

40C3C1E640E7E7E7E7 
E7t740 

C3E2E6 
C3C3E6 

40C3E2E640E7E7E7E7 
E7E7E7E740E7E? 
E7E7E7E7E7E740C5E7 
07 

C1C3E3 
C5E7D7 

40E2D5E240E7E740C5 
E707 

40E205E240E7E740C1 



15JUN67 ; 
130498 



* 1-0 HANDLER WORK AREA. 



I SENSE CCW 



DCRD 
ISAVE 



CCW 

DC 



X 9 O4%IACSNS4-5 f X*0O%l 

X e C6*»CHKBUFfX*20%80 

iOF 8 0« 



ICSW1 

ICSW2 
DBWD 

WORK 



DC 
DC 
DC 

DS 



IEXPCC DC 
IACTCC DC 



IOADDR DC 



DC 

CNOP 



XL8*0* 

XL8»0* 

D*0* 

24C 

C 9 CC X EXP* 

C* CC X ACT 8 

C* ADR XXXXXX SIO» 

X'QO* 
0,4 
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001831 


C3E3 










001833 


40D3D6C740E7E740E7 


IOLOG 


DC 


C 


LOG XX XXXXXX X* 


00183C 


E7E7E7E7E740E7 










001843 


E7E7E7E7E740E7E7E7 




DC 


c 


XXXXX XXXXXX • 


00184C 


E7E7E7 










00184F 


40E3E2E340E7E7E7E7 


ITSTNO 


DC 


c 


TST XXXX 1 


001858 


40E2C5E340E2E240FO 


I0PT1 


DC 


c 


SET SS 0 ON FOR* 


001861 


40D6D540C6D6D9 










001868 


4003D6D6D740D6D540 




DC 


c 


LOOP ON SIO, SS 9 


001871 


E2C9D66B40E2E2 










001878 


40F 140D6D540C6D6D9 




DC 


c 


' 1 ON FOR TIO SI • 


001881 


40E3C9D640E2C9 










001888 


D640D3D6D6D7 




DC 


c 


0 LOOP' 


00188E 


4009C5C1C440C5D9D9 


HD1 


DC 


c 


READ ERR* 


001897 


40C3C1D9C440C9D540 


HD1A 


DC 


c 


1 CARD IN • 


00 18 AO 


D7D9C5E2E3D2D940E2 




DC 


c 


PRESTKR STA • 


0018A9 


E3C 1 










0018 AB 


4040404040C5E7D7C5 


BIG 


DC 


c 


EXPECTED SH* 


0018B4 


C3E3C5C440E2C8 










0018BB 


C44040404040404040 




DC 


c 


D B* 


0018C4 


404040404040C2 










0018CB 


E4C6 




DC 


c 


UF* 


0018CD 


40C3D6D340D7E4D5C3 


BEAUTY 


DC 


c 


• COL PUNCHES RD* 


0018D6 


C8C5E24040D9C4 










0018DD 


4040D9C440E7E440E7 




DC 


c 


1 RD XU XL PAR A* 


0018E6 


D340D7C 1D940C1 










00 18 ED 


C4D940E3D9C1D5 




DC 


c 


DR TRAN* 


0018F4 


404 040404040404040 


GOODY 


DC 


c 




0018FD 


40404040404040 










r\r\ i o n a 


ADA A/.AA A/.AJL A/. AAAAA 

404040404040404040 




DC 


c 


« 


00190D 


40404040404040 










001914 


404040404040 




DC 


c 


« 


00191A 


E3C5F0F1F2F3F4F5F6 


PUNCHS 


DC 


c 


•TE0123456789* 


001923 


F7F8F9 










001926 


40D4C1D2C540C4C5E5 


MDR 


DC 


c 


» MAKE DEVICE RDY* 


00192F 


C9C3C540D9C4E8 










001936 


40F240C4C9C1C740C3 


TCRA 


DC 


c 


» 2 DIAG CHK RDS • 


00193F 


C8D240D9C4E240 










001946 


C1E3E3C5D4D7E3C5C4 




DC 


c 


ATTEMPTED -BOTH • 


00194F 


4060C2D6E3C840 










001956 


C6C1C9D3C5C4 




DC 


c 


'FAILED* 


00195C 


001178 


IOADR 


DC 


AL3( ISSUE) 


00195F 


FE 


MSK1 


DC 


X 


•FE * 


001960 


01 


MSK2 


DC 


X 


'01* 


001961 


00 


RTSV 


DC 


X 


'00* 


001962 


40E4C9D640C6D9D6D4 . 


IUNEX 


DC 


C 


» UIO FROM DEVICE" 


00196B 


40C4C5E5C9C3C5 










001972 


40E7E7E7E7 




DC 


c 


» XXXX* 





ORG 














IL INK 


DC 


C* ADR XXXXXX LINK* 


















001978 


IB 


DD 








DC 


X*00* 


00197A 


91 


40 


E 


196 




CNOP 


0,4 


00197E 


47 


80 


F 


984 




ORG 


*-l 


001982 


18 


OF 






ICAW t 


DC 


C* CAW XXXXXX * 


001984 


58 


CO 


F 


OEO 








001988 


54 


CO 


F 


9FC 


ICSW 


DC 


C'CSW* 


00198C 


50 


CO 


F 


9F0 


ICCW 


DC 


C*CCH* 


001990 


58 


CO 


F 


0E4 


IBLAH 


DC 


C* CSW XXXXXXXX XX* 


001994 


54 


CO 


F 


9FC 








001998 


50 


CO 


F 


9EC 




DC 


C'XXXXXX EXP* 


00199C 


92 


00 


F 


AFO 








0019A0 


IB 


66 






IACT 


DC 


C 8 ACT* . 


0019A2 


43 


6E 


0 


1B9 


IEXP 


DC 


C*EXP* 


0019A6 


4A 


6E 


0 


1BC 


IEXSNS 


DC 


C* SNS XX EXP* 


0019AA 


1A 


6E 












0019AC-..* 


06 


60 






IACSNS 


DC 


C» SNS XX ACT* 


0019AE 


06 


60 







SAVE RT NO. FOR HANGUP. 



* INITIALIZE ROUTINE 

INIT 



NITWIT 



SR 


R13,R13 


ZERO REG 13 


TM 


406(R14) ,X*40* 


CHECK FOR FORCED PROBLEM STATE 


BC 


NONE, NITWIT 


BR. IF NOT 


LR 


R13,R15 


SET UP FOR PROBLEM STATE 


L 


R12,UNIT1 


LOAD REG 12 WITH UNIT TABLE ENTRY 


N 


R12,M0D50 


SAVE ONLY THE PUNCH ADDR. 


ST 


R12,PCH 


SAVE IT 


L 


R12,UNIT2 


PICK UP THE READER UNIT TABLE. 


N 


R12,M0D50 


SAVE ONLY THE READER ADDR. 


ST 


R12,RDR 


SAVE IT 


MVI 


LDSW,X*00» 


ZERO LOADER INDICATOR. 


SR 


R6,R6 


ZERO REG 6. 


IC 


R6,DMI0L(R14» 


PUT LENGTH OF DMIO TABLE INTO 6. 


AH 


R6,DMPTR(R14) 


ADD OFFSET ADDRESS TO LENGTH. 


AR 


R6 9 R14 


ADD BASE REG VALUE. 


BCTR 


R6,0 


SUBTRACT 2 TO GET 


BCTR 


R6 t 0 


TO LOADER ADDR* 
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0019B0 


49 


C6 


0 


000 






CH 


R12,0(R6) 


SEE IF TEST DEVICE IS LOADER. 


0019B4 


47 


60 


F 


9BC 






BC 


UNEQf BLOOP 


BR IF NOT. 


0019B8 


96 


80 


F 


AFO 






01 


LDSW,X»80» 


TURN ON LOADER SW. 


0019BC 


91 


80 


F 


0E8 




BLOOP 


TM 


ISWtX'SO' 


CHECK FOR HANG UP 


0019C0 


47 


10 


F 


9 DO 






BC 


ALL, HANGUP 


BR. IF DETECTED 


0019C4 


92 


40 


F 


AOO 






MVI 


BUFFER ,C ■ • 


CLEAR DATA AREA. 


0019C8 


D2 


9E 


F 


A01 F 


AOO 




MVC 


BUFFER+1(159),BUFFER 


CLEAR DATA AREA. 


0019CE 


07 


F4 










BCR 


UNC,R4 


RETURN VIA REG 4 


0019D0 


D2 


00 


F 


003 F 


961 


HANGUP 


MVC 


SECN0+3(1),RTSV 


RESTORE RT NO. 


0019D6 


OA 


DO 










SVC 


X»DO« 


PRINT 


0019D8 


64 












DC 


X»64» 


-PREVIOUS HANGUP DETECTED- 


0019D9 


1A 












DC 


X»1A» 




0019DA 


FAF6 










DC 


AL 2 ( HUNG- SECNO+REG ) 




0019DC 


96 


01 


F 


0E8 






01 


ISW.X'Ol* 


TURN ON ERROR SWITCH. 


0019E0 


45 


50 


F 


27A 






BAL 


R5, IDOSNS 


BR. TO OUTPUT AVAILABLE INFO 


0019E4 


92 


00 


F 


0E8 






MVI 


ISW,X , OO t 


RESET HANGUP SWITCH 


0019E8 


47 


FO 


F 


9BC 






BC 


UNC, BLOOP 




0019EC 














CNOP 


0*4 





* AUXILIARY WORK AREA. 

****************************^ 



0019EC 


00000000 


RDR 


DC 


F»0« 


0019F0 


00000000 


PCH 


DC 


F»0« 


0019F4 


00000018 


TW7 


DC 


F«27« 


0019F8 


00000051 


ATE 1 


DC 


F«81« 


0019FC 


00003FFF 


M0D50 


DC 


X«00003FFF* 


001A00 




BUFFER 


DS 


80C 


001A50 




CHKBUF 


DS 


80C 


001AA0 




EXPBUF 


DS 


80C 


001AF0 


00 


LDSW 


DC 


X»00« 


001AF1 


00 


HDSW 


DC 


X'OO* 


001AF2 


00 


ICODAT 


DC 


X»00» 


001AF3 


00 


CRSW 


DC 


X'OO* 


001AF4 


00 


SFLE 


DC 


X«00« 


001AF5 


00 


GENDAT 


DC 


X«00« 


001AF6 


40D7D9C5E5C9D6E4E2 


HUNG 


DC 


C« PREVIOUS HANG 


001AFF 


40C8C1D5C740E4 








001B06 


D740C4C5E3C5C3E3C5 




DC 


CP DETECTED* 


001B0F 


C4 








001B10 






CNOP 


0,4 



* ROUTINE 02 - READ 39 CARDS PUNCHED FROM SECTION F822 ROUTINE 01. 



001B10 


02 






R0UT02 DC 


X»02* 


ROUTINE NUMBER 


001811 


uui-t-i-i- 




DC 


X«OOFFFF» 


LAST ROUTINE 


001B14 


*0 4U 


h 


978 


BAL 


R4,INIT 
SNSW+1,X«40» 


BR TO INITIALIZE 


001B18 


91 40 


F 


005 


TM 


TEST SSW 9. 


001B1C 


47 10 


F 


B3C 


BC 


ALL, EXEC 


BR IF ON. 


001B20 


OA DO 






SVC 


X»DO« 


PRINT -IF DESIRED TO VERIFY THE CDS 


001B22 


2431 






DC 


X«2431« 


IN POCKET 1 OF PUNCH, SET SSW 9 ON. 


001B24 


FF4F 






DC 


AL2( I DTR-SECNO+REG) 




001B26 


OA DA 






SVC 


X'DA* 


-HALT- 


001B28 


9D 00 


C 


000 


TIO 


0(R12) 


TEST 1-0 


001B2C 


OA DO 






SVC 


X«DO« 


PRINT A BLANK. 


001B2E 


8001 






DC 


X»8001« 




001B30 


FF<»F 






DC 


AL 2 ( I DTR-SECNO+REG ) 




001B32 


91 40 


F 


005 


TM 


SNSW+1,X»40» 


TEST SSW 9. 


001B36 


47 10 


F 


B3C 


BC 


ALL, EXEC 


BR IF ON. 


001B3A 


OA D6 






SVC 


X'D6» 


ROUTINE EXIT. 


001B3C 


58 CO 


F 


9EC 


EXEC L 


R12,RDR 


PUT READER ADDR. INTO REG 12. 


001B40 


91 80 


F 


AFO 


TM 


LDSW.X'eO* 


SEE IF ON LOADER DEVICE 


001B44 


47 80 


F 


C06 


BC 


NONE,ERM 


BR IF NO. 


001B48 


OA DO 






SVC 


X«DO« 


PRINT -REMOVE CDS FROM STACKER- 


001B4A 


2422 






DC 


X«2422« 




001 B4C 


FDE4 






DC 


AL 2 (RTD1- SECNO+REG) 




001 B4E 


OA DO 






SVC 


X«DO« 


PRINT -REMOVE REMAINING TEST DECKS- 


001B50 


A03C 






DC 


X»A03C« 




001852 


FE06 






DC 


AL2UTD2- SECNO+REG) 
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001B54 


OA DO 












SVC 


X • DO • 


PRINT -DO N0PR0- 


Of) 1 RSA 

\J\J X O J o 


A040 












DC 


VIA t\t f\ ■ 

A ■ A040 ' 




x o jo 


PPA. o 












DC 


AL2 ( RTD3— SECNO+REG 1 






OA DO 












SVC 


X • DO • 


PRINT -SAVE TEST DECKS- 




A04- 5 












DC 


X'A045" 




00 1 B5E 


ceo •> 












DC 


AL2 (RTD4- SECNO+REG) 




nn i rah 
UUx DOU 


OA DO 










RAP 


SVC 


X^O* 


PRINT -TAKE CDS FROM PCH AND PUT 


nn l oao 

UU X DOC. 


A04 A 












DC 


X 1 A04A • 


THEM INTO RDR- 


nn l q a a 

UU X DO«f 


FEC 7 












DC 


AL 2 (RTD5- SECNO+REG) 




00 1 B66 


OA DA 












SVC 


X f DA • 


-HALT- 


nn Iraq 
UU l boo 


9D 00 


C 


000 








T 10 


0(R12) 


TEST 1-0 


001 B6C 


OA DO 












SVC 


X'DO* 


PRINT A BLANK 


00 1 B6E 


800 1 












DC 


X 1 8001 • 




nn i n ~t n 
UU ioiU 


FEC 7 












DC 


AL2 (RTD5- SECNO+REG) 




001 B72 


D2 OB 


F 


C40 


F 


C34 




MVC 


PARAM ( 12) ,R0W 


INITIALIZE PARAMETERS. 


001 B78 


92 00 


F 


AF5 








MVI 


GENDAT, X*00* 


ZERO 1ST EXP EBCDIC CHARACTER. 


001 B7C 


41 60 


0 


027 








LA 


R6,39 


PUT 39 INTO REG 6. 


r\f\ inan 
UUlboO 


41 80 


F 


AAO 






TEST 


LA 


R8, EXPBUF 


PUT ADDR OF EXP DATA BUFFER INTO 8. 


UU1 Bo4 


55 60 


F 


9F4 








CL 


R6, TW7 


SEE IF REG 6 IS 27. 


001 B88 


47 20 


F 


BEA 








BC 


HI , LA 52 


BR IF HIGHER. 


UUI DOU 


43 70 


F 


AF5 








IC 


R7, GENDAT 


PICK UP THE 1ST EBCDIC CHARACTER. 


nn i Don 
UU1 DVU 


41 50 


0 


050 








LA 


R5, 80 


PUT 80 INTO REG 5. 


nn i dqa 
UU 1 dvh 


42 78 


0 


000 






PIB 


STC 


R7,0(R8) 


STORE EBCDIC CHAR IN BUFFER. 


UU 1 B9o 


41 77 


0 


001 








LA 


R7, 1(R7) 


ADD 1 TO REG 7. 


nn i nor* 
UU 1 D7L 


41 88 


0 


001 








LA 


R8» 1 ( R8) 


ADD 1 TO REG 8. 


nn i & An 

UU 1 D AU 


46 50 


F 


B94 








BCT 


R5,PIB 


BR UNTIL EXP DATA GENERATED. 


nn i xx a a. ■ 

UU X D A«f- 


D2 00 


F 


AF5 


F 


AA7 




MVC 


GENDAT( 1 ) , EXPBUF+7 


SAVE NEXT 1ST EBCDIC CHAR. 


00 1 BAA 


41 AO 


F 


CIO 






RSIO 


LA 


R10,RDNF 


PUT CMD ADDR INTO REG 10. 


001 BAE 


45 BO 


F 


OEA 








BAL 


Rll , I SIO 


BR TO I SSUE START 1-0. 


nn l nni 
UU x DOc. 


2880 












DC 


X • 2880' 


CTRL SWITCHES 


uul dd4 


002 0 












DC 


X'0020 > 


TEST NUMBER 


nni nn a 

UUI DDO 


F000 










ESNS 


DC 


X'FOOO' 


EXP COND. CODE AND SENSE. - 


nn 1 noa 

UUI DDO 


FDCC 












DC 


AL2( EXP1-SECN0+REG) 


EXP CSW ADDRESS. 


nni rra 

UU JL DO A 


4 1 AO 


F 


nil 






DOF 


LA 


R10,FSS1 


PUT FEED STK SEL Rl CCW ADDR. IN 10. 


nn i Doc 
UU loot: 


45 BO 


F 


OEA 








BAL 


Rll , I SIO 


BR TO I SSUE START 1-0. 


nn t u.c "3 

UU 1 OKfC. 


2E00 












DC 


X* 2E00 9 


CTRL SWITCHES 


nn i nrt 

UU I DUf 


003 0 












DC 


X • 0030* 


TEST NUMBER 


00 1 BC6 


F100 












DC 


X'FIOQ* 


EXP COND. CODE AND SENSE. 


nn i oro 
UUx oLo 


FD04 












DC 


AL2 < EXP2-SECN0+REG ) 


EXP CSW ADDRESS. 


001BCA 


46 60 


F 


B80 








BCT 


OA. TP CT 


DO Tfl TCCT CUCDV 1* A ft ft 

UK 1 U i co 1 tVcKT VrAKU. 


001BCE 


91 80 


F 


AFO 








TM 


LDSW,X»80» 


SEE IF ON LOADER. 


001BD2 


47 80 


F 


BE8 








BC 


NONE, EXIT 


BR IF NOT. 


001BD6 


OA DO 












SVC 


X*D0« 


PRINT -PUT TEST DECKS BACK. 


001BD8 


243 E 












DC 


X»243E« 




001BDA 


FF11 












DC 


AL2 ( PTDB-SECNO+REG) 




001BDC 


OA DA 












SVC 


X»DA» 


-HALT- 


001BDE 


9D 00 


C 


000 








TIO 


0(R12) 




001BE2 


OA DO 












SVC 


X»DO» 


PRINT A BLANK 


001BE4 


8001 












DC 


X»8001« 




001BE6 


FF11 












DC 


AL2 ( PTDB-SECNO+REG) 




001BE8 


OA D6 










EXIT 


SVC 


X»D6« 


EXIT 


001BEA 


D2 00 


8 


000 


F 


C40 


LA52 


MVC 


0( 1 ,R8) , PARAM 


MOVE CHAR TO EXP DATA. 


001BF0 


D2 4E 


8 


001 


8 


000 




MVC 


1(79, R8) ,0(R8) 


FILL EXP BUFFER WITH SAME CHAR. 


001BF6 


D2 OA 


F 


C40 


F 


C41 




MVC 


PARAM(ll) ,PARAM+1 


SHIFT PARAMETERS OVER. 


001BFC 


02 00 


F 


C4B 


8 


000 




MVC 


PARAM+1K 1) , 0(R8) 


RESTORE 1ST PARAMETER TO LAST POS. 


001C02 


47 FO 


F 


BAA 








BC 


UNC, RSIO 


BR TO ISSUE SIO. 


001C06 


OA DO 










ERM 


SVC 


X'DO' 


PRINT REMOVE CDS FROM RDR. 


001C08 


241 C 












DC 


X»241C t 




00 ICO A 


FF80 












DC 


AL2 (RTC-SECNO+REG) 




001C0C 


47 FO 


F 


B60 








BC 


UNC, RAP 


BR TO NXT MSG. 



001C10 
001C18 
001C20 
001C34 
001C30 



C2 001 AOO 2000 0050 
23 001 AOO 2000 0001 

5060F0F1F2F3F4F5F6 
F7F8F9 



* CCW AREA 

********************************^*^ 

RDNF CCW X«C2SBUFFER,X«20«,80 RD NO FEED CCW* 
FSS1 CCW X*23», BUFFER, X»20S1 
TWENTY DS 20C 

ROW DC X«5060F0F 1F2F3F4F5F6F7F8F9 ' 
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2540 


PUNCH OVERLAY SECTION 








2540 


PUNCH OVERLAY SECTION 








001C40 


5060F0F1F2F3F4F5F6 


PARAM 


DC 


X • 5060F0F 1F2F3F4F5F6F7F8F9 • 


001DFD 


D6C640D9C5C1C4 








001C49 


F7F8F9 








001E04 


C5D9 




DC 


C*ER* 






* 




*************** 


001E06 


40D9C5D4D6E5C540E3 


RTD2 


DC 


C • REMOVE THE REMA' 










* HOLES TA8LE * 


001E0F 


C8C540D9C5D4C1 












* 




*************** 


001E16 


C9D5C9D5C740E3C5E2 




DC 


C ' INING TEST DECKS* 


001C4C 


B039018818418218 


HOLES 


DC 


X*B0390188 1841 8218* 


001E1F 


E340C4C5C3D2E2 








001C54 


1180980580390388 




DC 


X' 1180980580390388' 


001E26 


6BC9C640C1D5E86B40 




DC 


C'tIF ANY* FROM TH* 


001C5C 


384382381380B807 




DC 


X* 384382 381 380B807* 


001E2F 


C6D9D6D440E3C8 








001C64 


D035014814414214 




DC 


X«D0350 148 1441 4214* 


001E36 


C540D9C5C1C4C5D940 




DC 


C*E READER HPR* 


001C6C 


1140940540350348 




DC 


X* 1 140940540350348 • 


001E3F 


C8D7D9 








001C74 


344342341340B407 




DC 


X« 344342341340B407 • 


001E42 


40C4D640D5D6D7D9D6 


RTD3 


DC 


C* DO NOPRO AND PL* 


001C7C 


7033012812412212 




DC 


X* 70330128 1241 221 2 * 


001E4B 


40C1D5C440D7D3 








001C84 


1120920520330328 




DC 


X* 1120920520330328* 


001E52 


C1C3C540C3C4E240D9 




DC 


C'ACE CDS RUN OUT • 


001C8C 


324322321320B207 




DC 


X 9 324322321 320B207* 


001E5B 


E4D540D6E4E340 








001C94 


F031010810410210 




DC 


X*F031010810410210* 


001E62 


C9D540C6D9D6D5E340 




DC 


C*IN FRONT OF REMA* 


001C9C 


1100900500310308 




DC 


X 9 1100900500310308 • 


001E6B 


D6C640D9C5D4C1 








001CA4 


304302301300B007 




DC 


X* 304302301 300B007* 


001E72 


C9D5C9D5C740E3C5E2 




DC 


C*INING TEST DECKS* 


001CAC 


OO0BO1A81A41A21A 




DC 


X* 000B01A81A41A21A* 


001E7B 


E340C4C5C3D2E2 








001CB4 


11A09A05A0390288 




DC 


X» 11A09A05A0390288 • 


001E82 


40E2C1E5C540D9C5D4 


RTD4 


DC 


C a SAVE REMAINING ' 


001C6C 


284282281280A806 




DC 


X 1 2842822 81 280A806 » 


001E8B 


C1C9D5C9D5C740 








001CC4 


800D01C81C41C21C 




DC 


X*800D01C81C41C21C * 


001E92 


E3C5E2E340C4C5C3D2 




DC 


C * TEST DECKS UNTIL* 


001CCC 


11C09C05C0350248 




DC 


X* 11C09C05C 0350248* 


001E9B 


E240E4D5E3C9D3 








001CD4 


244242241240A406 




DC 


X* 24424224 1240A406* 


001EA2 


40C 140D4E2C740D9C5 




DC 


C* A MSG REQUESTS • 


OOICDC 


400 3006816416216 




DC 


X' 400300681641621 6* 


001EAB 


D8E4C5E2E3E240 








001CE4 


11609605603302C0 




DC 


X* 11609605603302C0* 


001EB2 


E3C8C5D440E3D640C2 




DC 


C* THEM TO BE PUT I* 


001CEC 


024222221220A206 




DC 


X* 02422222 1220 A206 1 


001EBB 


C540D7E4E340C9 








001CF4 


E00F01E81E41E21E 




DC 


X'E00F01E81E41E21E • 


001EC2 


D540C8D7D9 




DC 


C*N HPR* 


001CFC 


11E09E05E0310208 




DC 


X* 11E09E05E0310208 ' 


001EC7 


40D9C5D4D6E5C540C3 


RTD5 


DC 


C* REMOVE CDS FROM* 


001004 


204 20 2201 200 A006 




DC 


X* 20420220 1200A006 ' 


001 EDO 


C4E240C6D9D6D4 








001D0C 


B02B00A80A40A20A 




DC 


X 1 B02B00A80A40A20A • 


001ED7 


40D7F140D6C640D7C3 




DC 


C* PI OF PCH AND P* 


001D14 


10A08A04A02A01A8 




DC 


X* 10A08A04A02A01A8 * 


001EE0 


C840C1D5C440D7 








001D1C 


2A42A22A12A0AA06 




DC 


X*2A42A22A12A0AA06» 


001EE7 


E4E340C9D540D9C4D9 




DC 


CUT IN RDR HPR OF • 


001D24 


D02D00C80C40C20C 




DC 


X , D02D00C80C40C20C 1 


001EF0 


40C8D7D940D6C6 








001D2C 


10C08C04C02C01C8 




DC 


X* 10CO8C04C02C01C8 • 


001EF7 


40E2C1D4C540F2F5F4 




DC 


C* SAME 2540 » MAKE * 


001D34 


2C42C22C12C0AC06 




DC 


X* 2C42C22C12C0AC06 * 


001F00 


F06BD4C1D2C540 








001D3C 


7027006806406206 




DC 


X • 7027006806406206* 


001F07 


D9C4E86BC5D6C640D6 




DC 


C 'RDYtEOF ON* 


001 044 


1060860460260168 




DC 


X* 1060860460260168 • 


001F10 


D5 








001D4C 


264262261260A606 




DC 


X»264262261260A606* 


001F11 


40D7E4E340D9C5D4C1 


PTDB 


DC 


C* PUT REMAINING T* 


001D54 


F02F00E80E40E20E 




DC 


X»F02F00E80E40E20E* 


001F1A 


C905C9D5C740E3 








001D5C 


10E08E04E02E01E8 




DC 


X*10E08E04E02E01E8* 


001F21 


C5E2E340C4C5C3D2E2 




DC 


C*EST DECKS INTO R* 


001D64 


2E42E22E12E0AE06 




DC 


X*2E42E22E12E0AE06* 


001F2A 


40C9D5E3D640D9 








001D6C 


A009008808408208 




DC 


X*A009008808408208* 


001F31 


C4D940C8D7D940C1D5 




DC 


C*DR HPR AND MAKE • 


001D74 


10808804802801A8 




DC 


X* 10808804802801A8* 


001F3A 


C440D4C1D2C540 








001D7C 


3A43A23A13A0BA07 




DC 


X*3A43A23A13A0BA07* 


001F41 


D9C4D940D9C4E86BC5 




DC 


C*RDR ROY t EOF ON* 


00 1084 


600 5004804404204 




DC 


X* 6005004804404204* 


001F4A 


D6C640D6D5 








001D8C 


10408404402401C8 




DC 


X* 10408404402401C8* 


001F4F 


40C9C640C4C5E2C9D9 


IDTR 


DC 


C» IF DESIRED TO V 


001D94 


3C43C23C13C0BC07 




DC 


X*3C43C23C13C0BC07* 


001F58 


C5C440E3D640E5 








001D9C 


2827012802402202 




DC 


X*2827012802402202* 


001F5F 


C5D9C9C6E840E3C8C5 




DC 


C*ERIFY THE CDS IN* 


0010A4 


1020820420220168 




DC 


X* 1020820420220168* 


001F68 


40C3C4E240C9D5 








001DAC 


364362361360B60? 




DC 


X*364362361360B607* 


001F6F 


40D7F16B40E2C5E340 




DC 


C* Pl» SET SSW 9 0* 


001DB4 


200 1000800400200 




DC 


X* 2001000800400200* 


001F78 


E2E2E640F940D6 








001DBC 


10008004002001E8 




DC 


X*10008004002001E8* 


001F7F 


D5 




DC 


C*N* 


001DC4 


3E43E23E13E0BE07 




DC 


X*3E43E23E13E08E07* 


001F80 


40D9C5D4D6E5C540C1 


RTC 


DC 


C* REMOVE ALL CDS • 






*********************************************************************** 


001F89 


D3D340C3C4E240 












* 


EXP 


CSW AREA 


001F90 


C6D9D6D440E3C8C540 




DC 


C'FROM THE RDR* 






*********************************************************************** 


001F99 


D9C4D9 








001DCC 


00001C18 


EXP1 


DC 


A (RDNF+8) 






************************************************************* ********** 


00 1 DDO 






DC 


X'OCOOOOOO* 






* 


EQUATES 


001004 


00000000 


EXP2 


DC 


XL4*00* 






*********************************************************************** 


001DD8 


08000000 




DC 


X*08000000* 




000000 


NEVER 


EQU 


0 


001 DOC 


00000000 




DC 


XL4*0* 




000007 


NCCO 


EQU 


7 


001DE0 


04000000 




DC 


X*04000000 t 




OOOOOF 


UNC 


EQU 


15 






***************************************************************^ 




000008 


NONE 


EQU 


8 






* 


MESSAGES 




000004 


SOME 


EQU 


4 






*$********************************************************************* 




000001 


ALL 


EQU 


1 


0010E4 


40D9C5D4D6E5C540C3 


RTDl 


DC 


C* REMOVE CDS FROM' 




000005 


ANY 


EQU 


5 


0010ED 


C4E240C6D9D6D4 










000008 


ceo 


EQU 


8 


001DF4 


40E2E3C1C3D2C5D940 




DC 


C» STACKER OF READ 4 




000004 


CC1 


EQU 


4 


DATE 


15JUN67 






ID F822-0 


! DATE 


15JUN67 






ID F822- 


EC 


130498 






PAGE 20 


i EC 


130498 






PAQJE 20 



oooooooooooooo o o o o o o ooooooooooooo o 
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UUUUUi 




EQU 


2 




f r -x 


£QU 


1 


nnnnnA 

UUUUU A 


CC02 


EQU 


10 


uuuuuo 


CC 1 2 


twu 


£ 


\J\J l/UUO 


FG 


twu 


Q 
O 


000004 


LO 


POI 1 

cyu 


*f 




n 1 


POI i 

tuu 


2 


uuuuuo 


i iKicn 
untw 


POI 1 

twu 


6 


noonor 


poi n 


POI 1 


i o 

i £ 




cnut 
cw n i 


POI 1 

twu 


1 o 
I u 


ooooro 

UUUUO KJ 




POI 1 

tuu 


y | ant 

A'BU 


onni ft 1 




POI 1 

tuu 


V | 1 Ql f 


OOFOOO 

KJKJ IXJKJVJ 


REG 


POI 1 

twu 


A r UUU " 


oooo*5A 


WHAT 


POI 1 

twu 


an 


nooonn 
uuuuuu 


d n 

KU 


POI 1 
CWU 


0 


UUUUU X 


a i 

K 1 


POI 1 


1 


ooooo? 


R2 


POM 

c wu 


c. 


000003 


R3 


EQU 


3 


000004 


R4 


EQU 


4 


000005 


R5 


EQU 


5 


000006 


R6 


EQU 


6 


000007 


R7 


EQU 


7 


000008 


R8 


EQU 


8 


000009 


R9 


EQU 


9 


00000A 


RIO 


EQU 


10 


00000B 


Rll 


EQU 


11 


OOOOOC 


R12 


EQU 


12 


00000D 


R13 


EQU 


13 


00000E 


R14 


EQU 


14 


00000F 


R15 


EQU 


15 


000198 


WT 


EQU 


408 


000040 


HCSW 


EQU 


64 


000048 


HCAW 


EQU 


72 


0001A0 


DMSSW 


EQU 


X«01A0« 


0001B9 


DMIOL 


EQU 


X , 01B9» 


00018C 


DMPTR 


EQU 


X^OIBC* 






END 


R0UT02 



POST ASSEMBLY DATA. 



REFERENCES TO DEFINED SYMBOLS. 



1 


8 


EQ 


1298 f 


1356, 


1382, 


1618 








1 


2 


HI 


1B88 














1 


4 


LO 
















1 


0 


RO 


10F0, 


156A, 


16E2, 


1720, 


172C , 


173A, 


1742 


1 


1 


Rl 


12E0, 


1538, 


15B4, 


16E6, 


16E6, 


16F4, 


16F8 








16FA, 


16FE, 


1702, 


1710, 


1714, 


1728, 


172C 


1 


2 


R2 


1570, 


157E, 


1582, 


15A4, 


15A4, 


15A8, 


16BC 








16E8 f 


16E8, 


16F6, 


170A, 


1724, 


1732 




1 


3 


R3 


1574 f 


1578, 


15A0, 


15A0, 


16EA, 


16EA, 


16F0 








16F4 f 


16F8, 


16FA, 


1702, 


1706, 


170A, 


171C 








1724 f 


173E 












1 


4 


R4 


157Et 


1598, 


1646, 


1656, 


1666, 


1676* 


1686 








16BC, 


16BE, 


16E2, 


16EC, 


16F6, 


1718* 


1732 








1736 f 


1742, 


19CE, 


1B14 








1 


5 


R5 


1558f 


19E0, 


1B90, 


1BA0 








1 


6 


R6 


19A0 9 


19A0, 


19A2, 


19A6, 


19AA, 


19AC* 


19AE 








19B0t 


lB7Ct 


1B84, 


1BCA 








1 


7 


R7 


127Et 


12B4, 


12CC, 


1582, 


1586, 


15FC* 


160A 








161C, 


16CC, 


1B8C, 


1B94, 


1B98, 


1B98 




1 


8 


R8 


127A f 


12B0, 


12C8, 


1326, 


132A, 


1348* 


1348 








134C* 


13A2, 


13A6, 


1458* 


145C* 


1460* 


1460 








1464, 


15E4, 


1B80, 


1B94, 


1B9C* 


1B9C* 


1BEA 








1BF0, 


1BF0, 


1BFC 










1 


9 


R9 


10F0, 


114A, 


114E, 


115A* 


11BE* 


11C2, 


11CE 








1224 f 


13FE, 


142C* 


146E, 


1486* 


149E* 


14B6 








156A, 


15DC, 


15E0, 


15F8 








1 


198 


WT 


114A t 


11BE, 


15DC- 










1 


1 


ALL 


110E, 


1186, 


HEEt 


1246* 


1266* 


12A4* 


12F8 








1304t 


136A, 


138A, 


13C2* 


152C* 


1558* 


15BA 








1610, 


162A, 


1696, 


19C0* 


1B1C* 


1B36 




1 


5 


ANY 


12E8, 


1550, 


159C, 


1622* 


170C 






16 


18AB 


BIG 


16AA, 


16B0 










I 
| 


1 


8 


CCO 


1156* 


117C 










f 


1 


4 


CC1 


1180, 


15F4 










1 


1 


2 


CC2 


1184 












1 


1 


1 


CC3 














I 


4 


1BBA 


DOF 














\ 


2 


1C06 


ERM 


1B44 














9 


188E 


HD1 


169E 














4 


1518 


ICD 


14E8 














4 


114A 


IHI 


112E, 


113E 












2 


10E8 


ISW 


115Et 


115E, 


1164, 


11A2* 


11AE* 


11BA* 


11C6 








11D6, 


11E6, 


11EA, 


11F8* 


1228, 


1236* 


1242 








124A, 


125A, 


126A, 


1282* 


128A* 


128E* 


129C 








12A0, 


12B8, 


12C0, 


12C4* 


12D0* 


12D8* 


12DC 








12E4, 


12ECf 


12F4, 


1300* 


131E* 


1340* 


135A 








1366, 


1472, 


14A2 9 


14C0* 


1518* 


1520* 


1528 








1554, 


1590, 


15B0, 


15B6, 


15BE* 


1606* 


161E 








19BC, 


19DC, 


19E4 










4 


1566 


IUP 


155E 














16 


1926 


MDR 


15CA, 


1506 












4 


1682 


NAC 


167A 














4 


1672 


NBP 


166A 














4 


1692 


NTC 


162A, 


1638, 


168A 










4 


1662 


NXL 


165A 














4 


173A 


NXT 


172E 














4 


1652 


NXU 


164A 














4 


19 FO 


PCH 


198C 














4 


1B94 


PIB 


1BA0 














4 


1724 


PIK 


173E 














1 


A 


RIO 


10FA» 


13DC, 


13F8, 


1402* 


140A* 


140A* 


1548 
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1 


B 


Rll 


1 


C 


R12 


1 


D 


R13 


1 


E 


R14 


1 


F 


RI5 


2 


1B60 


RAP 


4 


19EC 


RDR 


1 


FOOO 


REG 



12 


1C34 


ROW 


2 


15C6 


RRM 


16 


1F80 


RTC 


4 


19F4 


TW7 


1 


F 


UNC 


4 


19F8 


ATE1 


4 


12E0 


BTCD 


1 


A 


CC02 


1 


6 


CC12 


4 


10FA 


CONP 


6 


163C 


COPT 


1 


1AF3 


CRSW 


8 


1798 


OBWD 


8 


1758 


DCRD 


1 


A 


EQHI 


1 


C 


EQLO 


2 


1B86 


ESNS 


4 


1B3C 


EXEC 


2 


1BE8 


EX IT 


4 


1DCC 


EXP1 


4 


1DD4 


EXP 2 


8 


1C18 


FSS1 


4 


1152 


GREG 


1 


48 


HCAW 


I 


40 


HCSW 


9 


1897 


HD1A 


1 


1AF1 


HOSW 


16 


1AF6 


HUNG 


3 


1817 


IACT 


4 


1528 


IBCD 


6 


130C 


IBSN 


12 


17E8 


ICAW 


3 


17FA 


ICCW 


4 


1570 


1CDT 


I 


1429 


ICNT 


3 


17 F7 


ICSN 


4 


14A2 


IDID 


16 


1F4F 


IDTR 


3 


181A 


IEXP 


4 


12 AO 


I FUR 


4 


161E 


I GOP 


2 


1978 


INIT 


4 


liAE 


I NOW 



IBAA, 

10EA, 

130C, 

13BA, 

14BA, 

156E t 

1122, 

15E8, 

1998, 

lOFAt 

1978, 

1104, 

197A, 

11F2, 

1C0C 

1998, 

1212, 

143E, 

15D6, 

174A, 

1B5E, 

1C0A 

1872 

1382, 

1C0A 

1884 

1126, 

122C, 

1524, 

161C, 

15A8 

1204 



1508 

1622 

1168, 

168E, 

12B0, 



IBlCt 

1BD2 

1B38 

1BC8 

1BBA 

115A 

10FA, 

10FE, 

16A4 

116C, 

190A 

121E, 

151C 

125E, 

13DC, 

13EE 

12E0, 

121A, 

1214, 

148E 

1824, 

1452, 

1286, 

15BA 

1814 

llOEt 



1BBA 












110A, 


11B2, 


123A, 


1252, 


1292, 


12A8 


1316, 


1326, 


1338, 


138E, 


13A6, 


13A8 


13BA, 


13BE, 


142E, 


144A, 


1458, 


148A 


1530, 


155A, 


1562, 


1562, 


1566* 


1566 


1BAE, 


1BBE 










1132, 


1142, 


1152, 


1178, 


11DE, 


15CE 


15F0, 


1984, 


1988, 


198C, 


1990, 


1994 


19B0, 


1B28, 


1B3C, 


1B68, 


1BDE 




10FE, 


10FE, 


119C, 


1548, 


15E4, 


15FE 


1978, 


1982 










1104, 


114A, 


11BE, 


14E4, 


14EC, 


15DC 


19A2, 


19A6, 


19AA 








1200, 


1230, 


1982 








1B3C 












13A0, 


13B8, 


13D2, 


13EC, 


142A, 


1438 


14D4, 


14E2, 


1516, 


1540, 


1546, 


15CA 


1632, 


169E, 


16A4, 


16AA , 


1680, 


16B6 


19DA, 


1B24, 


1B30, 


1B4C, 


1B52, 


1B58 


1B64, 


1B70, 


1BB8, 


1BC8, 


IBDAf 


1BE6 


I38A, 


1610, 


1618 








1146, 


118C, 


1194, 


11A6, 


110A, 


11FC 


124E, 


12F0, 


12FC, 


1308, 


140E, 


142C 


156E, 


15B4, 


15C2, 


15D8, 


15FC, 


160A 


1638, 


174C, 


19CE, 


19E8, 


1C02, 


1C0C 


1626, 


1634 










16C2, 


16CC, 


16D6, 


1714, 


1728 





12C8 



1B36 



1548, 15E4 
10FE, 119C, 

1692, 16B8 

147A, 14AA 

126E, 1276, 
13E4, 13E6, 

1538 

13F4, 1446 
1440 

1B30 

1492 
1298 



11F2, 1200, 1230, 15FE 



12A4, 12AC, 12E8, 12F0 
13EC 



llSCt 1194, 11A6 



4 

4 

6 

2 

4 

4 

4 

6 

4 

4 

6 

6 

4 

4 

4 
6 
6 
6 
1 
1 
1 
1 
1 



123A 
1198 
14BA 
16BC 
15A0 
12C8 
1252 
10EA 
15B6 
15B0 
1230 
1578 
1590 
15F8 
1190 
1200 
115E 
1BEA 
IAFO 
195F 
1960 
7 
8 



INT3 

IONE 

IPAS 

I PDA 

IRTU 

ISEA 

ISEN 

ISIO 

ISIP 

ISSW 

ISV2 

IT80 

ITCO 

ITIC 

ITWO 

IUIO 

JOHN 

LA52 

LDSW 

MSK1 

MSK2 

NCCO 

NONE 



11FC 

1180 

14A6 

1696 

1594, 

12BC 

11B6, 

1BAE, 

158C, 

15C2 

11EE 

15AC 

1602 

1184 

11E2 

1116, 

1B88 

199C, 

11CA 

11D2 

1136, 

1116, 

126E, 

1322, 

148E, 

1602, 

197E, 



174C 

11DA, 

1BBE 

159C 



123E, 1246 



1156 

19B8, 1B40, 1BCE 



15EC 

111E, 

1276, 

133C; 

14A6, 

164A, 

1B44, 



112E, 
1286, 
1344, 
14C4, 
165A, 
1BD2 



113E, 


123Et 


1256, 


125E 


12AC, 


12BC, 


12D4# 


131A 


1372, 


1406, 


144E, 


1476 


151C, 


1534, 


155E, 


1594 


166A* 


167A, 


168A, 


172E 



2 


1746 


PRGD 






16 


1F11 


PTDB 


1BDA, 


1BE6 


8 


1C10 


RDNF 


IBAA, 


1DCC 


4 


IBAA 


RSIO 


1C02 




16 


1DE4 


RTD1 


1B4C 




16 


1E06 


RTD2 


1B52 




16 


1E42 


RTD3 


1B58 




16 


1E82 


RTD4 


1B5E 




16 


1EC7 


RTD5 


1B64, 


1B70 


1 


1961 


RTSV 


10F4, 


19D0 


1 


1AF4 


SFLE 






4 


1004 


SNSW 


1112, 


111A, 








1B32 




1 


4 


SOME 






16 


1936 


TCRA 


1632 




4 


1B80 


TEST 


1BCA 




1 


6 


UNEQ 


11E2, 


1312, 








19B4 




1 


5A 


WHAT 






1 


17A0 


WORK 


1200, 


13F8, 








1468, 


1480, 








14F8, 


14FA, 


4 


19BC 


BLOOP 


19B4, 


19E8 


1 


1B9 


DMIOL 


19A2 




1 


1BC 


DMPTR 


19A6 




1 


1A0 


DMSSW 






16 


18F4 


GOODY 


163C, 


163C, 






166E, 


1672, 








16D8, 


16E0, 


.8 


1C4C 


HOLES 


16FA, 


1702 


4 


160C 


IBACK 


15EC 




16 


17FD 


IBLAH 


1214, 


121E, 






1452, 


147A, 


2 


1412 


ICOUT 


1224, 


13FE, 


8 


1788 


ICSW1 


119C, 


11F2, 








160C 




8 


1790 


ICSW2 


1230i 


1272t 


4 


1472 


IDIDI 


144E 




4 


1132 


I HANG 


1146 


13B0, 


16 


17DB 


1LINK 


13A8, 



112A, U3A, 136E, 154C. 1B18 



1416, 
1498, 
1500, 



1642, 
167E, 
1732, 



13EE, 
1492, 
146E, 
1262, 



13D8, 



1418, 
1498, 
1506, 



164E, 
1682, 
174A 



14 1A, 
14AA 
1486, 
132E, 



14E8, 158C, 15AC 



141A, 
14B0, 
150C 



1652, 
168E, 



1420, 1468 
14EC, 14F6 



165E, 1662 
16C2, 16C8 



1420* 142A, 1440 



149E, 
132E, 



i486 

1386, 1480 



1350, 1350, 14B0 



13B2, 13B8, 1546 



DATE 

EC 



15JUN67 
130498 
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4 
4 


15FE 
1122 


ILOKE 
ILOOP 


15F4 














4 


135A 


INDER 


12F8, 


1304, 


1312, 


1322, 


1334, 


1344 




3 


195C 


IOADR 


13CA 














6 


1440 


IOCSW 


13C2 














16 


1833 


IOLOG 


UFA, 


1500, 


1506, 


150C, 


1516 






16 


1858 


I0PT1 


1540 














4 


14E4 


IPASS 


14C4 














4 


1760 


ISAVE 


10F0, 


156A 












4 


1178 


ISSUE 


13D4, 


195C 












4 


15DC 


ISTRT 


127E, 


12B4, 


12CC 










4 


111A 


ITRY1 


1126, 


1136, 


1550 










4 


112A 


ITRY2 


111E 














16 


1962 


IUNEX 


120C, 


1212 












4 


11BE 


IWAIT 


124E, 


1524 












4 


11AA 


IZERO 


117C 














4 


19FC 


M0D50 


1988, 


1994 












1 


0 


NEVER 
















12 


1C40 


PARAM 


1B72, 


1BEA, 


1BF6, 


1BF6, 


1BFC 






4 


1000 


SECNO 


1008, 


1018, 


103C, 


1080, 


10F4, 


120A, 


120C 








1212, 


1398, 


139A, 


13A0, 


13B0, 


13B2, 


13B8 








13CA, 


13CC, 


13D2, 


13E4, 


13E6, 


13EC, 


1416 








1418, 


142A, 


1438, 


143E, 


14CC, 


14CE, 


1404 








14DA, 


14DC, 


14E2, 


14F6, 


14F8, 


1516, 


1540 








1546, 


15CA, 


1506, 


1632, 


169E, 


16A4, 


16AA 








16B0, 


16B6, 


1606, 


16D8, 


16DE, 


16E0, 


174A 








19D0, 


19DA, 


1B24, 


1B30, 


1B4C, 


1B52, 


1B58 








1B5E, 


1B64, 


1B70, 


1BB8, 


1BC8, 


lBDA, 


1BE6 








1C0A 














4 


10E0 


UNIT1 


1984 














4 


10E4 


UNIT2 


1990 














16 


18CD 


BEAUTY 


16B6 














1 


1A00 


BUFFER 


1582, 


19C4, 


19C8, 


19C8, 


1C10, 


1C18 




1 


1A50 


CHKBUF 


157E, 


1758 












1 


1AA0 


EXPBUF 


1574, 


1B80, 


1BA4 










1 


1AF5 


GENDAT 


1B78, 


1B8C, 


1BA4 










6 


1900 


HANGUP 


19C0 














11 


1828 


IACSNS 


1170, 


1292, 


137E, 


140 A, 


14DC, 


14E2, 


1614 








1750 












10 


17C2 


IACTCC 


1174, 


1188, 


1190, 


1198, 


11AA, 


130Ct 


143E 


6 


142E 


ICCOUT 


1308, 


1406 












6 


132E 


ICCSW1 


132A 














6 


1350 


ICCSW2 


134C 














6 


1468 


ICHNG1 


145C 














6 


1498 


ICHNG2 


1464 














1 


1AF2 


ICODAT 


1578, 


1586, 


160E, 


16F0 








6 


13F8 


ICWOUT 


140E 














4 


127A 


IOOSNS 


1256, 


1266, 


19E0 










4 


135E 


IDUNCK 


12FC, 


1308, 


1356 










10 


17B8 


IEXPCC 


142E, 


1438 












11 


181D 


IEXSNS 


14BA, 


!4CC f 


14CE, 


14D4 








1 


139E 


IFLAG1 


135E, 


1376 












1 


153E 


IFLAG2 


1362, 


137A 












4 


155A 


ILEAVE 


1372 














6 


14EC 


ILOGED 


122C 














4 


148A 


IMORST 


1476 














4 


12F4 


IN0EX1 


131A 














4 


1300 


IN0EX2 


133C 














15 


17CC 


IOAODR 


13CC, 


13D2 












4 


1038 


IOOPSW 


11DE, 


120A 












2 


153C 


IOPOUT 


152C, 


1534 












4 


137E 


IOUTIT 


136A 














4 
8 


110E 
1750 


IRETRN 
ISENSE 


107C 
127A 














4 


15F0 


IT10LP 


15F8 














9 


184F 


ITSTNO 


10EA, 


138E, 


1398, 


139A, 


13A0 






1 


80 


LOGOUT 


1104, 


1104, 


14EC 










4 


1984 


NITWIT 


197E 
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12 


191A 


PUNCHS 


1724 






1 


1B10 


R0UT02 


1015, 


1F9C 




1 


181 


SYSMOD 


14E4 






1 


IC20 


TWENTY 


16E2, 


1742 




1 


1000 


XF8220 









■/V 



NO ERROR DETECTED IN ABOVE ASSEMBLY 
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PERIODS CORRESPOND TO BLANK COLUMNS. 

COLS. 1 THROUGH 20 COLS. 21 THROUGH 40 



BESD AA. .AAXF82 

9 YQ Y9 

99 9 

BTXT.AAA*. A8. .AA8SAA 

9 YQY Y9 Y9 9YY 

999 9 9 99 

BTXT. AA8 . . A8. . AAAAAA 
9 YQ9 Y9 Y9YYYY 
99 9 9 9999 

BTXT.AAO ..AA. • AAAAAA 
9 YQ+ YQ Y9YYYY 

99- 99 9 9999 

BTXT. A AS. • A8. . AABAAA 
9 YQ8 Y9 Y90YYY 
99 9 9 9 9 

BTXT. AJQ.. A8. .A AO AGO 
9 Y99 Y9 Y9+YZ+ 

9 9 9 9 - 

BTXT.AJ+..A8..AA1FA0 

9 Y9 Y9 Y9 RZ* 
9 9 9 - 

BTXT.AJH..A8..AAG01K 

9 Y90 Y9 Y9Z Y 
9 9 9 

BTXT. AJO. . A8. . AAACFA 
9 Y9+ Y9 Y9Y9-Y 
9 9 9 9 

BTXT*AJ8**A8* .AAG026 
9 Y9 Y9 Y9Z 9 
9 9 9 

BTXT.AKA..A8..AA0.FJ 

9 Y9Q Y9 Y9 -Y 

9 Z 9 9 9 

8TXT. AKQ*. A8. .AAOYGA 
9 Y9Z Y9 Y9 ZY 
9 9 9 

BTXT.AKJ.. A3. .AAFAOY 

9 Y9Y Y9 Y9-9 
9 9 9 

BTXT.AKQ..A8..AAG02D 
9 Y9 Y9 Y9Z Y 

9 9 9 9 

BTXT, ALA.. A8..AAAA0Z 
9 Y9Q Y9 Y9-Y 
9 9 9 9 

BTXT. ALH..A8.. AAOYGA 
9 Y9Z Y9 Y9 ZY 
9 9 9 



20..AAAA.AGQ 

YYQY Y8 
9999 99 

AAAAAAAAABOAADAAAAMU 

YYYYYYYYY9+Y99YYYV88 
999999999 9 99999 

AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 



AAAAADAAAAJB 

YYYY99YYYY9Q 
9999 9999 9 

AAAAAAAAKA94ABAA8-PG 
OYYYYYYY 9 8Q9Q8 9 
9 99999 90 9 

IWAOQDGAiWDAQAGOiONF 
8-+ 9ZY 8QY+YZ 9RQ 
9 9 9 9 

EH+5AHGG1QPA0Y0YFA0Y 
Q 8YZZ 9 9 -Y 
Z 9 

B28PG01KB18PKG8H0»F. 
- YZ Y- Y 9 0- - 



0YAA8BFA1BAA6CD70YG0 
YYQZZQ YYYQZ-8 Z 
9Z 9 9Z 

KGBA0.BEABA2BEB0MNBD 
9QY 8QY9Y88R8-Z9QZ 

Z9 999 999 9 Z 

0YAAAAGA2FAHOYGA2FFH 
-QQYZY 8-9 ZQ 8-9 
909 9 

2MAB8DGA2MAA8HE06MA. 

0-9 -ZY OZY RZ+ Z~ 



AAEHAADFGA2DAAEAE0&M 
ZYQ0-YQ8ZQ 0ZYQQZ+ I 
Z- Z 9 - 10 - 

FD0KG03UA .0YGA3BG03F 

-9 YZ 9- ZQ OZ 0 

9 9 

6A3YAADFG&2DF.OK07OZ 
ZY 9-YQ8ZQ Q- Y~8 
Z 9 9 9 

3BHC AF . A3KNG8HSHG-3B 
0ZYY9 Y 8 9 0 OZ 0 
9 



COLS. 41 THROUGH 60 
840 



AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

AAAAAAAAADAAAAAAAAAA 
YYYYYYYYY9YYYYYYYYYY 
999999999 9999999999 



0.0.PCSASAA.0DGA1F+N 

- - 88Y8Y- 9ZQ Z Y 
9 9 

AHHAACEA0AGA1BFA16G0 
9-0QY9QY+YZY 9ZQ 9Z 
9 9 9 

DADEDAD0BA9NDA0AGA10 
-YQ8-YQ8-Y 9QY+YZY 0 

9Z 9Z 9 9 9 

OYG01KB08PD70YA. AAGA 
Z Y- Y-8 - QYZQ 
09 9 

2FA002G-1DDT0YA.0YGA 
884 82 Q-8 - ZQ 
9 Z 9 

KB8W8GBK41KB8D8GEA4S 
9 Q-8 8 9 Q QZQ 9 

9 9 9 Z Z 

0YG01BABAAGA2FA.0YGA 
Z Q-9QYZY R- ZY 
0 09 0 

9NGA6FAA0ZGA2MFD0YD7 
9ZQ 8-Y ZY 0-9 -8 

9 

AA0ZGA2DAADFGA2MFB0K 

— Y ZY Q-YQ8ZY -9 Y 
Z Z 9 

A J0YGA3BG03FAAEQAADF 
— Y ZQ OZ 0ZYQ0-YQ8 

9 9 Z Z 

AA9NGA34EA5HNA8PADG- 

-Q 9ZY 9ZY 0 Y Y09Z 
9 - 9 0 

ADAAGA20AJ0YGA3BAHAH 
-9QYZY -Y ZY 0Z0Y9 
09 9 9 



COLS. 61 THROUGH 80 
577. 130498. .82200001 



AAAAAA AAAAAA82200002 

YYYYYYYYYYYY 

999999999999 

AAAAA AAAAA AA82200003 

YYYYYYYYYYYY 

999999999999 



.82200004 



AHAA0DGA10EA82200005 
YZ-Y 9ZY 8QY 

9 9 

1BAOE0AADFGA822O0OO6 

9Z+Q+-YQ8ZQ 
-Z I 9 

G.1DGJ1DB38P82200007 
Z -ZY Y- Y 

9 

2FFA0YHFAHHA82200008 

8-Q RQ9-0Q 

9 

2UKG8HO.F.OY82200009 

8 9 0 - 
9 

FBOYG04DKG8A82200010 
-9 Z Q 9 Q 

Z 

2MAB8DGA2FAJ82200011 

0-9 YZQ R-Y 
9 0 9 

0ZNA9NAEGA2M82200012 
Y 9Q9ZY 0 
9 0 

D70ZG02DFJ0K82200013 

-8 Z Q-Y Y 
Z 9 9 

GA3DAAEJE06M82200014 
ZQ 8ZYQYZ+ Z 

9 9 Z - 

3BAHAAGA2UA. 82200015 

0-9QYZY - 
09 

•A34NG8A8AGA82200016 
Y 8 9 Q QZY 



BTXT. ALA. .A8..AA3FFA 

9 Y9Y Y9 Y9 0-9 

9 9 9 

BTXT. ALH. • A8. • AA97AA 

9 Y90 Y9 Y9 9ZY 

9-9 9 

BTXT. ALO.. A8* • AABEAC 
9 Y9 Y9 Y98QY9 
9 9 9 999 

BT XT . AMY . . A8 . . AAB AKG 
9 Y99 Y9 Y98Y 9 
9 9 9 99 

BTXT. AM-.. A8. • AA4BKB 
9 Y9 Y9 Y9 0 9 
9 9 9 

BTXT.AMH..A8. • AA4SAD 

9 Y9- Y9 Y9 9-9 
9 9 9 

BTXT.AM0..A8..AAAD0Y 

9 Y9- Y9 Y9-9 
9 9 9 

BTXT.ANH..A8. . AABAKA 

9 Y99 Y9 Y98Y 9 
9 9 9 99 

BTXT. AN. • . A8. . AAGA5D 
9 Y9 Y9 Y9ZY R 

9 9 9 

BTXT.ANH.. A8. .AAA.CH 

9 Y9R Y9 Y9Z Q9„ 
9 0 9 9 Z 

BTXT. ANA. . A8. . AAAFHA 

9 Y9Q Y9 Y9Y9-8 
9 0 9 9 9 9 

BTXT. ANY. .A8.. AAG-60 
9 Y9 Y9 Y9Z 9 
9 9 9 

BTXT.AOJ.. A8. .AA54AB 
9 Y9Y Y9 Y9 -9 
9 9 9 9 

BTXT.AOH*. A8. .A AO ABO 
9 Y9R Y9 Y9+Y8- 
9 9 9 99 

BTXT • AOA . . A8 . . A AO ZG7 
9 Y9Q Y9 Y9 9 
9 9 9 

BTXT • AOH. • A8 • . AAG+68 
9 Y9 Y9 Y9Z 
9 9 9 

BTXT.APA..A8. .AAGA7H 
9 Y9Y Y9 Y9ZY 9 
9 9 9 9 



0YBM3FB05FAA0YGA30AA 

-Z 0-* 0-9 ZQ 0-9 
9 

ADLH+A8HBEACHIHHB0JA 
Y980 Q 8QY99 9 8-YQ 
9 9-0 999 9 9 

HRHQB0JC8LKB8W8SB041 
9 9 8-Y8 9 -9 8 
9 9 9 

8KBAKG83BHB0JK8VG9KA 
YQY 9 Q98-Y8 9 Y 
9Z9 Z 9 9 9 

8D9BHCAF.A44AHAH.A4M 

Q 9ZYY9 Y 8Z0Y9 Y Y 
Z 9 9 

AAGA4BKB8D9BKGBABAEA 
QYZY 0 9 Q 9 9QYQYZQ 
09 - Z Z9Z9 

GA44BEAAABABB0JC9EBE 
ZY 8QY988888-Y8 98Q 
999 99999 9 99 

9JBAKE9TBBKE9SBBKE91 
YQY 9 9Q9 9 8Q8 9 9 
9Z9 Z 9Z9 

FJ0LEA5HD7DDDG0LA.0L 
-Y YZY 0-8Q8-Q Y~ Y 
9 9 - Z 9 9 9 

A0C8EA5FB00E9.B0JA8C 
Z+Q ZQ Q8-+Z 8-Y9 
-Z 9 99 9 

8-GCAABQA.CHAOCQAADF 
9QZQQZZ Q9Z+Q0-YQ8 

z zz z -z z 

AG. AG+60AQ. AG+62ASAA 
-9 YZ 9-9 YZ 9Z9Y9 
9 9 9 

0ZGA6FFA0YG054F.0LAJ 
ZQ Q-9 Z - Y-Y 
9 9 9 

AAB2G006HFAHHAAB+EAH 
Y9Q9Z RQ9-0QY9 YYZ 
Z 9 9 

A.9NGA06G7B .BAKUBABA 

- 9ZQ 9 - QY 9Q9QY 

9 Z9 Z Z9 

AADEGA7HKAGFFBB0JLGM 
-YQ8ZQ I 9Q0Q88-Y9QY 
Z 9 Z-Z99 Z 

B1B0B0B JAH. AGA7QB IB J 

- Q9- Q8-9 YZY 9- Q8 
I 19 9 19 



0DGA5KBU3FBA5FKA94AB 
9ZY 0-9 0-Y 0 9 8Q9 
90 

8CACADAAAAGA4+BEACB7 
ZQY9-YQYZQ 8QY988 
09 09 9 999 99 

KGBA JAEA4SA0JDGA46AK 
9QYYYZQ 9-+Y9ZY 8ZY 

Z9 9 9 

8NADB0JB8 JBO JB8KKB8W 
. 0Q98-Y8 Y8-Y8 Y 9 
0 9 9 9 9 

KGBABAEA4SA.0YGA4BKB 
9QYQYZQ 9- ZY Q 9 
Z9Z9 

4SAJ0YGA4BKB8D8GKGBA 
9-Y ZY Y 9 Q Q 9QY 
9 9 Z Z Z9 

AAANANB0JC9AEAJAG-5Y 
Y989898-Y8 Q-QZOZ 9 
9 9 9 9 9 9 Z 

BKB0JM9LAB0YGA58DE0Y 
Q98-Y8 8-9 ZY 9-Q 
Z 9 9 9 Z 

GA5DFA0LAABQA.CHA0CQ 
ZY 0-Q YZQQZZ QRZ+QO 
9 9 ZZ Z -Z 

♦NAHA00DG+1BAA0YGNAH 
YYZ-+ 9Z 9-Y 99-9 
9 

GA5QAABHA.CHA0C8EA5F 
ZY ZQQOZ QRZ+Q ZQ Q 
ZZ- Z -Z 9 9 

A3AAADAAAGAAE JB-G-5S 
Z9Y9ZZY9ZRY9RYQ Z 
9 9 09 9Z 

0LGA5DAB0ZGA6FFA0YG0 
YZQ Q-9 ZQ Q-9 Z 
9 9 Z 9 

DA0AG06DEA0AG.6FFA6H 
QY+YZ+ -QY+YZ OZQ R 
9 9 - 9 9 0 

KB9F9MA J0LGA6YKB9F9J 

8 - Y-Y YZY 8-0 

9 9 9 9 

FADEG07HAADFGA6DAB0K 
-YQ8Z Z-YQ8ZQ -9 Y 
Z Z 9 9 

BOBMAD. AGA7YB1BMB0B J 
- Q8-9 YZY 9- Q8- QY 
Z9 9 29 Z9 



BEABA4A4B0MA82200017 

8QY988888-Z8 

999 99999 9 

HIB0JG8D+J8Q82200018 
908-Y8 0 Y 
-9 9- 

AHG04HBEAHBA82200019 
Y9Z 98QY98Y 
9 999 99 

8GBK41AHAAGA82200020 

Q-8 8-9QYZY 
9 9 9 09 

8D8GKGBA8HEA82200021 
Q Q 9QY OZQ 
Z Z Z9 

8AEA4SKA9BAE82200022 
QZQ 9 Y 8Q9 

9 90 

KCBASABEADBA82200023 
8QY8Y8QY88Y 
9Z9 999999 

G01BFB0ZAA0L82200024 
Z Q-9 -Y Y 
0 9 

AADFGA5AAABH82200025 
-YQ8ZQ YZQQO 

Z 9 ZZ- 

AAGA50ACABAC82200026 
QYZY YZQY9ZQ 
09 09 0 

G8AJAANAAA0A82200027 
9 ZYY9 YQY+Y 
99 9Z9-9 

G1FA0LAA0LGA82200028 
9 -Y Y-Q YZQ 
9 9 9 9 

5DB0UEB2BBEA82200029 
Q8-98Q98QQY 
Z9 9Z 99 9 

G7AD0DGA6AFA82200030 
9 -9-ZZY Y-Y 



AADFGA60AJOK82200031 
-YQ8ZQ -Y Y 
2 9 9 9 

GA6DB0B0AA.A82200032 
ZY Y- Q9-Q Y 
9 Z 9 9 

AA.AGA78B1BJ82200033 
-9 YZY 9- QY 
9 19 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM p/N 840576 

PAGE 25 

F822 2540 PCH FUNCTION SEC 3 



BTXT.AP8..A8. 

9 Y99 Y9 
9 9 

BTXT.AP0..A8. 

9 Y9+ Y9 
9-9 

BTXT. APQ.. A8. 

9 Y90 Y9 
9 9 

BTXT.APS..A8. 

9 Y98 Y9 
9 9 

BTXT.AQQ.. A8. 
9 Y99 Y9 
9 9 

BTXT. AQ+.» A8. 
9 Y9 Y9 
9 9 

BTXT.AQH..A8, 

9 Y90 Y9 
9 9 

BTXT.AQO..AD. 
9 Y9+ Y9 
9 9 



• AABOBV 
Y9- Q9 
9 Z 

• AAFHBO 
Y9Q98- 
9 Z 9 

• AABOJA 
Y98-Y9 
9 9 

• AABKBE 
Y9898Q 
9 9 99 

.AA+A8H 

Y9 Q - 
9 9 

•AAG050 
Y9Z Q 
9 Z 

> AAAAAA 
Y9YYYY 
9 9999 

.AASIOA 
Y9 Y 
9 9 



AB.AGA7HB1BVADEQAJ0L 
-9 YZY Z~ Q9Q9Q -Y Y 
9 Z Z 9 9 

JLGMF. DEG08DAADFGA7D 
Y9QY- Q8Z 8-YQ8ZQ Y 
Z Z Z 9 

9GB0JS9GB0JX9RFADDKA 
08-Y9 08-Y9 -YQ8 Y 
-9-9 Z 9 

AADGBFL JLSL 3A. ABCADG 
Y98888898989Z Y9ZQQ8 
9 9 999 9 9 9 ZZ 

A. AFAAADAAAACTBVHA8M 
Z Y9ZQY8ZYY9Z9Q9RQ - 
9 Z99 99 Z 9 

AAAADAJNAAAAAAAAAAAA 
YYYY9Y89YYY9YYYYYYYY 
9999 99 999 99999999 

AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 



GA7AAADFGA7DAD0KG+7D 
ZY Y-YQ8ZY Y-9 YZ - 
* 9 

G07MA.0KGA7MAADDGA7F 
Z 8- YZY Z-YQ8ZQ Q 
9 Z 9 0 

DGAAQBF.8H3 JBB8FF0BC 
Q8QY9Z8 - 9Q9 Q- Q9 
Z Z9 11 

QLNUK1CLFDI AAHCLFEAA 
998989Z9Q80QY9Z9Q8ZQ 
9 9 Z9 99 Z9 Z 

MAGA86BUBEF. 861 AAAFA 
9QZY 8Z9Q9Z 80YY9ZQ 
9 9 Z 9 99 Z 

AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

.CC..X.EXP.CC..X. ACT 



A.DEGA8DKAGF82200034 
- Q8ZQ 8 9Q0 
Z 9 Z- 

B0JH9EB0JM9E82200035 
8-Y9 08-Y9 Y 
9 9 

KA8H0ABEAAHH82200036 
Y -+Y8QY99- 
9 -9999 

AGMTG+8QHAAD82200037 
YQ99Z 90QY9 
9Z 99 

8YB0AWBAHDEQ82200038 
98-Y9QY-9Q 
9 Z9 Z 

AAAAAA AAA A AA82200039 

YYYYYYYYYYYY 

999999999999 

• ADR. XXXXXX. 82200040 



.82200041 



BTXT.AQC..AJ. 

9 Y9 Y9 
9 9 



•AA.ADR 
Y9 
9 



.XXXXXX. L INKA. 

Y 
9 



•82200042 



BTXT.AQL. 

9 Y9 
9 



. A8. • AA.CAW 

Y9 Y9 
9 9 



.XXXXXX. CSWCCW.CSW.X 



XXXXXXX.XXXXXXXX.EXP 



ACTEXP.SNS.X82200043 



BTXT.AJC. 

9 Y88 
999 



,A8. .AAX.EX 

Y9 Y9 
9 9 



P. SNS.XX.ACT.LOG. XX. 



XXXXXX. XXXXXX. XXXXXX 



• TST.XXXX • SE82200044 



BTXT.AJC. 

9 Y8Z 

99 



» A8. • AAT.SS 

Y9 Y9 
9 9 



•O.ON.FOR.LOOP.ON.PR 



ESTKR.CD.OR.SS.l.ON. 



FOR. LOOP. 0N.82200045 



BTXT.AJ3. 
9 Y88 
99 



.A8..AASTAC 

Y9 Y9 
9 9 



KED. CD. PCH. ERR .CARD. 



IN. PRE STKR. STAPRESTK 



R.ST AST ACKER82 200046 



BTXT.AJC. 

9 Y80 
99- 



.A8..AA.P1C 

Y9 Y9 8 
9 9 



.EXPECTED. SHD... 



••8UF.C0L. P 



UNCHES..RD..82200047 



BTXT.AJL. 
9 Y8Y 
999 



► A8. .AARD.X 
Y9 Y9 
9 9 



U.XL.PAR. ADR.TRAN... 



•82200048 



BTXT.AKT. 

9 Y89 
99 

BTXT.AKL. 
9 Y88 

99 



. A8. .AA...T 

Y9 Y9 
9 9 

» AE. .AAAAAA 

Y8 Y9YYYY 
99 9 9999 



E01 23456789. MAKE .PCH 



AAAAAAA7G. 
YYYYRYY8Q 
9999 999Z 



.RDYAJDFA.UIO.FROM.D 

Y9RQ9 
9 OZ 



EVICE.XXXXAA82200049 
YY 
99 



.82200050 
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BTXT.AMH..A8. .AAGAOA 
9 Y8Z Y9 Y98Y Y 
99 9 9 99 9 

BTXT.AMA.. A8. .AADOBM 
9 Y8Y Y9 Y9R+QZ 
99 9 9 Z 

BTXT. AMH. • A8. • AAEME. 
9 Y80 Y9 Y9QYZ 
99- 9 9 Z9 

BTXT.AMO.. A8. .AAEJFA 
9 Y8 Y9 Y9QY-Y 
99 9 9 Z9 

BTXT. ANY. .A8..AADFG0 

9 Y89 Y9 Y9Q8Z 
99 9 9 Z 

BTXT. AN-. . A8. • AAC0D+ 
9 Y8 Y9 Y9Z+Q 
99 9 9 -Z 

BTXT . ANH. • A8. • AAFCAA 
9 Y8- Y9 Y9Q9YY 
99 9 9 Z 9 

BTXT. ANO. • AH. • AAAAAL 
9 Y8- Y9 Y9YYY8 
99 9 9 9999 

BTXT . ANM«. A8 . . AA+-0 1 
9 Y8Y Y9 Y9 
999 9 9 

BTXT. AOU. • A8. .AA05AH 
9 Y89 Y9 Y9-99Z 
99 9 9 

BTXT .AOM. • A8 • . A A J AAE 
9 Y88 Y9 Y99YQ9 
99 9 9 9 

BTXT • AOD. • A8 • • AAU BBU 

9 Y8- Y9 Y99ZZ9 
99 9 9 

BTXT.AOD.. A8. .AAATAQ 

9 Y8Y Y9 Y9Q8Y0 
999 9 9 099 

BTXT. APD. . A8. . AAA-FD 
9 Y89 Y9 Y9Q 09 
99 9 9 9 

BTXT.AP4..A8..AA2CK2 

9 Y88 Y9 Y98Z08 
999 9 9 9 9 

BTXT. APD. .A8«. AAJAAH 
9 Y8R Y9 Y9Y9Y9 
990 9 9 9 9 

BTXT. APM. • AU. . AA.DI A 

9 Y8Y Y8 Y9 
99 99 9 



AAAAA. PREVIOUS .HANG. 

YYYYY 

99999 

+0BMAA0YGAEWB0UJGGB0 
+Q8-Y ZQQ88-98QQ8- 
Z 9Z99 9Z09 

EDHOBMAJEOKADYFDAADF 
QZR+Q8ZYQ+ 9Q Q9-YQ8 

z z z z z z 

DFMAOKDBF-DBAJEHHOBM 
Q8 9 YQ8Z QQZYQ R+Q8 
Z 9Z ZO Z Z 

DDB0MKDAFA0YE+2FBA0Y 
QQ8-Z8QR-9 Z R-Y 
ZZ9 9Z 0 9 

A+A+BHAAAGAAAHAAF+EQ 
Z Y ZRYYZRY9Z0Y9Z QZ 
9 099 09 9 Z 

G4AABALQJAA+BAL8JAA+ 
9 YY Y80YYY Y8 YYY 
99 99 999 99 999 

AAAA.. • • 

YYYY 
9999 

23456789+-0123456789 



MABMJ.DE. 5CH4CB4L • DG 
9ZZ99 -9 99Z9ZZ99 09 



A1CHACBALAAGACAQKAKK 
Y999QZ9Q9YQ9Y8908Z08 
9 Z Z 90 99 9 9 

K.MF.CAQ0AK0J-FE-3B0 
9 09 9YZ9ZZ99 -9 99+ 
9 

B.KBAJBDJ SAQSBKSKJKF 

8 08QYY9Y8908Z089YY9 

9 99 9 9 9 

-WAQWBKWK-OFOXAYF.SF 
99Z9ZZ99 09 8Y 8 8 
99 9 9 

LJBG~EAHD.BDA.DD.UAH 
9YQ9 9YZ9 Z9Q 09 99 
0 9 9 

A.BAAAADAJAY6CS6LSFG 
Y 9YQYY9YY9 8Z 898Q9 
9 999 99 9 9 0 

G.CMD.C6.FAILED.D0.N 



UP.DETECTEDAAAGFLEA. 

Y9YQQ8Q- 
9 9ZZ99 

JEB2BBEA0AB0AAGGA-AX 
Y8Q98QQY+Y8-Y9QQZ Y9 
9Z 99 9 99 ZO 9 

GADFAJEHKADYFFEA0M6A 
ZYQQZYQ 9Q Q9ZQ Y8Y 
Z9 Z Z Z 0 999 

B.BHKFBI BHEA0M6AAA0A 
- QO 8Q0Q0ZQ Y8YYQ Y 
Z- Z-Z- 0 99999 9 

GODHAABQAADFGAEDAABH 
Z Q0ZYQZ-YQ8ZYQRZYQ0 
Z Z Z Z Z- 

HAEMKAD+AGG4KAAAE8KF 
RYQ YQ Y99 YYYQ 8 

Z 9Z 9 9Z 

FALH JAA+FALHJAA+AAKQ 
Y89YYY Y8RYYY 9Y8Z 
99 999 99 999 99 



GDGDC2C6A1AHQABQJAHE 
QYQO Q8909Z099Y-9 
Z Z 09 

03AYKASKJJBE J3CY2CS2 
+9999Z999Y-9Y9999Z99 
9 9 

JJBE J1BHYBBYKAQFAEAH 
9YQ9Y8909Z099Y09Y89 
9 9 

BBSSKJKFSGAYOASOJSFE 
9Z999Y09889 8Z 898Q9 
9 9 9 9 

OVAHD. BDAODDOUAHUBBU 
-8Y 8 8Q+Y9+89 8Z 8 
99 9 99 9 9 9 

ASFDSWAYWBSWKSOF JAAH 
Q8Y9889 8Z 898Y9Y8Y0 
9 9 9 9 99 

4CB4L0DGYXAYB. SBAJBD 
8Z 89+Q999999 99QY09 
9 9 0 99 

AANHHAAAAAAADAAAAANO 
YY8 9YYYYYYY9YYYYY8- 
999 9999999 999999 

OPROTEMPTY.PCH.STKRS 
8 



JFGAD4QGH00S82200051 
Z-ZYQ89QR+ 8 
Z 9 

BADFBAD+KCE882200052 
-YQ8-YQ 8Q 
9Z 9Z 9Z 

AA0AGDAADFGA82200053 
YQ YQY-YQ8ZQ 
99 9Z Z 9 

GDBOMAOKDHD782200054 
QQ8 9 YQZ-8 
Z 9 9Z 

+AEME-E0GJED82200055 
YQ R Q-ZYQO 
Z Z 9Z 

AAAAKBE8E9KA82200056 
Y9YY 8Q Q Y 
9 9Z Z 9 

JAA+AAKHJAA+82200057 
YYY 9Y80YYY 
999 99-999 

..82200058 



A1CH8CB8LAHG82200059 
Y8909Z099Y09 
9 

LJBG01AHAABA82200060 
9Y09 999QZ9Q 

9- 9 9 

MABMJ0DE05BH82200061 
8Z 89+Q9+99Z 
9 9 

S1BHJBBJKAJF82200062 
8999YZ9Y9YY9 
9 9 9 

K0MF0XAQF.KF82200063 
9+Y9+9YZ9 Z9 

- 9 

H.BHAAHDAYAQ82 200064 
9 09QY09Y990 
9 

JSAQ6CK6L-FG82200065 
Y99Z9ZZ99 09 

9 

HAAAAAAADAAA82200066 
9YYYYYYY9YYY 
9999999 999 

• ••••82200067 



DATE 15JUN67 
EC 130498 



ID F822-0 
PAGE 25A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



P/N 

PAGE 
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BRLD. 

9 



BEND* AMU* 

9 Y88 
99 



.A4. 
Y9 
9 



••• AAAA 
Y9Y9 
9 9 

* AA* • 

Y9 

9 



BOAT* 
9 



BESD. 

9 



• • AA* 

YQ 
99 



BTXT.AAN..AC* 

9 YQ9 Y9 
99 9 

BTXT.AA4..AD. 

9 YQ8 Y9 

99 9 



• AAXF82 

Y9 

9 

•AAALA. 

Y9Y8Q 
9 999 

• AAAAJF 

Y9YY9Q 

9 99 9 



AAANEAA4AAQ JAAK7AANJ 
8YQ98YQ88Y988Y888Y80 

999 999 99 9999999 

•*•••*•««••««»««» tt( 

20*. AAAA* AGO* 
YYQY Y8Q 

9999 99 



AANRAANAAANIAANAAANI EAPDDAPD. 
8Y808Y808Y808Y8 8Y8 8Y8Y8Y8Q 
999 999-999-999 999 999 999 



.••82200068 



.82200069 



.82200070 



.82200071 



.82200072 



.82200073 



BTXT.AAY.. A8* 

9 YQ Y9 

99 9 

BTXT.AJJ..A8. 

9 Y9Y Y9 

9 9 9 

BTXT.AJH..A8* 
9 Y9R Y9 
9 9 

BTXT*AJA..A8. 
9 Y9Q Y9 
9 9 

8TXT.AJH..A8* 

9 Y9 Y9 
9 9 

BTXTaAKA*. A8» , 
9 Y9Y Y9 

9 9 9 



• AAAAK A 
Y9YY 9 
9 99 

• AA1SDA 
Y9 8QY 
9 9 9 

* AA10FA 
Y9 8ZQ 
9 

•AA827G 
Y9- 
9 

• AAOYAA 

Y9 YY 

9 9 

. AAKG7J 

Y9 9 Y 

9 



8DABAA7-&A9/0C+NAHPG 
RQ9Q8 Y 9 YYZ 9 
0 9 9 9 

OAGO1KA»0DGA18EAOAGO 
*Y2 8- 92 Y 8QY+YZ+ 

9 9 9 9- 

1BPA0Y0YFA0YDAB3DAB1 

R 9 -Y -YQ -YQ 
92 9Z 

G010B17GKG7H0.F.0YG0 

2 Y- 9 0 I 



9PFA1FAA9-D70YG02BA0 
82Q YYY -8 2 R8+ 
9 9 

0.BEABA2ACB0MN9KKB7F 

8QY9Y88R8-Z9 2 9 Q 
. 999 99909 2 



0.0.PCSASAAAAAGA10A0 

- - 88Y8Y-YQY2Q Y-+ 

9 09 9 

1KA.0DGA1BDA0AG012HF 
8- 92Y 8QY+YZ 9RQ 
9 9 9 

BX8VBX7GDA0AGA1KG. 1H 

- 8- QY+YZY Y2 - 

9 9 9 

10B07GD70YA* AAGA2BFA 

Y- -8 - QYZQ R-Q 
09 9 9 

02G-2AD70YA.0YGA2AKG 

82 Y-8 - ZQ Q 9 

9 9 9 2 

77BK4/KB8M8PEA4KFB0Y 

-8899 9ZQ 9-9 
9 9 



0DGA10AA0DGA82200074 
92Y 8-Y 92Y 



AHHAACEA0AGA82 200075 
9-0QY9QY+YZY 
9 9 9 

GJ1AB37GG0 1082200076 
2Y Q- 2 Y 
9 

0YHFAHHAACFA82200077 

RQ9-0QY9-Y 
9 

7H0*F.0YG02282200078 

0 - 2 8 
9 

G04MKG7A0.FJ82200079 
2 Y 9 Q -Y 

9 9 



BTXT*AK8*.A8» 
9 Y99 Y9 
9 9 

BTXT*A&0..A8. 
9 Y9+ Y9 
9 - 9 

BTXT.AKQ..A8* 

9 Y90 Y9 
9 9 

BTXT.AKS..A8* 
9 Y98 Y9 
9 9 

BTXT« ALQ»« A8« 
9 Y99 Y9 
9 9 



•AAOYAA AAGA2BAH0YGA2BFH0YG0 

Y9 -Q QYZY R-9 2Q R-9 2 

9 9 09 9 

• AA3DAB 7DGA3DAA7+E05DAA0ZGA 

Y9 8-9 -2Y 82Y 2* Q-Y 2Y 

9 9 9-9 

• AAAAAA GA30AA7HE05DAA02GA2H 

Y9-YQ9 2Y 82Y RZ + Q-Y 2Y 

9 0 9 - 9 

> 

• AAEA50 A-0ZG+3DFA0YG03DA.0Y 

Y92Q * 2 8-9 2 8- 

9 9 - 9 9 

• AAAAGA 24A.0YGA3KHCAP.A32NG 

Y9QY2Y - ZY 82YY9 Y 9 9 

9 09 9 



1FABAAGA22A.0YGA3DAB 

Q-9QY2Y 8- 2Y 8-9 
0 09 9 

2JFD0YD702NA8VAEGA2J 
Y-9 -8 Y 8Q92Y Y 
9 90 

F.0ZD70ZAA7HE05DAA0Z 

-8 2Y R2+ Q-Y 
- 9 

GA3KG030A J0YGA3KG030 
20 82 8-Y 2Q 82 8 

9 9 9 

7H7HG-3KADAAGA3AAJ0Y 

0 02 8-9QY2Y Y-Y 
09 9 9 



7DGA22AJ0YGA82200080 
Y2Q 8-Y 2Y 
9 9 

FA0YAA0YGA3D82200081 

-9 -Y 2Q 8 
9 9 

GA2SFJO2D70282200O82 
ZY 8-Y -8 
9 

NA7GADG-3KAH82200083 
Y Q92 8-9 
9 0 

GA3KAHAH.A3D82200084 
ZY 820Y9 Y R 
9 
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BTXT* AL*.« A8* 
9 Y9 Y9 
9 9 

BTXT* ALH. • A8. 
9 Y90 Y9 
9 9 

BTXT* ALO** A8* 
9 Y9+ Y9 
9 9 

BTXT*AL8..A8. 

9 Y9 Y9 
9 9 

BTXT.AMA..A8. 

9 Y9Q Y9 
9 2 9 

BTXT.AMQ..A8. 

9 Y92 Y9 
9 9 

BTXT.AMJ..A8. 

9 Y9Y Y9 

9 9 

BTXT* AMQ»* A8* 

9 Y9 Y9 
9 9 



»AANG7A 7AGA30FA0YBM3FB056AA 

Y9 9 Q Q2Y 8-9 -2 Q-+ 8-9 

9 9 . 

» AA7DGA 5FKA8DABBEABHDHDB0MA 

Y9 Y2Q 9 RQ98QY99R9R8-28 

9 9 0 999 9 9 

.AAAAGA 4.BEACAMGJB0JG7DED1H 

Y9QY2Q 8QY9889 8-Y8 Y-Q R 

9 09 9 999 9 9 9 9 0 

» AAKG7J JAEA4KA0J DGA4WAKAHG0 

Y9 9 Y YY2Q 9-+Y92Y 82YY92 

9 9 9 9 

• AA7EAD B0JB7HB0JB7BKB7F77BK 

Y9 QQ9 8-Y8 08-Y8 9 Q -8 

9 00 9 9 -9 9 2 9 

• AAKG7J 7JEA4KA.0YGA4BKB8M8P 

Y9 9 Y Y2Q 9- 2Y Y 9 9 9 
9 

• AA4KAJ 0YGA4BKB8M8PKG7J7AEA 

Y9 9-Y 2Y Q 9 9 9 9 Y Q2Q 

9 9 0 

» AAAAHV HVB0JC8YEAJAG-5QKC7J 

Y9Y998 988-Y8 9-Q202 9 8 Y 

9 9 9 99 9 2 9 



0YGA36AA0DGA5KBU3FBA 
2Q 8-9 92Y 8-9 Q-Y 
9 

8GAAADLH+A7SBEACG JGS 
82YY980 Q 88QY99298 
9 9-0 999 

G-4W+J70BEACG1G0B0 JC 
2 , 8 Y 8QY99 9 8-Y8 
9 999 9 9 

38BEAHG JGJKG8B7 JKG8C 
8QY99Y9Y 9 9 Y 9 8 
999 9 

4/AHAAGA4BKB8M8KHCAF 
8-9QY2Y R 9 9 82YY9 
9 09 0 9 9 

KG7J7HEA4KADAAGA4KKB 
9 Y 02Q 9r9QY2Y 0 9 
09 

4KKA8SAEAD0YGA4UBEAA 
9 Y 9Q9-9 2Y 8QY9 
9 0 999 

SABEADG JG JKA887 JKE83 
8Y8QY89Y9Y 9 9 Y 9 8 
9999 9 



56E.8VGA5FAA82200085 

8- 82Y -9 
9 9 

BOJA7CACADAA82200086 
8-YQ Q2QY9-Y 
9 9 9 09 

7LKB7F7BB04/82200087 

Y 9 Q Q-9 8 
9 2 2 9 

7QB0JK7EG9KA8220O088 
08-Y8 Q9 Y 
9 9 Z 9 

•A4UAHAH.A4D82200089 

Y 820Y9 Y Q 

9 

8M8KKG7J7JEA82200090 
9 8 9 Y Y2Q 
9 

HSHSB0JC8NBE82200091 
99998-Y8 88Q 
9 9 999 

7KKE8B7KKE8A82200092 
0 9 2 Y 9 8 



BTXT. ANA. *A8. 
9 Y9Q Y9 
9 9 9 

BTXT.ANH..A8. 

9 Y92 Y9 
9 9 

BTXT* ANA*. A8* 
9 Y9Y Y9 
9 9 



• AA7BB0 JM83AB0YGA5YDE0YG01F 

Y9 08- Y8 9-9 2Y 9-Q 2 Q 

9-9 9 2 0 

. AA+NAH A00DG+1K AAOYGNAHAAGA 

Y9 YY2 -+ 92 8-Y 99-9QY2Y 

9 9 9 09 

. AABGAB 9GNA0AB2G-5FA-02GA5J 

Y9Q82R Q Y+YQ 2 0- ZY Y 

9 Z 0 Z 9-9Z 



AA0YGA54AAAAGA54EA50 
-Y ZQ 8-YQ9ZY 8ZQ + 
9 9 0 9 9 - 

50ACABACAFHA7-GCAJAA 
ZZQY9ZQY9-8 9QZYY9 
09 09 9 Z 99 

AG.AG+5FA3AAASAAE J98 
-Q YZ 0Z9Y9Z9Y9RY 
Z 9 - 9 9 9 



B0068HB0JA7C82200093 
8-+9 R8-Y9 Q 
9 9 9 

AABJKAB2AAAB82200094 
ZQQY YQ QYZZ 
ZZ 9Z Z9 

G-5HFB0ZG1AB82200095 
Z R-9 9 -9 
0 



BTXT.ANH..A8* .AAOZGA 60FA0YG05AB0UA9WBBEA 

9 Y90 Y9 Y9 2Q 8-9 2 Q8-9Q 98QQY 

9-99 9 9 09 9 99 9 

BTXT.AN0..A8*.AAEA0A G.5FFA50G7AD0DGA58FA 

9 Y9 Y9 Y9QY+Y 2 Q2Q 9 -9-22Y -Y 

9 9 9 9 9 2 



0AB0AA9WG00BHFAHHAAB 
+Y8-Y9 92 QRQ9-0QY9 
99 2 9 

02G7AA7DGA5FE* 8VGA5F 
9 -9 Y2Q - 82Y 
9 9 



+EAHDA0AG06D82200096 
YY2QY+YZ+ 8 
9 9 9 -9 

G7A-02G+64AA82200097 

9 - 2 8-Y 
9 



BTXT*A0Y..A8. 

9 Y99 Y9 
9 9 

BTXT. AO-.. A8. 
9 Y9 Y9 
9 9 

BTXT.A0H..A8. 

9 Y9- Y9 
9 9 

BTXT.A00..A8* 

9 Y9- Y9 
9 9 



» AAB3GA 6BBOAW96FAB3G06BKU85 

Y9Q 2Q -8-Y9 9-YQ 2-9 

9 2 9 9 Z 

» AA9EB0 9AAD.AGA6BB19AB09MAA 

Y9 8- Q-9 YZY R- Q- 9-9 

9 9 9 9 0 9 

• AA6DB0 JA8FB0JM8GB0JA8LB0JS 

Y9 Q8- Y8 Y8-Y9 -8-Y9 Y8-Y9 

9 09 9 9 9 9 

•A AO ABE AAGHAFBEAAB2ABADDJLJ 

Y9+Y8Q Y99-898QY98 89Q9QY89 

9 -999 9 9 999 9 9 299 



84B09BAA. AGA6BB19BB0 
- 8-Q YZY R- 8- 
9 9 9 9 

• AGA6BB19MB09 JAB. AGA 
YZY 0- 9- 8-9 YZY 
9 9 9 

8LB0JX8EFAB1QBF.7H3 J 
Y8-Y9 Y-YQ 9Z8 - 9 
. 9 9 Z 

LSL3A. ABCAB2QLNUK1CL 
89892 Y9ZQQ 998989Z9 
9 9 9 22 9 9 



9EAH. AGA6KB182200098 
8-9 YZY Z- 
9 9 

6BB19JAAB1GA82200099 
— 8-YQ ZQ 
9 Z 9 

867FF087KA7H82200100 
Q- Y - 
9 

DDI AAHCLDEAA82200101 

Q80QY9Z9Q8ZQ 

Z 99 Z Z 
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BTXT.APH..A8. • AAAGMT 
9 Y99 Y9 Y9YQ99 
9 9 9 91 



G+7MHAAD+A7HA.AFAAAD 
Z 90QY9 Q -Z Y9ZQY8 
99 9 9 Z99 



AAAACT9JHA7HMAGA72BU 
ZYY9Z9 8RQ -9QZY 8Z9 
99 9 9 9 9 



89F.72IAAAFA82200102 
Z 80YY9ZQ 
9 99 Z 



BTXT.AP...A8. •AA7UHD 
9 Y9 Y9 Y9 9-9 
9 9 9 



DJB0AW84G05JDAQVAAAA 
QY8-Y9 Z Y9Y98YYY9 
Z99 9 9999 



FAK+ JAA+AAAAAAAAAAAA 
Y8 YYY YYYYYYYYYYYY 
99 999 999999999999 



AAAAAAAAAAAA82200103 

YYYYYYYYYYYY 

999999999999 



BTXT.APH.. AY. .AAAAAA 

9 Y9R Y9 Y9YYYY 
9 0 9 9 9999 



A AAA AAA AAA A AAA AAA AAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 



AAAAAA AAAAAA AAAA. 
YYYY YYYYYYYYYYYY 
9999999999999999 



.82200104 



BTXT.APH.. AU. .AA.CC. 

9 Y90 Y9 Y9 
9-9 9 



•X. EXP.CC . .X . ACT. ADR 



•XXXXXX.SIOA. 

Y 
9 



•82200105 



BTXT.APC..AJ..AA.ADR 

9 Y9Q Y9 Y9 
9 9 9 9 



•XXXXXX.LINKA. 

Y 

9 



.82200106 



BTXT. APL • • A8. . AA. CAM 

9 Y9Y Y9 Y9 
9 9 9 9 



.XXXXXX.CSWCCW.CSW.X 



XXXXXXX.XXXXXXXX.EXP 



ACTEXP.SNS.X82200107 



BTXT.AQT..A8..AAX.EX 

9 Y99 Y9 Y9 
9 9 9 



P.SNS.XX.ACT.LOG.XX. 



XXXXXX. XXXXXX.XXXXXX 



.TST.XXXX.SE82200108 



BTXT.AQL..A8..AAT.SS 

9 Y98 Y9 Y9 
9 9 9 



.O.ON.FOR.LOOP.ON.SI 



OT.SS.l.ON.FOR.TIO.S 



I0.L00P.REA082200109 



BTXT.AQC..A8. • AA. ERR 
9 Y9- Y9 Y9 
9 9 9 



. CARD. IN.PRESTKR. STA 



•EXPECTED. SHD. . • 



.B82200110 



BTXT.AQC..A8..AAUF.C 

9 Y9Y Y9 Y9 
9 9 9 9 



OL. PUNCHES.. RD..RD.X 



U.XL.PAR.ADR.TRAN. •« 



.82200111 



BTXT.AJC. 
9 Y89 
99 



.A8..AA. 
Y9 Y9 
9 9 



E0123456789.MAKE.DEV 



ICE.RDY.2.DI82200112 



BTXT.AJ3. 

9 Y88 
999 



> A8. • AAAG.C 

Y9 Y9 
9 9 



HK.RDS. ATTEMPTED. -BO 



TH.FAILEDA JHFAA.UIO. 
Y9RQ9Y 
9 OZ 9 



FROM. DEVICE. 822001 13 



BTXT.AJC. 

9 Y8R 
990 



► A8. .AAXXXX 

Y9 Y9 
9 9 



ALEA. JFGA9DQGH00SD09 
Y8Q- Z-ZY 09QR+ 8R+ 
999 9 



D+090H00UD09D+09MBAB 
Q + R+ R+ Q + Y-YQ 
Z Z 9 9Z 



0L0CWAIBWADK82200114 
8ZZ890889Q8 
9 09 



BTXT.AJL. 
9 Y8Y 

99 



► A8. • AAWF-F 
Y9 Y989 9 
9 9 



-AFAAG-9DFAB0AA0YGA9 
8 YYZ Q-YQ -Y ZQ 
99 0 Z 9 



0B.BAKFBABAG4KA0C9/B 
— QY QQ9QY9 Y 9 8 
Z9 Z Z9 9 9 



0MKB6FA0YE+282200115 
-Z8Q -9 Z 
9Z 



BTXT.AJT. 

9 Y8 
99 



> AN. • AA2BA0 
Y8 Y98-Y 
99 9 9 



YG09DAAAAAAAAAAALAAA 
Z QYYYYYYYYYYY8YYY 
0999999999999999 



AAA7G. 
RYY8Q 
999Z 



.82200116 



BTXT.AKO. 

9 Y8 
99 



» A8. .AAAAAA 

Y9 Y9YYYY 
9 9 9999 



AA.PREVIOUS.HANG.UP. 

YY 
99 



DETECTEDBAGGE.9HA.0E 
9YQQZ R- 9 
9ZZ 0 



GAC4B0U1GGBB82200117 
ZQQ88-99Q88Q 
9Z99 Z 99 



BTXT.ALY. 

9 Y89 

99 



» A8. « AAEAOA 
Y9 Y9QY+Y 
9 9 9 9 



B0AAGGA.0EGAC4BQH09M 
8-Y9Q8- 9ZQQ88 R+ Y 
9 Z 9Z99 9 



AAB0GADFB0USEUB0J4FF 
-YQ ZYQ98-99Q 8-Y8Q9 
Z Z 9 Z 9 9Z 



B0J.FBB0JEFB82200118 
8-Y QZ8-YZQ0 
9 Z 9 Z 



DATE 

EC 



15JUN67 
130498 



ID F 822-0 
PAGE 27 



cccccccccccccccccc 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 
F822 2540 PCH FUNCTION SEC 3 



P/N 840576 
PAGE 27A 



BTXT. AL-.. A8. • AABOJB 
9 Y8 Y9 Y98-Y8 
99 9 9 9 

BTXT. ALH. • A8. .AAAGAA 
9 Y8- Y9 Y9ZRY9 
99 9 9 09 

BTXT.AL0..A8..AAB0GA 

9 Y8- Y9 Y9Q ZY 
99 9 9 Z 

BTXT. AMH*. AQ. • AAUMGA 
9 Y89 Y9 Y998QY 
99 9 9 9Z 

BTXT.AM4..A8..AA+-01 

9 Y89 Y9 Y9 
99 9 9 

BTXT. AMU. . A8. . AAJ.DE 
9 Y88 Y9 Y99 -9 
99 9 9 

BTXT.AMM..A8. .AAACBA 
9 Y80 Y9 Y9QZ9Q 
99 9 9 Z Z 

BTXT. AMD.* A8. .AA..CAQ 

9 Y8Q Y9 Y9 9YZ 
999 9 9 9 

BTXT.ANM..A8..AAAJBD 

9 Y89 Y9 Y9QYY9 
99 9 9 9 

BTXT • AND. .A8.. A AW BKW 
9 Y88 Y9 Y99ZZ9 
99 9 9 

BTXT • AND. . A8. . AA-EAH 
9 Y80 Y9 Y9 9YZ 
99 9 9 9 

BTXT. AND. . A8. . AAAAAD 

9 Y8Q Y9 Y9QYY9 
990 9 9 99 

BTXT. AN4 . . A8. . AA. STA 

9 Y8 Y9 Y9 
99 9 9 

BTXT. AOU. . A8. .AAYT.F 
9 Y88 Y9 Y9 8 
999 9 9 

BTXT. A0M..A8..AA. FRO 

9 Y8Z Y9 Y9 
99 9 9 

BTXT.AOD*. A8. .AA.UNT 

9 Y8Q Y9 Y9 
99 9 9 

BTXT.A0M..A8..AAR0M* 

9 Y8 Y9 Y9 

99 9 9 



FGBBEA0AB0AAFGKCD.D4 
Q 8QQY+Y8-Y9Q 80 Q9 
Z 99 9 99 Z 9Z Z 

AHAAF+CDKAB5BPAJDAEA 
Z0Y9Z Q- YQ QOZYQQZQ 
9 Z 9Z Z Z9 0 

CYB0U6GJBBEA0AB0AAGJ 
Q 8-98Q98QQY+Y8-Y9Q9 
Z 9 9Z 99 9 99 Z 

GOC-BAKAJAA+TAKAJAAA 
Z Q Y8YYYY 9Y8YYYY9 
Z 999999 999999 

23456789+-0123456789 



•5CH4CB4L.DG03AYKASK 
99Z9ZZ99 09+9999Z99 



LAAGACAQKAKKJJBE J1BH 
9YQ9Y8908Z089YQ9Y890 
90 99 9 9 9 

0AK0J-FE-3B0BBSSKJKF 
9ZZ99 -9 99+9Z999Y09 
9 

JSAQSBKSK JKFOVAHD.BD 
Y8908Z089YY9-8Y 8 8 
9 9 9 99 9 9 

K-OFOXAYF.SFASFDSWAY 
9 09 8Y 8 8Q8Y9889 
99 9 99 9 

D.BDA.DD.UAH4CB4L ODG 
9 Z9Q 09 99 8Z 89+Q9 
9 9 9 0 

AJAY6CS6LSFGAAMQDAAA 
YY9 8Z 898Q9YY898YYY 
99 9 9 0 999 9999 

CKER. OF. READER. REMOV 



ROM. THE. READER. HPR.D 



NT. OF. REMAINING. TEST 



R« A.MSG- REQUESTS. TH 



Pl.OF.PCH.AND.PUT.IN 



BAB5A-AXAABJE-94G JCK 
-YQ Z Y9ZYQYR ZYQY 
9Z 9 Z 9Z9 

OKYAAJOAEDA JDQEAOKWA 
Y9YYY YQYZYQ9ZQ Y8Y 
9 99 9Z9 Z 0 999 

BOKAAAD.KFAAAAKBD.DA 

8 YYYQ 8Y9YY 8Q QZ 

9 9 9Z 9 9Z Z 



A1AHQABQJAHEA1CH8CB8 
Q8909Z099Y-9Y8909Z09 
09 9 

JJBE J3CY2CS2L JBG01AH 
9Y-9Y9999Z999Y09 999 
9 9 9- 

YBBYKAQFAEAHMABMJOOE 
9Z099Y09Y89 8Z 89+Q9 

9 9 9 

SGAY0AS0JSFES1BHJBBJ 
889 8Z 898Q98999YZ9Y 
9 9 9 9 9 

AODDOUAHUBBUKOMFOXAQ 
Q+Y9+89 8Z 89+Y9+9YZ 
9 9 9 9 - 9 

WB SWKSOF JAAHH.BHAAHD 
8Z 898Y9Y8Y09 09QY09 
9 9 99 9 

YXAYB. SBAJBDJSAQ6CK6 
99999 99QY09Y99Z9ZZ9 
99 9 

AAAAHAAAAAAADAAA.REM 
YYYY9YYYYYYY9YYY 
9999 9999999 999 

E« THE. REMAINING. TEST 



0. NOPRO. AND. PLACE. CD 



•DECKS. SAVE.REMAININ 



EM.TO.BE.PUT.IN.HPR. 



.RDR.HPR.OF. SAME. 254 : 



C0B5A4 A+BHAA82200119 
Z+Q Z Y ZRYY 
-Z 9 099 

AA1AEMF-CAAA82200120 
YQ YQ Z QY-Y 
9Z 9Z Z 

KADCAAG0CKB082200121 
YQ8YYZ QY8- 
9Z 9 Z 9 



.82200122 



LAHG05AHMABM82200123 
9Y09-99Z9ZZ9 



AABAJ AAEA1CH82200124 

QZ9Q9YQ9Y999 

9 9 9 9 

05BHUBBUK.MF82200125 
+99Z9ZZ99 09 



KAJFATAQB.KB82200126 
9YY9Q8Y08 08 
9 099 9 9 

F.KFA-FD-WAQ82200127 
9 Z9Q 09 99Z 

9 

AYAQ2CK2LJBG82200128 
Y9908Z089YQ9 
9 9 0 

L-FGJAAHA.BA82200129 
9 09Y9Y9Y 9Y 

- 9 9 9 9 

0VE.C0S.FR0M82200130 



•DECKSTIF.AN82200131 

8 



S.RUN.0UT.IN82200132 



G.TEST.DECKS82200133 



REMOVE. CDS. F82200134 



0TMAKE.RDYTE82200135 
8 8 



DATE 15JUN67 
EC 130498 



ID F822-0 
PAGE 27A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



P/N 840576 

PAGE 28 



F822 2540 PCH FUNCTION SEC 3 



BTXT.APD. 

9 Y88 
999 



.A8. .AAOF.O 

Y9 Y9 
9 9 



N. PUT .REMAINING .TEST 



•DECKS. INTO.RDR.HPR. ANP.MAKE.RDR82200136 



BTXT.APD. 
9 Y8Z 
99 



» A8» .AA.RDY 

Y9 Y9 
9 9 



T EOF .ON • IF. DESIRED. T 
8 



0. VERI FY. THE. CDS. I N. 



PIT. SET .SSW. 82 200137 
8 



BTXT.AP4. 
9 Y88 
99 



. AJ. .AA9.0N 

YY Y9 
99 9 



•REMOVE .ALL .CDS. FROM 



. THE.RDR. ••**•••*••• 



•82200138 



8RLD..... 

9 



»AU. ...AAAA 

Y9 Y9Y9 
9 9 9 



AAANEAA4AAPAAAPJAAJM 
8YQ98YQ88Y9R8Y988Y88 
999 999 99 99 999 



AAMJAAMJDAND. 
8Y898Y888Y8Y 
999 99999999 



•82200139 



BUND. ALA* 

9 Y8Q 
999 



> • • . . AA. 

Y9 
9 



* BLDT. 
9 



.82200140 



.82200141 



last page 
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1403 PRINTER FUNCTION TESTS 
DESCRIPTION 

TABLE OF CONTENTS 

1. PURPOSE 1 

2. REQUIREMENTS ... 1 

3. OPERATING PROCEDURE . 1 

4. PRINTOUTS 2 

5. COMMENTS . • •• 3 



2. PREREQUISITES 



2.1 PROGRAM REQUIREMENTS. 



1. PURPOSE 



1.1 INTENT. 



F830 



F831 



F832 



PRINTER FUNCTION 1 
TESTS ABILITY TO... 

1. ADDRESS THE DEVICE UNDER TEST. 

2. ISSUE SENSE START 1-0. 

3. PROPERLY SET ALL CONDITION CODES. 

4. CLEAR INTERRUPTS WITH TEST 1-0 AND BY ENABLING 
THE SYSJEtt MASK. 

5. PROPERLY -STORE THE CSW (CHANNEL STATUS WORD). 

6. PROPERLY SET AND SUPPRESS THE INCORRECT LENGTH 
INDICATOR* 

7. COMMAND AND DATA CHAIN CHANNEL COMMAND WORDS (CCW). 

PRINTER FUNCTION 2 
TESTS ABILITY TO... 

1. BREAK COMMAND CHAINING WITH UNIT CHECK (CHANNEL 9). 

2. DISTINGUISH BETWEEN. DATA AND COMMAND CHAINING. 

3. BREAK COMMAND CHAINING WITH UNIT EXCEPTION (CHANNEL 12>« 

4. BREAK COMMAND CHAINING WITH INCORRECT LENGTH RECORD. 

5. REJECT THE BLOCK OB ALL,OW DATA CHECK COMMAND AND THE 
PRE-CONDITION LOAD COMMAND IF THEY A*E NOT FIRST 

IN A CHAIN. 

6. PRINT BLANKS 

7. SET AND RESET THE PRE-CONDITION LOAD LATCH. 

8. REJECT ALL INVALID COMMANDS ISSUED TO THE DEVICE. 

PRINTER FUNCTION 3 
TESTS ABILITY TO... 

LOAD THE UCS BUFFER WITH OR WITHOUT FOLDING. 
LOAD THE UCS BUFFER AND SET THE INCORRECT LENGTH 
RECORD FLAG ON WITH A SHORT OR LONG COUNT. 
LOAD THE UCS BUFFER WITH BLANKS -40-. 
SET PRINT CHECK. 

ISSUE DIAGNOSTIC CHECK READ AND OBTAIN CORRECT READ 
BACK . 

SET PRINT LINE COMPLETE BIT. 

ALLOW OR BLOCK DATA CHECKS DEPENDING UPON THE SETTING 
OF THE BLOCK DATA CHECK LATCH. 

PRINT A CHARACTER ON A SINGLE COMPARE BETWEEN DATA 
BUFFER AND UCS BUFFER. , 

LOAD THE DATA BUFFER WITH A SINGLE CHARACTER WITHOUT 
AFFECTING THE REST OF THE BUFFER. 
CORRECTLY TRANSFER WHAT IS IN THE PRINT AREA TO 
THE DATA BUFFER. 

11. PERFOW FOLDING FROM THE 1ST TO THE 4TH QUADRANT. 

12. CORRECTLY TRANSLATE DUAL ING CHARACTERS. 



1. 

2. 

3. 
4. 

5. 

6. 

7. 

8. 
9. 
10. 



ALL SECTIONS ARE RELOCATABLE. 

THE EXCLUSIVE CPU FLAG IS ON IN ALL SECTIONS. 



THE UNIT DEFINITION TABLE-UDT-ENTRY MUST BE PUNCHED AS FOLLOWS. 

* UNIT CODE * * ♦ 
* OPTIONAL FEATURE DIGIT 1* OPTIONAL FEATURE DIGIT 2 * 

* * * * 
< — - — - — . — — - — - — ~ — — — . — . — * 

* UNIT *ZZ*BIT 0* BIT 1* BIT 2* BIT 3* BIT 4* BIT 5* BIT 6* BIT 7 * 

* * *HEX 8* HEX 4* HEX 2* HEX 1* HEX 8* HEX 4* HEX 2* HEX I * 
* . **rrr*T * * — *• *- — ■ * * — * 

* 1403 PRINTER*83*ASCI I*SEL * ♦UNIV. * HI- * 120 * * 2821 * 

* OR * * *TAPE * ♦CHAR. *SPEED *PR1NT * *2 CHNL * 

* 1404 PRINTER* * *L ISTER* *BUFF. *PTR. ♦POS. * *$WITCH * 

* CONTINUOUS * * * * * * • * * * * 

* FORMS * * * * * * * * * * 



2.2 EQUIPMENT REQUIREMENTS. 

INPUT DEVICE FOR PROGRAM LOADING. 
OUTPUT DEVICE OTHER THAN TEST DEVICE. 
4K OF STORAG& FOR THIS PROGRAM. 

CPU 

CHANNEL 



3. USE PROCEDURE 

3.1 PROGRAM LOADING. 

STANDARD AS DESCRIBED IN USERS GUIDE. 

3.2 PROGRAM OPERATE. 



**************************** NOTE ***************************** 

* IF 2 CHANNEL SWITCH FEATURE INSTALLED, DISABLE THE UNUSED * 

* INTERFACE TO PREVENT NOT READY TO READY STATUS FROM BEING ♦ 

* PRESENTED TO THE OTHER CHANNEL • ♦ 
*************************************************************** 
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3.2,1 SENSE SWITCH USAGE® 

THE SENSE SWITCHES SHOWN BELOW ARE IN THE SENSE SWITCH BYTES OF THEIR 
RESPECTIVE SECTION PREFACES* THE CHARACTER X REPRESENTS THE RELOCATION 
FACTOR CONTAINED IN REGISTER 15 DURING RUN TIME. . THE SWITCH BITS ARE 
ZERO WHEN OFF, AND ONE WHEN ON. 



ISENS£I I SECTION I BYTE 

t sw. I FUNCTION I OR I AND 

, # I I ROUTINE I BIT 

I 0 1 OFF-PROCEEO * ALL \ X ® 04 
I I ON — LOOP ON CURRENT 1-0 COMMAND. I * *> 

I „ . 1 . —-.«— — — — i — — — — 1 < - . I 

I 1 I OFF-PRQCEED * ALL J X004 

I I ON — LOOP ON CURRENT SIQ, TIO COMMAND. I II 

I I — — — M - I « — I""' 

I 5 1 OFF-BYPASS MANUAL INTERVENTION ROUTINES* I F830 I X004 

1 1 ON — PERFORM MANUAL INTERVENTION ROUTINES. I I 5 

I ——I—— — — — ™— _ -I — 1— ■ 

I 7 I QFF-PROCEED I ALL I X004 

I I ON — PR INT CORRECT RESULTS. I 1 7 

I — I _---~™* — I — — 1 — 

I 24 I OFF-PROGRAM WILL ASSUME THE PRINTER DOES I F832 I X007 

I I HAVE A PCS EMITTER CHAIN* AND IS THEREFORE I I 0 

I I NOT IN DUAL ING MODE I 1 

I I on—program WILL ASSUME THE PRINTER DOES NOT HAVE I - I 

I I PCS EMITTER CHAIN AND IS IN DUALING MODE 1 I 

3.2.2 DUALING MODE INFORMATION 

IF THE UCS PRINTER IS AN -N1-, OR MOD 3* YOU CAN TELL IF IT IS IN 
DUALING MODF BY INSPECTING THE INSTALLED CHAIN CARTRIDGE. WHILE FACING 
THE PRiNTFR, YOU WILL SEE A MICRO SWITCH LOCATED NEAR THE 
LEFT END OF THE CARTRIDGE. IF THIS SWITCH IS NOT DEPRESSED BY A 
CLIP OR TAB ON T HE CARTRIDGE, THE PRINTER IS IN DUALING MODE. ■ 

IF THF UCS PRINTER IS A MOD 2* YOU CAN TELL IF IT IS IN DUALING 
MOOE BY INSPECTING THE INSTALLED CHAIN CARTRIDGE. WHILE FACING 
THE PRINTER YOU WILL SEE A SMALL CABLE CONNECTED TO THE LEFT END 
OF THE CHAIN CARTRIDGE. IF THIS CABLE IS DISCONNECTED, THE PRINTER 
IS IN DUALING MODE. 

3.2 PROGRAM HALTS 

F830 - THE PROGRAM WILL HALT ONCE FOR EACH DEVICE TO BE TESTED, AFTER 
' INSTRUCTING THE OPERATOR TO INSTALL THE DIAGNOSTIC CARRIAGE 
TAPE. THE PROGRAM WILL ALSO HALT MANY TIMES IN ROUTINE 07 
AFTER PRINTING OPERATOR INSTRUCTIONS, AND AT THE END OF THE 
ROUTINE. 

F832 - THE PROGRAM WILL HALT. FOR EACH UCS PRINTER* AFTER INSTRUCTING 
THE OPERATOR TO CHECK SECTION SENSE SWITCH 24. v 

3.3 PROGRAM OPERATE 

ALL ROUTINES IN EACH SECTION WILL BE RUN OH A DEVICE* BEFORE 
THE SECTION PROCEEDS TO THE NEXT DEVICE. 

4. . PRINTOUTS 

4.1 OPERATOR INSTRUCTIONS 
F830 

- INSTALL CARRIAGE TAPE, CE OUTPUT MUST NOT BE TEST DEVICE- 



THE ABOVE MESSAGE WILL OCCUR ONCE FOR EACH DEVICE, PRIOR TO A HALT. 
SEE F838* FOR DESCRIPTION OF CARRIAGE TAPE. MAKE THE DEVICE READY 
FOR THE TEST. IT MAY BE NECESSARY TO REDEFINE THE CE OUTPUT DEVICE 
AT THIS TIME. 

- RTN BYPASSED - 

THE ABOVE MESSAGE WILL OCCUR WHEN A ROUTINE IS BYPASSED. 

ROUTINE 07 WILL BE BYPASSED IF SECTION SENSE SWI TCH 5 IS OF F • 
THIS ROUTINE REQUIRES MANUAL INTERVENTION. IT TESTS 
THE RESPONSE OF A NOT READY DEVICE, A NOT .AVAILABLE 
DEVICE, AND REQUIRES OBSERVING CARRIAGE RESPONSE. 

ROUTINE 11 WILL BE BYPASSED IF SECTION SENSE SWITCH 7 IS ON . 

TESTS 0400 TO 0450 OF THIS ROUTINE ARE BYPASSED IF 
CORRECT PRINT SWITCH IS ON. THIS IS OUE TO TIMING 
RESTRICTIONS. MISLEADING RESULTS WOULD OCCUR IF TIME 
WAS TAKEN BETWEEN TESTS 0400 AND 0450 TO ATTEMPT 
PRINTING CORRECT RESULTS. 

• MAKE NOT READY— 

THE ABOVE PRINTOUT WILL APPEAR PRIOR TO A HALT IN ROUTINE 07. THE 
OPERATOR SHOULD DROP READY ON THE TEST DEVICE AT THIS TIME. 

- MAKE UNAVAILABLE- 

THE ABOVE PRINTOUT WILL OCCUR IN ROUTINE 07 PRIOR TO A HALT. THE 
OPERATOR* SHOULD MAKE THE TEST DEVICE UNAVAILABLE AT THIS TIME* FOR 
EXAMPLE, TAKE THE DEVICE OFF LINE. 

- MAKE AVAILABLE, RESTORE, READY- 

THE ABOVE PRINTOUT WILL OCCUR IN ROUTINE 07 PRIOR TO A HALT. THE 
OPERATOR SHOULD PLACE THE DEVICE ON LINE, RESTORE THE CARRIAGE, 
AND READY THE DEVICE BEFORE CONTINUING. 

- OBSERVE NO CARRIAGE MOTION- 

- SKIP TO 1 IMMED- 

THE ABOVE PRINTOUTS WILL APPEAR IN ROUTINE 07 PRIOR TO A HALT. THE 
OPERATOR SHOULD WATCH THE TEST DEVICE FOR ERRONEOUS CARRIAGE MOTION. 

- OBSERVE NO CARRIAGE MOTION- 

- PRINT NO SPACE- 

THE ABOVE PRINTOUT WILL APPEAR IN ROUTINE 07 PRIOR TO A HALT. THE 
OPERATOR SHOULD WATCH THE TEST DEVICE FOR ERRONEOUS CARRIAGE MOTION. 

- OBSERVE CARRIAGE MOTION- 

- SKIP TO 1 IMMEO- 

THE ABOVE PRINTOUT WILL OCCUR IN ROUTINE 07, PRIOR TO A HALT. THE 
OPERATOR SHOULD MATCH THE TEST OEVICE TO MAKE SURE THE CARRIAGE MOVES. 

F832 

-SEC SS 24 IS OFF SET IT ON FOR DUALING MOOE- 

-SEC SS 24 IS ON SET IT OFF IF NOT DUALING MODE- 
ONE OF THE ABOVE MESSAGES WILL APPEAR ONCE FOR EACH UCS PRINTER, 
PRIOR TO A HALT. THE OPERATOR SHOULD CHECK FOR THE PROPER SETTING 
OF THIS SWITCH BEFORE EACH DEVICE IS TESTED. 

ROUTINE 07 MILL BE BYPASSED IF SECTION SENSE SWITCH 24 IS OFF. 
THIS ROUTINE TESTS DUALING MODE. 
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1403 FUNCTION TEST 

4.2 STATUS MESSAGES 

4,2.1 SAMPLE CORRECT PRINTOUT 



LINE 




MESSAGE 


01 




SOO -F 8.304 08 00135C OOE- 


02 




TST 0370- 


03 




ADR 001BA4 LINK-? 


04 




ADR 001182 SIO- 


05 




CAW 001BB8- 


06 




CCW 05001031 80000020- 






CCW 00001831 00000064- 


07 




CC 0 EXP- 


08 




CC 0 ACT- 


09 




CSW O0OOIBC8 08000001 EXP- 


10 




CSW 00001BC8 08000001 ACT- 


11 




CSW 00000000 04000000 EXP- 


12 




CSW 00000000 04000000 ACT- 


13 




SNS 00 EXP- 


14 




SNS 00 ACT- 


15 




LOG 00 000000 000000 000000- 


16 




SS 0 ON FOR LOOP ON SIO, SS 1 ON FOR TIO SIO LOOP- 



4.2.2 ANALYSIS OF SAMPLE PRINTOUT 



LINE EXPLANATION 

01 THIS IS THE HEADER LINE PRINTED BY DM. IF AN ASTERISK 
PRECEEDS THE -SOO- AN ERROR HAS CAUSED THE MESSAGE 
PRINTOUT. IF NO ASTERISK IS PRINTED, THE MESSAGE 

IS A RESULT OF EITHER HAVING THE CORRECT PRINTOUT 

SWITCH ON OR AN OPERATOR MESSAGE IS TO FOLLOW. 

ALL LINES THAT FOLLOW THE -SDO- ARE PART OF THAT SAME 

MESSAGE. THE START OF A NEW MESSAGE IS INDICATED 

BY ANOTHER -SDO- PRINTOUT. THE -F830R- IS THE SECTION 

ID NUMBER WHERE -R- REPRESENTS THE REVISION LEVEL OF 

THE PROGRAM. THE -08- IS THE PROGRAM ROUTINE NUMBER 

WHILE THE -OOE- IS THE ADDRESS OF THE DEVICE UNDER 

TEST. 

02 THIS IS THE TEST NUMBER ASSOCIATED WITH THE MESSAGE. AT THE 
BEGINNING OF THE PROGRAM LISTING, THERE IS A LIST OF TEST 
NUMBERS. WITH THE TEST NUMBER IS A SHORT EXPLANATION OF 
WHAT WAS BEING DONE, AND WHAT SHOULD OCCUR. 

03 THIS LINE SHOWS THE ADDRESS FROM WHICH THE 1-0 HANDLER 
SUB-ROUTINE WAS ENTERED. ALL 1-0 COMMANDS ARE ISSUEO 
FROM THIS SUB-ROUTINE, SO IT IS ENTEREO MANY TIMES FROM 
MANY PLACES. TO INSURE THE SPECIFIC 1-0 OPERATION 

WILL BE THE NEXT ONE PERFORMED, RESTART THE PROGRAM WITH A 
SYSTEM RESET, PSW RESTART, AND AODRESS STOP AT THE GIVEN 
ADDRESS. 

04 THIS LINE SHOWS THE ADDRESS OF THE START 1-0, TEST 1-0, 

OR HALT 1-0 THAT WAS ISSUED IN THE 1-0 HANOLER SUB-ROUTINE. 

05 THIS LINE SHOWS THE ADDRESS OF THE CCW TO BE ISSUED BY 
A START 1-0 COMMAND. IF CCWS ARE CHAINED* THE ADDRESS 
GIVEN REFERS TO THE FIRST CCW IN THE CHAIN. 

06 THIS LINE DISPLAYS THE FIRST CCW. THE FIRST BYTE CONTAINS 
THE COMMAND CODE. THE NEXT 3 BYTES CONTAIN AN AODRESS IN 
STORAGE, WHICH WILL BE USED IF DATA TRANSFER IS PERFORMED. 
THE NEXT BYTE CONTAINS FLAGS USED BY THE CHANNEL. THE LAST 
3 BYTES ARE THE COUNT FIELD. IF CHAINING IS INDICATED IN 
BYTE 4, ADDITIONAL CCWS WILL BE SHOWN BELOW THIS LINE. 
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07 THIS LINE SHOWS THE CONDITION COOE EXPECTEO, BY THE 
PROGRAM, IN RESPONSE TO ISSUING THE 1-0 COMMAND. 

08 THIS LINE SHOWS THE ACTUAL CONDITION CODE SET IN RESPONSE 
TO THE 1-0 COMMAND. 

09 THIS LINE DISPLAYS THE FIRST CSW EXPECTED BY THE PROGRAM. 
A BIT BY BIT DESCRIPTION OF THE OEVICE STATUS BYTE PORTION 
OF THE CSW, APPEARS IN THE PROGRAM LISTING, FOLLOWING 

THE TEST NUMBER DESCRIPTIONS. 

10 THIS LINE DISPLAYS THE ACTUAL CSW RECIEVED BY THE PROGRAM. 
NOTE... FOR EVERY EXPECTED -EXP- CSW PRINTED OUT THERE 

SHOULD BE A CORRESPONDING ACTUAL -ACT- CSW 
PRINTED OUT ON THE NEXT LINE. THE ABSENCE 
OF A -ACT- CSW PRINTOUT INOICATES A MACHINE 
FAILURE. A MACHINE FAILURE IS ALSO INDICATED 
IF THERE ARE -ACT- CSW PRINTOUTS WHEN THERE 
ARE NONE EXPECTED. 

11 THIS LINE WILL APPEAR IF THE PROGRAM EXPECTS MORE THAN 
ONE CSW. 

12 THIS LINE WILL APPEAR IF THE PROGRAM RECIEVED A SECOND CSW. 

13 THIS LINE SHOWS THE SENSE BYTE EXPECTED BY THE PROGRAM. 
A BIT BY BIT DESCRIPTION OF THE 1403 SENSE BYTE APPEARS 

IN THE PROGRAM LISTING, AFTER THE TEST NUMBER DESCRIPTIONS. 

14 THIS LINE SHOWS THE ACTUAL SENSE BYTE RECIEVED BY THE PROGRAM. 

15 THIS LINE DISPLAYS THE CPU AND CHANNEL LOGOUT AREA ON 
MODEL 30 SYSTEMS. IT WILL NOT APPEAR ON ANY OTHER SYSTEM. 

16 THIS LINE SHOWS THE SECTION SENSE SWITCH LOOP OPTIONS. 
IF AN ERROR HAD OCCURRED, AND DM SENSE SWITCH 25 WAS ON, 
A HALT WOULD NOW OCCUR, TO ALLOW SETTING OF THE SECTION 
SENSE SWITCHES. TO INSURE THAT YOU WILL LOOP ON THE 
COMMAND THAT FAILED* YOU SHOULD REQUEST A HALT ON ERROR. 
SET THE PROPER SENSE SWITCH ON, AND PRESS THE EXTERNAL 
INTERRUPT KEY TO LOOP. 

PREVIOUS HANGUP OiTfiC TED- 
SEE DESCRIPTION-COMMENTS - 



5. COMMENTS 
5.1 LOOPING 



IF IT IS DESIRED TO LOOP ON AN ENTIRE ROUTINE RATHER THEN USE THE 
SECTION SENSE SWITCH LOOPS PROVIDED. MANUALLY ENTER 

THE NUMBER OF THE ROUTINE IN X04C. WHERE X STANDS FOR THE RELOCATION 
ADDRESS. NOW PERFORM A SYSTEM RESET-PSW RESTART, TO LOOP THE ROUTINE. 
SENSE SWITCHES MAY BE SET BY MANUALLY ENTERING THE DESIRED BITS. 



5.2 HANG UP 



THE HANG UP MESSAGE WILL APPEAR IF A SYSTEM RESET PSW RESTART IS 
PERFORMED AFTER A HANGUP CONDITION ON AN T-0 COMMANO. FOLLOWING 
THIS LINE WILL BE A PRINTOUT SIMILAR TO THE ABOVE SAMPLE MESSAGE. 

A FALSE HANG UP MESSAGE PRINTOUT CAN OCCUR IF THE OPERATOR PERFORMS 
A SYSTEM RESET-PSW RESTART WHILE THE PROGRAM IS RUNNING. THE PROGRAM 
WILL RESTART AFTER PRINTING THE MULTI-LINE ERROR MESSAGE, OR ANOTHER 
SYSTEM RESET PSW RESTART MAY BE PERFORMED TO BYPASS THE ERROR MESSAGE. 
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01000 
01000 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
*0 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 



PRINT ON, GEN, DATA 
XF8305 START 4096 
USING *,15 

* 

* MODIFICATIONS 
* 

* REVISION LEVEL 5. THIS REVISION DIFFERS FROM VERSION 4 AS FOLLOWS... 

* 1. PROGRAM HAS BEEN MODIFIED TO RUN WITH DM-44. 
************ ********************************^ 

* REVISION LEVEL 4. THIS REVISION DIFFERS FROM VERSION 3 AS FOLLOWS... 
1. THE PROGRAM HAS BEEN MODIFIED TO INCLUDE -TEST NUMBERS- 

THE PROGRAM WILL TEST THE RESET OF THE CARRIAGE LATCHES 
ON A PRINT AND SPACE COMMAND. 

INCREASED TESTING AND USE OF HALT 1-0 INSTRUCTION. 
TEST THE ABILITY TO SET AND SUPPRESS INCORRECT LENGTH RECORD 
ON A READ COMMAND. 

INCLUDE TESTING PREVIOUSLY HANDLED BY PROGRAM ID F833 WHICH 
IS NOW OBSOLETE. 
E.C. PREREQUISITES 

MACHINE . . . 2821 MUST BE AT MINIMUM EC 125655 
PROGRAM . . . NONE 
USE DESCRIPTION F830* AT EC 125655, DATED NOV 15, 1966 OR LATER. 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦#******************^ 

REVISION LEVEL 3. THIS REVISION DIFFERS FROM VERSION 2 AS FOLLOWS... 
1. THE PROGRAM HAS BEEN MODIFIED TO RESET THE BLOCK DATA CHECK 
LATCH, ON UCS PRINTERS, DURING INITIALIZATION OF THE SECTION. 
E.C. PREREQUISITES 

MACHINE . . . 2821 MUST BE AT MINIMUM E.C. LEVEL 124265. 
PROGRAM . • . NONE 



2. 



3. 
4. 



5. 



* 
* 

* TEST NUMBER DESCRIPTION 
****************************************** 
******************************************* 

* TEST DESCRIPTION 



* 0010 

4c 

* 
* 
* 



ROUTINE 01 
OPERATION ATTEMPTED 

A TEST 1-0 IS ISSUED TO A READY DEVICE. 
EXPECTED RESPONSE 

EXPECT COND. CODE 0 (COMMAND ACCEPTED) 
POSSIBLE FAILURE CAUSES 

1. CONDITION CODE 2 INDICATES THE CHANNEL APPEARS TO BE BUSY. 

2. CONDITION CODE 3 INDICATES THERE IS NO DEVICE FOR THE 
ADDRESS USED. THE DM UDT ENTRY COULD BE IN ERROR, OR THE 
DEVICE MAY 8E OFF LINE. 

3. IF CONDITION CODE 1 IS SET, THE CSW MUST BE INSPECTED TO 
DETERMINE THE CAUSE. UNIT CHECK MIGHT BE DUE TO NOT READY 
DEVICE. CHANNEL OR DEVICE END INDICATES THAT AN INTERRUPT 
WAS PENDING IN THE CHANNEL. 



STMT 




SOUR 


63 






64 


* 




65 






66 




0020 


67 


* 




66 


* 




69 






70 


* 




71 


*c 




72 






73 


♦ 




74 


* 




75 


* 




76 


* 




77 


♦ 




78 


* 




79 


* 




80 






81 


* 




82 


* 




83 


* 


0030 


84 






85 






86 


* 




87 






88 


* 




89 


4c 




90 


♦ 




91 


4c 




92 


4c 




93 


4c 




94 


♦ 




95 


* 




96 


.* 




97 


* 




98 


4c 




99 


4c 




100 


4c 


0040 


101 


4c 




102 


4c 




103 


4c 




104 


4c 




105 


4c 




106 


4c 




107 


4c 




108 


« 




109 


4c 




110 


4c 




111 


4c 




112 


4c 




113 


4e 




114 


4c 




115 


4c 




116 


4c 




117 


4c 




118 


4c 


0050 


119 


4c 




120 


4c 




121 


* 




122 


4c 




123 


4c 




124 


* 




125 


4c 




126 


4c 
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SOURCE STATEMENT 

ROUTINE 02 

- OPERATION ATTEMPTED 
A SENSE START 1-0 IS ISSUED TO READY DEVICE* 
EXPECTED RESPONSE 

EXPECT COND. CODE 0 (COMMAND ACCEPTED) 
POSSIBLE FAILURE CAUSES 

1. CONDITION COOE 2 COULD BE DUE TO A PENDING CHANNEL END, OR 
A BUSY CHANNEL. 

2. IF CONDITION CODE 1 WAS SET, THE CSW MUST BE INSPECTED TO 
DETERMINE THE CAUSE. DEVICE END WITH DEVICE BUSY INDICATES 
A DEVICE END WAS PENDING IN THE DEVICE. 

- OPERATION ATTEMPTED 

A TEST 1-0 TO PENDING CHANNEL AND DEVICE END FROM PREVIOUS 
SENSE IS ISSUED. 

EXPECTED RESPONSE 

EXPECT COND. CODE 1 AND CHANNEL END DEVICE END BOTH IN THE CSW 
FROM THE PREVIOUS SENSE I/O COMMAND. 

POSSIBLE FAILURE CAUSES 

1. CONDITION CODE 2 INDICATES THE CHANNEL IS BUSY. 

2. FAILURE TO RECEIVE CHANNEL AND DEVICE END COULD INDICATE 
THE DEVICE FAILED TO PRESENT ENblNG STATUS. 

- OPERATION ATTEMPTED 
ANOTHER TIO IS GIVEN. 
EXPECTED RESPONSE 

EXPECT COND. CODE 0. DEVICE SHOULD BE CLEAR OF PENDING 
INTERRUPTS. 

POSSIBLE FAILURE CAUSES 

1. CONDITION CODE 1 WITH UNIT CHECK IN THE CSW COULD INDICATE 
A NOT READY OEVICE. CHANNEL OR DEVICE END INDICATES THE 
PREVIOUS TIO FAILED TO CLEAR THEM. 



ROUTINE 03 
OPERATION ATTEMPTED 
A SENSE SIO IS ISSUED. 
EXPECTED RESPONSE 

EXPECT CHANNEL END DEVICE END TOGETHER. 
POSSIBLE FAILURE CAUSES 



DATE 
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STMT 




SOURCE STATEMENT 


121 








128 


* 




1* FAILURE TO RECEIVE CHANNEL ANO DEVICE END INDICATES THAT 


129 


* 




ENABLING THE CHANNEL FOR 1-0 INTERRUPTS FAILED TO BRING IN 


130 


* 




THE DEVICE STATUS* 


131 


* 






132 


* 






133 


* 


0060 - 


OPERATION ATTEMPTED 


*.. 134 


* 






135 






TEST 1-0 IS ISSUED. 


136 


* 






137 


* 




EXPECTED RESPONSE 


138 








139 


* 




EXPECT rDND. f ODE 0. DEVICE ^HDUt D RF ft FAR flF PENDING 


140 


* 




INTERRUPTS* 


141 








142 


♦ 






143 






routine o& 


144 


* 






145 




0070 - 


OPERATIflN ATTEMPTED 


146 


* 






147 


* 




A nop t «; i ^<iiEn Tn ready nFvi cf 


a 1*8 








149 


* 




EXPECTED RESPONSE 


150 


* 






151 


» 




expect cnwn_ rnnE i uttm ci-iaimkipi cun nFvirc cwn cmocn iu 


152 






THE c ^W-. Kin INTERRUPT cndim n ncciiR 


153 


♦ 






154 


# 






155 




0080 - 


OPERATION ATTEMPTED 


156 








157 






IE UCS PRINTER A PRE-CONDITION 1 PAR T «; Tccncn. 


158 


* 






159 






EXPECTED RESPONSE 


160 








161 


* 




THIS COMMAND ACTS LIKE A NOP. EXPECT C0ND. CODE 1 WITH 


162 


* 




CHANNEL END DEVICE END STORED IN THE CSW. NO INTERRUPTS 


163 






SHOULD OCCUR. 


164 


* 






165 






NOTE. ..THIS TEST DOES NOT PRINTOUT IE THE CORRFCT PR INTOUT 


166 


* 




SWITCH IS ON AND THE TEST DEVICE I ^ NOT A UCS 


167 


* 




PR INTER. 


168 


* 




+ + + + + + + + + + + + + + + + + + + + + + + + + + + $ * 


169 


* 






170 


* 






171 


* 


0090 - 


OPERATION ATTEMPTED 


172 


♦ 






173 


* 




IF UCS PRINTER A BLOCK DATA CHECK IS ISSUED. 


174 








175 


* 




EXPECTED RESPONSE 


176 


* 






177 






THIS COMMAND ACTS LIKE A NOP. EXPECT C0ND. CODE 1 WITH 


178 


* 




CHANNEL END DEVICE END STORED IN THE CSW. NO INTERRUPTS 


179 






SHOULD OCCUR. 


180 


* 






181 


* 




NOTE. ..THIS TEST DOES NOT PRINTOUT IF THE CORRECT PRINTOUT 


182 


* 




SWITCH IS ON AND THE TEST DEVICE IS NOT A UCS 


183 


♦ 




PRINTER. 


184 


♦ 






185 








186 








187 




0100 - 


OPERATION ATTEMPTED 


188 








189 






IF UCS PRINTER AN ALLOW DATA CHECK IS ISSUE0. 


190 
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LOCAT OBJECT CODE 



STMT 

191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 



SOURCE STATEMENT 



EXPECTED RESPONSE 

THIS COMMAND ACTS LIKE A NOP. EXPECT COND. COOE 1 WITH 
CHANNEL END DEVICE END STORED IN THE CSW. NO INTERRUPTS 
SHOULD OCCUR. 
*4c4c4"*4<******4c*******4^*^ 

NOTE. ..THIS TEST DOES NOT PRINTOUT IF THE CORRECT PRINTOUT 
SWITCH IS ON AND THE TEST DEVICE IS NOT A UCS 
PRINTER. 



ROUTINE 05 
0110 - OPERATION ATTEMPTED 

A DIAGNOSTIC WRITE IS ISSUED WITH COUNT OF 131. 
EXPECTED RESPONSE 

EXPECT CHANNEL END WITH INCORRECT LENGTH RECORD AND THEN 
DEVICE END. 

0120 - OPERATION ATTEMPTED 

A DIAGNOSTIC WRITE IS ISSUED WITH COUNT OF 131 WITH SLI FLAG. 
EXPECTED RESPONSE 

EXPECT CHANNEL ENO AND THEN DEVICE END. INCORRECT LENGTH 
RECORD SHOULD BE BLOCKED. 

0130 - OPERATION ATTEMPTED 

A DIAGNOSTIC READ IS ISSUED WITH COUNT OF 131. 
EXPECTEO RESPONSE 

EXPECT CHANNEL END DEVICE END AND INCORRECT LENGTH RECORD 
ALL TOGETHER. 

0140 - OPERATION ATTEMPTED 

A DIAGNOSTIC READ IS ISSUED WITH COUNT OF 131 WITH SLI FLAG. 
EXPECTEO RESPONSE 

EXPECT CHANNEL END DEVICE END TOGETHER. INCORRECT LENGTH 
RECORD SHOULD BE BLOCKED. 

0150 - OPERATION ATTEMPTED 

A DIAGNOSTIC WRITE IS ISSUED WITH COUNT OF 133* 
EXPECTEO RESPONSE 

EXPECT CHANNEL END » INCORRECT LENGTH RECORD, AND RESIDUAL 
COUNT OF 1. THEN DEVICE END. 
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STMT 




SOURCE STATEMENT 


LOCAT OBJECT CODE STMT 




SOURCE STATEMENT 


255 


* 


0 160 




UrC f\M iiuni mi icrir ICU 


319 


* 




EXPECTE0 RESPONSE 


256 










320 


4c 






257 








a niATMrcTtr uoitc t c f cciicn uttu rniiAiT fie i •a "X U TTU CI T CI AI* 
A UlAbNU5llC WKlIc 15 1 boUtU W1IH COUNT Or 153 WITH 5L I rLAG. 


321 


4c 




EXPECT C0ND. CODE 1 AND CHANNEL END FROM PREVIOUS DIAGNOSTIC 


258 










322 


4t 




WRITE SHOULD BE IN THE CSW. 


259 


* 






EXPECTE0 RESPONSE 


323 


♦ 






260 










324 


4c 






261 


* 






fvdfpt ruAMMCi Chin uttu DCCTniiAi rmihiT nc t a Kin tucm ncu ire 
CArcll l*ri ANiNC L cIMU Wlln KC51UUAL UUUIMI Ur 1 ANU 1 MtN UEV1LE 


325 


4c 


0230 - 


OPERATION ATTEMPTED 


262 


* 






END • 


326 


4c 






263 


* 








327 


4c 




A HALT 1-0 IS ISSUED. 


264 


♦ 








328 


* 






265 


* 


0170 




OPERATION ATTEMPTED 


329 


4c 




FXPFfTFn RFSPDN<F 


266 










330 


4c 






267 


* 






a ni ArmncTTr ocAn i c t ccticn uttu rniiMT nc m 
A UlAbN05llC KtAU 15 1 550EU Wlln COUNT Or 133* 


331 


4> 




FXPFfT 7FRO C^W AND COND. CODE 1. 


268 










332 


4c 






269 








cvoccTcri Dcconucc 
tXrcLlbU RESPONSE 


333 


4c 






270 










334 


4c 


0240 - 


OPERATION ATTEMPTED 


271 


* 






EXPECT CHANNEL END ? DEVICE END* INCORRECT LcNGTHf AND 


335 


4c 






272 








RESIDUAL COUNT Or 1 ALL TUbETHER. 


336 


4c 




ANflTHFR DIAftNfKTir UR I TF IS ISSUED. 


273 


4c 








337 


4c 






274 










338 


4c 




FXPFfTFn RESPONSE 


275 


* 


0180 




OPERATION ATTEMPTED 


339 


4c 






276 










340 


4c 




EXPECT DEVICE BUSY AND DEVICE END. COND. CODE 1 SHOULD OCCUR 


277 


4c 






A DIAGNOSTIC READ IS ISSUED WITH COUNT Or 133 WITH SLI FLAG* 


341 


4c 




RFfAIICF nFUTTF END CM(1II1 fl C.TI11 RE PENDING*. 


278 


♦ 








342 


♦ 






279 


* 






CVDCf TCP DCCDnMCC 


343 


4c 






280 


4c 








344 


4c 


0250 - 


OPERATION ATTEMPTED 


281 


4c 






cvDcn ruAUKici CKin ncuirc ckin uttu dec tnn ai rmtfciT nc i 
tArct 1 LnAniNCL cINU UCVltt tiNU Wlln KcblUUAL COUNI Or 1 


345 


4c 






282 


4c 






ai i TnrcTuco 
ALL IObr. 1 HER* 


346 


4c 




A HALT I-fl IS ISSUED. 


283 


4c 








347 


4c 






284 


4c 








348 


4c 




EXPECTED RESPONSE 


285 


* 






DnilTTKIC HA 
KUU 1 1 IMC UO 


349 


4c 






286 


4c 








350 


4c 




EXPECT A ZEROED CSW AND A COND. CODE OF 1. 


287 


4c 


n i on 




nDCDATirtkl ATTCMDTCn 
UrtKAIlDIN AllCnrlcU 


351 


4c 






288 


4c 








352 


4c 






289 


4c 






a nt APkincTir udttc ic i ccticn 
A U lAuNUo 1 11/ WKlIc lo 1 5 5UCU. 


353 


4c 


0260 - 


OPERATION ATTEMPTED 


290 


4c 








354 


4c 






291 


4c 






c Ar CU 1 CD KOrUNoC 


355 


4c 




A TEST 1-0 IS ISSUED. 


292 


4c 








356 


4c 






293 


4c 






C¥Dcn rnwn r nnp n un tntpboiidtc adp ri cAocn 

CArCU 1 \»UiMU. tUUC U. HIU 1 n 1 CKKUr 1 o MKC vLCAKCU* 


357 


4c 




EXPECTED RESPONSE 


294 


4c 








358 


4c 






295 


4c 








359 


4c 




EXPECT COND. CODE 1 BECAUSE THE DEVICE SHOULD BE CLEARED OF 


296 


4c 


0200 




nDCDATTHM ATTCMDTCn 

OPERATION AiTEnPTcu 


360 


4c 




PENDING INTERRUPTS. 


297 


* 








361 


4c 






298 


4c 






AKlilTUPD PIT AHMflCTf i" UDTTC IC TCCHPn 
AniUlncK UAAbPIUollu WK1 It 15 1 55UEU. 


362 


4c 






299 


4c 








363 


4c 




ROUTINE 07 


300 


♦ 






EXPECTE0 RESPONSE 


364 


4c 






301 


* 








365 


4c 


0270 - 


OPERATION ATTEMPTED 


302 


4c 






EXPECT C0ND. CODE 2 BECAUSE CHANNEL END OF PREVIOUS WRITE WAS 


366 


4c 






303 


4c 






NOT CLEARED. 


367 


4c 




A NOP SI0 IS ISSUED TO A NOT READY DEVICE. 


304 


4c 








368 


4c 




i 


305 


4> 








369 


4c 




EXPECTED RESPONSE 


306 


4c 


0210 




OPERATION ATTEMPTED 


370 


4c 






307 


♦ 








371 


4c 




EXPECT UNIT CHECK ALONE AND COND* CODE OF 1. A SENSE IS 


308 


4c 






A HALT 1-0 IS ISSUED. 


372 


4c 




ISSUED AND INTERVENTION REQUIRED SHOULD BE IN THE SENSE BYTE. 


309 


4c 








373 


4c 






310 


4c 






EXPECTE0 RESPONSE 


374 


4c 






311 


4c 








375 


4> 


0280 - 


OPERATION ATTEMPTED 


312 


4c 






EXPECT C0ND. CODE 0 


376 


4c 






313 


4c 








377 


4c 




A TEST 1-0 IS ISSUED TO A NOT READY DEVICE. 


314 


4c 








378 


4c 






315 


♦ 


0220 




OPERATION ATTEMPTED 


379 


4c 




EXPECTED RESPONSE 


316 


* 








380 


4> 






317 


4i 






A TEST I~0 IS ISSUED. 


381 


4i 




EXPECT UNIT CHECK ALONE AND COND. CODE OF i. A SENSE IS 


318 


* 






382 


4» 




ISSUED AND INTERVENTION REQUIRED SHOULD BE IN THE SENSE BYTE. 
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< TMT 




§0U 




♦ 




ant 






5o3 


* 


0290 


386 






387 






388 






389 






390 






39 1 






392 






393 






394 


* 


0300 


395 






396 






397 






398 


♦ 




399 


♦ 




400 


4c 




401 


♦ 




402 


♦ 




403 


* 


0310 


404 






405 






406 






407 






408 






409 






*i 1U 






All 
SIX 


* 












* 










415 






lit 

*» AO 






A17 
*H f 






"HO 






St. I'O 












Sc 


* 




*tt<t 


♦ 
















A9«i 


4c 




A OA 






St » 


* 










429 










rt <kA.n 


431 


* 




432 






433 


* 




434 


♦ 




435 






436 


* 




437 


♦ 




438 


* 




439 






440 


* 




441 


* 


0350 


442 


* 




443 


* 




444 


* 




445 






446 


* 





SOURCE STATEMENT 



ISSUE A HALT 1-0 TO NOT READY DEVICE. 
EXPECTED RESPONSE 

EXPECT A ZEROED CSW WITH COND. CODE 1. 
OPERATION ATTEMPTED 

A NOP SIO IS ISSUED TO A NOT AVAILABLE DEVICE. COFF LINE ) 
EXPECTED RESPONSE 

COND. CODE 3 SHOULD BE SET INOT OPERATIONAL) 
OPERATION ATTEMPTED 

A TEST 1-0 IS ISSUED TO A NOT AVAILABLE DEVICE. (OFF LINE) 
EXPECTED RESPONSE 

CONO. CODE 3 SHOULD BE SET ( NOT OPERATIONAL) 
OPERATION ATTEMPTED 

A HALT 1-0 IS ISSUED TO A NOT AVAILABLE DEVICE. (OFF LINE) 
EXPECTED RESPONSE 

COND. CODE 3 SHOULD BE SET (NOT OPERATIONAL). 
OPERATION ATTEMPTED 

A TEST 1-0 TO A DEVICE THAT JUST WENT FROM NOT READY TO READY. 
EXPECTED RESPONSE 

EXPECT DEVICE END ALONE, WITH A COND. CODE 1. 

0340 - OPERATION ATTEMPTED 

A SKIP TO 1 IMMEDIATE IS ISSUED TO A OEVICE WHOSE CARRIAGE WAS 
JUST RESTORED. 

EXPECTED RESPONSE 

EXPECT CHANNEL END AND THEN DEVICE END - NO CARRIAGE MOTION 
SHOULD OCCUR SINCE THE CARRIAGE IS ALREADY AT CHANNEL 1. 



A PRINT AND SPACE SUPPRESS IS ISSUED. 
EXPECTED RESPONSE 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 

1403 PRINTER FUNCTION 1, 

LOC AT OBJECT CODE 



P/N 840104 
PAGE 4A 



STMT 




SOURCE STATEMENT 


447 






EXPECT CHANNEL END AND THEN DEVICE END. 


448 


* 




NOTE. ..NO HAMMERS WILL BE FIRED. 


449 








450 


4c 






451 


4c 


0360 - 


OPERATION ATTEMPTED 


452 


4c 






453 






A SKIP TO 1 IMMEDIATE IS ISSUED. 


454 


* 




■ 


455. 






EXPECTEO RESPONSE \ 


456 








457 


4c 




EXPECT CHANNEL END AND THEN DEVICE ENO. PREVIOUS PRINT AND 


458 


4c 




SPACE SUPPRESS SHOULD HAVE RESET THE CARRIAGE LATCHES, AND 


459 


4c 




THE CARRAIGE SHOULD SKIP TO THE NEXT CHANNEL I. 


460 


4c 






461 


4c 






462 


4c 




ROUTINE 08 


463 


4c 






464 


4c 


0370 - 


OPERATION ATTEMPTED 


465 


* 






466 


4t 




A DIAGNOSTIC WRITE WITH A COUNT OF 32 IS DATA CHAINED TO AN 


467 


4c 




INVALID COMMAND WI TH A COUNT OF 100. 


468 


4c 






469 


4c 




EXPECTED RESPONSE 


470 


4c 






47 1 


4c 




EXPECT CHANNEL END AND THEN DEVICE END. NO ERRORS SHOULD 


472 


4e 




OCCUR BECAUSE THE SECOND COMMAND SHOULD NOT BE INSPECTED. 


473 


4c 






474 


4c 






475 


♦ 




ROUTINE 09 


476 


4c 






477 


4c 


0380 - 


OPERATION ATTEMPTED 


478 


4c 






479 


* 




A NOP IS COMMAND CHAINED TO ANOTHER NOP WITH A COUNT OF 1. 


480 


4c 






481 


4> 




EXPECTED RESPONSE 


482 


4c 






483 


4c 




EXPECT CHANNEL END DEVICE END AND RESIDUAL COUNT OF 1 TOGETHER 


484 


4c 




EXPECT COND. COOE 0 ON THE SIO BECAUSE OF THE CHAIN FLAG. 


485 


♦ 




THE ADDRESS OF THE SECOND CCW PLUS 8 IS IN THE CSW. 


486 


4c 






487 


* 






488 


4c 




ROUTINE 10 


489 


4> 






490 


4c 


0390 - 


OPERATION ATTEMPTED 


491 


4c 






492 


4c 




A DIAGNOSTIC CHECK READ IS ISSUED. 


493 


4c 






494 


♦ 




EXPECTED RESPONSE 


495 


4c 






496 


4c 




EXPECT CHANNEL AND DEVICE END TOGETHER. 


497 


4c 






498 


4c 






499 


♦ 




ROUTINE 11 


500 


4c 






501 


4c 


0400 ~ 


OPERATION ATTEMPTED 


502 


4c 






503 


4c 




A PRINT AND SKIP TO I IS ISSUED. THIS TEST ACCEPTS ONLY 


504 


4c 




CHANNEL END INTERRUPT AND GOES TO TEST 0410 BEFORE DEVICE 


505 


4c 




END IS CLEARED. 


506 


4c 






507 


4c 




EXPECTED RESPONSE 


508 


* 






509 






EXPECT CHANNEL END ONLY. 


510 


* 
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1403 PRINTER FUNCTION 1 



1403 PRINTER FUNCTION 1 



LOCAT OBJECT CODE 



STMT 




SOURCE STATEMENT 


LOCAT 


OBJECT CODE 


STMT 


SOURCE 


STATEMENT 






5U 


* 










575 


* 


ISSUE A DIAGNOSTIC WRITE AND CLEAR ONE INTERRUPT. i 




512 




0410 - 


OPERATION ATTEMPTED 






576 


* 










513 












577 


* 


EXPECTEO RESPONSE 






514 


* 




A TEST 1-0 IS ISSUED TO A DEVICE WITH CHANNEL END CLEARED, AND 






578 


* 










515 


* 




DEVICE END HAS NOT OCCURED YET. 






579 




EXPECT COND. CODE 0. 


THIS TEST CLEARS CHANNEL END ONLY. 




516 


* 










580 


* 










517 






EXPECTED RESPONSE 






581 


* 










518 












582 


* 0480 


- OPERATION ATTEMPTED 






519 






EXPECT DEVICE BUSY AND THEN DEVICE ENO DUE TO THE OPERATION 






583 


* 










520 






OF THE PREVIOUS TEST 0400 WHICH LEFT A DEVICE END PENDING. 






584 


* 


ISSUE AN INVALID COMMAND TO A DEVICE WITH DEVICE END PENDING. 


521 


* 




EXPECT COND. CODE 1. DEVICE END FROM PREVIOUS SKIP IS NOW 






585 


* 










522 


* 




CLEARED BY ENABLING FOR INTERRUPTS. 






586 


♦ 


EXPECTEO RESPONSE 






523 












587 












524 


* 










588 




EXPECT DEVICE BUSY AND DEVICE END TOGETHER, AND A COND. CODE 




525 


* 


0420 - 


OPERATION ATTEMPTED 






589 


* 


OF 1. SENSE IS ISSUED AND NO BITS ARE EXPECTED TO BE SET. 




526 












590 


* 










527 


* 




A PRINT AND SKIP TO 1 I S ISSUED. 






591 


* 










528 


* 




THIS TEST ACCEPTS ONLY CHANNEL END INTERRUPT AND GOES TO 






592 


*********************************************************************** 


529 


* 




TEST 0430 BEFORE DEVICE END IS CLEARED. 






593 


******************* 


******************* 


530 


* 










594 


* SECTION 


PREFACE *********************************** SECTION PREFACE 


* 


531 


* 




EXPECTED RESPONSE 






595 


******************* 


******************* 


532 


* 






01000 


F8305000 


596 


SECNO 


DC 


XL4«F8305000» 


PROGRAM , SECT I ON AND REVISION NOS. 


♦ 


533 






EXPECT CHANNEL END ONLY. 


01004 


00000000 


597 


SNSW 


DC 


XL4 , 00» 


SECTION SENSE SWITCHES 


* 


534 








01008 


0000 


598 




DC 


XL2«00« 




* 


535 


* 






0100A 


0000 


599 


ICM 


DC 


XL2 , 00» 


INTERRUPTION CONDITION MASK 


* 


536 


* 


0430 - 


OPERATION ATTEMPTED 


0100C 


00 


600 


SDMF 


DC 


XLl'OO* 


SECTION DM FLAGS 




537 


* 






0100D 


01 


601 


NIOU 


DC 


XLl'Ol* 


NUMBER OF UNIT TABLE ENTRYS 


♦ 


538 


* 




A START 1-0 IS ISSUED TO A DEVICE WITH CHANNEL END CLEARED AND 


0100E 


CO 


602 


FLAG1 


DC 


X«CO« 


EXCLUSIVE CPU 


* 


539 


* 




DEVICE END HAS. NOT OCCURRED YET. 


0100F 


00 


603 


FLAG2 


DC 


X»00« 


I/O INT ARE ERRf EXT INT TO PROG 


* 


540 


* 




01010 


010400 0000 


604 


INPSW 


DC 


X« 01 04000000* 


DISABLED, SPVSR STATE, NO PGM MASK 




541 






EXPECTEO RESPONSE 


01015 


001954 


605 




DC 


AL3CR0UT01) 


ADR OF 1ST ROUTINE PREFIX 


* 


542 








01018 


0000000000000000 


606 


EXOPSW 


DC 


XLS'O* 


SECTION OLD EXTERNAL PSW 


* 


543 


* 




EXPECT DEVICE BUSY AND THEN DEVICE END DUE TO THE OPERATION 


01020 


oooooooooooooooo 


607 


SVOPSW 


DC 


XL8«00 f 


CLEAR ALL OLD PSWS 


* 


544 


* 




OF THE PREVIOUS TEST 0420 WHICH LEFT A DEVICE END PENDING. 


01028 


0000000000000000 


608 


PGOPSW 


DC 


XL8«00« 


PROGRAM OLD PSW 




545 


* 




CAKtL 1 tUNU. COUc 1. DEVICE END FROM PREVIOUS SKIP IS NOW 


01030 


oooooooooooooooo 


609 


MCOPSW 


DC 


XL8«00« 


MACHINE CHECK OLD PSW 


* 


546 


* 




CLEARED BY ENABLING FOR INTERRUPTS. 


01038 


oooooooooooooooo 


610 


IOOPSW 


DC 


XLS'OO* 


I/O OLD PSW 


* 


547 








01040 


oooooooooooooooo 


611 


CSW 


DC 


XL8«00« 


CHANNEL STATUS WORD 




548 








01048 


00000000 


612 


CAW 


DC 


XL4*00« 


CAW 


* 


549 




0440 — 


OPERATION ATTEMPTED 


0104C 


oooooooooooooooo 


613 




DC 


XL12«00« 


RESERVED FOR DM USE 


* 


550 


* 






01054 


00000000 














551 


♦ 




A PRINT AND SKIP TO 1 I S I SSUEO, AND ONLY CHANNEL END IS TAKEN 


01058 


0004000000 


614 


EXNPSW 


DC 


X» 0004000000* 


EXTERNAL NEW PSW 


* 


552 


* 




THIS TEST ACCEPTS ONLY CHANNEL END INTERRUPT AND GOES TO 


0105D 


000000 


615 


SRET 


DC 


XL3*0* 


ADR OF EXT INTRPT ROUTINE 


* 


553 


* 




TEST 0450 BEFORE DEVICE END IS CLEARED. 


01060 


oooooooooooooooo 


616 


SVNPSW 


DC 


XL8«00* 


SUPERVISOR NEW PSW 


* 


554 


* 






01068 


oooooooooooooooo 


617 


PGNPSW 


DC 


XL8*00* 


PROGRAM NEW PSW 


* 


555 


* 




EXPECTEO RESPONSE 


01070 


oooooooooooooooo 


618 


MCNPSW 


DC 


XL8*00* 


MACHINE CHECK NEW PSW 


* 


556 








01078 


01040000 


619 


IONPSW 


DC 


XL4*01040000* 


I/O NEW PSW 




557 


* 




EXPECT CHANNEL END ONLY. 


0107C 


0000120C 


620 




DC 


AL4( IRETRN) 


ADDRESS OF I/O INTRPT ROUTINE 




558 


* 






01080 




621 




DS 


96C 


96 BYTE REG DUMP AREA FOR DM USE 




559 


♦ 






010E0 


83 


622 


UNIT1 


DC 


X«83* 


UNIT TYPE - 1419 MICR 




560 


* 


0450 - 


OPERATION ATTEMPTED 


010E1 


00 


623 


U10P 


DC 


X*00» 


OPTIONAL FEATURES BYTE 


* 


561 


* 






010E2 


8000 


624 


U1ADDR 


DC 


x'sooo* 


FLAGS AND CHAN/UNIT ADDRESS 


* 


562 






A HALT 1-0 IS ISSUED TO A DEVICE WITH CHANNEL END CLEARED AND 






625 


*********************************************************************** 


<i 563 






DEVICE END HAS NOT OCCURRED YET. 


















564 












627 


* 




1403 


SENSE BYTE 




565 






EXPECTED RESPONSE 






628 


*********************************************************************** 


566 


* 










629 




BIT MEANING 






567 


* 




EXPECT A ZEROED CSW AND COND. CODE 1. DEVICE END FROM 






630 


* 


0 


COMMAND REJECT 






568 


* 




PREVIOUS SKIP IS NOW CLEARED BY ENABLING FOR INTERRUPTS. 






631 


* 


1 


INTERVENTION REQUIRED 




569 


* 










632 


* 


2 


BUS OUT CHECK 






570 


* 










633 


* 


3 


EQUIPMENT CHECK - HAMMER FIRE CHECK 




571 


* 




ROUTINE 12 






634 


* 


4 


DATA CHECK - UCS 


PRINTERS ONLY - UNCOMPARABLE CHARACTER 




572 


* 










635 




5 


BUFFER PARITY CHECK - REFERS TO UCS BUFFER 




573 


* 


0460 - 


OPERATION ATTEMPTED 






636 




6 


NOT USED 






574 


* 










637 




7 


CHANNEL 9 
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1403 PRINTER FUNCTION 1 
LOCAT OBJECT CODE 



STMT 

638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 



SOURCE STATEMENT 

*********************************************************************** 
************ ********** ************************************************* 
* 1403 DEVICE STATUS 

********************************************************* * * **** * ******* 



1403 PRINTER FUNCTION 1 
LOCAT OBJECT CODE 



* 


BIT 


MEANING 


* 


0 


ATTENTION - NOT USED 


* 


1 


STATUS MODIFIER - 2 CHANNEL SWITCH FEATURE ONLY 


* 


2 


CONTROL UNIT END - 2 CHANNEL SWITCH FEATURE ONLY 


* 


3 


DEVICE BUSY 


* 


4 


CHANNEL END 


♦ 


5 


DEVICE END 


* 


6 


UNIT CHECK 


* 


7 


UNIT EXCEPTION - CHANNEL 12 



*********************************************************************** 
*********************************************************************** 
* 1403 DIAGNOSTIC CHECK READ DATA 

*********************************************************************** 



BIT 
5 



MEANING 

ON - THE PRINT LINE COMPLETE BIT HAS BEEN SET FOR THIS 
POSITION, 

OFF - ON BASIC PRINTERS, A COMPARE BETWEEN THE DATA BEING 
PRINTED, AND THE PRINT CHARACTER GENERATOR DID NOT 
OCCUR IN THIS POSITIONt AND THE CHARACTER WAS NOT 
CONSIDERED A VALID UNPRINTABLE. 

ON UCS PRINTERS, A COMPARE BETWEEN THE DATA BUFFER 
AND THE UNIVERSAL CHARACTER SET BUFFER DID NOT OCCUR 
AND THE CHARACTER WAS NOT CONSIDERED A NULL OR BLANK 

ON - THE PRINT CHECK PLANE FOR THIS POSITION WAS SET ON. 
THIS PLANE IS SET BY 

1. A HAMMER FIRE AND AN EQUAL CHECK. 

2. NO HAMMER FIRE AND NO EQUAL CHECK. 

3. LINE FULL, NOT VALID UNCOMPARABLE CHARACTER, AND 
NOT A PRINT LINE COMPLETE BIT IN THIS POSITION. 

OFF - THE PRINT CHECK PLANE FOR THIS POSITION IS NOT SET. 

ON - A .PARITY CHECK IN THE DATA BUFFER WAS DETECTED IN 
THIS POSITION. 



OFF - THIS POSITION OF THE DATA BUFFER HAS CORRECT PARITY. 
*********************************************************************** 

* PARAMETERS USED TO ENTER 

* THE 1-0 HANDLER ROUTINE 

*********************************************************************** 

* BAL R11,ISI0 LINK TO 1-0 HANDLER 

* DC XL2»0000« CONTROL SWITCHES 

* DC X»0014« TEST NO. IN DEC EXPRESSED IN HEX 

* DC X«F0» EXPECTED COND. CODE 

* DC X«00« EXPECTED SENSE DATA 

* DC AL2( ADR-BASE+REG) ADDR. OF EXPECTED CSW IF NEEDED 
*********************************************************************** 
*********************************************************************** 

* 1-0 HANDLER CONTROL SWITCHES 

* 2 BYTE PARAMETER FOLLOWING BAL 

*********************************************************************** 

* SWITCH DESCRIPTION 

* o OFF - ISSUE AN 1-0 COMMAND 

* • ON - DO NOT ISSUE AN 1-0 COMMAND 

* l OFF - ENABLE 

* ON - DO NOT ENABLE 

* 2 OFF - EXPECT NO INTERRUPT 

* ON - EXPECT AN INTERRUPT 

* 3 0F p . 00 N oT EXPECT 2 INTERRUPTS 



010E4 0000 



010E6 92 9E F IA6 



STMT 

702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 



SOURCE STATEMENT 



* 




ON - 


EXPECT 2 INTERRUPTS 




4 


— — — • OFF - 


caPcCT NU CSWS 


* 




ON - 


EXPECT A CSW 


* 


5 


OFF - 


DO NOT EXPECT 2 CSWS 


* 




ON - 


EXPECT 2 CSWS 


♦ 


6 


OFF - 


ALWAYS TRY TO ISSUE SENSE 


* 




ON - 


SENSE ON UNIT CHECK ONLY 


* 


7 


OFF - 


GIVE HALT OPTION ON DETECTED ERROR 


* 
♦ 




ON - 


RETURN WITHOUT HALT OPTION 


* 


8 


OFF - 


DO NOT ISSUE DIAGNOSTIC READ. 


* 
* 




ON - 


ISSUE DIAGNOSTIC READ IF UNIT CHECK. 


* 


9 


OFF - 


DO NOT ISSUE DIAGNOSTIC CHECK READ. 


* 
* 




ON ~ 


ISSUE DIAGNOSTIC CHECK READ IF UNIT CHECK. 


♦ 


10 


OFF - 


PRINT HEAOER 


♦ 
* 




ON - 


DO NOT PRINT HEADER 



*********************************************************** ************ 

*********************************************************************** 

* SWITCHES USED BY 1-0 HANDLER 

*********************************************************************** 



* 


SWITCH 


DESCRIPTION 


* 


0 




OFF 




NO HANGUP ON INTERFACE 


* 






ON 




HANGUP OCCURRED 


* 


1 




OFF 




NO CSWS STORED 


* 






ON 




ONE CSW STORED 


* 


2 




OFF 




SECOND CSW NOT RECIEVED 


* 






ON 




SECOND CSW RECIEVEO 


* 


3 




OFF 




DID NOT ENABLE 


* 






ON 




ENABLED ONCE 


* 


4 




OFF 




DID NOT ENABLE TWICE 


* 






ON 




ENABLED TWICE 


* 


5 




OFF 




NO SENSE DATA RECIEVED 


* 






ON 




SENSE DATA RECIEVED 


* 


6 




OFF 




NO UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 


* 






ON 




UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 


* 


7 




OFF 




NO ERROR DETECTED 


* 






ON 




AN ERROR WAS DETECTED 



*********************************************************************** 

* REGISTERS USED IN I-Q HANDLER 

*********************************************************************** 



* 


REG 




COMMENTS 




* 


5 


USED 


AS LINK TO ERROR OUTPUT FROM INITIALIZE 


ROUTINE IF 


* 
* 




PREVIOUS HANGUP ON INTERFACE DETECTED. 




* 

* 


8 


USED 


AS WORK REGISTER. WILL BE RESTORED UPON 


RETURN. 


* 
* 


9 


USED 


AS WORK REGISTER. WILL BE RESTORED UPON 


RETURN. 


* 
* 


10 


MUST 


CONTAIN CCW ADDRESS UPON ROUTINE ENTRY 




* 
* 


11 


MUST 


BE USED AS LINK REG TO THIS ROUTINE 




* 
* 


12 


MUST 


CONTAIN DEVICE ADDRESS 





*********************************************************************** 

ISW DC XL2 , 0« 

*********************************************************************** 
*********************************************************************** 

* * 1-0 HANDLER SUB-ROUTINE * 

*********************************************************************** 
IHIO MVI I$SUE»X«9€« SET UP FOR HALT 1-0 
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1403 PRINTER FUNCTION 1 

LOCAT OBJECT CODE STMT SOURCE STATEMENT 



010E A 


92 


C8 


F 


610 






766 




MVI 


I0PT1+21 iX'CQ* 


MOVE -H- TO MESSAGE 


010EE 


92 


C8 


F 


588 






767 




MVI 


I0ADDR+12 t X , C8» 




010F2 


92 


9E 


F 


15C 






768 




MVI 


IL00PtX , 9E• 




010F6 


47 


FO 


F 


1 IE 






769 




BC 


UNC, IEYEOH 


BR. UNCONDITIONAL 


01 OF A 


92 


9D 


F 


1 A6 






770 


IT 10 


MVI 


ISSUE, X^O* 


SET UP FOR TEST 1-0 


010FE 


92 


9D 


F 


1 5C 






77 1 




MVI 


ILOOPf X^D' 




01 102 


92 


E3 


F 


6 ID 






772 




MVI 


I0PT1+21,X»E3« 


MOVE -T- TO MESSAGE 


Ul 1 uo 


O O 


£3 


F 


588 






773 




MVI 


I0ADDR+12,X , E3' 




01 10A 


47 


FO 


F 


1 IE 






774 




BC 


UNC, IEYEOH 


BR. UNCONDITIONAL 


Ul 1 ut 


Q O 


9C 


F 


1 A6 






775 


ISIO 


MVI 


ISSUE,X»9C • 


SET UP FOR START 1-0 


01 1 12 


92 


9C 


F 


1 5C 






776 




MVI 


IL00P f X , 9C t 






o o 

7t 


c o 


c 
r 


6 ID 






777 




MVI 


IOPTl^l.X^' 


MOVE -S- TO MESSAGE 


01 1 1 A 


O 0 


fcfc 


c 
r 


-> DO 






778 




MVI 


IOADDR+^tX^ 1 




ni lie 


t\o 


0 1 


F 


604 


B 


002 


779 


IEYEOH 


MVC 


ITSTN0+5(2),2<R11) 


SAVE TEST NUMBER 


01 124 


90 


AB 


F 


668 






780 




STM 


R10,R11,ISLAVE 


SAVE REG 10 AND REG 11 


01 128 


90 


89 


F 


548 






78 1 




STM 


R8,R9,ISAVE 


SAVE REGS 8 AND 9 


ni i oc 
ui i*:l 


ou 


AD 


0 


048 






782 




ST 


R10tHCAW(R13) 


STORE COMMAND ADDRESS 


m i *n 

Ul 1 OVJ 


u r 


07 


0 


040 


D 


040 


783 




XC 


HCSW( 8,R13) ,HCSW(R13> 




Ul l oo 


95 


30 


E 


181 






784 




CLI 


SYSM0D(R14) ,X«30» 


CHECK FOR MODEL 30 


01 1 3 A 


47 


60 


F 


1 44 






785 




BC 


UNE0,M0D44 


BR. IF NOT 


01 1 3 E 


u f 


OB 


0 


080 


0 


080 


786 




XC 


LOGOUT( 12 ) t LOGOUT 


CLEAR MOD 30 LOGOUT AREA 


01 144 


91 


80 


B 


000 






787 


M0D44 


TM 


0(R11) , X«80* 


CHECK CONTROL SWITCH FOR NO 1-0 


01 148 


47 


10 


F 


IDC 






788 




BC 


ALL, INOW 


BR. IF ON 


01 14C 


91 


CO 


F 


004 






789 




TM 


SNSW,X«CO« 




01 150 


47 


80 


F 


198 






790 




BC 


NONE, JOHN 


















791 


















792 


* 




SENSE SWITCH LOOPS 
















793 


****** ***«^ 


01 154 


91 


80 


F 


004 






794 


ITRY1 


TM 


SNSW,X»80» 


CHECK SECTION SENSE SWITCH 0 


01 158 


47 


80 


F 


164 






795 




BC 


NONE, ITRY2 


BR. IF OFF 


0115C 


9C 


00 


C 


000 






796 


IL00P 


SIO 


0(R12) 


SIO, TIO, OR HIO 


01 160 


47 


FO 


F 


154 






797 




BC 


UNCITRYl 


BR. UNCONDITIONAL 


01 164 


91 


40 


F 


004 






798 


ITRY2 


TM 


SNSW,X»40» 


CHECK SECTION SENSE SWITCH 1 


01 168 


47 


80 


F 


184 






799 




BC 


NONE, IHI 


BR. IF OFF 


01 16C 


9D 


00 


C 


000 






800 


IHANG 


TIO 


0(R12) 


TEST 1-0 


01170 


47 


70 


F 


154 






801 




BC 


NCC0,ITRY1 


BR. IF NOT COND. CODE 0 


01174 


91 


40 


F 


004 






802 




TM 


SNSW,X«40 t 


CHECK SECTION SENSE SWITCH 1 


01 178 


47 


80 


F 


184 






803 




BC 


NONE, IHI 


BR. IF OFF 


0117C 


9C 


00 


C 


000 






804 




SIO 


0(R12) 


START 1-0 


01 180 


47 


FO 


F 


16C 






805 




BC 


UNC , I HANG 


BR. UNCONDITIONAL 


01 184 


58 


IE 


0 


198 






806 


IHI 


L 


R1,WT( 14) 




0 11 8 8 


88 


10 


0 


003 






807 




SRL 


Rl,3 




01 1 8 C 


9D 


00 


C 


000 






808 


GREG 


TIO 


0CR12) 




01 1 90 


47 


80 


F 


198 






809 




BC 


CCO, JOHN 




n i i ol. 


L. ft. 
HO 


1 u 


F 


i or 






810 




BCT 


RltGREG 




01198 


D7 


01 


F 


0E4 


F 


0E4 


fill 


JOHN 


XC 


ISW(2),ISW 




0119E 


96 


80 


F 


0E4 






812 




01 


ISW,X*80 t 




Oil A 2 


92 


E7 


F 


577 






813 




MVI 


IACTCC+5,C»X« 


MOVE IN A -X- 


011A6 


9C 


00 


C 


000 






814 


ISSUE 


SIO 


0(R12) 


1-0 COMMAND- SIO, TIO, OR HIO 


011AA 


47 


80 


F 


1D8 






815 




BC 


CCO, I ZERO 


BR. IF COND. CODE 0 


011AE 


47 


40 


F 


1C6 






816 




BC 


CC1,I0NE 


BR. IF COND. CODE 1 


011B2 


47 


20 


F 


1 BE 






817 




BC 


CC2,ITW0 


BR. IF COND. CODE 2 


011B6 


92 


F3 


F 


577 






818 




MVI 


IACTCC+5,X«F3« 


INDICATE COND. CODE 3 


011BA 


47 


FO 


F 


1 DC 






819 




BC 


UNC , I NOW 


BR. UNCONDITIONAL 


011BE 


92 


F2 


F 


577 






820 


ITWO 


MVI 


IACTCC+5,X»F2 < 


INDICATE COND. CODE 2 


0UC2 


47 


FO 


F 


IDC 






821 




BC 


UNC, INOW 


BR. UNCONDITIONAL 


011C6 


92 


Fl 


F 


577 






822 


IONE 


MVI 


IACTCC+5,X«F1« 


INDICATE COND. CODE 1 


011CA 


02 


07 


F 


63A 


D 


040 


823 




MVC 


ICSW1(8),HCSW(R13) 


SAVE CSW 


Oil DO 


96 


40 


F 


0E4 






824 




01 


ISW,X»40« 


INDICATE 1 CSW 


011D4 


47 


FO 


F 


IDC 






825 




BC 


UNC, INOW 


BR. UNCONDITIONAL 


011D8 


92 


FO 


F 


577 






826 


IZERO 


MVI 


IACTCC+5,X»F0« 


INDICATE COND. CODE 0 


01 IDC 


94 


7F 


F 


0E4 






827 


INOW 


NI 


ISW,X«7F« 


TURN OFF HANG UP SWITCH 


011E0 


91 


40 


B 


000 






828 




TM 


0(R11) V X'40 V 


CHECK CONTROL SWITCH FOR NO ENABLE 


011E4 


47 


10 


F 


280 






829 




BC 


ALL, I SEN 


BR. IF ON 
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LOCAT 


OBJECT 


CODE 






STMT 


SOURCE STATEMENT 




011E8 


96 


10 


F 


0E4 






830 




01 


ISW,X»10» 


INDICATE ENABLED ONCE 


011EC 


58 


9E 


0 


198 






831 


IWAIT 


L 


R9,WT(R14) 


LOAD DM WAIT FACTOR 


011F0- 


88 


90 


0 


003 






832 




SRL 


R9,3 


ADJUST 


011F4 


96 


80 


F 


0 E4 






833 




01 


ISW,X«80« 


TURN ON HANG UP SW 


011F8 


80 


00 


F 


65B 






834 




SSM 


MSK1 


ENABLE 


011FC 


46 


90 


F 


1 FC 






835 




BCT 


R9,* 


WAIT 


01200 


80 


00 


F 


65C 






836 




SSM 


MSK2 


DISABLE 


01204 


94 


7F 


F 


0E4 






837 




NI 


ISW,X«7F* 


TURN OFF HANG SW 


01208 


47 


FO 


F 


280 






838 




BC 


UNC, I SEN 


BR. UNCONDITIONAL 
















839 


















840 


*. 




ALL 1-0 


INTERRUPTS RETURN HERE 
















841 




0120C 


49 


CO 


c 
r 


0 3 A 






842 


IRETRN 


CH 


R12,IOOPSW+2 


COMPARE FOR CURRENT 1-0 ADDRESS 


01210 


47 


60 


F 


2 2E 






843 




BC 


UNEO.IUIO 


BR. IF UNEQUAL 


01214 


94 


7F 


F 


0 E4 






844 




NI 


ISW,X«7F« 


RESET HANG UP SW 


01218 


91 


40 


F 


0 E4 






845 




TM 


ISW,X«40« 




0121C 


47 


10 


c 
r 


2 5E 






846 




BC 


ALL,ISV2 


BR* IF 1 CSW ALREADY STORED 


01220 


D2 


07 




/Lit 

O 3 A 


F 


040 


847 




MVC 


ICSWK8) ,HCSW(R15) 


SAVE CSW 1 


01226 


96 


40 


p 


0 E4 






848 




01 


ISW,X«40« 


INDICATE 1 CSW STORED 


0122A 


47 


FO 


r 


2 68 






849 




BC 


UNCINT3 


BR. UNCONDITIONAL 


0122E 


D2 


0 7 


F 


5 50 


F 


040 


850 


IUIO 


MVC 


WORMS), HCSW1R15) 




01234 


OA 


OD 










851 




SVC 


x«Dn» 


CONVERT ADDRESS 


01236 


0003 










852 




DC 


AL2(3) 




01238 


0039 










853 




DC 


AL2U00PSW+1-SECN0) 




0123A 


0662 










854 




DC 


AL2( I UNEX+5-SECN0) 




0123C 


OA 


DO 










855 




SVC 


X'DO* 


PRINT UNEXPECTED INTERRUPT DEVICE 


0123E 


64 












856 




DC 


X»64» 


ADDRESS 


0I23F 


08 












857 




DC 


X«OB» 




01240 


F65D 










858 




DC 


AL2UUNEX-SECN0+REG) 




01242 


D2 


02 


F 


5 AE 


F 


5A7 


859 




MVC 


IBLAH+1(3),ICSW 


MOVE -CSW- TO MESSAGE 


01248 


92 


1A 


F 


408 






860 




MVI 


ICNT,X«1A« 


ADJUST COUNT 


0124C 


D2 


02 


F 


5C4 


F 


5C7 


861 




MVC 


IBLAH+23( 3) ,IACT 


MOVE -ACT- TO MESSAGE 


01252 


45 


90 


F 


3F4 






862 




BAL 


R9, ICOUT 


BR. TO OUTPUT CSW 


01256 


96 


02 


F 


0E4 






863 




01 


ISW,X»02» 


INDICATE UIO 


0125A 


47 


FO 


F 


4CA 






864 




BC 


UNCIPASS 


BR. UNCONDITIONAL 


0125E 


D2 


07 


F 


642 


F 


040 


865 


ISV2 


MVC 


ICSW2(8) ,HCSW<R15> 


SAVE CSW 2 


01264 


96 


20 


F 


0 E4 






866 




01 


ISW,X»20« 


INDICATE 2 CSWS STORED 


01268 


91 


10 


B 


000 






867 


INT3 


TM 


OtRlD.X'lO^ 


CHECK CTRL SW FOR 2 INTR EXPECTED 


0126C 


47 


80 


F 


280 






868 




BC 


NONE , I SEN 


BR. IF NOT 


01270 


91 


08 


F 


0E4 






869 




TM 


ISW,X«08« 




01274 


47 


10 


F 


2 80 






870 




BC 


ALL, ISEN 


BR. IF ALREADY ENABLED TWICE 


01278 


96 


08 


F 


0 E4 






871 




01 


ISW,X»08« 


INDICATE ENABLED TWICE 


0127C 


47 


FO 


F 


1 EC 






872 




BC 


UNC, IWAIT 




01280 


91 


02 


B 


000 






873 


ISEN 


TM 


0(R11) ,X»02 t 


CHECK CONTROL SWITCH FOR SNS ON UC 


01284 


47 


80 




2 A8 






874 




BC 


NONE, IDOSNS 


BR. IF OFF TO ISSUE SENSE 


01288 


91 


40 


F 


0E4 






875 




TM 


ISW*X«40« 




0128C 


47 


80 


F 


2FE 






876 




BC 


NONE , IBSN 


BR. IF NO CSW STORED TO BYPASS SENSE 


01290 


91 


02 


F 


63E 






877 




TM 


ICSW1+4,X*02« 


CHECK FOR UNIT CHECK 


01294 


47 


10 


F 


2A8 






878 




BC 


ALL, IDOSNS 


IF YES BR. TO ISSUE SENSE 


01298 


91 


20 


F 


0E4 






879 




TM 


ISW,X'20» 


CHECK FOR SECOND CSW 


0129C 


47 


80 


F 


2FE 






880 




BC 


NONE, IBSN 


BR. IF NOT TO BYPASS SENSE 


012A0 


91 


02 


F 


646 






881 




TM 


ICSW2+4,X»02» 


CHECK FOR UNIT CHECK 


012A4 


47 


80 


F 


2FE 






882 




BC 


NONE, IBSN 


BR. IF NOT TO BYPASS SENSE 


012A8 


58 


9E 


0 


198 






883 


IDOSNS 


L 


R9,WT(R14) 


LOAD DM WAIT FACTOR 


012AC 


88 


90 


0 


004 






884 




SRL 


R9,4 


ADJUST 


012B0 


41 


80 


F 


6 50 






885 




LA 


R8, ISENSE 


LOAD SENSE COMMAND ADDRESS 


012B4 


1 50 


8D 


0 


048 






886 




ST 


R8,HCAW(R13) 


STORE IN CAW 


012B8 


9C 


00 


C 


000 






887 




SIO 


0(R12) 


ISSUE SENSE 


012BC 


47 


70 


F 


34C 






888 




BC 


NCCO,INDER 


BR. IF NOT ACCEPTED 


012C0 


9D 


00 


C 


000 






889 


ITIOLP 


TIO 


0(R12) 


TEST 1-0 


012C4 


47 


40 


F 


2E8 






890 




BC 


CC1,IL0KE 


BR. IF CSW STORED 


012C8 


46 


90 


F 


2C0 






891 


ITIC 


BCT 


R9, ITIOLP 




012CC 


47 


FO 


F 


2FE 






892 




BC 


UNC, IBSN 


BR. UNCONDITIONAL 


012D0 


91 


40 


F 


0E4 






893 


IN0EX1 


TM 


ISWtX«40* 





DATE 
EC'S 



15MAR66 15N0V66 120CT67 
125632 125655 131812 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 



LOCAT 


OBJECT 


CODE 






STMT 


SOURCE 


STATEMENT 




012D4 


4? 


10 


F 


34C 






894 




BC 


ALL , INDER 


BR. IF CSW STORED 


012D8 


47 


FO 


F 


350 






895 




BC 


UNC , IDUNCK 


BR* UNCONDITIONAL 


0120C 


91 


20 


F 


0E4 






896 


IN0EX2 


TM 


ISW,X»20« 




012E0 


47 


10 


F 


34C 






897 




BC 


ALL, INDER 


BR. IF CSW 2 STORED 


012E4 


47 


FO 


F 


350 






. 898 




BC 


UNC, IDUNCK 


BR. UNCONDITIONAL 


012E8 


95 


OC 


0 


044 






899 


ILOKE 


CLI 


HCSW+4CR13) ,X«0C t 


CHECK FOR CE DE ONLY 


012EC 


47 


70 


F 


2C8 






900 




BC 


NCCO, ITIC 


BR. IF NOT 


012F0 


96 


04 


F 


0E4 






901 




01 


I SW,X , 04» 


INDICATE SENSE DATA RECIEVED 


012F4 


05 


00 


F 


5DD 


B 


005 


902 




CLC 


I ACSNS+51 1 ) ,5(R11 ) 


COMPARE FOR FXPFfTFD ^.FfsKF 


012FA 


47 


60 


F 


34C 






903 




BC 


UNEQf INDER 


BR. IF UNEQUAL 


012FE 


D5 


00 


F 


577 


B 


004 


904 


IBSN 


CLC 


IACTCC+5( 1) ,4< RID 


COMPARE FOR EXPEfTFD fOND- fnnF 


01304 


47 


60 


F 


34C 






905 




BC 


UNEQ, INDER 


BR. IF UNFOUAI 


01308 


91 


08 


B 


000 






906 




TM 


0(R11 ) t X*QB 9 




0130C 


47 


80 


F 


200 






907 




BC 


NONE , IN0EX1 


BR. IF NO C*.W FXPFfTFn 


01310 


91 


40 


F 


0E4 






908 




TM 


ISWtX^O 1 




01314 


47 


80 


F 


34C 






909 




BC 


NONE, INDER 


BR. IF NO TSW RFflFVFn 


01318 


48 


8B 


0 


006 






910 




LH 


R8, 6(R11) 


LOAD C«iW ADDR 


0131C 


40 


80 


F 


324 






911 




STH 


R8, tCCSWl+4 


STORE IN COMPARE INSTR. 


01320 


05 


07 


F 


63A 


F 


63A 


912 


ICCSWl 


CLC 


ICSWH 8) , ICSW1 


COMPARE FOR EXPECTED CSW 


01326 


47 


60 


F 


34C 






913 




BC 


UNEQ , INDER 


BR. IF UNEQUAL 


0132A 


91 


04 


B 


000 






914 




TM 


O(Rll) ,X , 04 t 




0132E 


47 


80 


F 


2 DC 






915 




BC 


NONE, IN0EX2 


BR. IF NO CSW 2 EXPECTED 


01332 


91 


20 


F 


0E4 






916 




TM 


ISWtX^O* 




01336 


47 


80 


F 


34C 






917 




BC 


NONE , INDER 


BR. IF NO CSW 2 RECIEVED 


0133A 


41 


88 


0 


008 






918 




LA 


R8,8(R8) 


UPDATE TO SECOND CSW 


0133E 


40 


80 


F 


346 






919 




STH 


R8, ICCSW2+4 




01342 


05 


07 


F 


642 


F 


642 


920 


ICCSW2 


CLC 


ICSW21 8) ,ICSW2 


COMPARE FOR EXPECTED CSW 2 


01348 


47 


80 


F 


350 






921 




BC 


EO, IDUNCK 


BR. IF EQUAL 


0134C 


96 


01 


F 


0E4 






922 


INDER 


01 


ISWvX'Ol* 


INDICATE AN ERROR 


01350 


92 


64 


F 


380 






923 


IDUNCK 


MVI 


IFLAG1, X»64* 


SET UP FOR FRRflR PRINTOUT 


01354 


92 


CO 


F 


510 






924 




MVI 


IFLAG2,X»C0* 




01358 


91 


01 


F 


0E4 






925 




TM 


ISWyX'OI* 


CHECK FOR A DETECTED ERROR 


0135C 


47 


10 


F 


370 






926 




BC 


ALL t IOUTI T 


BR» IF ERROR DETECTED 


01360 


91 


01 


F 


004 






927 




TM 


SNSVl,X , 01* 


CHECK <s F f T I P. N FN<sF CU ITf H 7 


01364 


47 


80 


F 


52C 






928 




BC 


NONE, I LEAVE 


BR. IF OFF 


01368 


92 


24 


F 


380 






929 




MVI 


IFLAGl,X , 24 t 


SET UP FOR CORRECT PRINTOUT 


0136C 


92 


80 


F 


510 






930 




MVI 


lFLAG2tX'ft0 # 


01370 


02 


01 


F 


604 


B 


002 


931 


IOUTIT 


MVC 


ITSTN0+5< 2) ,2(R11 ) 


MOVE TEST NUMBER TO PRINT 

ri • L J ' 11 v> i iuli> ill r l\ Hi 1 


01376 


OA 


00 










932 




SVC 


X^DO 1 


CONVERT TEST NUMBER 


01378 


0002 










933 




DC 


AL2(2) 




0137A 


0604 










934 




DC 


AL2< I TSTN0+5-SECN0) 




0137C 


0604 










935 




DC 


AL2< I TSTN0+5-SECN0) 




0137E 


OA 


00 










936 




SVC 


X^O^ 


PRINT TEST NUMBER 


01380 


64 












937 


IFLAG1 


DC 


X*64 l 




01381 


09 












938 




DC 


X , 09» 




01382 


F5FF 










939 




DC 


AL2( I TSTNO-SECNO+REG) 




01384 


41 


80 


0 


004 






940 




LA 


R8,4 


ADJUST LINK ADDRESS FOR PRINTOUT 


01388 


IB 


B8 










941 




SR 


R11,R8 




0138A 


50 


BO 


F 


590 






942 




ST 


Rll,ILINK+5 




0138E 


OA 


OD 










943 




SVC 


X«DD« 


CONVERT LINK ADDRESS 


01390 


0003 










944 


S 


DC 


AL2(3) 




01392 


0591 










945 




DC 


AL2< I LINK* 6- SEC NO) 




01394 


0590 










946 




DC 


AL2ULINK+5-SECN0) 




01396 


OA 


00 










947 




SVC 


X»DO» 


PRINT LINK ADDRESS 


01398 


EO 












948 




DC 


X«EO» 




01399 


10 












949 




DC 


X«10« 




0139A 


F58B 










950 




DC 


AL2ULINK-SECN0+REG) 




0139C 


41 


BB 


0 


004 






951 




LA 


R11,4(R11) 




013A0 


91 


80 


B 


000 






952 




TM 


0^R11>,X•80• 




013A4 


47 


10 


F 


426 






953 




BC 


ALLyIOCSW 


BR. IF NO 1-0 COMMAND ISSUED 


013A8 


OA 


DO 










954 




SVC 


X«DD« 


CONVERT 1-0 ADDRESS 


013AA 


0003 










955 




DC 


AL2<3> 




013AC 


0658 










956 




DC 


AL2U0ADR-SECN0) 




013AE 


0581 










957 




OC 


AL2< I0ADDR+5-SECN0) 





DATE 
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ID 

PAGE 
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1403 PRINTER 


FUNCTION 


I 












LOCAT 


OBJECT 


CODE 






STMT 


SOURCE STATEMENT 




013B0 


OA DO 










958 




SVC 


X * DO * 


PRINT 1-0 ADDRESS 


013B2 


EO 










959 




DC 


X ' EO* 




013B3 


OF 










960 




DC 


X * OF * 




013B4 


F57C 










961 




DC 


ai ?( t ha nnft— <.Fr Nin+RFG i 




013B6 


95 9C 


p 


1 A6 






962 




r i t 




COMPARE FOR SIO COMMAND 


013BA 


47 60 


p 


4 10 






963 




BC 


UiMCtv, 1UUUUI 


BR. IF NOT 


013BE 


50 AO 


F 


5 AO 






964 




CT 
2> 1 


Din t r a ui <; 


STORE CCW ADDR. 


013C2 


OA DD 










965 




cwr 
ovu 


y • nn i 

A * UU 


CONVERT CAW 


01 3C4 


0003 










966 




nr 
uu 


AL 2 ( 3 ) 




01 3C6 


05 Al 










967 




nr 
UU 


ALZt 1 UAW+o— 5cuNU 1 




01 3C8 


05 AO 










968 




DC 






01 3C A 


0 A DO 










969 




SVC 


X * DO 1 


PRINT CAW 


01 3CC 


EO 










970 




DC 


X • EC 




01 3CD 


0 B 










971 




DC 


X • OB • 




01 3C E 


F59B 










972 




DC 


AI 11 f Till Cf?#*fc«#t-t.ni£?S*% 

AL2( I CAW— 5ECNO+REG) 




01 3D0 


D2 02 


r 


(% AC 
D At 


c 
r 


5AA 


973 




MVC 


1 BL AH-*-l i 3 1 , ICCW 


MOVE -CCW- TO MESSAGE 


U13 UO 




p 


Ann 






974 




MVI 


t r MT VI 1 11 

UN 1 , a" io " 


ADJUST COUNT 


01 3DA 


D2 07 


p 






000 


975 


t r uni it 


M VU 


unn u / ol Alnlnl 
WUKtv lol tUlKiUl 


MOVE CCW TO WORK AREA 


01 3E0 


45 90 


p 








976 




R A 1 
DAL 


d q t r m it 
KVf lUUUl 


BR. TO OUTPUT CCW 


013E4 


9 1 CO 




004 






977 




TM 


AiDini vicni 

HIK1UJ ,A"UU 


CHECK FOR ANY CHAIN FLAGS 


013E8 


47 80 


F 


4 10 






978 




BC 


wriMC « trrniiT 


BR. IF NONE 


013EC 


41 AA 


Q 


008 






979 




L A 


Din oinint 
K 1U , O I K iu ; 


UPDATE TO NEXT CCW 


013F0 


47 FO 


c 
r 


J UA 






980 




or 

DU 


i iKir T r uni it 
UMU , 1 U WUU 1 - 


BR. UNCONDITIONAL 


013F4 


OA DD 










981 


i rni it 




A UU 


CONVERT 


01 3F6 


0008 










982 




nr 

UU 


ai o 1 a i 

AL C. \ %3 § 




01 3F8 


0550 










983 




DC 


ai 1 1 uino it — ccr wn i 
ALc \ flUKIv—otUNU 1 




01 3FA 


0550 










984 










01 3FC 


D2 07 


p 


5B2 


p 


550 


985 




uwr 

rl V U 


tdi a t-i f a 1 unDK 


MOVE TO MESSAGE 


01402 


D2 07 


p 


5 BB 


p 


558 


986 




MVC 


rai AU4>1 A< At _ UHD If J. A 




01408 


OA DO 










987 




SVC 


y t nn * 

A UU 


PRINT 


0140 A 


EO 










988 




DC 


X * EO * 




0140B 


1 A 










989 




nr 
uu 


yn ai 

A " 1 A " 




0140C 


F5 AD 










990 




nr 

UU 


ai of tri au— ccr MflADCC 1 




0140E 


07 F9 




e 






991 




BCR 


UNC,R9 


RETURN VIA REG 9 


01410 


D2 00 


c 
r 




g 


004 


992 


i r rm it 


Mur 
n vu 




MOVE EXP CC TO MESSAGE 


01416 


58 AO 


F 


X. AO 






993 




L 


Din TCI A XI c 

R 10, 1 SLAVE 


RESTORE REG 10 


014 1 A 


0 A DO 










994 




bvu 


X • DO * 


PRINT EXPECTED COND. CODE 


U 1 *f L U 


EO 










995 




DC 


X • E 0 ' 




0141D 


0 A 










996 




DC 


J X • 0 A • 




0141 E 


F 568 










997 




nr 


ai *> i t c vor r _ c cr wn j.d cr I 
ALZI 1 1 Aruu— ofcUNUTKcv* ) 




01420 


OA DO 










998 




c v/r 
o VU 


X • DO * 


PRINT ACTUAL COND. CODE 


01422 


EO 










999 




DC 


X t £(-) t 




01423 


OA 










1000 




DC 


X * OA ' 




01424 


F572 










1001 




nr 
uu 


ai o i i Ar Tr r~cer kinAQCc t 

ALtl 1 AU 1 UU"* oCUlNUt'KCl, J 




01426 


D2 02 


p 


5 AE 


F 


5A7 


1002 


tnr cu 


MVC 


TRI AUa1 fit ircu 


MOVE -CSW- TO MESSAGE 


0142C 


92 I A 


F 


40B 






1003 




MVI 


i tn i , a i a 


ADJUST COUNT . 


01430 


91 08 


Q 


000 






1004 




TM 


AlDI 1 t VI AO t 




01434 


47 80 


F 


458 






1005 




BC 


NONE, I DID I 


BR. IF NO CSW EXPECTED 


01438 


D2 02 


F 


5C4 


p 


5CA 


1006 




MVC 


IBLAH+23(3) t I6XP 


MOVE -EXP- TO MESSAGE 


0143E 


48 8B 


0 


006 






1007 




LH 


R8,6(R11) 




01442 


40 80 


F 


452 






1008 




STH 


R8,ICHNGl+4 




01446 


41 88 


0 


008 






1009 




LA 


R8,8(R8) 




0144A 


40 80 


F 


482 






1010 




STH 


R8,!CHNG2+4 




0144E 


D2 07 


F 


5 50 


F 


550 


1011 


ICHNG1 


MVC 


WORK ( 8) , WORK 


MOVE EXPECTED CSW TO WORK AREA 


01454 


45 90 


F 


3F4 






1012 




BAL 


R9,IC0UT 


BR. TO OUTPUT EXPECTEO CSW 


01458 


91 40 


F 


0E4 






1013 


IOIDI • 


TM 


ISW,X«40« 




0145C 


47 80 


F 


470 






1014 




BC 


NONE, IMORST 


BR. IF NO CSW STORED 


01460 


D2 02 


F 


5C4 


F 


5C7 


1015 




MVC 


IBLAH+23(3),IACT 


MOVE -ACT- TO MESSAGE 


01466 


02 07 


F 


550 


F 


63A 


1016 




MVC 


WORMS) ,ICSW1 


MOVE ACTUAL CSW TO WORK AREA 


0146C 


45 90 


F 


3F4 






1017 




BAL 


R9,ICOUT 


BR. TO OUTPUT ACTUAL CSW 


01470 


91 04 


B 


000 






1018 


IMORST 


TM 


0(R11),X«04» 




01474 


47 80 


F 


488 






1019 




BC 


NONE* IDID 


BR. IF NOT EXPECTING 2 CSWS 


01478 


D2 02 


F 


5C4 


F 


5CA 


1020 




MVC 


IBLAH+23(3) ,IEXP 


MOVE -EXP- TO MESSAGE 


0147E 


D2 07 


F 


550 


F 


550 


1021 


ICHNG.2 


MVC 


W0RK(8),W0RK 


MOVE EXPECTED CSW TO WORK AREA 
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1403 PRINTER 


FUNCTION 1 














1403 PRINTER FUNCTION 1 










LOC AT 


nn ifct 


CODE 


STMT 


SOURCE STATEMENT 






LOC AT 


na i err rnnp 


STMT 


SOURCE STATEMENT 


01484 


45 90 


F 


3F4 


1022 




BAL 




BR. TO OUTPUT EXPECTED CSW 2 


01 542 


070007000700 


1085 




CNOP 


0 * 8 


01488 


91 20 


p 


0E4 


1023 


10 1 0 


TM 








01 548 


0000000000000000 


1086 


I SAVE 


DC 


XL8 • 0* 


0148C 


47 80 


p 


4 AO 


1024 






KinMP TDAC 
IMUf>l»- t * r A o 


BR. IF NO SECOND CSW STORED 


01550 




1087 


WORK 


DS 


24C 


01490 


02 02 


p 


5C4 F 5C7 


1025 




M VC 


T Rl AH + ?"* ( * \ - T AT T 
lDuwriT^ j \ of tint i 


MOVE -ACT- TO MESSAGE 




01568 


40C3C34040E740C5 


1088 


IEXPCC 


DC 


C« fC X FXP 1 


01496 


02 07 


p 


550 F 642 


1026 




MVC 


wnRK t a \ • t r <ivi7 


MOVE CSW TO WORK AREA 




01570 


E7D7 










0149C 


45 90 


p 


3F4 


1027 




BAL 








01572 


40C3C34040E740C1 


1089 


IACTCC 


DC 


C CC X ACT 1 


014A0 


02 00 


p 


502 B 005 


1028 


IPAS 


MVC 


IFX^NS+51 1 ) «5( R 1 1 ) 

A LA Oil J 'J | X # y -J 1 i\ X X r 


MOVE EXP SENSE TO MESSAGE 


0157A 


C3E3 










014A6 


91 04 


p 


0E4 


1029 




TM 


I SWt X • 04 • 






0157C 


40C1C4D940E7E7E7 


1090 


IOA0DR 


DC 


C* ADR XXXXXX XIO' 


014AA 


47 80 


p 


4CA 


1030 




BC 


NONE t IPASS 


BR. IF NO SENSE DATA RECIEVED 


01584 


E7E7E740E7C906 










014AE 


OA 00 






1031 




SVC 


X* DO 1 


CONVERT EXPECTED SENSE 




0158B 


00 


1091 




DC 


X^OO* 


014B0 


0001 






1032 




DC 


AL2 ( 1 ) 






0158C 




1092 




CNOP 


0 9 4 


014B2 


0502 






1033 




DC 


AL2 ( I EXSNS+5-SECN0 ) 






0158B 




1093 




ORG 


*- 1 


014B4 


0502 






1034 




DC 


AL2( I EXSNS+5-SECN0) 






0158B 


40C1C4D940E7E7E7 


1094 


IL INK 


DC 


C ADR XXXXXX LINK* 


014B6 


OA 00 






1035 




SVC 


X'DO 1 


PRINT EXPECTED SENSE 




01593 


E7E7E740D3C9D5D2 










014B8 


EO 






1036 




DC 


X • EO * 






0159B 


00 


1095 




DC 


X» 00« 


014B9 


OB 






1037 




DC 


X • OB • 






0159C 




1096 




CNOP 


0«4 


014BA 


F5CD 






1038 




DC 


AL2( I EXSNS-SECNO+REG ) 






0159B 




1097 




ORG 


*-l 


014BC 


OA 00 






1039 




SVC 


X • DO • 






0159B 


40C3C1 E640E7E7E7 


1098 


ICAW ' 


DC 


C f CAW XXXXXX • 


014BE 


0001 






1040 




DC 


AL2 ( 1 ) 






015A3 


E7E7E740 










014C0 


050D 






1041 




DC 


AL2 < I ACSNS+5-SECN0 ) 






015A7 


C3E2E6 


1099 


ICSW 


DC 


C«CSW' 


014C0 


0500 






1041 




DC 


Al ?i 1 AT SN^ + 'i-^FrNri i 

HL t ' 1 Mv Jfi O t J JtuHU / 






015AA 


C3C3E6 


1100 


ICCW 


DC 


C 'CCW 1 


014C2 


0500 






1042 




DC 


Al ? i t AC *\N 9 + «i-^Fr Nfl 1 






015AD 


40C3E2E640E7E7E7 


1101 


IBLAH 


DC 


C CSW XXXXXXXX XX* 


014C4 


OA 00 






1043 




SVC 


X'DO 1 ' 


PRINT ACTUAL SENSE DATA 




015B5 


E7E7E7 E7E740E7E7 










014C6 


EO 






1044 




DC 


X * E 0 • 






015BD 


E7E7E7 E7E7E740C5 


1102 




DC 


C'XXXXXX EXP* 


014C7 


OB 






1045 




DC 


X ' OB ' 






015C5 


E7D7 










014C8 


F508 






1046 




DC 








015C7 


C1C3E3 


1103 


IACT 


DC 


C'ACT' 


014CA 


95 30 


£ 


181 


1047 


IPASS 


CL I 




CHECK FOR MODEL 30 




015CA 


C5E7D7 


1104 


IEXP 


DC 


C'EXP* 


014CE 


47 60 


p 


50E 


1048 




BC 




BR. IF NOT 




015CD 


40E2D5 E240 E7E740 


1105 


IEXSNS 


DC 


C SNS XX EXP 1 


014D2 


02 OB 


p 


550 0 080 


1049 




MVC 


uidrk (i?i.i nftmiT 


MOVE LOGOUT TO WORK AREA 




015D5 


C5E7D7 










01408 


OA OD 






1050 






X * DO * 


CONVERT 




015D8 


40E2D5E240E7E740 


1106 


I ACSNS 


DC 


C* SNS XX ACT 1 


0140A 


OOOC 






1051 




DC 


AL2( 12) 






015E0 


C1C3E3 










014DC 


0550 






1052 




DC 


Al 7 i WORK— ^FfNni 

HLcl WUHI\— OCVtDU 1 






015E3 


40D3D6C740 E7E740 


1107 


I0L0G 


DC 


C LOG XX XXXXXX X" 


014DE 


0550 






1053 




DC 


Al O 1 unD K— CFT Nfi \ 






015EB 


E7E7E7 E7E7E740E7 










014E0 


02 01 


p 


5E8 F 550 


1054 




MVC 




MOVE LOG OUT TO MESSAGE 




015F3 


E7E7E7E7E740E7E7 


1108 




DC 


C • XXXXX XXXXXX* 


014E6 


D2 05 


p 


5EB F 552 


1055 




MVC 








015FB 


E7E7E7E7 










014EC 


02 05 


p 


5F2 F 55A 


1056 




MVC 


TOI Oft+I <t(A) .UnRK+1 0 






015FF 


40E3E2 E340E7E7E7 


1109 


ITSTNO 


DC 


C* TST XXXX* 


014F2 


D2 05 


p 


5F9 F 562 


1057 




MVC 








01607 


E7 










014F8 


OA 00 






1058 




SVC 


X * DO * 


PRINT LOG OUT 




01608 


40E2E240F040D6D5 


1110 


I0PT 1 


DC 


C* SS 0 ON FOR LOO" 


014FA 


EO 






1059 




DC 


X * EO * 






01610 


40C606D940D30606 










014FB 


1C 






1060 




nr 


X • 1C * 






01618 


D740D6 D540 E7C9D6 


1111 




DC 


CP ON XlOt 1 0' 


0l4FC 


F5E3 






1061 




nr 


ai o i t ni nn~.ccriun4.DC n i 

MLcl lULUo-oCl/NUtKCO 1 






01620 


6B40E2E240F140D6 










014 FE 


91 02 


p 


0 E4 


1062 




TM 


TCU YtflOl 
loni A Uc * 






01628 


D540C6D6D940E3C9 


1112 




DC 


c 9< n FO.R Tin in« 

v# n rui\ i Ji u oiu ww 


61 $02 


47 80 


p 


50E 


1063 




nr 


IMUniC f IUrUU 1 


BR. IF NOT UIO 




01630 


D640E2 C9D640D3D6 










Of $06 


94 FO 


p 


0E4 


1064 




M T 


tcu.vi en I 


RESET UIO SWITCH 




01638 


D6D7 


1113 




DC 


C»OP« 


01 50 A 


47 FO 


p 


1 EC 


1065 




nr 


1 IKir T U A t T 


8R. UNCONDITIONAL 




0163A 


0000000000000000 


1114 


ICSW1 


DC 


XL8«0* 


OlSOE 


OA DO 






1066 


iUrUU I 


cur 
5 VU 


A " UU 


PRINT LOOP OPTIONS 




01642 


0000000000000000 


1115 


ICSW2 


DC 


XLe'o 1 


01510 


CO 






1067 


IFLAG2 


DC 


X»C0» 






0164A 


000000000000 

V VvvV/U V/UuU \J\J 










01511 


32 






1068 




DC 


X«32« 






01650 


04001 5 DDOOOOOOOl 


1116 


ISENSE 


CCW 


X«04% IACSNS+StX^OOSX 


01512 


F608 






1069 




nr 


ai ■)! TnDTi_ccruniDCCi 
f\Ld I I Ur 1 1— 5tLNU*Ktw 1 






01658 


0011A6 


1117 


IOADR 


DC 


AL3(ISSUE) 


01514 


OA 00 






1070 




SVC 


X»D0* 


SPACE A LINE 




01658/ 


FE 


1118 


MSK1 


DC 


X»FE« 


Ol 516 


AO 






1071 




DC 


X«A0« 






0165C^ 


01 


1119 


MSK2 


DC 


X»01» 


01517 


01 






1072 






A U 1 " 






0165D 


40E4C9D640E7E7E7 


1120 


IUNEX 


DC 


C« UIO XXXXXX* 


01518 


F58B 






1073 




DC 


AL2( ILINK-SECNO-^REG) 






01665 ; 


E7E7E7 










0151 A 


50 AD 


0 


048 


1074 




ST 


R10tHCAW(R13) 


STORE CAW 




01668 


0000000000000000 


1121 


ISLAVE 


DC 


XL8«0« REGISTER SAVE AREA 


0151E 


91 CO 


F 


004 


1075 




TM 


SNSWtX'CO' 


CHECK SECTION SENSE SWITCH 0 AND 1 


01670 


0600168000000084 


1122 


DCKRD 


CCW 


X»06» ^KAR^OO* f 132 


01522 


47 50 


F 


154 


1076 




BC 


ANYtlTRYl 


BR. IF ANY ON 




01678 


p00016 78 


1123 


CRDCSW 


DC 


A(CRDCSW) 


01526 


91 01 


F 


0E5 


1077 




TM 


ISW+ltX'Ol' 






0167C 


OCOOOOOO 


1124 




DC 


X«OCOOOOOO« 


0152A 


07 15 






1078 




BCR 


ALL yR5 


RETURN VIA REG 5 IF HANG 


UP 


01680 




1125 


CKAR 


DS 


132C 


Ol52C 


91 08 


B 


000 


1079 


ILEAVE 


TM 


0<Rll),X«08« 






01704 




1 126 


DRAR 


DS 


132C 


01530 


47 80 


F 


538 


1080 




BC 


NONE* 1 UP 


BR. IF NO CSW EXPECTED 




01788 


0200170400000084 


1127 


RDCCW 


CCW 


X«02«tORAR,X«OOS132 


01534 


41 68 


0 


002 


1081 




LA 


Rllt2(Rll) 


UPDATE LINK AOORESS FOR 


RETURN 






1128 




01538 


41 BB 


0 


006 


1082 


IUP 


LA 


Rll,6(Rtl) 










1129 






INITIALIZE ROUTINE 


0153C 


98 89 


F 


548 


1083 




LM 


R8,R9,ISAVE 


RESTORE REGS 8 AND 9 








1130 




01540 


07 FB 






1084 




BCR 


UNCtRll 


RETURN VIA REG 11 




01790 


IB DD 


1131 


INIT 


SR 


R13tR13 ZERO REG 13 


OATE 


15MAR66 


t5NC&66 I20CT67 
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1403 PRINTER FUNCTION I 












1403 PRINTER FUNCTION 1 








LOCAT 


OBJECT CODE 


STMT 


SOURCE STATEMENT 




LOCAT 


OBJECT CODE 


STMT 


SOURCE STATEMENT 


01792 


91 40 E 196 


1132 




TM 


406CR14) ,X'40' 


CHECK FOR FORCED PROBLEM STATE 


018A6 


C5C4 








01796 


47 80 F 79C 


1133 




BC 


NONEf NITWIT 


BR. IF NOT 


018A8 




1 187 


CNOP 


0,4 


0179A 


18 DF 


1134 




LR 


R13*R15 


SET UP FOR PROBLEM STATE 


018A8 


0000000000000000 


1 188 


SAVEIT DC 


XL16'0' 


0179C 


58 CO F OEO 


1135 


NITWIT 


I 


R12»UNIT1 


LOAD REG 12 WITH UNIT TABLE ENTRY 


018B0 


0000000000000000 








017A0 


54 CO F 8C8 


1136 




N 


R12,M0D50 


AND OUT UNUSED BITS 


018B8 


0000000000000000 


1 189 


SAVIT DC 


XL12'0' 


017A4 


49 CO F 810 


1137 




CH 


R12,SAVDEV 


COMPARE FOR CURRENT DEVICE ADDRESS 


018C0 


00000000 








017A8 


47 80 F 7C2 


1138 




BC 


EQ t BLOOP 


BR. IF EQUAL 


018C4 


00000000 


1 190 


SAV10 DC 


XL4'0' 


017AC 


40 CO F 810 


1139 




STH 


R12,SAVDEV 


SAVE CURRENT DEVICE ADDRESS 


018C8 


00003FFF 


1 191 


M0D50 DC 


X'00003FFF» 


017B0 


OA 00 


1140 




SVC 


X ' DO* 




018CC 


40 


1 192 


DC 


X'40« 


017B2 


24 


1141 




DC 


X'24» 




018CD 




1193 


PRAR DS 


132C 


01783 


27 


1142 




DC 


X»27» 




01951 


00 








017B4 


F82C 


1143 




DC 


AL2I STL-SECNO+REG) 




01952 


07 00 


1194 


CNOP 


0,4 


017B6 


OA DO 


1144 




SVC 


X'DO* 








1195 




017B8 


80 


1145 




DC 


X • 80' 








1196 


* ROUTINE 01 


- ISSUE A TEST 1-0 TO AN AVAILABLE AND IDLE DEVICE. 


017B9 


39 


1146 




DC 


X' 39" 








1 197 


♦ 


EXPECT CONDITION CODE 0. 


017BA 


F853 


1147 




DC 


AL2< CEMSG- SECNO+REG) 








1198 




017BC 


OA DA 


1148 




SVC 


X'DA' 


HALT FOR SS ALTERATION 


01954 


01 


1199 


R0UT01 DC 


X'Ol' ROUTINE NUMBER 


01 7BE 


9D 00 C 000 


1149 




TIO 


0IR12 ) 


CLEAR PENDING INTERRUPT 


01955 


000968 


1200 


DC 


AL3CR0UT02-SECN0) ADDRESS OF NEXT ROUTINE 


017C2 


91 80 F 0E4 


1150 


BLOOP 


TM 


I sw»x'80* 


CHECK FOR HANG UP 


01958 


45 40 F 790 


1201 


BAL 


R4,INIT BR. TO INITIALIZE 


017C6 


47 10 F 7E0 


1151 




BC 


ALL , HANGUP 


BR. IF DETECTED 


0195C 


45 BO F OFA 


1202 


G001 BAL 


R11,ITI0 BR. TO ISSUE TEST 1-0 


017CA 


92 40 F 8CD 


1152 




MVI 


PRAR t X'40' 


Clear load area 


01960 


0200 


1203 


DC 


X'0200' CTRL SWITCHES 


017CE 


02 00 F 812 F 003 


1153 




MVC 


RTSAVC 1 ) t 5ECN0+3 


SAVE ROUTINE NUMBER 


01962 


0010 


1204 


DC 


X'0010' TES T NUMBER 


01704 


D2 82 F 8CE F 8CD 


1154 




MVC 


PRAR+1 ( 131 ) , PRAR 




01964 


FOOO 


1205 


DC 


X'FOOO* EXP COND. CODE AND SENSE 


01 7DA 


41 AO F F 18 


1155 




LA 


RIOtCCW 




01966 


OA D6 


1206 


SVC 


X'D6« ROUTINE EXIT 


01 7DE 


07 F4 


1156 




BCR 


UNCtR4 


RETURN VIA REG 4 


01968 




1207 


CNOP 


0,4 


017E0 


D2 00 F 003 F 812 


1157 


HANGUP 


MVC 


SECN0+3( 1 1 ,RTSAV 


MOVE RTN NO. THAT HANG WAS FOUND 






1208 


************ ************4***********^^ 


017E6 


98 AB F 668 


1158 




LM 


R10*R 11 v I SLAVE 


RESTORE REGS 10 AND 11 






1209 


* ROUTINE 02 


- ISSUE SENSE COMMAND -04-. EXPECT COND. CODE 0 ON THE SIO 


017EA 


94 7F F 0E4 


1159 




NI 


ISW,X'7F' 








1210 


* 


ISSUE A TEST 1-0. EXPECT COND. CODE 1, AND CHANNEL AND 


017EE 


96 01 F 0E5 


1160 




01 


ISW+1, X'Ol • 








1211 


* 


DEVICE END IN THE CSW. ISSUE TEST 1-0. EXPECT CONDITION 


01 7F2 


OA DO 


1161 




SVC 


X'DC 


PRINT 






1212 




CODE 0 


017F4 


64 


1162 




DC 


X '64 • 


-PREVIOUS HANGUP DETECTED- 






1213 


*********************************************************************** 


017F5 


1 A 


1163 




DC 


X • 1A' 




01968 


02 


1214 


ROUT02 DC 


X'02« ROUTINE NUMBER 


017F6 


F88E 


1164 




DC 


AL2 ( HUNG-5ECN0+REG ) 




01969 


0009A4 


1215 


DC 


AL3CR0UT03-SECN0) ADDRESS OF NEXT ROUTINE 


017F8 


OA DO 


1165 




SVC 


X'DC* 




0196C 


45 40 F 790 


1216 


BAL 


R4,INIT BR. TO INITIALIZE 


017F A 


A01 9 


1166 




DC 


X • A019' 




01970 


41 AO F 650 


1217 


G002 LA 


RIO, I SENSE LOAD SENSE CCW ADDRESS 


01 7FC 


F813 


<! 1167 




DC 


AL2ICLUIN-SECN0+REG ) 




01974 


45 BO F 10E 


1218 


BAL 


RlltlSIO BR. TO ISSUE SENSE SIO 


017FE 


45 50 F 2A8 


1168 




SAL 


R5,1D0SNS 


BR. TO OUTPUT AVAILABLE INFO 


01978 


4200 


1219 


DC 


X'4200« CTRL SWITCHES 


01802 


92 01 F 003 


1169 




MVI 


SECN0+3»X'01 • 


RESTORE TO ROUTINE 01 


0197A 


0020 


1220 


DC 


X'0020« TEST NUMB E R 


01806 


94 FE F 0E5 


1170 




NI 


I SW+1 ,X'F£ • 




0197C 


FOOO 


1221 


DC 


X'FOOO' EXP COND. CODE AND SENSE 


0180A 


47 FO F 7C2 


1171 




BC 


UNC, BLOOP 




0197E 


58 9E 0 198 


1222 


L 


R9,WT(R14) 


01 80E 


07 00 


1172 




CNOP 


0 f 4 




01982 


88 90 0 003 


1223 


SRL 


R9,3 


01810 


FFFF 


1173 


SAVDEV 


DC 


X* FFFF • 




01986 


46 90 F 986 


1224 


BCT 


R9,* DELAY 


01812 


00 


1174 


RTSAV 


DC 


X'OO' 




0198A 


45 BO F OFA 


1225 


BAL 


R11,ITI0 BR. TO ISSUE TEST 1-0 


01813 


40E2C5C540C4C5E2 


1175 


CLUIN 


DC 


C SEE DESCRIPTION 8 




0198E 


OAOO 


1226 


DC 


X'OAOO 1 CTRL SWITCHES 


01 8 1 B 


C3D9C9D7E3C9D6D5 












01990 


0030 


1227 


DC 


X'0030' TEST NUMBER 


01823 


60C3D6 D4D4C5D5E3 


1176 




DC 


C '-COMMENTS • 




01992 


F 1 00 


1228 


DC 


X'FIOO' EXP COND, CODE AND SENSE 


0182B 


E2 












01994 


FF04 


1229 


DC 


AL2< SNSCSW-SECNO+REG ) EXP CSW ADDRESS 


0182C 


40C9C640E2E3D340 


1177 


STL 


DC 


C IF STL FEATURE , • 




01996 


45 BO F OFA 


1230 


BAL 


RIUITIO BR. TO ISSUE TEST 1-0 


01834 


C6C5C1 E3E4D9C56B 












0199A 


0200 


1231 


DC 


X'020O' CTRL SWITCHES 


0183C 


40C4C9E2C505C7C1 


1178 




DC 


C DISENGAGE STL H' 




0199C 


0040 


1232 


DC 


X'0040» TEST NUMBER 


01844 


C7C540E2E3D340C8 












0199E 


FOOO 


1233 


DC 


X'FOOO* EXP COND. CODE AND SENSE 


0184C 


C1D9C4E6C1D9C5 


1179 




DC 


C ' ARDWARE • 




019AO 


OA 06 


1234 


SVC 


X'D6' ROUTINE EXIT 


01853 


40C9D5E2E3C1D3D3 


1180 


CEMSG 


DC 


C INSTALL CARRIAG' 




019A2 


07 00 


1235 


CNOP 


0,4 


0185B 


40C3C1D9D9C9C1C7 
















1236 


*********************************************************************** 


01863 


C540E3C1D7C56B40 


1181 




DC 


C'E TAPE, CE OUTPU' 








1237 


* ROUTINE 03 


- ISSUE SENSE COMMAND -04-. ENABLE FOR AN EXPECTED CHANNEL 


0186B 


C3C540D6E4E3D7E4 
















1238 




DEVICE END INTERRUPT. ISSUE TIO. EXPECT COND. CODE 0. 


01873 


E340D4 E4E2E340D5 


1182 




DC 


C'T MUST NOT BE TE' 








1239 


*********************************************************************** 


0187B 


D6E340C2C540E3C5 












019A4 


03 


1240 


R0UT03 DC 


X'03« ROUTINE NUMBER 


01883 


E2E340C4C5E5C9C3 


1183 




DC 


C'ST DEVICE' 




019A5 


0009C8 


1241 


DC 


AL3IR0UT04-SECN0) ADDRESS OF NEXT ROUTINE 


0188B 


C5 












019A8 


45 40 F 790 


1242 


BAL 


R4,INIT BR. TO INITIALIZE 


0188C 


OA DA 


1184 




SVC 


X'DA' 




019AC 


41 AO F 650 


1243 


G003 LA 


RIO, I SENSE SET UP FOR SENSE COMMAND 


0188E 


40D7D9C5E5C9D6E4 


1185 


HUNG 


DC 


C PREVIOUS HANG U' 




019B0 


45 BO F 10E 


1244 


BAL 


R1UISI0 BR. TO ISSUE SENSE SIO 


01896 


E240C8C1D5C740E4 












019B4 


3A00 


1245 


DC 


X'3A00« CTRL SWITCHES 


0189E 


D740C4C5E3C5C3E3 


1186 




DC 


CP DETECTEO' 




019B6 


0050 


1246 


DC 


X'0050» TES T NUMBER 


DATE 


15MAR66 15N0V66 120CT67 








ID F830-5 


DATE 


15MAR66 15N0V66 


120CT67 




ID F8 30- 


EC'S 


125632 125655 131812 








PAGE 10 


EC'S 


125632 125655 


131812 
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LOCAT 


OBJECT 


CODE 


STMT 


SOURCE STATEMENT 




LOCAT '. 

t 


OBJECT 


CODE 


STMT 




SOURCE STATEMENT 






019B8 


FOOO 






1247 


DC 


X'FOOO* 


EXP COND. CODE AND SENSE 


t 

01A34 


FOOO 






1311 




DC 


X'FOOO* 


EXP COND. CODE AND SENSE 




019BA 


FF04 






1248 


DC 


AL2CSNSCSW-SECN0+REG) 


EXP CSW ADDRESS 


01A36 


i FEFO 






1312 




DC 


AL2 ( SHRT-SECNO+REG) 


EXP CSW ADDRESS 




019BC 


45 BO 


F 


OFA 


1249 


BAL 


RlltlTIO 


BR. TO ISSUE TEST 1-0 


01A38 


41 AO 


F 


E90 


1313 




LA 


R10,SSLI 


SET UP FOR SHORT WRITE WITH 


SLI FLAG 


019C0 


0200 






1250 


OC 


K^ZOO' 


CTRL SWITCHES 


01A3C 


92 05 


F 


E90 


1314 




MVI 


SSLI ,X«05» 


SET UP FOR DIAGNOSTIC WRITE 




019C2 


0060 






1251 


DC 


X , 0060» 


TEST NUMBER 


01A40 


45 BO 


F 


IOE 


1315 




BAL 


R11,ISI0 


BR. TO ISSUE SIO 




019C4 


FOOO 






1252 


DC 


X'FOOO 1 


EXP COND. CODE AND SENSE 


01A44 


3C00 






1316 




DC 


X«3C00« 


CTRL SWITCHES 




019C6 


OA 06 






1253 


SVC 


X , D6« 


ROUTINE EXIT 


01A46 


0120 






1317 




DC 


X , 0120 l 


TEST NUMBE 


R 


019C8 








1254 


CNOP 


0,4 




01A48 


FOOO 






1318 




DC 


X»F000» 


EXP COND. CODE AND SENSE 












1255 


****************** *********** ********************* ******* ************** 


01A4A 


FE98 






1319 




DC 


AL2CSSLIST-SECN0+REG) 


EXP CSW ADDRESS 












1256 


* ROUTINE 04 


- ISSUE NOP -03-. EXPECT COND. COOE 1 ON THE SIO, WITH 


01A4C 


92 02 


F 


EE8 


1320 




MVI 


SHORT , X 1 02 • 


SET UP FOR DIAGNOSTIC READ 












1257 


* 


CHANNEL AND DEVICE 


END STORED IN THE CSW. NO INTERRUPT 


01A50 


41 AO 


F 


EE8 


1321 




LA 


RIO, SHORT 


SET UP FOR SHORT READ 












1258 


* 


SHOULD OCCUR. IF PRINTER HAS UCS FEATURE, ISSUE THE 


01A54 


45 80 


F 


IOE 


1322 




BAL 


R11,ISI0 


BR. TO ISSUE SIO 












1259 


* 


PRECONDITION LOAD COMMAND -EB-, THE BLOCK DATA CHECK 


01A58 


3800 






1323 




DC 


X«3800» 


CTRL SWITCHES 












1260 


* 


COMMAND -73-, AND THE ALLOW DATA CHECK COMMAND -7B-. 


01A5A 


0130 






1324 




DC 


X»0130« 


TEST NUMBE 


R 










1261 


* 


EXPECT SAME RESULTS 


AS NOP. 


01A5C 


FOOO 






1325 




DC 


X«F000» 


EXP COND. CODE AND SENSE 












1262 


*********************************************************************** 


01A5E 


FEA8 






1326 




DC 


AL2 ( RDSHRT-SECNO+REG ) 


EXP CSW ADDRESS 




019C8 


04 






1263 


R0UT04 DC 


X'04» 


ROUTINE NUMBER 


01A60 


92 02 


F 


E90 


1327 




MVI 


SSLI ,X , 02 t 


SET UP FOR DIAGNOSTIC READ 




019C9 


000A1C 






1264 


DC 


AL3(R0UT05-SECN0) 


ADDRESS OF NEXT ROUTINE 


01A64 


41 AO 


F 


E90 


1328 




LA 


R1CSSLI 


SET UP FOR SHORT READ WITH SLI FLAG 


019CC 


45 40 


F 


790 


1265 


BAL 


R4, INIT 


BR. TO INITIALIZE 


01A68 


45 BO 


F 


IOE 


1329 




BAL 


R11,ISI0 


BR. TO ISSUE SIO 




019D0 


92 03 


F 


F18 


1266 


G004 MVI 


CCW,X , 03« 


SET UP FOR NOP 


01A6C 


3800 






1330 




DC 


X*3800« 


CTRL SWITCHES 




019D4 


45 BO 


F 


10E 


1267 


BAL 


R11,ISI0 


BR. TO ISSUE NOP SIO 


01A6E 


0140 






1331 




DC 


X , 0140 t 


TEST NUMBE 


R 


019D8 


OAOO 






1268 


DC 


X»0A00» 


CTRL SWITCHES 


01A70 


FOOO 






1332 




DC 


X»F000» 


EXP COND. CODE AND SENSE 




019DA 


0070 






1269 


DC 


X , 0070« 


TEST NUMBER 


01A72 


FEBO 






1333 




DC 


AL2(RSSLI-SECN0+REG) 


EXP CSW ADDRESS 




019DC 


F100 






1270 


DC 


X»F100« 


EXP COND. CODE AND SENSE 


01A74 


41 AO 


F 


EB8 


1334 




LA 


R 10,WRLNG 


SET UP FOR LONG COUNT 




019DE 


FFOC 






1271 


DC 


AL2CN0PCSW-SECN0+REG) 


EXP CSW ADDRESS 


01A78 


92 05 


F 


EB8 


1335 




MVI 


WRLNG,X»05« 


SET UP FOR DIAGNOSTIC WRITE 




019E0 


91 10 


F 


0E1 


1272 


TM 


UNIT1+1,X»1Q» 


CHECK FOR UCS FEATURE 


01A7C 


92 40 


F 


ECD 


1336 




MVI 


ALNG+5,X«40» 


EXP INCORRECT LENGTH 




019E4 


47 80 


F 


A18 


1273 


BC 


NONE , END03 


BR. IF NOT DEFINED 


01A80 


45 BO 


F 


IOE 


1337 




BAL 


R11,ISI0 


BR. TO ISSUE SIO 




019E8 


92 EB 


F 


F18 


1 274 


MVI 


CCW,X«EB« 


SET UP FOR PRE-CONDITION LOAD 


01A84 


3C00 






1338 




DC 


X^COO* 


CTRL SWITCHES 




019EC 


45 BO 


F 


10E 


1 275 


BAL 


R11,ISI0 


BR. TO ISSUE SIO 


01A86 


0150 






1339 




DC 


X»0150» 


TEST NUMBE 


R 


019F0 


OAOO 






1 276 


DC 


X'OAOO* 


CTRL SWITCHES 


01A88 


FOOO 






1340 




DC 


X'FOOO* 


EXP COND. CODE AND SENSE 




019F2 


0080 






1 277 


DC 


X«0080» 


TEST NUMBER 


01A8A 


FEC8 






1341 




DC 


AL2 ( ALNG-SECNO+REG ) 


EXP CSW ADDRESS 




019F4 


F 100 






1 278 


DC 


X«F100« 


EXP COND. CODE AND SENSE 


' 01A8C 


41 AO 


F 


ECO 


1342 




LA 


R10,LNGSLI 


SET UP FOR LONG COUNT WITH SLI 


019F6 


FFOC 






1279 


DC 


AL2CN0PCSW-SECN0+REG) 


EXP CSW ADDRESS 


01A90 


92 05 


F 


ECO 


1343 




MVI 


LNGSL I , X 1 05 • 


SET UP FOR DIAGNOSTIC WRITE 




019F8 


92 73 


F 


F18 


1 280 


MVI 


CCW,X»73« 


SET UP FOR BLOCK DATA CHECK 


01A94 


45 BO 


F 


IOE 


1344 




BAL 


R11,ISI0 • 


BR. TO ISSUE SIO 




019FC 


45 BO 


F 


10E 


128 1 


BAL 


RlltlSIO 


BR. TO ISSUE SIO 


01A98 


3C00 






1345 




DC 


X»3C00* 


CTRL SWITCHES 




01A00 


OAOO 






1 282 


DC 


X'OAOO* 


CTRL SWITCHES 


01A9A 


0160 






1346 




DC 


X»0160» 


TEST NUMBE 


R 


01A02 


0090 






1283 


DC 


X»0090 t 


TEST NUMBER 


01A9C 


FOOO 






1347 




DC 


X'FOOO' 


EXP COND. CODE AND SENSE 




01 A04 


F100 






1284 


DC 


X'FIOO* 


EXP COND. CODE AND SENSE 


01A9E 


FF38 






1348 




DC 


AL2 ( ALNS-SECNO+REG ) 


EXP CSW ADDRESS 




01A06 


FFOC 






1285 


DC 


AL2(N0PCSW-SECN0*REG) 


EXP CSW ADDRESS 


01AA0 


92 00 


F 


ECD 


1349 




MVI 


ALNG+5,X»00« 


EXP NO INCORRECT LENGTH 




01A08 


92 78 


F 


F18 


1286 


MVI 


CCWtX^B" 


SET UP FOR ALLOW DATA CHECK 


01AA4 


41 AO 


F 


EB8 


1350 




LA 


R10,WRLNG 






01A0C 


45 BO 


F 


10E 


1287 


BAL 


R11,ISI0 


BR. TO ISSUE SIO 


01AA8 


92 02 


F 


EB8 


1351 




MVI 


WRLNG,X»02« 


SET UP FOR DIAGNOSTIC READ 




01 A10 


OAOO 






1 288 


DC 


X»OAOO» 


CTRL SWITCHES 


01AAC 


92 40 


F 


EDO 


1352 




MVI 


BLNG+5,X»40 f 


EXP INCORRECT LENGTH 




01 A12 


0100 






1289 


DC 


X'OIOO* 


TEST NUMBER 


01AB0 


45 BO 


F 


IOE 


1353 




BAL 


RlltlSIO 


BR. TO ISSUE LONG READ 




01 A14 


F100 






1290 


DC 


X'FIOO" 


EXP COND. CODE AND SENSE 


01AB4 


3800 






1354 




DC 


X»3800» 


CTRL SWITCHES 




0IA16 


FFOC 






1291 


DC 


AL2(N0PCSW-SECN0*REG) 


EXP CSW ADDRESS 


01AB6 


0170 






1355 




DC 


X'0170* 


TEST NUMBE 


R 


01A18 


OA D6 






1292 


END03 SVC 


X«D6» 


ROUTINE EXIT 


01AB8 


FOOO 






1356 




DC 


X»FOOO» 


EXP COND. CODE AND SENSE 




01A1A 


07 00 






1293 


CNOP 


0,4 




01 ABA 


FED8 






1357 




DC 


AL2 ( BLNG-SECNO+REG ) 


EXP CSW ADDRESS 












1294 


*************************************************** ****** ************** 


01ABC 


92 00 


F 


EDD 


1358 




MVI 


BLNG+5,X»00 t 


EXP NO INCORRECT LENGTH 












1295 


* ROUTINE 05 


- ISSUE DIAGNOSTIC WRITE -05-, WITH A COUNT OF 131. EXPECT 


01AC0 


41 AO 


F 


ECO 


1359 




LA 


R10,LNGSLI 














1296 


* 


INCORRECT LENGTH RECORD TO BE INDICATED. ISSUE SAME 


01AC4 


92 02 


F 


ECO 


1360 




MVI 


LNGSLI,X'02» 


SET UP FOR DIAGNOSTIC READ 












1297 


* 


COMMAND WITH SLI FLAG. EXPECT INCORRECT LENGTH TO BE 


01AC8 


45 BO 


F 


IOE 


1361 




BAL 


R11,ISI0 


BR. TO ISSUE SIO 












1298 


* 


SUPPRESSED. ISSUE DIAGNOSTIC READ -02-, WITH COUNT OF 


01ACC 


3800 






1362 




DC 


X«3800« 


CTRL SWITCHES 












1299 


* 


131. EXPECT INCORRECT LENGTH TO BE INDICATED. ISSUE SAME 


01ACE 


0180 






1363 




DC 


X«0180* 


TEST NUMBE 


R 










1300 


* 


COMMAND WITH SLI FLAG. EXPECT INCORRECT LENGTH TO BE 


01AD0 


FOOO 






1364 




DC 


X»FOOO« 


EXP COND. CODE AND SENSE 












1301 


* 


SUPPRESSED. REPEAT 


ABOVE TESTS WITH A LONG COUNT OF 133* 


01AD2 


FF48 






1365 




DC 


AL2 ( BLNS- SECNO+REG ) 


EXP CSW ADDRESS 












1302 


*********************************************************************** 


01AD4 


OA D6 






1366 




SVC 




ROUTINE EXIT 




01A1C 


05 






1303 


R0UT05 DC 




ROUTINE NUMBER 


01AD6 


07 00 






1367 




CNOP 


0,4 






01A1D 


000A08 






1304 


DC 


AL3<R0UT06-SECN0) 


ADDRESS OF NEXT ROUTINE 










1368 


*********************************************************************** 


01A20 


45 40 


F 


790 


1305 


BAL 


R4,INIT 


BR. TO INITIALIZE 










1369 


* 


ROUTINE 06 


- ISSUE DIAGNOSTIC WRITE -05-. CLEAR NO INTERRUPTS. TRY 


01A24 


41 AO 


F 


EE8 


1306 


G005 LA 


RIO, SHORT 


LOAD ADDR OF SHORT COUNT CCW 










1370 


* 




TO ISSUE ANOTHER SIO. EXPECT COND. CODE 2. ISSUE A HIO. 


01A28 


92 05 


F 


EE8 


1307 


MVI 


SHORT, X»05« 


SET UP FOR DIAGNOSTIC WRITE 










1371 


* 




EXPECT CONDITION CODE 0. ISSUE A TEST 1-0 




01A2C 


45 BO 


F 


iOE 


1308 


BAL 


RlltlSIO 


BR. TO ISSUE SIO 










1372 


* 




EXPECT COND* CODE 1 


WITH CHANNEL END IN THE CSW. 


ISSUE 


01A30 


3C00 






1309 


DC 


X«3C00« 


CTRL SWITCHES 










1373 






ANOTHER HIO* EXPECT 


COND. CODE 1 WITH ZEROED CSW. ISSUE 


01A32 


0110 






1310 


DC 


X«OUO» 


TEST NUMBER 










1374 


* 




A SIO. EXPECT COND. 


CODE 1 WITH DEVICE BUSY AND 


DEVICE 



DATE 15MAR66 15N0V66 120CT67 ID F830-5 DATE 15MAR66 15N0V66 120CT67 ID F830-5 

EC'S 125632 125655 131812 PAGE 11 EC ' s 125632 125655 131812 PAGE 11A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



P/N 840104 
PAGE 12 



1403 PRINTER FUNCTION 1 
LOCAT OBJECT CODE 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



1403 PRINTER FUNCTION 1 



P/N 840104 
PAGE 12A 



01AD8 
01A09 
01ADC 
01AE0 
01AE6 
01AEA 
01AEC 
01AEE 
01AF0 
01AF4 
01AF6 
01AF8 
01AFA 
01AFE 
01B02 
01B06 
01B0A 
01B0C 
01B0E 
01B10 
01B14 
01B16 
01B18 
01B1A 
01B1C 
01B20 
018^4 
01B28 
01B4C 
01B2E 
01B30 
01B32 
01B34 
01B38 
01B3A 
01B3C 
01B3E 
01B40 
01B44 
01B46 
01B48 
01B4A 
01B4C 
01B50 
01852 
01B54 
01B56 
01B58 



F DCO 



DATE 
EC'S 



STMT 

1ST 5 
1376 
1377 
1378 
1379 
1380 
1381 
1382 
1383 
1384 
1385 
1386 
1387 
1388 

i 1389 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1400 
1401 
1402 

, 1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 



15MAR66 15N0V66 120CT67 
125632 125655 131812 



06 

000B58 
45 40 
02 07 
45 BO 
4200 
0190 
FOOO 

45 BO 
4200 
0200 
F200 
58 9E 
88 90 

46 90 
45 BO 
4200 
0210 
FOOO 

45 BO 
4A00 
0220 
F100 
FF20 
58 9E 
88 90 

46 90 
45 BO 
4A00 
0230 
F100 
F0F4 
45 BO 
0800 
0240 
F100 
FDC8 
45 BO 
4A00 
0250 
F100 
FDF4 
45 BO 
4200 
0260 
FOOO 
OA 06 



F 790 
F F18 
F 10E 



F 10E 



0 198 
0 004 
F B02 
F 0E6 



F OFA 



0 198 
0 004 
F B24 
F 0E6 



F iOE 



F 0E6 



F OFA 



SOURCE STATEMENT 

* END- ISSUE HIO AGAIN, EXPECT SAME AS BEFORE. ISSUE A 

* TEST 1-0. EXPECT COND. CODE 0. 



G006 



DC 


X • 06 • 


ROUTINE NUMBER 




DC 


AL3 (R0UT07-SECN0) 


ADDRESS OF NEXT ROUTINE 




B AL 


R4 1 INI T 


BR. TO INITIALIZE 




M VC 


wCWf 8 1 t DWR 


SET UP FOR DIAGNOSTIC WRITE 


B AL 


R 1 1 , I SIO 


BR. TO ISSUE SIO 






A HiiUU * 


CTRL SWITCHES 




ui. 


A • 0190' 


TEST NUMB 


E 


nr 


vicrnni 

A rUUU 


EXP COND. CODE AND SENSE 




BAL 


K 1 1 , 1 5 1 U 


BR. TO ISSUE SIO 




DC 


v t /.onn 9 

A " HC.Uk/ * 


CTRL SWITCHES 




DC 


A Uc UU 


TEST NUMB 


E 


DC 


X * F200 ' 


EXP COND. CODE AND SENSE 






DO. UT (QUI 


LOAD WAIT FACTOR 




SRL 


R9, 4 


ADJUST 




Dv 1 


DO * 


LOOP UNTIL COUNT OF ZERO 




BAL 


Oil. TMTfl 
nil t imu 


BR. TO ISSUE HALT I~0 




DC 


X * 4200 * 


CTRL SWITCH 




DC 


X ' 02 10 * 


TEST NUMB 


E 


DC 


X •FOOO 1 


EXP COND. CODE AND SENSE 




BAL 


R 1 1 . I Tin 


BR. TO ISSUE TEST 1-0 




DC 


X*4A00* 


CTRL SWITCHES 




DC 


X * 0220 ' 


T EST NUMB 


E 


DC 


y ipt art t * 

a r i uu 


EXP COND. CODE AND SENSE 




DC 




EXP CSW ADDRESS 




L 




LOAD DM WAIT CONSTANT 




SRL 


R9,4 


ADJUST 




BCT 


R9,* 


DELAY 




BAL 


oii .twin 


BR. TO ISSUE HALT 1-0 




DC 


X ' 4A00 * 


CTRL SWITCHES 




DC 


X»0230» 


TEST NUMB 


E 


DC 


X»F100» 


EXP COND COSE AND SENSE 




DC 


AL21CSW0-SECN0+REG) 


EXP CSW ADDRESS 




BAL 


Rllf ISIO 


BR. TO ISSUE SIO 




DC 


X«0800» 


CTRL SWITCHES 




DC 


X«0240» 


TEST NUMB 


E 


DC 


X»F100' 


EXP COND. CODE AND SENSE 




DC 


AL2 ( DBZY-SECNO+REG) 


EXP CSW ADDRESS 




BAL 


Rll, IHIO 


BR. TO ISSUE HALT I-C 




DC 


X»4A00» 


CTRL SWITCHES 




DC 


X , 0250» 


TEST NUMB 


E 


DC 


X^lOO* 


EXP COND CODE AND SENSE 




DC 


AL2(CSW0-SECN0*REG) 


EXP CSW ADDRESS 




BAL 


Rll, ITIO 


BR. TO ISSUE TEST 1-0 




DC 


X»4200» 


CTRL SWITCHES 




DC 


X»0260« 


TEST NUMB 


E 


DC 


X'FOOO 1 


EXP COND CODE AND SENSE 




SVC 


X»06» 


ROUTINE EXIT 




CNOP 


0,4 







* ROUTINE 07 - THIS ROUTINE IS BYPASSED UNLESS SECTION SENSE SWITCH 5 
IS ON. MAKE DEVICE NOT READY. ISSUE A NOP -03-. ISSUE 
A TIO. EXPECT COND. CODE 1, WITH UNIT CHECK STORED, AND 
INTERVENTION REQUIRED IN SENSE, FOR BOTH. ISSUE HIO. 
EXPECT COND* CODE 1, WITH 0 CSW STORED. MAKE DEVICE 
UNAVAILABLE. ISSUE NOP -03- SIO, A TIO, AND A HIO. 
EXPECT COND. CODE 3 ON EACH. MAKE DEVICE AVAILABLE AND 
READY. ISSUE TIO. EXPECT COND. CODE 1 WITH DEVICE END 
STORED DUE TO NOT READY TO READY. RESTORE CARRIAGE. 
ISSUE SKIP TO 1 IMMEDIATE. OBSERVE NO CARRIAGE MOTION. 
ISSUE PRINT AND SPACE SUPPRESS -01-. OBSERVE NO MOTION. 
ISSUE SKIP TO 1 IMMEDIATE. CARRIAGE SHOULD SKIP TO 1. 



ID 

PAGE 



F830-5 
12 



LOCAT 


OBJECT 


CODE 


STMT 


SOURCE 


STATEMENT 












1439 


*************************** 


01B58 


07 






1440 


RniJT07 


DC 


X • 07 • 


D ni IT T WF NI1MAFD 

tvuu i i roe rounccK v 


01B59 


OO0C50 






1441 




DC 


ai I pmiTnp— ^pr Kin i 
ml j i mju i uo ocv*rou 1 


A n n tit- nc ucvt ddiit imc 
AUURt Ur NtA 1 KUU 1 iNfc 


01B5C 


91 04 


F 


004 


1442 




TM 


OIN jnf A U"r 




01B60 


47 10 


F 


B6C 


1443 




BC 


ai i _ cnm—A 

HLl tuUU I f 


DO. TC pM 

Di\— ir UN 


01B64 


OA DO 






1444 


SOLONG 

JUL Ullv 


SVC 


X * DO 1 


PRINT -RYPUCCCri- 


01B66 


04 






1445 




DC 


X ' 04 ' 




01B67 


OE 






1446 




DC 


X • OF 1 




01B68 


FDDO " 






1447 




DC 


AL2 ( BYPASS- SECNO+REG) 




01B6A 


OA 06 






1448 




SVC 


X , D6 I 


FXTT FRflM RDI1TINF 


01B6C 


45 40 


F 


790 


1449 




BAL 


R4, INIT 




01B70 


OA DO 






1450 


G007 


SVC 


X^DO 1 


PRINT — MAKF NOT RFAnY— 

' iAl 11 1 nMl»L liu 1 IM.nL/ 1 


01B72 


24 






1451 




DC 


X'24* 




01B73 


OF 






1452 




DC 


X'OF • 




01B74 


FDDD 






1453 




DC 


AL2 ( MNR-SECNO+REG) 




01B76 


OA DA 






1454 




SVC 


X^A* 


HALT TO PERFORM INTERVENTION 


01B78 


45 BO 


F 


IOE 


1455 




BAL 


Rll, ISIO 


BR. TO ISSUE SIO 


01B7C 


3800 






1456 




DC 


X'3$00 9 


CTRL SWITCHES 


01B7E 


0270 






1457 




DC 


X , 0270 l 


TEST NUMBER 


01B80 


F140 






1458 




DC 


X'F^O 1 


EXP COND. CODE AND SENSE 


01B82 


FDEC 






1459 




DC 


AL2 (UC-SECNO+REG) 


EXP CSW ADDRESS 


01B84 


45 BO 


F 


OFA 


1460 




BAL 


Rll, ITIO 


BR. TO ISSUE TIO 


01B88 


3800 






1461 




DC 


X» 3800* 


CTRL SWITCHES 


01B8A 


0280 






1462 




DC 


X , 0280* 


TEST NUMBER 


01B8C 


F140 






1463 




DC 


X •F^O 1 


EXP COND. CODE AND SENSE 


01B8E 


FDEC 






1464 




DC 


AL2 ( UC-SECNO+REG ) 


EXP CSW ADDRESS 


01B90 


45 BO 


F 


0E6 


1465 




BAL 


Rll, IHIO 


BR. TO ISSUE HIO 


01B94 


3800 






1466 




DC 


x^eoo' 


CTRL SWITCHES 


01B96 


0290 






1467 




DC 


X • 0290 1 


TEST NUMBER 


01B98 


F140 






1468 




DC 


X«F140* 


EXP COND. CODE AND SENSE 


01B9A 


FDF4 






1469 




DC 


AL2 (CSWO-SECNO+REG ) 




01B9C 


OA DO 






1470 




SVC 


X • DO • 


PRINT —MAKE UNAVAILABLE- 


01B9E 


24 






1471 




DC 


X'24 1 




01B9F 


11 






1472 




DC 


X» 11 • 




01BA0 


FE04 






1473 




DC 


AL2 (MUA-SECNO+REG) 




01BA2 


OA DA 






1474 




SVC 


X'DA" 


HALT TO PERFORM INTERVENTION 


01BA4 


45 BO 


F 


IOE 


1475 




BAL 


Rll, ISIO 


BR. TO ISSUE SIO 


01BA8 


3200 






1476 




DC 


X • 3200* 


CTRL SWITCHES 


01BAA 


0300 






1477 




DC 


X'0300 1 


TEST NUMBER 


01BAC 


F300 






1478 




DC 


X*F300* 


EXP COND. CODE AND SENSE 


01BAE 


45 60 


F 


OFA 


1479 




BAL 


Rll , ITIO 


BR. TO ISSUE TIO 


01BB2 


3200 






1480 




DC 


X»3200* 


CTRL SWITCHES 


01BB4 


0310 






1481 




DC 


X • 0310* 


TEST NUMRFR 


C1BB6 


F300 






1482 




DC 


X'F300* 


EXP. COND. CODE AND SENSE 


01BB8 


45 BO 


F 


0E6 


1483 




BAL 


Rll , IHIO 


BR. TO ISSUE HIO 


01BBC 


3200 






1484 




DC 


X»3200« 


CTRL SWITCHES 


01BBE 


0320 






1485 




DC 


X»0320« 


TEST NUMBE R 


01BC0 


F300 






1486 




DC 


X , F300" 


EXP COND. CODE AND SENSE 


01BC2 


OA DO 






1487 




SVC 


X»D0« 


PRINT -MAKE AVAILABLE, RESTORE, 


01BC4 


24 






1488 




DC 


X«24» 


READY- 


01BC5 


IF 






1489 




DC 


X • IF • 




01BC6 


F615 






1490 




DC 


AL2 (MRA-SECNO+REG) 




01BC8 


OA OA 






1491 




SVC 


X»DA» 


HALT TO PERFORM INTERVENTION 


01BCA 


45 BO 


F 


OFA 


1492 




BAL 


Rll, ITIO 


BR. TO ISSUE TIO 


01BCE 


3800 






1493 




DC 


x^eoo* 


CTRL SWITCHES 


016D0 


0330 






1494 




DC 


X»0330» 


TEST N UMBER 


01BD2 


F100 






1495 




DC 


X»F100« 


EXP COND. CODE AND SENSE 


01BD4 


FF28 






1496 




DC 


AL2<D0NLY-SECN0+REG> 


EXP CSW ADDRESS 


01BD6 


D2 01 


F 


E3D °F 


E58 1497 




MVC 


0NCM+9(2),N0 


MOVE -NO- TO MESSAGE 


01BDC 


OA 00 






1498 




SVC 


X»00« 


PRINT -OBSERVE NO CARRIAGE MOTION- 


01BDE 


24 






1499 




DC 


X«24» 




01BDF 


24 






1500 




DC 


X»24» 




01BE0 


FE34 






1501 




DC 


AL2(0NCM-SECN0+REG) 




01BE2 


OA DO 






1502 




SVC 


X•D0 , 


PRINT -SKIP TO 1 IMMED' 


DATE 


15MAR66 


15N0V66 


120CT67 








ID F830-5 


£C f S 


125632 


125655 


131812 








PAGE 12A 
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1403 PRINTER FUNCTION 1 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 



1403 PRINTER FUNCTION 1 



P/N 840104 
PAGE 13A 



LOCAT 


OBJECT 


CODE 






STMT 




SOURCE STATEMENT 




LOCAT 


OBJECT CODE 


STMT 


SOURCE STATEMENT 




01BE4 


Ap 










1503 




DC 


X'AO 1 




01C6A 


000000000000 










01BE5 


10 










1504 




DC 


X'lO* 




01C70 


050018CD80000020 


1567 


DWRDC CCW 


X»05«,PRAR,X»80«,32 




Q1BE6 


FE5A 










1505 




DC 


AL2(SKIP-SECN0+REG) 




01C78 


000018CD00000064 


1568 


CCW 


X , 00 , ,PRAR,X , 00 , tl00 




01BE8 


OA DA 










1506 




SVC 


X*DA» 


HALT TO READ INSTRUCTIONS 


01C80 


00001C80 


1569 


DCCWS DC 


A(DCCWS) 




01BEA 


92 8B 


F 


F18 






1507 




MVI 


CCWtX^B* 


SET UP SKIP TO 1 IMMEDIATE 


01C84 


08000000 


1570 


DC 


X»08000000« 




01BEE 


45 60 


F 


10E 






1508 




BAL 


R11,ISI0 


BR. TO ISSUE SIO 


01C88 


00000000 


1571 


DC 


XL4 , 0» 




01BF2 


3C00 










1509 




DC 


X»3C00« 


CTRL SWITCHES 


01C8C 


04000000 


1572 


DC 


X , 04000000« 




01BF4 


0340 










1510 




DC 


X«0340» 


TEST NUM BER 


01C90 




1573 


CNOP 


0,4 




01BF6 


F100 










1511 




DC 


X»F100« 


EXP CONP. CODE AND SENSE 






1574 


*********************************************************************** 


01BF8 


FF50 










1512 




DC 


AL2< IMCSW-SECNO+REG) 








1575 


* ROUTINE 09 


- COMMAND CHAIN A NOP -03-, TO ANOTHER NOP. EXPECT COND. 


01BFA 


OA DO 










1513 




SVC 


X»DO« 


PRINT -OBSERVE NO CARRIAGE MOTION- 






1576 


* 


CODE 0 ON THE SIO, 


DUE TO CHAIN FLAG. EXPECT CHANNEL 


01BFC 


24 










1514 




DC 


X'24' 








1577 


* 


AND DEVICE END INTERRUPT WITH ADDRESS OF THE SECOND 


01BFD 


24 










1515 




DC 


X«24« 








1578 




CCW PLUS 8 STORED 


IN THE CSW. 


01BFE 


FE34 










1516 




DC 


AL2(0NCM-SECN0+REG) 








1579 


*********************************************************************** 


01C00 


OA DO 










1517 




SVC 


X'DO 1 


PRINT -PRINT NO SPACE- 


01C90 


09 


1580 


R0UT09 DC 


X«09« 


ROUTINE NUMBER 


01C02 


AO 










1518 




DC 


X»AO« 




01C91 


000CC8 


1581 


DC 


AL3(R0UT10-SECN0) 


ADDRESS OF NEXT ROUTINE 


01C03 


17 










1519 




DC 


X»17» 




01C94 


45 40 F 790 


1582 


BAL 


R4,INIT 


BR. TO INITIALIZE 


01C04 


FE6A 










1520 




DC 


AL2(PNS-SECN0+REG) 




01C98 


41 AO F CBO 


1583 


G009 LA 


RIO, CHNNOP 


SET UP TO CHAIN NOP 


01C06 


OA DA 










1521 




SVC 


X'DA* 


HALT TO READ INSTRUCTIONS 


01C9C 


45 BO F 10E 


1584 


BAL 


R11,ISI0 


BR. TO ISSUE SIO 


01C08 


02 07 


F 


F18 


F 


DCO 


1522 




MVC 


CCVH8) ,DWR 




01CA0 


3800 


1585 


DC 


x^eoo' 


CTRL SWITCHES 


01C0E 


92 01 


F 


F18 






1523 




MVI 


CCW,X»01« 


SET UP PRINT NO SPACE 


01CA2 


0380 


1586 


DC 


X , 0380« 


TEST NUMBER 


01C12 


45 BO 


F 


10E 






1524 




BAL 


RlltlSIO 


BR. TO ISSUE SIO 


01CA4 


FOOO 


1587 


DC 


X»F000« 


EXP COND. CODE AND SENSE 


01C16 


3C00 










1525 




DC 


X»3C00» 


CTRL SWITCHES 


01CA6 


FCCO 


1588 


DC 


AL2( CHNST- SECNO+REG) 


EXP CSW ADDRESS 


01C18 


0350 










1526 




DC 


X , 0350« 


TEST NUMBER 


01CA8 


OA D6 


1589 


SVC 


X , D6» 


ROUTINE EXIT 


01C1A 


FOOO 










1527 




DC 


X'FOOO* 


EXP COND. CODE AND SENSE 


01CAA 


000000000000 










01C1C 


FF20 










1528 




DC 


AL2 ( NORM-SECNO+REG ) 


EXP CSW ADDRESS 


01CB0 


0300L8CD40000001 


1590 


CHNNOP CCW 


X»03»,PRAR,X»40»,1 




01C1E 


D2 01 


F 


E3D 


F 


E3C 


1529 




MVC 


0NCM+9C2) tONCM+8 


BLANK OUT -NO- IN MESSAGE 


01CB8 


030018CD00000001 


1591 


CCW 


X»03» ,PRAA,X'00» ,1 




01C24 


OA DO 










1530 




SVC 


X»DO» 


PRINT -OBSERVE CARRIAGE MOTION- 


01CC0 


00001CC0 


1592 


CHNST DC 


A ( CHNST ) 




01C26 


24 










1531 




DC 


X»24« 




01CC4 


0C000001 


1593 


DC 


X'OCOOOOOl" 




01C27 


24 










1532 




DC 


X»24» 




01CC8 




1594 


CNOP 


0,4 




01C28 


FE34 










1533 




DC 


AL2C0NCM-SECN0+REG) 








1595 


*********************************************************************** 


01C2A 


OA DO 










1534 




SVC 


X^DO* 


PRINT -SKIP TO 1 IMMED- 






1596 


* ROUTINE 10 


- ISSUE DIAGNOSTIC CHECK READ -06-. EXPECT COND. CODE 0 


01C2C 


AO 










1535 




DC 


X»AO« 








1597 


* 


ON SIO, WITH CHANNEL AND DEVICE END INTERRUPT. 


01C2D 


10 










1536 




DC 


X»10* 








1598 


************************************************************** 


01C2E 


FE5A 










1537 




DC 


AL2(SK!P-SECN0+REG) 




01CC8 


10 


1599 


R0UT10 DC 


X«10' 


ROUTINE NUMBER 


01C30 


OA DA 










1538 




SVC 


X«DA« 


HALT TO READ INSTRUCTIONS 


01CC9 


OOOCFO 


1600 


DC 


AL3<R0UT11-SECNQ) 


ADDRESS OF NEXT ROUTINE 


01C32 


D2 07 


F 


F18 


F 


F60 


1539 




MVC 


CCW(8),N0PCCW 


SET UP FOR SKIP TO 1 IMMEDIATE 


01CCC 


45 40 F 790 


1601 


BAL 


R4,INIT 


BR. TO INITIALIZE 


01C38 


92 8B 


F 


F18 






1540 




MVI 


CCW,X»8B« 




01CD0 


D2 07 F F18 F CE8 


1602 


GO 10 MVC 


CCW(8),DCRD 


SET UP FOR DIAG. CHECK READ 


01C3C 


45 BO 


F 


10E 






1541 




BAL 


R11,ISI0 


BR. TO ISSUE SIO 


01CD6 


45 BO F 10E 


1603 


BAL 


R11,ISI0 


BR. TO ISSUE SIO 


01C40 


3C00 










1542 




DC 


X»3C00« 


CTRL NUMBER 


01CDA 


3800 


1604 


DC 


X»3800« 


CTRL SWITCHES 


01C42 


0360 










1543 




DC 


X , 0360« 


TEST NUMBER 


01CDC 


0390 


1605 


DC 


X»0390« 


TEST NUMBER 


01C44 


F100 










1544 




DC 


X»F100» 


EXP COND. CODE AND SENSE 


01CDE 


FOOO 


1606 


DC 


X'FOOO 1 


EXP COND. CODE AND SENSE 


01C46 


FF50 










1545 




DC 


AL2< IMCSW-SECNO+REG) 


EXP CSW ADDRESS 


01CE0 


FF30 


1607 


DC 


AL2 (NORD-SECNO+REG ) 


EXP CSW ADDRESS 


01C48 


OA DO 










1546 




SVC 


X'DO* 




01CE2 


OA D6 


1608 


SVC 


X«D6« 


ROUTINE EXIT 


01C4A 


04 










1547 




DC 


X»04" 




01CE4 


00000000 










Q1C4B 


OB 










1548 




DC 


X'OB' 




01CE8 


060018CD00000084 


1609 


DCRD CCW 


X»06« ,PRAR,X«00 , ,132 




01C4C 


FE81 










1549 




DC 


AL2 ( ENDRTN-SECNO+REG ) 




01CF0 




1610 


CNOP 


0,4 




01C4E 


OA D6 










1550 




SVC 


X»D6» 


ROUTINE EXIT 






1611 


*********************************************************************** 


01C5Q 












1551 




CNOP 


0,4 








1612 


* ROUTINE 11 


- ISSUE PRINT AND SKIP TO 1 -89-. CLEAR CHANNEL END. 














1552 


*********************************************************************** 






1613 


* 


ISSUE TIO BEFORE DEVICE END OCCURS. EXPECT DEVICE BUSY. 














1553 


* 


ROUTINE 08 


- ISSUE DIAGNOSTIC WRITE -05-, WITH COUNT OF 32, DATA 






1614 


* 


REPEAT FOR SIO. EXPECT SAME. REPEAT FOR HIO. EXPECT COND 














1554 






CHAINED TO ANOTHER 


CCW WITH A COUNT OF 100. THE SECOND 






1615 


* 


CODE 1 WITH ZEROED 


CSW. EACH DEVICE END FROM THE PRINT 














1555 






CCW IS AN INVALID COMMAND. EXPECT NO UNUSUAL CONDITIONS. 






1616 


* 


AND SKIP TO 1 IS CLEARED BY ENABLING THE CHANNEL AFTER 














1556 


*********************************************************************** 






1617 


* 


THE 1-0 OPERATION 


BETWEEN CHANNEL AND DEVICE END. THIS 


01C50 


08 










1557 


R0UT08 DC 


X»08» 


ROUTINE NUMBER 






1618 


* 


ROUTINE WILL BE BYPASSED IF SECTION SENSE SWITCH 7 IS ON 


01C51 


000C90 










1558 




DC 


AL3(R0UT09-SECNQ) 


ADDRESS OF NEXT ROUTINE 






1619 


*********************************************************************** 


Q1C54 


45 40 


F 


790 






1559 




BAL 


R4, INIT 


BR. TO INITIALIZE 


01CF0 


11 


1620 


ROUT 11 DC 


X«ll« 


ROUTINE NUMBER 


01C58 


41 AO 


F 


C70 






1560 


G008 LA 


RIOf DWRDC 


SET UP FOR DATA CHAIN 


01CF1 


000D54 


1621 


DC 


AL3CROUT12-SECNO) 


ADDRESS OF NEXT ROUTINE 


01C5C 


45 BO 


F 


10E 






1561 




BAL 


R11,ISI0 


BR. TO ISSUE SIO 


01CF4 


45 40 F 790 


1622 


BAL 


R4,INIT 




Q1C60 


3C00 










1562 




DC 


X'SCOO 1 


CTRL SWITCHES 


01CF8 


D2 07 F F18 F CE8 


1623 


G011 MVC 


CCW (8), DCRD 




01C62 


0370 










1563 




DC 


X»037Q" 


TEST NUMBER 


01CFE 


91 01 F 004 


1624 


TM 


SNSW,X'01» 


CHECK SECTION SENSE SWITCH 7 


01C64 


FOOO 










1564 




DC 


X«F000« 


EXP COND. CODE AND SENE 


01D02 


47 10 F B64 


1625 


BC 


ALL,SOLONG 


BR. IF ON TO BYPASS ROUTINE 


01C66 


FC80 










1565 




DC 


AL2 < DCCWS-SECN04REG ) 


EXP CSW ADDRESS 


01D06 


92 89 F F18' 


1626 


MVI 


CCWfX•89• 


SET UP PRINT AND SKIP TO 1 


01C68 


OA D6 










1566 




SVC 


X"D6» 


ROUTINE EXIT 


01D0A 


45 BO F 10E 


1627 


BAL 


R11,ISI0 


BR. TO ISSUE SIO 
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1403 PRINTER FUNCTION 1 



LOCAT 


OBJECT 


CODE 


STMT 


SOURCE STATEMENT 






01D0E 


2A00 




1628 


DC 


X • 2A00 ' 


CTRL SWITCHES 




01D10 


0400 




1629 


DC 


X 0400' 


TEST NUMB 


E R 


01D12 


FOOO 




1630 


DC 


X • FOOO • 


EXP COND. CODE AND SENSE 




01014 


FF20 




1631 


DC 


ALZ ( NORM- 5ECN0+REG) 


EXP CSW ADDRESS 




01D16 


45 BO 


F OFA 


1632 


BAL 


Rll » I TIO 


BR. TO ISSUE TEST 1-0 




0101A 


3C00 




1633 


DC 


X* 3C00* 


CTRL SWITCHES 




01D1C 


0410 




1634 


DC 


X' 0410." 


TEST NUMB 


E R 


01D1E 


F100 




1635 


DC 


X'FIOO* 


EXP COND. CODE AND SENSE 




01D20 


FDBO 




1636 


DC 


AL2 ( OBI Z-SECNO+REG) 


EXP CSW ADDRESS 




01D22 


45 BO 


F 10E 


1637 


BAL 


Rll , 1 SIO 


BR. TO ISSUE SIO 




01026 


2A00 




1638 


DC 


X" 2A00* 


CTRL SWITCHES 




01D28 


0420 




1639 


DC 


X ' 0420* 


TEST NUMB 


E R 


0102A 


FOOO 




1640 


DC 


w a r a An ■ 

X ■ FOOO 1 


EXP COND. CODE AND SENSE 




01D2C 


FF20 




1641 


DC 


AL2 (NORM-SECNQ+REG) 


EXP CSW ADDRESS 




01D2E 


45 BO 


F 10E 


1642 


BAL 


Rll, I SIO 


BR. TO ISSUE SIO 




01D32 


3C00 




1643 


DC 


X'3C00' 


CTRL SWITCHES 




01034 


0430 




1644 


DC 


X'0430' 


TEST NUMB 


E R 


01036 


F100 




1645 


DC 


X'FIOO* 


EXP COND. CODE AND SENSE 




01D38 


FDBO 




1646 


DC 


AL2(DBIZ-SECN0+REG) 


EXP CSW ADDRESS 




01D3A 


45 BO 


F 10E 


1647 


BAL 


RllflSIO 


BR. TO ISSUE START 1-0 




01D3E 


2A00 




1648 


DC 


X'2A00' 


CTRL SWITCHES 




01040 


0440 




1649 


DC 


X'0440' 


TEST NUMB 


E R 


01 042 


FOOO 




1650 


DC 


X'FOOO' 


EXP COND CODE AND SENSE 




01044 


FF20 




1651 


DC 


AL2 (NORM— SECNO+REG ) 


EXP CSW ADDRESS 




01046 


45 80 


f 0E6 


1652 


BAL 


RlltlHIO 


BR. TO ISSUE HALT 1-0 




01D4A 


3C00 




1653 


DC 


X'3C00» 


CTRL SWITCHES 




01D4C 


0450 




1654 


DC 


X'0450' 


TEST NUMB 


E R 


0104E 


F100 




1655 


DC 


X'FIOO' 


EXP COND CODE AND SENSE 




01050 


F0F4 




1656 


DC 


AL2(CSW0-SECN0+REG> 


EXP CSW ADDRESS 




01052 


OA 06 




1657 


SVC 


X'D6« 


ROUTINE EXIT 




01054 






1658 


CNOP 


0,4 












1659 


************************************** 








1660 


*******************************^ 








1661 


* ROUTINE 12 


- ISSUE A DIAGNOSTIC 


WRITE, AND CLEAR CHANNEL END ONLY. 








1662 




ISSUE AN INVALID COMMAND, EXPECT COND. CODE 1 


WITH 








1663 




DEVICE BUSY AND DEVICE END ONLY, ISSUE SENSE, 


NO BITS 








1664 


* 


SHOULD BE SET. 












1665 


************^*******#*4^******************^ 


01054 


12 




1666 


ROUT 12 DC 


X' 12' 


ROUTINE NUMBER 




01055 


OOFFFF 




1667 


DC 


X'OOFFFF' 


LAST ROUTINE 




01058 


45 40 


F 790 


1668 


BAL 


R4, INIT 


GO INITIALIZE 




01D5C 


02 07 


F F18 F DCO 


1669 


G012 MVC 


CCWI8I,DWR 


SET UP COMMAND 




01062 


45 BO 


F 10E 


1670 


BAL 


Rll* ISIO 


GO TO 1-0 HANDLER- D I AG WRITE 


01D66 


2A00 




1671 


DC 


XL2'2A00' 


CONTROL SWITCHES 




01068 


0460 




1672 


DC 


X'G460' 


TEST NUMB 


E R 


01D6A 


FO 




1673 


DC 


X'FO' 


CONDITION CODE EXPECTED 




01D6B 


00 




1674 


DC 


X • 00 • 


SENSE DATA EXPECTED 




01D6C 


FF20 




1675 


DC 


AL2< NORM-SECNO+REG ) 


ADDRESS OF CSW 




01D6E 


92 OC 


F F18 


1676 


MVI 


CCW, X '00 


SET UP FOR INVALID COMMAND 


01072 


58 4E 


0 198 


1677 


L 


R4 f VTCR14I 


LOAD WAIT FACTOR 




01076 


88 40 


0 004 


1678 


SRL 


R4,4 


ADJUST WAIT FACTOR 




01D7A 


46 40 


F D7A 


1679 


BCT 


R4,* 


WAIT 




0107E 


45 BO 


F 10E 


1680 


BAL 


Rll, ISIO 


GO TO 1-0 HANDLER - INVALID COMMANO 


01D82 


3800 




1681 


DC 


XL2'3800' 


EXPECTED A CSW 




01084 


0480 




1682 


DC 


X'0480' 


TEST NUMB 


E R 


01D86 


Fl 




1683 


DC 


X'Fl' 


EXPECTED CONDITION CODE 




01087 


00 




1684 


DC 


X'OO' 


EXPECTED SENSE 




01088 


FDC8 




1685 


DC 


AL2(DBZY-SECN0*REG) 


ADDRESS OF CSW 




01D8A 


OA D6 




1686 


SVC 


X'D6» 


ROUTINE EXIT 




01D8C 


00000000 












01090 


030018C040000001 


1687 


NOPTRN CCW 


X'03» ,PRAR,X'40' t l 






01098 


08001D9000000001 


1688 


CCW 


X'08' , NOPTRN, X'OOSl 






01DA0 


0000000000000000 


1689 


R12CSW DC 


XL8'0' 






010A8 


00001DA0 


1690 


DC 


A(R12CSW) 
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LOCAT 


OBJECT CODE 


STMT 


SOURCE STATEMENT 


01DAC 


OCOOOOOO 






DC 


X' OCOOOOOO' 


01DB0 


000000 00 


1692 


DBIZ 


DC 


XL4'0» 


01DB4 


10000000 


1693 




DC 


X'lOOOOOOO' 


01088 


00000000 


1694 




DC 


XL4'0' 


01DBC 


04000000 


1695 




DC 


X'04000000' 


01DC0 


050018CD00000084 


1696 


DWR 


CCW 


X'05«,PRAR,X'00',132 


01DC8 


00000000 


1697 


DBZY 


DC 


XL4'0' 


01DCC 


14000000 


1698 




DC 


X'14000000' 


01DD0 


40D9E3D540C2E8D7 


1699 


BYPASS 


DC 


C RTN BYPASSED' 


01DD8 


C1E2E2C5C4 










01DDD 


40D4C1D2C540D5D6 


1700 


MNR 


DC 


C MAKE NOT READY' 


01DE5 


E340D9C5C1C4E8 










01DEC 


00000000 


1701 


UC 


DC 


XL4'0' 


01DF0 


020000 00 


1702 




DC 


X* 02000000' 


01DF4 


0000000000000000 


1703 


CSWO 


DC 


XL8'0' 


01DFC 


00000000 


1704 




DC 


XL4'0» 


01E00 


04000000 


1705 




DC 


X' 04000000' 


01E04 


40D4C1D2C540E405 


1706 


MUA 


DC 


C MAKE UNAVAI LABL • 


01E0C 


C1E5C1C9D3C1C2D3 










01E14 


C5 


1707 




DC 


C'E' 


01E15 


40D4C1D2C540C1E5 


1708 


MR A 


OC 


C MAKE AVAILABLE , * 


01E1D 


C1C9D3C1C2D3C56B 










01E25 


40D9C5E2E3D6D9C5 


1709 




DC 


C RESTORE , READY 1 


01E2D 


6B40D9C5C1C4E8 










01E34 


40D6C2E2C5D9E5C5 


i Tin 
1 r J.U 


ONCM 


DC 


C OBSERVE-NO CARR • 


01E3C 


60D5D640C3C1D9D9 










01E44 


C9C1C7C540D4D6E3 


1711 




DC 


CIAGE MOTION EXPE' 


01E4C 


C9D6D540C5E7D7C5 










01E54 


C3E3C5C4 


1712 




DC 


C'CTEO' 


01E58 


D5D6 


1713 


NO 


DC 


C'NO' 


01E5A 


40 6 2 02 C9D740E3D6 


1 71 A 


SKIP 


DC 


C SKIP TO 1 IMMED* 


01E62 


40F140C9D4D4C5C4 










01E6A 


4007D9C9D5E34OC2 


1715 


PNS 


DC 


C PRINT BLANKS, N' 


01672 


D3C1D5D2E26B4005 










01E7A 


D640E2D7C1C3C5 


1716 




DC 


CO SPACE ' 


01E81 


40C5D5 C440D6C640 


1717 


ENDRTN 


DC 


C END OF RTN' 


01E89 


D9E3D5 














1718 




01E8C 


00000000 










01E90 


050018CD20000083 


171Q 


SSLI 


CCW 


X'05',PRAR,X'20',131 


01E98 


00001E98 


1720 


SSL 1ST 


DC 


A(SSLI+8) 


01E9C 


08000000 


1721 




DC 


X'08000000' 


016 AO 


00000000 


1722 




DC 


XL4'0' 


01EA4 


04000000 


1723 




DC 


X'04000000' 


01EA8 


00001EF0 


1724 


RDSHRT 


OC 


A( SH0RT+8) 


016AC 


0C400000 


1725 




DC 


X'OC400000' 


01 6 BO 


0000 IE 98 


179*. 


RSSLI 


OC 


A (SSL I +8) 


016B4 


OCOOOOOO 


1 7? 7 




DC 


X ' OCOOOOOO' 


01EB8 


050018CD00000085 


1790 

1 (CO 


WRLNG 


CCW 


X'05',PRAR,X'00'tl33 


01 ECO 


050018C020000085 


1 79Q 

L 1 C7 


LNGSLI 


CCW 


X'05',PRAR f X'20S133 


01EC8 


0000 IE CO 


1730 


ALNG 


DC 


A(WRLNG+8) 


01ECC 


08400001 


1731 




DC 


X'08400001' 


01ED0 


00000000 


1 7*at> 




DC 


XL4'0« 


01E04 


04000000 


1733 




DC 


X'04000000' 


01ED8 


00001ECO 


1734 


BLNG 


DC 


A( WRLNG+8 ) 


01EDC 


OC400001 


1735 




DC 


X'OC400001' 


01EE0 


OCOOOOOO 


1736 




OC 


X' OCOOOOOO' 


01EE4 


00000000 










016E8 


050018C000000083 


1737 


SHORT 


CCW 


X'05'.PRARt X'00',131 


01EF0 


00001EF0 . 


1738 


SHRT 


OC 


A(SH0RT+8) 


01EF4 


08400000 


1739 




DC 


X' 08400000' 


01EF8 


00000000 


1740 




DC 


XL4'0« 


01EFC 


04000000 


1741 




DC 


X'04000000' 


01F00 


00 


1742 




DC 


X'OO' 
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LOCAT 


OBJECT CODE 


STMT 


SOURCE STATEMENT 






01F01 


00 














01F02 


07 00 


1743 




CNOP 


0,4 






01F03 




1744 




ORG 


*-l 






01F03 


00 














01F04 


00001658 


1745 


SNSCSW 


DC 


AUSENSE+8) 






01F08 


OCOOOOOO 


1746 




DC 


X • OCOOOOOO ■ 






01F0C 


00000000 


1747 


NOPCSW 


DC 


XL4 , 0« 






01F10 


OCOOOOOO 


1748 




DC 


X'OCOOOOOO* 






01F14 


00000000 














01F18 


030018CD00000001 


1749 


CCW 


CCW 


X'03* ,PRAR,X 


• 00 • 


1 1 


01F20 


00001F20 


1750 


NORM 


DC 


A ( NORM ) 






01F24 


08000000 


1751 




DC 


X*08000000« 






01F28 


00000000 


1752 


DONLY 


DC 


XL4'0» 






01F2C 


04000000 


1753 




DC 


X , 04000000 i 






01F30 


00001F20 


1754 


NORD 


DC 


A ( NORM ) 






01F34 


OCOOOOOO 


1755 




DC 


X 1 OCOOOOOO • 






01F38 


00001EC8 


1756 


ALNS 


DC 


A( ALNG) 






01F3C 


08000001 


1757 




DC 


X» 08000001* 






01F40 


00000000 


1758 




DC 


XL4»0« 






01F44 


04000000 


1759 




DC 


X»04000000» 






01F48 


00001EC8 


1760 


BLNS 


DC 


A ( ALNG) 






01F4C 


0C000001 


1761 




DC 


X'OCOOOOOl 1 






01F50 


00000000 


1762 


IMCSW 


DC 


XL4*0» 






01F54 


08000000 


1763 




DC 


X«08000000» 






01F58 


00000000 


1764 




DC 


XL4«0» 






01F5C 


04000000 


1765 




DC 


X« 04000000* 






01F60 


030018CD00000001 


1766 


NOPCCW 


CCW 


X»03«,PRAR f X 


*00» 


• 1 


00000 




1767 


NEVER 


EQU 


0 






00007 




1768 


NCCO 


EQU 


7 






OOOOF 




1769 


UNC 


EQU 


15 






00008 




1770 


NONE 


EQU 


8 






00004 




1771 


SOME 


EQU 


4 






00001 




1772 


ALL 


EQU 


1 






00005 




1773 


ANY 


EQU 


5 






00008 




1774 


CCO 


EQU 


8 






00004 




1775 


CC1 


EQU 


4 






00002 




1776 


CC2 


EQU 


2 






00001 




1777 


CC3 


EQU 


1 






00008 




1778 


EQ 


EQU 


8 






Q0004 




1779 


LO 


EQU 


4 






00002 




1780 


HI 


EQU 


2 






00006 




1781 


UNEQ 


EQU 


6 






OQOOC 




1782 


EQLO 


EQU 


12 






0000 A 




1783 


EQHI 


EQU 


10 






00080 




1784 


LOGOUT 


EQU 


X»80« 






00181 




1785 


SYSMOD 


EQU 


X«181« 






OFQOO 




1786 


REG 


EQU 


X'FOOO' 






0Q05A 




1787 


WHAT 


EQU 


90 






OQOOQ 




1788 


RO 


EQU 


0 






00001 




1789 


Rl 


EQU 


1 






00002 




1790 


R2 


EQU 


2 






00003 




1791 


R3 


EQU 


3 






00004 




1792 


R4 


EQU 


4 






00005 




1793 


R5 


EQU 


5 






00006 




1794 


R6 


EQU 


6 






00007 




1795 


R7 


EQU 


7 






Q0008 




1796 


R8 


EQU 


8 






00009 




1797 


R9 


EQU 


9 






OOOOA 




1798 


RIO 


EQU 


10 






OOOOB 




1799 


Rll 


EQU 


11 






OOQQC 




1800 


R12 


EQU 


12 






OOOOD 




1801 


R13 


EQU 


13 






OOOOE 




1802 


R14 


EQU 


14 






OOOOF 




1803 


R15 


EQU 


15 






PATE 


4 

15MAR66 15N0V66 


120CT67 












EC f S 


125632 125655 


131812 
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LOCAT OBJECT CODE 
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STMT 

1804 
1805 
1806 

1807 DMSSW 
1808 



SOURCE STATEMENT 

WT EQU 408 

HCSW EQU 64 

HCAW EQU 72 

EQU X'OIAO 1 

END R0UT01 
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1403 PRINTER FUNCTION 1 



POST ASSEMBLY DATA 



RELOCATION DICTIONARY 



LABEL CROSS-REFERENCE BY STATEMENT NUMBERS 



LOCATION 


LEN 


01015 


3 


0107C 


4 


01651 


3 


01658 


3 


016T1 


3 


01678 


4 


01789 


3 


01C71 


3 


01C79 


3 


01C80 


4 


01CB1 


3 


01CB9 


3 


01CC0 


4 


01CE9 


3 


01D91 


3 


01D99 


3 


01DA8 


4 


01DC1 


3 


01E91 


3 


01E98 


4 


01EA8 


4 


01EB0 


4 


01E89 


3 


01EC1 


3 


01EC8 


4 


01ED8 


4 


01EE9 


3 


01EF0 


4 


01F04 


4 


01F19 


3 


01F20 


4 


01F30 


4 


01F38 


4 


01F48 


4 


01F61 


3 



LABEL 


LE N 


VALUE 


DEFN 


REFERENCES 


ALL 


I 


UuvUU L 


Lite. 


0788 


0829 


AL NG 


4 


nn i pro 
UU 1 coo 


1 » 3U 


1336 


1341 


AL NS 


4 


00 1F38 




1348 




ANY 


I 


UUUWU 3 


1773 


1076 




Rl MP 


4 


nni c no 


i f OH 


1352 


1357 


BLNS 


4 


00 1 F48 


1 r OU 


1365 




BLOOP 


4 
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OBJECT DECK LIST. PERIODS CORRESPOND TO BLANK COLUMNS. 



COLS. 



BESD.. 
9 



1 THROUGH 20 

,...AA. .AAXF83 
YQ Y9 
99 9 



COLS. 21 THROUGH 40 



BTXT. AAA. 

9 YQY 
999 

BTXT. AA8. 

9 YQ9 
99 

BTXT.AA&. 

9 YQ- 
990 

BTXT.AAS. 

9 YQ8 
99 

BTXT.AJQ. 

9 Y99 
9 

BTXT.AJ6. 
9 Y9 
9 

BTXT.AJH. 
9 Y90 
9 

BTXT. AJ&. 

9 Y9~ 

9 

BTXT.AJ8. 

9 Y9 
9 

BTXT. AKA. 
9 Y9Q 
9 Z 

BTXT.AKQ. 
9 Y9Z 
9 

BTXT.AKJ. 
9 Y9Y 
9 

BTXT.AKQ. 
9 Y9 
9 



» A8. • AA8 A&A 

Y9 Y9 Q Y 
9 9 Z 9 

• A8. • AAAAAA 
Y9 Y9YYYY 
9 9 9999 

. AA. .AAAAAA 

YQ Y9YYYY 
99 9 9999 

» A8. • AAC AAA 
Y9 Y90YYY 
9 9 9 9 

» A8. • AA6NBS 
Y9 Y9 8- 
9 9 9 

» A8. • AAG-A1H 
Y9 Y9ZY - 
9 9 

,A8. • AAHAAC 
Y9 Y90QY9 
9 9 99 

,A8. • AA5GG0 
Y9 Y9 RZ 
9 9 0 

• A8. • AAAA6L 
Y9 Y9YY 8 
9 9 9 

► A8. .AA5S0. 
Y9 Y9 
9 9 

>A8. .AAAAAA 

Y9 Y9-QQY 
9 9 909 

» A8. • AAAB6F 
Y9 Y9-9 Z 
9 9 

.A8..AAG03G 
Y9 Y9Z 
9 9 



05. .AAAA.AGQ 

YYQY Y8Z 
9999 99 

AAAAAAAAAA&AADAAAAJD 
YYYY YYYYY9-Y99YYYY8R 
999999999 9 99999 

A AAA AAAAAAAAAA AAAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 



AAAAADAAAAKD 

YYYY99YYYY98 
9999 9999 9 

AABF 10BH6NBH5HBF 1MG0 
YY-Q 0- 8- 0-Q 8Z 
99 9 

5HK A6DABAL6QA I 5HGNAH 
0 9 9Q9QY ZQO Z YYZ 
0 9 

AA0DGA1MDA&AG01DA.0D 
-Y 9ZY ZQY-YZ R- 9 
9 9 

EA&AGAIHFAIDPA'OUOUFA 
QY-YZY -ZQ Y 9 -Y 
9 9 9 

1DB15GKG62-.F.0UG01D 
Q- R 9 80 - Z Q 
9 0 9 9 

FA1DAA6MD70UG02AAS02 
ZQ QYY 8-8 Z Y8- 8 
Z 9 9 

BEACA1FKB-MC6NKB505P 
8QY9Y89Z80Z8 8 9 Y 0 
999 99 9 9 

GA2AAH0UGA2AFH0UG01M 
ZY Y-9 ZQ Y-9 Z Y 
9 9 

GA2FHFAHHAADAA6&CEAH 
ZY QRQ9-0QY9ZY YYZ 
Z 9 9 

AJ0UGA3DG03&ED-DG&2H 
-Y ZQ 8Z -80ZZ- 
9 9 9 0 



COLS. 41 THROUGH 60 
840 



AAAAAA A A AAA AAA AAAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

A AA AAA AAADA AAA AAAAAA 
YY YYYY YYY9YY YYYY YYYY 
999999999 9999999999 



10BE 10BE 1 MBT6NB T5HG0 
8-Q 0-Q 8- 8- OZ 
9 9 

PG-.-.EAJAG-1DPCAAAA 
90 0 -QZOZ Z 8 YYYY 
Z 99 9 

GA 1DEACAG&1DA. 0DGA1D 
ZY OQY-YZ- R- 9ZY 0 
9 9 0 

0UBX5GDAEAGA1QG. 1FGJ 
- RQY-YZY Z ZY 
0 9 9 9 

B05GD70UA. AAGA2 AFAOU 
- R-8 - QYZQ Y-Q 
0 09 9 9 

G-2WD70UA.0UGA20KG62 
Z 8-8 - ZQ 8 9 8 
9 9 9 

BK4CKB5D5GEA34FB0UG0 
-8 8 9 ZQ -9 Z 
9 9 

AB AAGA2QA.0UGA2FAB66 
-9QYZY 0- ZY Q-9 8 
09 Z 9 

DA&AG&3DEA&AG.2YFA2& 
QY-YZ- 8QY-YZ ZQ - 
9 9 0 9 9 

FD0UNA5EAEG-3DNA5GAD 
-9 Y QQ9Z 8 Y RQ9 
9 90 9 00 



COLS . 61 THROUGH 80 
105. 131812. .83050001 



AAAAAAAAAAAA8 3050002 

YYYYYYYYYYYY 

999999999999 

A AAA AAAAAA AA8 3 050003 

YYYYYYYYYYYY 

999999999999 



.83050004 



10B010BD1MBS83050005 
8-Q 0-Q 8- 
9 

A AAAG A IDA £00830 500 06 
-YQYZQ Q — 9 
09 9 9 

DA&AG01UH0AH83050007 
QY-YZ 8R89- 
9 9 9 

1FB35GG01DB283050008 
Q- RZ Q- 
0 0 9 

HFAHHAACFA0U8 3050009 
RQ9-0QY9-Y 
9 

O.F.0UG02QKG83050010 

Z Z 9 



4BKG6B0.FJ0U83050011 
Y 9 Z -Y 
9 9 

GA2QAJOUGA2F83050012 
ZQ 0-Y ZY Q 
9 9 Z 

G02FA.0UGA3D83050013 
Z Q- ZQ 8 
Z 9 

G-3D AH A AG A 2-8 30500 14 
Z 8-9QYZY 0 
09 



BTXT. ALA. 

9 Y9Q 
9 9 

BTXT. ALH. 

9 Y9Z 
9 

BTXT. ALA. 

9 Y9Y 

9 

BTXT. ALH. 

9 Y9- 
9 0 

BTXT. ALO. 
9 Y9 
9 

BTXT. AMY. 
9 Y99 
9 

BTXT. AM-. 
9 Y9 

9 

BTXT. AMH. 
9 Y9- 

f 

BTXT. AM-. 

9 Y90 
9 

BTXT. ANH. 

9 Y99 

9 

BTXT. AN.. 
9 Y9 
9 

BTXT. ANQ. 
9 Y9Z 
9 

BTXT. ANC. 
9 Y9Y 
9 

BTXT. ANC. 
9 Y9Q 
9 

BTXT.ANL. 

9 Y9 
9 

BTXT.AOC. 
9 Y98 
9 9 



. A8. . AAA.OU 

Y9 Y9- 
9 9 

. A8. • A AGA3& 
Y9 Y9ZY 
9 9 

• A8. • AAMA5G 
Y9 Y9Z8 Q 
9 9 9 Z 

. A8. .AA10G- 
Y9 Y9 OZ 
9 9 

. A8...AAG03B 
Y9 Y9Z Q 
9 9 9 

. A8. . AA505P 
Y9 Y9 Y 0 
9 9 

• A8. • AAKB5D 
Y9 Y9 9 
9 9 

• A8. • AA5G6B 
Y9 Y9 Z 
9 9 

• A8. • AA5FKC 
Y9 Y9 8 8 
9 9 9 9 

. A8. .AAOUGO 
Y9 Y9 Z 
9 9 

. AA. . AAGCGA 
YQ Y99Q9Y 
99 9 Z 9 

.AU..AA.CC. 

Y9 Y9 
9 9 

• AJ. • AA. ADR 

Y9 Y9 
9 9 

.A8..AA.CAW 

Y9 Y9 
9 9 

> A8. • AAX.EX 
Y9 Y9 
9 9 

• A8. • AA.0.0 
Y9 Y9 
9 9 



GA3DHCAF. A3UNG6262G- 
ZY 8ZYY9 Y 9 9 8 8Z 
9 9 9 

FA0UBM3ABS5AAA0UGA3G 
-9 -Z Y — Q-9 ZQ - 
9 9 0 

AAADLH&A5ABEACEAEAB- 
ZYY98- Q Q8QY99-9Q80 
9 90 0 999 9 

4AS J5JBEACE JE JB-SC5C 
Q Y Y8QY9909Y8088 Q 
9 999 9 9 

BEAHE&EGKG5B5SKG5C5H 
8QY99 9 9 - 9 Q R 
999 0 0 

BK4CAHAAGA4HKB5D5BHC 
-8 8-9QYZY R 9 YZY 
9 9 09 9 

5GKG5G62EA34ADAAGA4H 
9 8ZQ -9QYZY 0 
9 09 

EA34KA5KAEAD0UGA4BBE 
ZQ Y Q9-9 ZY Y8Q 
9 0 999 

5&AABEADE&E&KA5Y5CKE 
YY8QY89 9 9 9 
9 9999 

1MB-C26HB-J A5C&NAHAG 
Y80-9 980Y9 Y YYZ — 
99 9 9 



GAGAAAAAAAAA •• 

9Y9YYYYYYYYY 

9 999999999 

. X.EXP. CC..X.ACT.ADR 



•XXXXXX.LINKA 

Y 
9 

•XXXXXX.CSWCCW.CSW.X 



P.SNS.XX.ACT.LOG. XX. 



N.FOR.LOOP.ON.XIOT.S 
8 



3DAD AAGA2DA J0UGA3DAH 
8-9QYZY Q-Y ZY 8Z0 
09 9 9 

AA0DGA5UBU3ABA5AKA6D 
-9 9ZY 8-9 Y-Y Q 9 9 
9 9 

SA5CACADAAAAGA4WBEAC 
8Q YZQY9- YQYZQ 98QY9 
9 09 09 9 999 

KB505KB04CKG5E JAEA34 
9 Y Y-9 8 9 YYZQ 
9 9 

B-SK5NG9KA5 VADH J6QB- 
8088 Y9 Y 8Q9RY Z80 
9 9 9 0 9 

AF. A4BAHAH. A4BKG5&5S 
Y9 Y RZ0Y9 Y 0 9 
9 9 

KB5D5BKG565EEA34A JOU 
9 Y 9 ZQ -Y 
9 9 

AAEKEKB-SC5EBEAAEEEE 
Y99 9 8088 Y8QY99Q9Q 
9 9 9 9999 9 9 

5L5BKE525KKE595KB-SM 
Y R 9 8 9 Z8088 
9 9 9 

ODG&1DAA0VGNAHAAGA58 
9Z R-9 99-9QYZY 9 

09 

• XXXXXX.XIOA 

Y 
9 



XXXXXXX.XXXXXXXX.EXP 



XXXXXX.XXXXXX.XXXXXX 



S. l.ON.FOR.TIO.SIO.L 



AH.A3FNG6B6B83050015 

Y9 Y Z 9 Z Z 

9 

ABBE ABFDFDB-8 30500 16 

Q98QY9999980 

0 999 9 

FHEAB-SG54ED83050017 
9R908088 8-Q 
9 9 

A6JDGA4AAKAH83050018 
— Y9ZY QZYY9 
9 9 

SB5QB-SB5BKB83050019 
88 Z8088 R 9 
9 9 9 0 

EA34A.0UGA4E83050020 
ZQ - ZY - 
0 

GA4JKB5D5GKG83050021 
ZY Y 9 9 



B-SC5QEAJAG-83050022 
8088 -QZOZ 
9 9 Z 

5TAB0UGA5FDE83050023 

-9 ZY 8-Q 
9 Z 

ACABACAFHI5H83050024 
ZQY9ZQY9-0 1 
09 09 



.83050025 



•83050026 



.83050027 



ACTEXP.SNS.X83050028 



. TST.XXXX • SS83050029 



00PAAAAAAAAA83050030 
YYYYYYYYY 
999999999 
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BTXT. A0C..A8.. AAAAAA 
9 Y9Z Y9 Y9YYYY 
9 9 9 9999 



AAA A AAA AA DANE A AAA A JO 
YYYYYYYYY9Y9QYYY9Y90 
999999999 9 9999 9 



BTXT.A03. 

9 Y98 
9 

BTXT.APH. 

9 Y90 
9 

BTXT-AP&. 
9 Y9- 
9 

BTXT.AP8. 

9 Y9 
9 

BTXT. AQA. 
9 Y9Q 

9 I 



.AE. • AAHDAA 
Y9 Y9R8YY 
9 9 0999 

. A8. • AABAPO 
Y9 Y99Y99 
9 9 9 

» A8. • AACAAA 

Y9 Y9-Y-Y 
9 9 9 

, A8. .AAB-JJ 
Y9 Y980Y8 
9 9 9 9 

, A8. .AASTL. 

Y9 Y9 
9 9 



BTXT. AQQ.. AS. • AAET.C 
9 Y9Z Y9 Y9 8 
9 9 9 

BTXT.AQJ.. AV. • AAOETE 
9 Y9Y Y8 Y9 
9 99 9 



BTXT.AJA. 

9 Y8R 
99 

BTXT.AJI. 

9 Y80 
99 

BTXT.AJA. 

9 Y8 
99 

BTXT. AJ9. 
9 Y8 
99 

BTXT.AK1. 

9 Y89 
99 

BTXT. AK/ • 
9 Y88 
99 

BTXT.AKJ. 

9 Y80 

99 

BTXT. AKR« 
9 Y8 
99 



» A8. • AAAGAA 
Y9 Y9Y9Y9 
9 9 9 9 

» A8* • AAFEAO 
Y9 Y90ZQ 
9 9 0 

.A8..AAAA-0 
Y9 Y9YY 
9 9 99 

• A8. . AACGOE 
Y9 Y9RQ9Z 
9 9 OZ 

,A8. .AAAAAO 
Y9 Y9Y9Q 
9 9 9 9 

. A8. •AAA1F8 
Y9 Y9Q 89 
9 9 0 9 

» A8. » AAAFEA 
Y9 Y9YQYZ 
9 9 9Z9 

.A8..AAACHE 
Y9 Y9Y8RZ 
9 9 99 



A 

Y 
9 

AAADLEA. J FGA7DQGH&0S 
YYY08Q- Z-ZY Q9QR- 8 
999 99 9 

0UGA7SB.8EKA8K0CKB8F 
ZQ 8- Y Y 9 9 0 Y 
9 9 9 9 

8LES2QBA0CDF0VG07BGA 
9Z 0-9 9~Q Z 9Y 
Z 9 

FEATURET.DI SENGAGE. S 
8 



E. OUTPUT. MUST. NOT. BE 



CTEDAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYY 

9999999999999999 

AAQE .7AEA0BBAAA0AB0B 
Y8ZZ QZQ Q9YYQ Y8 9 
99 0 Z 999 99 

BBAAA1AGDEA0BBAA.0AB 
Q8YYQ YQ9ZQ Q9YY Y8 
Z999Z 9Z 0 Z 99 99 

AB0DABME.7ABCGQEA1FB 
Y8 9Y88Z Q-9Q9ZQ 88 
99 999 Z 0 99 

A1FBAAA1AGDB3GQEA 1FB 
Q 88YYQ YQ8-8Q9ZQ 88 
0 9999 9Z9 Z 0 99 

AF0AJFABEFAEA1F4AAJ0 
YQ ZYQQ-9QQZQ 88Y9Y 
9Z Z I 0 999 9 

AA.OAFAAJFHBEFHB.FEE 
Y9 YQQZYQ — 9Q — QYZ 
9 9Z0 ZO ZO Z9 

JFHBBFHB.FEEA1F8AAG0 
YQ— 9Q— QQZQ 89Y9- 
ZO ZO Z9 0 9 9 0 

•7AKGGQE&EA1FBAAA0AE 
Q 9Q9Q-ZQ 8ZY9Q YZ 
Z Z 0 9 9 9 



DATE 
EC'S 
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FA.UIO.XXXXXXAAAAAAA 
Q9 YYYYYYY 
Z 9999999 



D&8HA&8AGA7B. G8AB-UX 
R- 8- QZY - Q8099 
9 99 

8EA JGQG4KA0C8KHL6Q07 
YZYQ99 Y 9 9-Y Z~8 
9 Z 9 

GGA. SEE. DESCRIPTION- 

CQY 

ZZ9 

TL. HARDWARE. INSTALL. 



•TEST.DEVICEBB.PREVI 

8Q 
99 

AAAAAA A A AA A A A A A AAA7G 
YYYYYYYYYYYYYYYYYY8Q 

9999999999999999999Z 

AAME.7AAJ66EA1FBAAJ0 
Y80Z QZY ZQ 8ZYYY 
99 0 9 999 

CGACAAHE.7AA J66EA1F2 
9Y9Y8 Z QZY ZQ 88 
9 99 0 99 

AA&1AGDAA0JGABQBLGQE 
YY- YQ8-0 ZZYQ9-YQ9Z 
990 9Z9 9 Z 9Z 

AAA1 AGDBCGAEABQE.7AA 
Y9Y YQ88 9Y9Y8 Z QZ 
9 9 9Z99 9 99 

AFHBBFYA JFYEA1F8AAA0 
YQ--9Q ZYQ ZQ 89Y9Q 
9Z Z Z 0 9 9 Z 

A1F4AA€0AFHA JFCBEFGE 
Q 88Y9 YQ ZYQ — 9Q-Z 
0 999 9Z Z Z 

AFQBAFEAJFCBBFSEA1F8 
YQ -YQQZYQ — 9Q-ZQ 89 
?Z 9Z9 Z Z 0 9 

A1FBABA2AHFAHHAADFAC 
Q 8ZY9Y YRQ9-0QY9ZQQ 
0 9 9 9 9 9 Z 



AFA0AAAADAA083050031 

Y9Y9YYYY0YY9 

9 9 999 99 



.83050032 



BTXT. ALJ.. A8. .AAAOBB 

9 Y89 Y9 Y9Q Q8 
99 9 9 0 Z 

BTXT. ALA.. A8. .AAAE4E 
9 Y88 . Y9 Y9YQ Z 
99 9 9 9Z 



8UB-A18CBBEA83050033 
880Y8 R8QQY 
99 9 99 9 

OUFAOVB-MK8F83050034 
-9 80Z8 Y 
9 9 

COMMENTS. IF. 83050035 



CARRIAGE.TAP83050036 



OUS. HANG. UP. 83050037 



.83050038 



AHFAHHAACFA98 30500 39 

YRQ9-0QY9ZQ 

9 9 

AA&0AGDEA0BB83050040 
YY YQ9ZQ Q9 
99 9Z 0 I 

A1FBAAA1AGDB83050041 
Q 88YYY YQ8- 
0 9999 9Z9 

JFYBEFYEA1F483050042 
YQ -9Q ZQ 88 
Z Z 0 99 

AFQBBFAAJFAE83050043 

YQO-9CQZY0QZ 

9Z Z Z 

A1F4AA-0AG8B83050044 
Q 88Y9 YQ9- 
0 999 9Z 

AAAOAGHBOGAF83050045 
Y9Y YQZ8 9Y9 
9 9Z 9 9 

BEA0WBABA0AE83050046 
9ZQ ZY9Q YZ 
0 9 9 9 



ID F830-5 
PAGE 20 



BTXT. ALA. 
9 Y80 
99 

BTXT. ALL 
9 Y8- 
990 

BTXT. ALL 

9 Y8 
99 

BTXT. AM/. 
9 Y88 
999 

BTXT. AM/. 

9 Y8 
99 

BTXT. AMI. 

9 Y8- 
99 

BTXT.AMJ. 

9 Y8 
99 

BTXT. ANA. 

9 Y88 
999 

BTXT. ANA. 

9 Y8Z 
99 

BTXT.AN1. 

9 Y88 
99 

BTXT. ANA. 
9 Y8- 
990 

BTXT.ANZ. 
9 Y8 
99 

BTXT. AO/. 
9 Y89 
99 

BTXT.AOJ. 

9 Y88 
99 



> A8. • AA. EME 

Y9 Y9 QYZ 
9 9 Z9 

.A8..AAA0W2 

Y9 Y9Q 9 
9 9 0 

. A8. • AAF4AC 
Y9 Y988Y9 
9 9 999 

, A8. • AA4B-J 
Y9 Y9980Y 
9 9 9 

. A8..AAACS0 

Y9 Y9Y9- 
9 9 9 0 

• A8. • AAJOAE 
Y9 Y9YQQZ 
9 9 ZO 

.A8..AAGGQD 
Y9 Y99Q9Q 
9 9 Z Z 

. A8. • AAQEA1 
Y9 Y99ZQ 
9 9 0 

,A8.*AA.0AG 

Y9 Y9 YQ 
9 9 9Z 

■ A8. • AADF.E 
Y9 Y99Z Q 
9 9 Z 

, A8. • AAAAAA 
Y9 Y9YYYQ 
9 9 9999 

» A8. • AAADYA 
Y9 Y9 Y 
9 9 9 

» A8. • AABLET 
Y9 Y9 8 
9 9 

.A8..AA0.SK 
Y9 Y9 
9 9 



ABJ 1AGJHFAHHAADFACUE 
Y9Y YQYRQ9-0QY9ZQQ9Z 
9 9 9Z9 9 Z 

AOBBAB-OABOGADGADODG 
Q QZY9 Y8 9Y8 -9 9Z 
0 Z 9 99 99 

A0B8ABA1. EMEA0W8ABA 1 
Q Q9Y9Y QYZQ 9Y9Q 
0 Z 9 Z9 0 9 

ACJ3AB-UPFNBBEA0B8AC 
Y9Y Y8098Q98QZQ Q9Y9 
9 9 99 9Z 99 0 Z 9 

. 1AGSB-UUF4B-JPF6BBK 
YQ 8099Q980Y9Q-8Q 
9Z 9 Z 9 Z 99 

AFKBBKGGQG-BCGQEA1F4 
QQ88Q 9Q9Q -YQ9ZQ 88 
9Z 99 Z Z Z 0 99 

ADABOAAAAAAEAQEAAAJA 
YQY8 YYYYYY9Y9YYYYYY 
9Z 9 999999 9 9 9999 

A1F8ACA0AD&B0AAAAAAC 
Q 89Y9Y YQt-8 YYYYYY9 
0 9 9 9Z 9 999999 

YEA 1F8ACA0AGAB0AAAAF 
ZQ 89Y9Q YQQ8 YYYY9 
0 9 9 9ZZ9 9999 

FSADAOAGJ EA0B4ADA1AE 
88Y9Y YQYZQ Q8Y9Q YQ 
999 9 9Z9 0 Z99 9 9Z 

JEA0W4AD&1AE4B0KAGGE 
YZQ 8Y9 YQ 8 9YQQZ 
9 0 99 9Z 9 9ZZ 

2EA1F8ADA1AEHB0AAAAC 
8ZQ 89Y9Y YQ 8 YYYY9 
0 9 9 9Z 9 9999 

AAAAAAADAAAEAQEAAADA 
YYYYYYY9YYY9Y9YYYY0Y 
9999999 999 9 9999 9 

AAABAAAAA AAAAAA AAAAD 
YYY9YYYYYYYYYYYYYYY9 
999 999999999999999 

•RESTORET .RE AD Y.OB SE 



IP.T0.1.IMMED.PRINT. 



DATE 
EC'S 
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A0WBABA1AE4EA1FHAB. 1 
Q 8Y9Q YQ ZQ 89Y9 
0 9 Z 9Z 0 9 9 

ACUB-DFE-B0E.7AB-UGE 
QQ88098Q08 Z Q8098Q 
9Z 9 9Z 9 9 9Z 

•E4B-UJFDBBEA1F2ACA3 
Q 8099Q98QZQ 89Y9Y 
Z9 Z 99 0999 

A1AGYKAF5FHB-UUF4B-J 
Q YQ9 9Q8QR8099Q980Y 
Z 9Z Z9Z 9 Z 9 

GGQE&BAGQEA1F4AC&0AG 
9Q9Q — 9Q9ZQ 88Y9 YQ 
Z Z Z 0 999 9Z 

AC-1AG€B-DCFAB0HADAE 
Y9 YQ 8098Q08 9Y8QZ 
9 9Z 9 9Z 9 99 

AQEAAAMAAMAHAAAAAAAD 
Y9YYYYZYY8Y9YYYYYYY9 
9 9999 999 9999999 

AQE.AAACAQEAAAAAAM&D 
Y9Y YY99Y9YYYY9YY8-8 
9 9 99 9 9999 999 9 

AQEAA AD JAE0E.7 AKGGQD 
Y9YYYY09Y8RZ Q 9Q9Q 
9 9999 99 Z Z 

AEA1FSAD JOAG JEA1F4AD 
QZQ 88Y9Y YQYZQ 88Y9 
0 0 999 9 9Z9 0 999 

. 7AKGGQE GEA1 FSAD-OAG 
Q 9Q9Q-ZQ 88Y9 YQ 
Z Z 0 999 9Z 

AQE. AAAHANAAAAAAAAAA 
Y9Y YY99Y8QYYY9YYYYY 
9 9 99 99 999 99999 

AAAMAAA.RTN. BYPASSED 

YYY9YYY 

999 999 

AAA. MAKE. UNAVAILABLE 

YYY 

999 

RVE-NO.CARRI AGE. MOTI 



BLANKST. NO. SPACE. END 
6 



AEHEA0WBAB6183050047 
YQ ZQ 8Y9 
9Z 0 9 

EBBEA1F8ABS183050048 
Q8QZQ 89Y9- 
999 0 9 9 0 

AEA0B2ACA3AE83050049 
YZQ Q9Y9Q YZ 
9 0 Z 9 9 9 

AFKBBBCGQE A 1830500 50 

QQ88Q-YQ9ZQ 

9Z 99 Z 0 

JKAF5F4B-UUF83050051 
Y 9Q8Q88099Q 
9 Z9Z99 Z 

.7AAJD£EA1F483050052 
QZYQ-ZQ 88 
ZO 0 99 

AAAAADHE.7AA83050053 
YYY8Y8 Z QZ 
999999 

AAAAAD0E.7AK83050054 
YY9QY8 Z Q 
99 999 

YAA0DGACMBIG83050055 
-9 9ZQQZ-0Q 
9Z Z 

A1AEAEA1FSAD83050056 
Q YQQZQ 88Y9 
Z 9Z0 0 999 

JBDGQHFAHH.A8 30500 57 
Y-8Q9R89-0 Y 
9 9Z 9 

AAA AANJDA A AA83 050058 
YYYYY8Y8YYYY 
999999 99999 

. MAKE . NOT . RE83050059 



.MAKE.AVAILA83050060 



ON.EXPECTEDN83050061 



.0F.RTNAAAAE83050062 
YYYY9 
9999 



ID F830-5 
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1403 PRINTER FUNCTION 1 



BTXT* AOA.. A8. • AAAQEJ 
9 Y8- Y9 Y9Y9YY 
99 9 9 9 99 



AACAAOHHAAAAAAADAAAA 
YY0YY8-9YYYYYYY9YYYY 
99 999 9999999 9999 



AOOO.AAAAOHDAAAEAQEA 
Y8 8 YYYY8-8YYY9Y9YY 
99 9 99999 9999 9 99 



AAEEAC.EJ AAEA83050063 

YY09Y9YYYY0Y 

99 9 9999 9 



BTXT.A0I..A8..AAA0GH 

9 Y8 Y9 Y9Y8-9 
99 9 9 99 



• AAAAAADAAAAAOCD • AAD 
Y9YYYY9YYYYY8-8 Y98 
9 9999 999999 9 9 9 



AAAAAAAE AQEAAACAAOOH 
YYYYYY Y9Y9Y YYY0YY8 9 
9999999 9 9999 999 



.AAAAAADAAAA83050064 
YYYYYY9YYYY 
999999 9999 



BTXT. APA..AC..AAAGA. 

9 Y89 Y9 Y9Y9Y 
99 9 9 9 9 



.83050065 



BTXT. APCA8. .AAAAAO 

9 Y89 Y9 Y9YYY9 
99 9 9 999 



HDAAAAAAADAAAAAAACAQ 
R8YYYYYYY8YYYYYYY9Y9 
9999999999999999 9 



EAAAAAAPJHAAAAAAADAA 
YYYY9YY8Y9YYYYYYY9YY 
9999 9999 9999999 99 



AAAP JDAAAAA083050066 

YYY8Y8YYYYY8 

999999999999 



BTXT.AP3..AV..AAHHAA 

9 Y88 Y8 Y9 9YY 
999 99 9 99 



AAAAADAAAAAOHDAAAAAA 
9YYYY9YYYYY8 8YY9YYY 
9999 999999 999 999 



AHAAAAAAADAAACAQE AAA 
Y9YYYYYYY9YYY9Y9YYYY 
9 9999999 999 9 9999 



A 83050067 

9 



BRLD* m 
9 



• A4. • • • AAAA 
Y9 Y9Y9 
9 9 9 



AAANEAA4AA0AAA0HAA0A 
8YQ98YQ88Y9R8Y9R8Y9R 
999 999 99 99 99 0 



EAOHAAPI AAMAAAM1 EAMA AAMAHAMI. 
8Y9R8Y908Y8R8Y888Y8Y 8Y8-9Y8- 
99 099 9990999 999 9990 990 



... 83050068 



run n A4. ...AAAA EAMGAAMIAANAAANI EANQ 

I* L ° £ Y9Y9 8Y8-8Y8 8Y8-8Y8-8Y80 

9 99 999 999 999 999 999 



AANAAAOAEAOHEAOQE AOA AAOIHAOA, 
8Y8 8Y8-8Y8-8Y808Y8Q 8Y8-9Y8 
999 999 999 999 9990 9990 99 



...83050069 



BRLD... 

9 



• AA. 

YQ 
91 



BEND.AJD 

9 Y8R 
99 



• • .AAAA 

Y9Y9 
9 9 

• AA. ... 

Y9 
9 



BLDT. 
9 



EAOHEAOQAADZEAOOEAPD 
8Y8 8Y8 8Y8 8Y8 8Y89 
999 999 999 999 999 



AAP JEAPJEAPAEAP8EAPH 
8Y888Y8Y8Y8Q8Y898Y8Z 
99999999999Z999 999 



HAP/ 83050070 

9Y8 
99 

83050071 

83050072 



— LAST PAGE — — 



ID F830-5 

DATE 15MAR66 15N0V66 120CT67 PAGE 21 

6 e»S 125632 US655 131812 



GCCCCCCCCCGCCCQC6 

< 



t 

•4 

000000000000000000000000000000000;; 
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PROGRAM LENGTH =■ 3321 (DECIMAL) 



01000 
01000 



DATE 
EC'S 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
IT 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 



15MAR66 15N0V66 120CT67 
125632 125655 131812 



PRINT ON, GEN, DATA 
XF8315 START 4096 
USING *,15 

* 

*********************************************************************** 

* MODIFICATIONS 
# 

* REVISION LEVEL 5. THIS REVISION DIFFERS FROM VERSION 4 AS FOLLOWS,.. 

* 1. PROGRAM HAS BEEN MODIFIED TO RUN WITH DM-44. 

*********************************************************************** 

* REVISION LEVEL 4. THIS REVISION DIFFERS FROM VERSION 3 AS FOLLOWS... 

* 1. THE PROGRAM HAS BEEN MODIFIED TO INCLUDE -TEST NUMBERS- 

* 2. , THE PROGRAM NOW INCLUDES TESTING PREVIOUSLY HANDLED BY 

* PROGRAM ID F833 WHICH IS NOW OBSOLETE. 

* E.C. PREREQUISITES 

* MACHINE . . . 2821 MUST BE AT MINIMUM EC 125655 

* PROGRAM ... NONE 

* USE DESCRIPTION F830* AT EC 125655, DATED NOV 15, 1966 OR LATER. 
*************************** *****************************4** ****** ****** 

* REVISION LEVEL 3. THIS REVISION DIFFERS FROM VERSION 2 AS FOLLOWS... 

* 1. THE PROGRAM HAS BEEN MODIFIED TO RESET THE BLOCK DATA CHECK 

* LATCH, ON UCS PRINTERS, DURING INITIALIZATION OF THE SECTION. 

* E.C. PREREQUISITES 

* MACHINE . . . 2821 MUST BE AT MINIMUM E.C. LEVEL 124265. 

* PROGRAM • * • NONE 

*********************************************************************** 

t 

* \ 
* 

*********************************************************************** 

* TEST NUMBER DESCRIPTIONS 

******************************************************* **************** 
*********************************************************************** 
* 

DESCRIPTION 



TEST 



* 

* 0010 
* 



ROUTINE 01 



- OPERATION ATTEMPTED 



* 
* 
* 
♦ 
* 
* 
* 
* 

* 
♦ 

♦ 0020 



A SKIP TO 1 IMMEDIATE IS COMMAND CHAINED TO TWO SPACE 1 
IMMEDIATE COMMANDS. 

EXPECTED RESPONSE 

THE FIRST SPACE COMMAND SHOULD DETECT A CHANNEL 9 HOLE IN 
THE DIAGNOSTIC CARRIAGE TAPE. THIS SHOULD BRING UP UNIT 
CHECK AND BREAK THE COMMAND CHAIN. 

POSSIBLE FAILURE CAUSES 



3. 



DIAGNOSTIC CARRIAGE TAPE NOT INSTALLED. 

CARRIAGE FAILED TO STOP AT CHANNEL 1. LIFT CARRIAGE 

BRUSHES AND VISUALLY CHECK TAPE POSITION. THE CHANNEL 9 

HOLE FOLLOWING THE CHANNEL 1 HOLE SHOULD BE 1 SPACE PAST 

THE LOWER EMITTER CONTACT ROLE. 

CHANNEL 9 FAILED TO SET UNIT CHECK. 



OPERATION ATTEMPTED 



ID 

PAGE 



F831-5 
1 



64 


* 


65 




66 


* 


67 


* 


68 




69 


* 


70 


* 


71 


* 


72 


* 


73 


* 


74 


* 


75 


* 


76 




77 




78 


* 


79 




80 


♦ 


81 


* 


82 


* 


83 


* 


84 


♦ 


85 


* 


86 




87 


* 


88 


* 


89 


* 


90 


* 


91 




92 


* 


93 


* 


94 


* 


95 


* 


96 


* 


97 




98 




99 


* 


100 


* 


101 


* 


102 


* 


103 


* 


104 


* 


105 




106 


* 


107 


* 


108 


* 


109 


* 


110 


* 


111 


* 


112 


* 


113 


* 


114 


* 


115 




116 


* 


117 




118 


* 


119 




120 


* 


121 




122 


* 


123 


* 


124 


* 


125 


* 


126 


* 


127 


* 


128 





DATE 
EC'S 
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A SKIP TO 1 IMMEDIATE IS ISSUED WITH BOTH THE CHAIN DATA, AND 
CHAIN COMMAND FLAGS ON. 

EXPECTED RESPONSE 

THE CHAIN DATA FLAG SHOULD TAKE PRECEDENCE AND NO COMMAND 
CHAINING SHOULD OCCUR. SINCE THE COMMAND IS IMMEDIATE, AND NO 
DATA IS TRANSFERED, NO DATA CHAINING SHOULD OCCUR EITHER. 



- OPERATION ATTEMPTED 

A SKIP TO 4 IMMEDIATE IS COMMAND CHAINED TO TWO SPACE 1 
IMMEDIATE COMMANDS. 

EXPECTED RESPONSE 

THE FIRST SPACE COMMAND SHOULD DETECT A 

CHANNEL 12 HOLE IN THE DIAGNOSTIC CARRIAGE TAPE. THIS SHOULD . 
BRING UP UNIT EXCEPTION, AND BREAK THE COMMANO CHAIN. 

POSSIBLE FAILURE CAUSES 

1. DIAGNOSTIC CARRIAGE TAPE NOT INSTALLED. 

2. CARRIAGE FAILED TO STOP AT CHANNEL 4. LIFT CARRIAGE 
BRUSHES AND VISUALLY CHECK TAPE POSITION. THE CHANNEL 12 
HOLE FOLLOWING THE CHANNEL 4 HOLE SHOULD BE 1 SPACE PAST 
THE LOWER EMITTER CONTACT ROLE. 

3. CHANNEL 12 FAILED TO SET UNIT EXCEPTION. 



ROUTINE 02 



- OPERATION ATTEMPTED 



A DIAGNOSTIC READ, WITH THE COUNT EQUAL TO THE REQUIRED RECORD 
LENGTH, IS DATA CHAINED TO A CCW WITH NO COMMAND BITS ON. 

EXPECTED RESPONSE 

THE SECOND COMMANO WOULD NOT APPEAR INVALID TO THE CHANNEL 
BECAUSE THE DATA CHAIN FLAG IS SET ON. INCORRECT LENGTH 
RECORD SHOULD BE SET ON AT CHANNEL END TIME AND BREAK 
THE CHAIN. 



* 0050 - OPERATION ATTEMPTED 

A DIAGNOSTIC READ WITH A COUNT LESS THAN THE RECORD LENGTH IS 
DATA CHAINED TO COMPLETE TRANSFERING THE CORRECT RECORD LENGTH 

EXPECTED RESPONSE 

THE SECOND CCW COMMAND FIELD IS INVALID TO THE CHANNEL. NO 
CHANNEL PROGRAM CHECK SHOULD BE SET BECAUSE OF A DATA CHAIN 
THE CHANNEL SHOULD NOT INSPECT THE COMMAND FIELD OF THE SECOND 
CCW. 



ROUTINE 03 

OPERATION ATTEMPTED 

A NOP IS COMMANO CHAINED TO A UCS PRE-CONDITION LOAD COMMAND. 



ID 

PAGE 



F831-5 
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129 








194 


3§e 




THE CHECK READ DATA IS SCANNED. 


130 


♦ 




CArCV, ItU KCorUNoC 


195 


* 








* 






196 






$ $$$$$$ $$4 $$$$$$ $$$$$$ &4"|c$4 E 4' 3 l | %$4'4c$ $$£4t$4c4"t( $$$$$£4(4$$ 


132 






COMMAND REJECT SHOULD TURN ON UNIT CHECK DURING INITIAL 


197 






N0TE...THIS TEST DOES NOT PRINT OUT IF THE CORRECT PRINT 


133 


* 




SELECTION OF THE PRE-CONDITION LOAD C0MMAND f AND BREAK THE 


198 






OUT SWITCH IS SET ON* OR IF TEST 0100 ABOVE DETECTS NO ERROR. 


134 






CHAIN. ON BASIC PRINTERS? COMMAND REJECT WILL OCCUR BECAUSE 


199 


* 




****************** 4**^************^ 




* 




I nt LUMrlANu 15 INVALID TO THE PRINTER. ON UCS PRINTERS* 


200 








no 


♦ 




r n U U A M n DC ICrT LfT 1 t DC CCT OCT »Hf C tuc nnt rnnntTTnti ■ n>n 

LUMWANU RcJcl 1 WILL ot St 1 BECAUSE THE PRE-CONDITION LOAD 


201 


* 




EXPECTED RESPONSE 


1 O f 






LUMMANU lb NO 1 THfc rlRST COMMAND IN A COMMAND CHAIN* 


202 


* 




* 


1 t»A 


♦ 






203 


* 




ALL POSITIONS WITHOUT PRINT LINE COMPLETE BIT ON ARE 0UTPUTED 


1 

iJ7 








204 


* 




IF SECTION SENSE SWITCHES 0 OR 1 ARE TURNED ON DURING HALT ON 


140 


* 


0070 — 


nDCDATiriM ATTCUDTCn 


205 






THIS ERROR, THE PROGRAM IS SET UP TO LOOP ON THE PRINT CCW« 


141 








206 


* 






142 






A NOP IS COMMAND CHAINED TO A UCS BLOCK DATA CHECK COMMAND. 


207 








143 


* 






208 


* 




ROUTINE 05 


144 






CVDCTTCn DCCDnUf c 

CAPtL Iku RtSPONSE 


209 


♦ 






1*H> 








210 


♦ 


0120 


- OPERATION ATTEMPTED 


1 A A 
1 HO 






rnMMAKin dc ici*t Cunin n tiidki dm iimtt rucri/ nitDt ur tti tt t «i 
LUHnANU Kt Jet 1 oHUULU 1 UKN UN UNI 1 CHECK DURING INITIAL 


211 


♦ 






147 






cci cr T 1 nw nc tuc di nr i/ rata rucri/ rnuiiAiim Ann rincAis tut r*it«*Ai 
otLtlllUN Ur 1 He bLUUK UA 1 A LHtL-K GUMMANU, AND BREAK THE CHAIN 


212 


♦ 




A UCS PRE-CONDITION LOAD COMMAND IS COMMAND CHAINED TO A 


1HO 






nkl OA C IT DDTAITCDC PDMMAKin DC ICf T UTI 1 nr rilD Dcr Alice tuc 

UN DA51L PKlNltKo, UUNffANU RtJtLI WILL OCCUR BECAUSE THE 


213 


♦ 




BLOCK DATA CHECK COMMAND, WHICH IS FURTHER COMMAND CHAINED TO 


1 AO 






rnuuiMn 1C Y ai t* a i in Tn tuc nnrurcn n ai ■ ir r nnvtiYr-nr *~ m* t< * *i r-> 

LUnHANU lb INVALID 10 THE PRINTER. ON UCS PRINTERS? COMMAND 


214 


♦ 




AN ALLOW DATA CHECK COMMAND. 


i «;n 

1 3U 






DC ICCT UTI 1 DC CCT OCT AllCC TUC ni nrv ritTl rurr 1/ rnuu tkin * r* nr-i-p 

KcJtU 1 WILL Be I>t I BtLAUot THfc BLOCK DATA CHECK COMMAND IS NOT 


215 


# 






151 






TUP ctnrT mMMAMn TKl A rnUMAKtn ruAtKi A ai n Tuc ddc rnuniT tnti 
IMC rlKol UUPiriAiMU IN A LUDnANU LHA1N, ANU IHt PRt— LUND I T ION 


216 






EXPECTED RESPONSE 


152 


* 




1 HAH 1 ATfW TC Kin T DKI 
LUAU LA lun lo riU 1 UlN. 


517 
CXI 


* 






153 








218 






eweu TWniiCU Ti-ic di nr if nATA rucry rnuuAun tc unT tuc ctdct 
cvcli inuUun inc DLUulv UAIA LncLlv LUWnANU lo NUT THt FIRST 


154 


* 






0 1 Q 


* 




rnMMAKin tm a rnuMAkin puatai tuc catt tuat tuc ddc t t inn 
LUnnANU IN A L-UnnANU L-HAIN, IHt rAC T THAT THE PRE—CONDITION 


155 


* 


0080 - 


□PFRATTDN ATTFMPTFn 

UTCIM4 1 lull n 1 1 trtr ICU 


220 






1 nAn 1 attu tc cct cunm n di nrv tuc ccTTtwr nc rnuuAur dc icrt 
LUAU LAlUn lo ot 1 onUULU t)LUUI\ Int otlllNb Ur LUpiMANL KtJcCT 


156 


* 












* kin tuc ij cum f 1 n nc irrcntrn tun c v r r 1 it rrri c tai***- tut m 

ANU IHt OUW oHUULD Bt ACCEPTED AND EXECUTED* SINCE THE BLOCK 


157 






A NOP T C rnMMAKin ruAINicn Tn A lire ai i nu n ata rucrif rr.uu AKin 
f% iiur lo uunnnniu vdhiwcu iu a uv*o alluw UAIA t»ntLft tunnAINU* 


C.C.C. 


♦ 




nATA ruc^* 1/ rnuuAun cunin n AinT dccct tuc nnc «*nAir\tY*«-tAi 1 nmn 
UAIA UHfctK CunMAND 5HUULU NOT RE5ET THE PRE— C0ND IT ION LOAD 


158 


* 






223 






LAI OH, IHt ALLOW DATA CHECK COMMAND SHOULD ALSO BE ACCEPTED 


159 


* 




FXPFTTFn RF ^PflN^F 
CArtv ItU l\C jrUnioC 


C.C.H 


* 




a Kin cvcriiTcn 
ANU tXtLUItU. 


160 








JOE 


* 






161 


* 




mMMAND RFJFTT Ct-inill H TURN DM UNIT CUt-CU nilDIKir TWTTTAi 








DnccTni c CAti iidc r ahccc 
rUoolBLt rAILURt CAUoco 


162 






SELECTION OF THE Al I flW DATA THFTK fnMMANn. AMD pop ak tup rwATW 


057 








163 






ON BASIC PRINTFR^. COMMAND. RF IFTT Uli 1 nrrtlR RPPAIUJP Ti-iP 


050 






1 tuc t _ n nDTinw onoTinM nc nu iiht caitdv lurnnncrTi s* nceiucc 
1. IHt I— U UrllUN PUKI1UN Ur un UUT ENTRY INCORRECTLY DEFINES 


164 


* 




rnMMAKin IC Imuai in Tn tuc ddtkitcd ri ai nrc ddimtcdc rnuy «im 
V/UnnAIMU lo 1 IN V A LIU IU IHt rKlNltK. UN UUo rKlNItRo, LUMnAND 


229 


* 




i \r> c Atm Tun riJiiiiiei ruirf u mTiinrr 

UCS, AND TWO CHANNEL SWITCH FEATURES. 


103 






DC 1 CP T UTI 1 DC CCT DCf AllCC TUC All nil ntri /* i irr \t /« n u 11 a nn * t- 

KtJfcLI WILL Be ot T BtLAUSc THE ALLOW DATA CHECK COMMAND IS NOT 


230 


* 




2. IF COMMAND IS ACCEPTED, PROBLEM IN COMMAND DECODE CIRCUITS 


166 






THE FIRST COMMAND IN A COMMAND CHAIN* AND THE PRE-CONDITION 


231 






COULD BE THE CAUSE. 


1 A"? 

lo f 






i ntn i Atru t c aii*it nAi 
LUAU LATCH IS NOT ON. 


232 


* 






1 Aft 

loo 








233 


♦ 






169 


* 






234 




0130 


- OPERATION ATTEMPTED 


170 


* 




ROUTINE 04 


235 


* 






171 


♦ 






236 


* 




A UCS PRE-CONDITION LOAD COMMAND IS COMMAND CHAINED TO A 


172 


# 


0090 — 


OPERATION ATTEMPTED 


237 






DIAGNOSTIC READ, WHICH IS FURTHER COMMAND CHAINED TO AN ALLOW 


173 


♦ 






238 


* 




DATA CHECK COMMAND. 


174 






A LINE OF BLANKS IS PRINTED USING A PRINT AND NO SPACE. 


239 


* 






175 


♦ 






240 


* 




EXPECTED RESPONSE 


176 


* 




EXPECTED RFSPflNSF 


241 








177 


* 






242 


♦ 




THE DIAGNOSTIC READ SHOULD RESET THE UCS PRE-CONDITION 


178 


* 




IF AN ERROR DETECTED ON THIS TEST , CONTINUE FOR FURTHER ERROR 


243 


* 




LOAD LATCH, SO THAT DURING INITIAL SELECTION OF 


179 


* 




INFORMATION. 


244 


* 




THE ALLOW DATA CHECK COMMAND, COMMAND REJECT SHOULD BREAK THE 


180 


* 






245 


* 




CHAIN. COMMAND REJECT SHOULD BE SET BECAUSE THE ALLOW DATA 


181 


* 






246 






CHECK WAS NOT THE FIRST COMMAND IN A COMMAND CHAIN, AND THE 


182 


* 


0100 - 


OPERATION ATTEMPTED 


247 


* 




PRE-CONDITION LOAD LATCH WAS NOT ON. 


183 


* 






248 








184 


* 




A DIAGNOSTIC CHECK READ IS ISSUED. 


249 


* 






185 








250 






ROUTINE 06 


186 


* 




EXPECTED RESPONSE 


251 


* 






187 








252 


* 


0140 


- OPERATION ATTEMPTED 


188 


* 




IF A UNIT CHECK OCCURRED ON PREVIOUS COMMAND, IT WILL 


253 








189 


* 




APPEAR HERE ALSO. CONTINUE ON FOR FURTHER INFORMATION. 


254 






ISSUE A DIAGNOSTIC READ COMMAND. 


190 


* 






255 








191 


* 






256 


* 




EXPECTED RESPONSE 


192 


* 


0110 - 


OPERATION ATTEMPTED 


257 


* 






193 








258 


* 




THIS COMMAND WILL INSURE THE RESET OF ANY OUTSTANDING 
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EC'S 
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EC'S 
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259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 



* 
* 

* 0150 

* 
* 

* 

* 0160 
* 

* 



COMMAND REJECT BEFORE PROCEEDING WITH THE TEST. 



- OPERATION ATTEMPTED 

A UCS LOAD WITH FOLDING COMMAND IS ISSUED. 
EXPECTED RESPONSE 

COMMAND REJECT SHOULD OCCUR ON BASIC PRINTERS BECAUSE THE 
COMMAND IS INVALID TO THE PRINTER. ON UCS PRINTERS THIS WILL 
OCCUR BECAUSE THE PRE-CONDITION LOAD LATCH WAS NOT ON. 



OPERATION ATTEMPTED 

A UCS LOAD WITHOUT FOLDING COMMAND IS ISSUED. 
EXPECTED RESPONSE 

COMMAND REJECT SHOULD OCCUR ON BASIC PRINTERS BECAUSE THE 



COMMAND IS INVALID TO THE PRINTER. ON UCS 
OCCUR BECAUSE THE PRE-CONDITION LOAD LATCH 



PRINTERS THIS WILL 
WAS NOT ON. 



* 

* 0170 - OPERATION ATTEMPTED 



ROUTINE 07 



ALL COMMANDS THAT SHOULD BE INVALID TO THE PRINTER ARE ISSUED 
EXPECTED RESPONSE 



* 
* 
♦ 

* 

* 0180 - OPERATION ATTEMPTED 



COND. CODE 1 WITH UNIT CHECK 
COMMAND REJECT SHOULD BE SET 



THE CSW SHOULD RESULT. 
THE SENSE BYTE. 



A BLANK PRINT WITH NO SPACE IS ISSUED. 
EXPECTED RESPONSE 

THE DEVICE SENSE LATCHES ARE RESET AFTER EACH INVALID COMMAND 



01040 0000000000000000 

01048 00000000 

0104C 0000000000000000 

01054 00000000 

01058 0004000000 

0105D 000000 

01060 0000000000000000 

01068 0000000000000000 

01070 0000000000000000 

01078 01040000 

0107C 00001224 

01080 

010EO 83 

010E1 00 

010E2 8000 



*********************************************************************** 
******************* ******************* 







307 


* SECTION 


PREFACE *********************************** SECTION PREFACE 


* 






308 


******************* 


******************* 


01000 


F8315000 


309 


SECNO 


DC 


XL4'F8315000' 


PROGRAM, SECTION AND REVISION NOS. 


* 


01004 


00000000 


310 


SNSW 


DC 


XL4'00' 


SECTION SENSE SWITCHES 


* 


01008 


0000 


311 




DC 


XL2'00' 




* 


0100A 


0000 


312 


ICM 


DC 


XL2'00» 


INTERRUPTION CONDITION MASK 


* 


0100C 


00 


313 


SDMF 


DC 


XLl'OO' 


SECTION DM FLAGS 


* 


0100D 


01 


314 


NIOU 


DC 


XLl'Ol' 


NUMBER OF UNIT TABLE ENTRY S 


* 


0100E 


CO 


315 


FLAG1 


DC 


X'CO' 


EXCLUSIVE CPU 


* 


0100F 


00 


316 


FLAG2 


DC 


X'OO' 


I/O INT ARE ERR , EXT INT TO PROG 


* 


01010 


0104000000 


317 


INPSW 


DC 


X' 0104000000 • 


DISABLED, SPVSR STATE, NO PGM MASK 


* 


01015 


0018E4 


318 




DC 


AL3CR0UT01) 


ADR OF 1ST ROUTINE PREFIX 


* 


01018 


0000000000000000 


319 


EXOPSW 


DC 


XL8'0« 


SECTION OLD EXTERNAL PSW 


* 


01020 


0000000000000000 


320 


SVOPSW 


DC 


XL8«00« 


CLEAR ALL OLD PSWS 


* 


01028 


0000000000000000 


321 


PGOPSW 


DC 


XL8'00« 


PROGRAM OLD PSW 


* 


01030 


0000000000000000 


322 


MCOPSW 


DC 


XL8'0Q« 


MACHINE CHECK OLD PSW 


* 


01038 


0000000000000000 


323 


IOOPSW 


DC 


XL8»00« 


I/O OLD PSW 


* 



324 
325 
326 

327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 

340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 



CSW 


DC 


XL8'00» 


CHANNEL STATUS WORD 




CAW 


DC 


XL4'00' 


CAW 






DC 


XL12'00« 


RESERVED FOR DM USE 


* 


EXNPSW 


DC 


X' 0004000000' 


EXTERNAL NEW PSW 


* 


SRET 


DC 


XL3»0« 


ADR OF EXT INTRPT ROUTINE 


* 


SVNPSW 


DC 


XLe'OO' 


SUPERVISOR NEW PSW 


* 


PGNPSW 


DC 


XL8»00» 


PROGRAM NEW PSW 


* 


MCNPSW 


DC 


XL8»00« 


MACHINE CHECK NEW PSW 


* 


IONPSW 


DC 


XL4 , 01040000' 


I/O NEW PSW 


* 




DC 


AL4( IRETRN) 


ADDRESS OF I/O INTRPT ROUTINE 


* 




DS 


96C 


96 BYTE REG DUMP AREA FOR DM USE 


* 


UNIT1 


DC 


X'83' 


UNIT TYPE - 1419 MICR 


* 


U10P 


DC 


X'OO' 


OPTIONAL FEATURES BYTE 


* 


U1ADDR 


DC 


X'8000' 


FLAGS AND CHAN/UNIT ADDRESS 


* 



BIT 


MEANING 




0 


COMMAND REJECT 




1 


INTERVENTION REQUIRED 




2 


BUS OUT CHECK 




3 


EQUIPMENT CHECK - HAMMER FIRE OR PRINT BUFFER 


PARITY CHECK 


4 


DATA CHECK - UCS PRINTERS ONLY - UNCOMPARABLE 


CHARACTER 


5 


BUFFER PARITY CHECK - REFERS TO UCS BUFFER 




6 


NOT USED 




7 


CHANNEL 9 





*********************************************************************** 

* 1403 SENSE BYTE 

****************************************** #% ^* # *^*^* #% ** ### ^ #1|(3(t3|t<#3|t#4tl([ 

* 
♦ 
* 
* 
* 
* 
* 

* 

************************************************ j|l ***^ j|{ * # **** j|l * J(t# * J|tj|{j|{j|l4tJ> 
*********************************************************************** 

* 1403 DEVICE STATUS 

*********************************************************************** 

* BIT MEANING 

* 0 ATTENTION - NOT USED 

* 1 STATUS MODIFIER - 2 CHANNEL SWITCH FEATURE ONLY 

* 2 CONTROL UNIT END - 2 CHANNEL SWITCH FEATURE ONLY 

* 3 DEVICE BUSY 

* 4 CHANNEL END 

* 5 DEVICE END 

* 6 UNIT CHECK 

* 7 UNIT EXCEPTION - CHANNEL 12 

*********************************************************************** 
*********************************************************************** 

* 1403 DIAGNOSTIC CHECK READ DATA 

*********************************************************** ************ 

* BIT MEANING 

* 5 ON - THE PRINT LINE COMPLETE BIT HAS BEEN SET FOR THIS 

* POSITION. 

* OFF - ON BASIC PRINTERS, A COMPARE BETWEEN THE DATA BEING 

* PRINTED, AND THE PRINT CHARACTER GENERATOR DID NOT 

* OCCUR IN THIS POSITION, AND THE CHARACTER WAS NOT 

* CONSIDERED A VALID UNPRINTABLE. 
* 

* ON UCS PRINTERS, A COMPARE BETWEEN THE DATA BUFFER 
AND THE UNIVERSAL CHARACTER SET BUFFER DID NOT OCCUR 
AND THE CHARACTER WAS NOT CONSIDERED A NULL OR BLANK 

6 ON - THE PRINT CHECK PLANE FOR THIS POSITION WAS SET ON. 
THIS PLANE IS SET BY 

1. A HAMMER FIRE AND AN EQUAL CHECK. 

2. NO HAMMER FIRE AND NO EQUAL CHECK. 

3. LINE FULL, NOT VALID UNCOMPARABLE CHARACTER, AND 
NOT A PRINT LINE COMPLETE BIT IN THIS POSITION. 

OFF - THE PRINT CHECK PLANE FOR THIS POSITION IS NOT SET. 
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388 * 7 ON - A PARITY CHECK IN THE DATA BUFFER WAS DETECTED IN 

389 * THIS POSITION. 

390 * 

391 * OFF - THIS POSITION OF THE DATA BUFFER HAS CORRECT PARITY. 

392 *********************************************************************** 

393 * PARAMETERS USED TO ENTER 

394 * THE 1-0 HANDLER ROUTINE 

395 *********************************************************************** 



396 


* 


BAL 


R11,ISI0 


LINK TO 1-0 HANDLER 


397 




DC 


XL2'0000' 


CONTROL SWITCHES 


398 


* 


DC 


X»0014' 


TEST NO. IN DEC EXPRESSED IN HEX 


399 


* 


DC 


X'FO' 


EXPECTED COND. CODE 


400 


* 


DC 


X'OO' 


EXPECTED SENSE DATA 


401 




DC 


AL2 ( ADR-BASE+REG) 


ADDR. OF EXPECTED CSW IF NEEDED 



402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 



*********************************************************************** 
*********************************************************************** 

* 1-0 HANDLER CONTROL SWITCHES 

* 2 BYTE PARAMETER FOLLOWING BAL 

*********************************************************************** 



SWITCH 
0 — 



2 



3 



4 



6 



DESCRIPTION 



10 



OFF 
ON 
OFF 
ON 
OFF 
ON 
OFF 
ON 
OFF 
ON 
OFF 
ON 
OFF 
ON 
OFF - 
ON - 

OFF - 
ON - 

OFF - 
ON - 

OFF - 
ON - 



- ISSUE AN 1-0 COMMAND 

- DO NOT ISSUE AN 1-0 COMMAND 

- ENABLE 

- DO NOT ENABLE 

- EXPECT NO INTERRUPT 

- EXPECT AN INTERRUPT 

~ DO NOT EXPECT 2 INTERRUPTS 

- EXPECT 2 INTERRUPTS 

- EXPECT NO CSWS 

- EXPECT A CSW 

- DO NOT EXPECT 2 CSWS 

- EXPECT 2 CSWS 

- ALWAYS TRY TO ISSUE SENSE 

- SENSE ON UNIT CHECK ONLY 

GIVE HALT OPTION ON DETECTED ERROR 
RETURN WITHOUT HALT OPTION 

DO NOT ISSUE DIAGNOSTIC READ. 

ISSUE DIAGNOSTIC READ IF UNIT CHECK. 

DO NOT ISSUE DIAGNOSTIC CHECK READ. 

ISSUE DIAGNOSTIC CHECK READ IF UNIT CHECK. 

PRINT HEADER 

DO NOT PRINT HEADER 



*********************************************************************** 
*********************************************************************** 

* SWITCHES USED BY 1-0 HANDLER 

*********************************************************************** 



* 


SWITCH 


DESCRIPTION 




0 




OFF 




NO HANGUP ON INTERFACE 


* 






ON 




HANGUP OCCURRED 


* 


1 




OFF 




NO CSWS STORED 


* 






ON 




ONE CSW STORED 




2 




OFF 




SECOND CSW NOT RECIEVED 








ON 




SECOND CSW RECIEVED 




3 




OFF 




DID NOT ENABLE 








ON 




ENABLEO ONCE 


* 


4 




OFF 




DID NOT ENABLE TWICE 








ON 




ENABLED TWICE 




5 




OFF 




NO SENSE DATA RECIEVED 


* 






ON 




SENSE DATA RECIEVED 




6 




OFF 




NO UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 








ON 




UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 
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453 


* 7 


OFF - NO ERROR DETECTED 
















454 


* 


ON - AN ERROR WAS DETECTED 
















455 


*********************************************************************** 
















456 


* 


REGISTERS USED 


IN 1-0 HANDLER 
















457 


*********************************************************************** 
















458 


* REG 


COMMENTS 


















459 


* 5 


USED AS LINK TO ERROR 


OUTPUT FROM INITIALIZE ROUTINE IF 
















460 


* 


PREVIOUS HANGUP ON INTERFACE DETECTED. 
















461 


* 




















462 


* 8 


USED AS WORK REGISTER. 


WILL BE RESTORED UPON RETURN* 
















463 


* 




















464 


* 9 


USED AS WORK REGISTER. WILL BE RESTORED UPON RETURN* 
















465 


* 




















466 


* 10 


MUST CONTAIN CCW ADDRESS UPON ROUTINE ENTRY 
















467 


* 




















468 


* 11 


MUST BE USED AS LINK REG TO THIS ROUTINE 
















469 


* 




















470 


* 12 


MUST CONTAIN DEVICE ADDRESS 
















47 1 


* 




















472 


*********************************************************************** f 


01 0E4 


0000 










473 


ISW DC 


XL2'0« 


















474 


*********************************************************************** 
















475 


*********************************************************************** 
















476 


* 


* 1-0 HANDLER SUB-ROUTINE * 
















477 


*********************************************************************** 


01 0E6 


92 


9E 


c 
r 


1 A6 






478 


IHIO MVI 


ISSUE, X'9£» 


SET UP FOR HALT 1-0 } 


0106 A 


92 


C8 


F 


635 






479 


MVI 


I0PT1+21»X'C8' 


MOVE -H- TO MESSAGE 


010EE 


92 


C8 


F 


5 AO 






480 


MVI 


I0ADDR+12,X»C8» 




010F2 


92 


9E 


F 


1 5C 






481 


MVI 


ILOOP, X'9E« 




010F6 


47 


FO 


F 


1 IE 






482 


BC 


UNC, IEYEOH 


BR. UNCONDITIONAL 


010F A 


92 


9D 


F 


1 A6 






483 


ITIO MVI 


ISSUE, X'90' 


SET UP FOR TEST 1-0 


010FE 


92 


90 


F 


15C 






484 


MVI 


I LOOP ,X '90 ■ 




01 102 


92 


E3 


F 


635 






485 


MVI 


IOPTH^^X'ES 1 


MOVE -T- TO MESSAGE 


01 106 


92 


E3 


F 


SAO 






486 


MVI 


I0ADDR+12,X«E3» 




01 10A 


47 


FO 


F 


1 IE 






487 


BC 


UNC, IEYEOH 


BR. UNCONDITIONAL 


01 10E 


92 


9C 


F 


1 A6 






488 


ISIO MVI 


ISSUE, X»9C 


SET UP FOR START 1-0 


01 1 12 


92 


9C 


F 


15C 






489 


MVI 


I LOOP ,X *9C 1 




01116 


92 


E2 


F 


635 






490 


MVI 


I0PT1+21,X'E2V 


MOVE -S- TO MESSAGE 


01 1 1 A 


92 


E2 


F 


5A0 






491 


MVI 


I0ADDR+12,X , E2' 




01 1 1 E 


D2 


01 


F 


61C 


B 


002 


492 


IEYEOH MVC 


ITSTN0+5C2) ,2<R11) 


SAVE TEST NUMBER 


01 124 


90 


AB 


F 


680 






493 


STM 


R10,R11,ISLAVE 


SAVE REG 10 AND REG 11 


01128 


90 


89 


F 


560 






494 


STM 


R8,R9,ISAVE 


SAVE REGS 8 AND 9 


01 1 2C 


50 


AD 


0 


048 






495 


ST 


R10,HCAW(R13) 


STORE COMMAND ADDRESS 


01 130 


D7 


07 


D 


040 


D 


040 


496 


XC 


HCSWI8,R13),HCSW(R13) 




01 136 


95 


30 


E 


181 






497 


CLI 


SYSM0DCR14) , X«30» 


CHECK FOR MODEL 30 


01 13A 


47 


60 


F 


144 






498 


BC 


UNEQ,M0D44 


BR. IF NOT 


0113E 


D7 


OB 


0 


080 


0 


080 


499 


XC 


LOGOUT! 12) , LOGOUT 


CLEAR MOD 30 LOGOUT AREA 


01 144 


91 


80 


B 


000 






500 


M0D44 TM 


OfRlUtX^eO* 


CHECK CONTROL SWITCH FOR NO 1-0 [ 


01148 


47 


10 


F 


IDC 






501 


BC 


ALL,INOW 


BR. IF ON 


0114C 


91 


CO 


F 


004 






502 


TM 


SNSW,X«CO» 


j 


01150 


47 


80 


F 


198 






503 


BC 


NONE, JOHN 


















504 


*********************************************************************** 
















505 


* 


SENSE SWITCH LOOPS • ' ! 
















506 


*********************************************************************** 


01154 


91 


80 


F 


004 






507 


ITRY1 TM 


SNSW,X»80' 


CHECK SECTION SENSE SWITCH 0 


UilPO 


47 


80 


F 


164 






508 


BC 


NONE , ITRY2 


BR. IF OFF 


0115C 


9C 


00 


C 


000 






509 


ILOOP SIO 


0(R12) 


SIO, TIO, OR HIO 


01160 


47 


FO 


F 


154 






510 


BC 


UNCITRYl 


BR. UNCONDITIONAL 


01164 


91 


40 


F 


004 






511 


ITRY2 TM 


SNSW,X'40» 


CHECK SECTION SENSE SWITCH 1 


01168 


47 


80 


F 


184 






512 


BC 


NONE,IHI 


BR. IF OFF 


0116C 


90 


00 


C 


000 






513 


I HANG TIO 


0(R12) 


TEST I-Q 


01170 


47 


70 


F 


154 






514 


BC 


NCCCITRYl 


BR. IF NOT COND* CODE 0 


01174 


91 


40 


F 


004 






515 


TM 


SNSW,X'40» 


CHECK SECTION SENSE SWITCH 1 


01178 


47 


80 


F 


184 






516 


BC 


NONEtlHI 


BR. IF OFF 


0117C 


9C 


00 


C 


000 






517 


SIO 


0(R12) 


START I-Q 


DATE 


15MAR66 


15N0V66 120CT67 




* 


ID F831-5 


EC'S 


125632 


125655 


131812 
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01180 


47 


FO 


F 


16C 






01184 


58 


IE 


0 


198 






01188 


88 


10 


0 


003 






0118C 


9D 


00 


C 


000 






01190 


47 


80 


F 


198 






01194 


46 


10 


F 


18C 






01198 


D7 


01 


F 


0E4 


F 


0E4 


0119E 


96 


80 


F 


0E4 . 






011A2 


92 


E7 


F 


58F 






011A6 


9C 


00 


C 


000 






011AA 


47 


80 


F 


1D8 






011AE 


47 


40 


F 


1C6 






011B2 


47 


20 


F 


1BE 






011B6 


92 


F3 


F 


58F 






011BA 


47 


FO 


F 


IDC 






OllBE 


92 


F2 


F 


58F 






011C2 


47 


FO 


F 


IDC 






011C6 


92 


Fl 


F 


58F 






011CA 


D2 


07 


F 


652 


D 


040 


011D0 


96 


40 


F 


0E4 






01 104 


47 


FO 


F 


IDC 






011D8 


92 


FO 


F 


58F 






011DC 


94 


7F 


F 


0E4 






011E0 


91 


40 


B 


000 






01 1E4 


47 


10 


F 


298 






011E8 


95 


FO 


F 


58F 






011EC 


47 


80 


F 


200 






011FO 


95 


Fl 


F 


58F 






011F4 


47 


60 


F 


298 






011F8 


91 


08 


F 


656 






011FC 


47 


80 


F 


298 






01200 


96 


10 


F 


0E4 






01204 


58 


9E 


0 


198 






01208 


88 


90 


0 


003 






0120C 


96 


80 


F 


0E4 






01210 


80 


00 


F 


673 






01214 


46 


90 


F 


214 






01218 


80 


00 


F 


674 






0121C 


94 


7F 


F 


0E4 






01220 


47 


FO 


F 


298 






01224 


49 


CO 


F 


03A 






01228 


47 


60 


F 


246 






0122C 


94 


7F 


F 


0E4 






01230 


91 


40 


F 


0E4 






01234 


47 


10 


F 


276 






01238 


02 


0? 


F 


652 


F 


040 


0123E 


96 


40 


F 


0E4 






01242 


47 


FO 


F 


280 






01246 


02 


07 


F 


568 


F 


040 


0124C 


OA 


00 










0124E 


0003 










01250 


0039 










01252 


067A 










01254 


OA 


00 










01256 


64 












01257 


OB 












01258 


F675 










0125A 


02 


02 


F 


5C6 


F 


5BF 


01260 


92 


1A 


F 


427 






01264 


02 


02 


F 


5 DC 


F 


5DF 


0126A 


45 


90 


F 


410 







518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 



IHI 



GREG 



JOHN 



ISSUE 



ITWO 



IONE 



IZERO 
INOW 



IBLE 
IWAIT 



BC 


UNCI HANG 


BR. UNCONDITIONAL 






L 


R1,WT(14) 








SRL 


Rl t 3 








TIO 


0(R12) 








BC 


CCO, JOHN 








BCT 


Rl f GREG 








XC 


ISW(2),ISW 








01 


ISW 9 X*80' 








MVI 


IACTCC+5,C»X« 


MOVE IN A -X- 






SIO 


0(R12) 


1-0 COMMAND- SIO, 


TIO, OR HIO 


BC 


CCO,IZERO 


BR. IF COND. CODE 


0 




BC 


CC1»I0NE 


BR. IF COND. CODE 


1 




BC 


CC2,ITW0 


BR. IF COND. CODE 


2 




MVI 


IACTCC+5,X«F3« 


INDICATE COND. CODE 


3 


BC 


UNC t INOW 


BR. UNCONDITIONAL 






MVI 


IACTCC+5. X»F2 i 


INDICATE COND. CODE 


2 


BC 


UNC, INOW 


BR. UNCONDITIONAL 






MVI 


IACTCC+5,X»F1« 


INDICATE COND. CODE 


1 


MVC 


ICSW1(8),HCSW«R13) 


SAVE CSW 






01 


ISW«X a 40' 


INDICATE 1 CSW 






BC 


UNC, INOW 


BR. UNCONDITIONAL 






MVI 


IACTCC+S.X'FO 1 


INDICATE COND. CODE 


0 


NI 


ISW,X«7F« 


TURN OFF HANG UP SWITCH 


TM 


OlRllltX^O' 


CHECK CONTROL SWITCH FOR NO ENABLE 


BC 


ALL, ISEN 


BR. IF ON 






CLI 


IACTCC+5,X»F0' 


CHECK FOR COND CODE 


0 


BC 


EQ«IBLE 


BR. IF IT WAS 






CLI 


IACTCC+S^'Fl' 


CHECK FOR COND CODE 


1 


BC 


UNEQ, I SEN 


BR. IF NOT 






TM 


ICSW1+4 V X'08* 


CHECK FOR CHANNEL 


END 


BC 


NONE , 1 SEN 


BR. IF NONE 






01 


ISW,X«10» 


INDICATE ENABLED ONCE 


L 


R9,WT(R14) 


LOAD DM WAIT FACTOR 




SRL 


R9,3 


ADJUST 






01 


ISW,X»80 9 


TURN ON HANG UP SW 




SSM 


MSK1 


ENABLE 






BCT 


R9,* 


WAIT 






SSM 


MSK2 


DISABLE 






NI 


ISW,X»7F» 


TURN OFF HANG SW 






BC 


UNC, I SEN 


BR. UNCONDITIONAL 







********** t *********** ******4^******4^** 4****^ 

* ALL 1-0 INTERRUPTS RETURN HERE 

**************************************♦************************$******* 



IUIO 



CH 


R12,I00PSW+2 


COMPARE FOR CURRENT 1-0 ADDRESS 


BC 


UNEQ, IUIO 


BR. IF UNEQUAL 


NI 


ISW,X»7F» 


RESET HANG UP SW 


TM 


ISW,X'40 f 




BC 


ALL,ISV2 


BR. IF 1 CSW ALREADY STORED 


MVC 


ICSW1(8),HCSW(R15) 


SAVE CSW 1 


01 


ISW,X«40« 


INDICATE 1 CSW STORED 


BC 


UNCINT3 


BR. UNCONDITIONAL 


MVC 


W0RK(8),HCSW(R15) 




SVC 


X»DD« 


CONVERT ADDRESS 


DC 


AL2(3) 




DC 


AL2U00PSW+1-SECN0) 




DC 


AL2UUNEX+5-SECN0) 




SVC 


X«D0» 


PRINT UNEXPECTED INTERRUPT DEVICE 


DC 


X»64« 


ADDRESS 


DC 


X»OB« 




DC 


AL2 ( I UNEX-SECNO+REG ) 




MVC 


IBLAH+H3),ICSW 


MOVE -CSW- TO MESSAGE 


MVI 


ICNT,X«1A« 


ADJUST COUNT 


MVC 


IBLAH+23(3)tIACT 


MOVE -ACT- TO MESSAGE 


BAL 


R9» ICQUT 


BR. TO OUTPUT CSW 



0126E 


96 


02 


F 


0E4 






583 




01 


ISW,X«02» 


INDICATE UIO 


01272 


47 


FO 


F 


4E6 






584 




BC 


UNCIPASS 


BR. UNCONDITIONAL 


01276 


D2 


07 


F 


65A 


F 


040 


585 


ISV2 


MVC 


ICSW2(8) ,HCSW(R15) 


SAVE CSW 2 


0127C 


96 


20 


F 


0E4 






586 




01 


ISW,X«20« 


INDICATE 2 CSWS STORED 


01280 


91 


10 


B 


000 






587 


INT3 


TM 


0(R11) ,X*10» 


CHECK CTRL SW FOR 2 INTR EXPECTED 


01284 


47 


80 


F 


298 






588 




BC 


NONE , I SEN 


BR. IF NOT 


01288 


91 


08 


F 


0E4 






589 




TM 


ISW,X«08» 




0128C 


47 


10 


F 


298 






590 




BC 


ALL, ISEN 


BR. IF ALREADY ENABLED TWICE 


01290 


96 


08 


F 


0E4 






591 




01 


ISW,X«08» 


INDICATE ENABLED TWICE 


01294 


47 


FO 


F 


204 






592 




BC 


UNC, IWAIT 




01298 


91 


02 


B 


000 






593 


ISEN 


TM 


0(R11 ) ,X I 02» 


CHECK CONTROL SWITCH FOR SNS ON UC 


0129C 


47 


80 


F 


2C0 






594 




BC 


NONE, IDOSNS 


BR. IF OFF TO ISSUE SENSE 


012A0 


91 


40 


F 


0E4 






595 




TM 


ISWvX'40* 




012A4 


47 


80 


F 


316 






596 




BC 


NONE, IBSN 


BR. IF NO CSW STORED TO BYPASS SENSE 


012A8 


91 


02 


F 


656 






597 




TM 


ICSW1+4»X'02* 


CHECK FOR UNIT CHECK 


012AC 


47 


10 


F 


2 CO 






598 




BC 


ALL, IDOSNS 


IF YES BR. TO ISSUE SENSE 


012B0 


91 


20 


F 


0E4 






599 




TM 


ISW,X»20» 


CHECK FOR SECOND CSW 


012B4 


47 


80 


F 


316 






600 




BC 


NONE , IBSN 


BR. IF NOT TO BYPASS SENSE 


012B8 


91 


02 


F 


65E 






601 




TM 


ICSW2+4,X'02» 


CHECK FOR UNIT CHECK 


012BC 


47 


80 


F 


316 






602 




BC 


NONE , IBSN 


BR. IF NOT TO BYPASS SENSE 


O12C0 


58 


9E 


0 


198 






603 


IDOSNS 


L 


R9,WT(R14) 


LOAD DM WAIT FACTOR 


012C4 


88 


90 


0 


004 






604 




SRL 


R9,4 


ADJUST 


012C8 


41 


80 


F 


668 






605 




LA 


R8,ISENSE 


LOAD SENSE COMMAND ADDRESS 


012CC 


50 


80 


0 


048 






606 




ST 


R8,HCAW(R13) 


STORE IN CAW 


012D0 


9C 


00 


C 


000 






607 




SIO 


0(R12) 


ISSUE SENSE 


012D4 


47 


70 


F 


364 






608 




BC 


NCCO, INDER 


BR. IF NOT ACCEPTED 


012D8 


9D 


00 


C 


000 






609 


ITIOLP 


TIO 


0(R12) 


TEST 1-0 


0120C 


47 


40 


F 


300 






610 




BC 


CC1, ILOKE 


BR. IF CSW STORED 


012E0 


46 


90 


F 


2 08 






611 


ITIC 


BCT 


R9, ITIOLP 




012E4 


47 


FO 


F 


316 






612 




BC 


UNC, IBSN 


BR. UNCONDITIONAL 


012E8 


91 


40 


F 


0E4 






613 


IN0EX1 


TM 


ISW,X»40' 




012EC 


47 


10 


F 


364 






614 




BC 


ALL, INDER 


BR. IF CSW STORED 


012F0 


47 


FO 


F 


368 






615 




BC 


UNC, IDUNCK 


BR. UNCONDITIONAL 


012F4 


91 


20 


F 


0E4 






616 


IN0EX2 


TM 


ISWt X a 20* 




012F8 


47 


10 


F 


364 






617 




BC 


ALL, INDER 


BR. IF CSW 2 STORED 


012FC 


47 


FO 


F 


368 






618 




BC 


UNC , IDUNCK 


BR. UNCONDITIONAL 


01300 


95 


OC 


D 


044 






619 


ILOKE 


CLI 


HCSW+4IR13) ,X«OC« 


CHECK FOR CE DE ONLY 


01304 


47 


70 


F 


2E0 






620 




BC 


NCCO, ITIC 


BR. IF NOT 


01308 


96 


04 


F 


0E4 






621 




01 


ISW,X'04« 


INDICATE SENSE DATA RECIEVED 


0130C 


D5 


00 


F 


5F5 


B 


005 


622 




CLC 


IACSNS+5(1),5(R11) 


COMPARE FOR EXPECTED SENSE 


01312 


47 


60 


F 


364 ' 






623 




BC 


UNEQ, INDER 


BR. IF UNEQUAL 


01316 


D5 


00 


F 


58F 


B 


004 


624 


IBSN 


CLC 


IACTCC+5(1),4(R11I 


COMPARE FOR EXPECTED COND* CODE 


0131C 


47 


60 


F 


364 






625 




BC 


UNEQ, INDER 


BR. IF UNEQUAL 


01320 


91 


08 


B 


000 






626 




TM 


0(R11) ,X«08« 




01324 


47 


80 


F 


2E8 






627 




BC 


N0NE,IN0EX1 


BR. IF NO CSW EXPECTED 


01328 


91 


40 


F 


0E4 






628 




TM 


ISW,X«40« 




0132C 


47 


80 


F 


364 






629 




BC 


NONE, INDER 


BR. IF NO CSW RECIEVED 


01330 


48 


88 


0 


006 






630 




LH 


R8,6(R11) 


LOAD CSW ADDR 


01334 


40 


80 


F 


33C 






631 




STH 


R8,ICCSWl+4 


STORE IN COMPARE INSTR. 


01338 


D5 


07 


F 


652 


F 


652 


632 


ICCSW1 


CLC 


ICSK1 (8) , ICSW1 


COMPARE FOR EXPECTED CSW 


0133E 


47 


60 


F 


364 






633 




BC 


UNEQ, INDER 


BR. IF UNEQUAL 


01342 


91 


04 


B 


000 






634 




TM 


0(R11) ,X'04* 




01346 


47 


80 


F 


2F4 






635 




BC 


N0NE,IN0EX2 


BR. IF NO CSW 2 EXPECTED 


0134A 


91 


20 


F 


0E4 






636 




TM 


ISWt X*20* 




0134E 


47 


80 


F 


364 






637 




BC 


NONE, INDER 


BR. IF NO CSW 2 RECIEVED 


01352 


41 


88 


0 


008 






638 




LA 


R8,8(R8) 


UPDATE TO SECOND CSW 


01356 


40 


80 


F 


35E 






639 




STH 


R8, ICCSW2+4 




0135A 


D5 


07 


F 


65A 


F 


65A 


640 


ICCSW2 


CLC 


ICSW2(8),ICSW2 


COMPARE FOR EXPECTED CSW 2 


01360 


47 


80 


F 


368 






641 




BC 


EQ, IDUNCK 


BR. IF EQUAL 


01364 


96 


01 


F 


0E4 






642 


INDER 


01 


ISW,X«01« 


INDICATE AN ERROR 


01368 


92 


64 


F 


398 






643 


IDUNCK 


MVI 


IFLAG1#X*64» 


SET UP FOR ERROR PRINTOUT 


0136C 


92 


CO 


F 


52C 






644 




MVI 


IFLAG2,X«C0 t 




01370 


91 


01 


F 


0E4 






645 




TM 


ISH 9 X*01' 


CHECK FOR A DETECTED ERROR 


01374 


47 


10 


F 


388 






646 




BC 


ALL ,IOUTIT 


BR* IF ERROR DETECTED 


01378 


91 


01 


F 


004 






647 




TM 


SNSNtX'Ol " 


CHECK SECTION SENSE SWITCH 7 
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0137C 


47 80 


F 


548 






648 




BC 


NONE • I LFAVE 


no. tc nee 


01380 


92 24 


F 


398 






649 




MVI 


IFLAG1 yX , 24* 


SET UP FOR CORRECT PRINTOUT 


01384 


92 80 


F 


52C 






650 




MVI 


I FLAG2 |X * 80' 




01388 


D2 01 


F 


61C 


B 


002 


651 


IOUTIT 


MVC 


ITSTN0+5( 2) f 2 (RID 


MOVE TEST NUMBER TO PRINT 


0138E 


OA DD 










652 




SVC 


X'DD* 


CONVERT TEST NUMBER 


01390 


0002 










653 




DC 


AL2(2) 




01392 


061C 










654 




DC 


AL2 ( I TSTN0+5-SECN0) 




01394 


061C 










655 




DC 


AL2( ITSTN0+5-SECNQ) 




01396 


OA DO 










656 




SVC 




PRINT TEST NUMBER 


01398 


64 










657 


IFLAG1 


DC 


X , 64« 




01399 


09 










658 




DC 






0139A 


F617 










659 




DC 


AL2UTSTN0-SECN0+REG) 




0139C 


41 80 


0 


004 






660 




LA 


R8 V 4 


ADJUST LINK ADDRESS FOR PRINTOUT 


013A0 


IB B8 










661 




SR 


RlltR8 




013A2 


50 BO 


F 


5A8 






662 




ST 


Rlly ILINK+5 




013A6 


OA DD 










663 




SVC 


X # DO» 


CONVERT LINK ADDRESS 


013A8 


0003 










664 




DC 


AL2(3) 




013AA 


05A9 










665 




DC 


AL2< ILINK+6-SECN0) 




013AC 


05A8 










666 




DC 


AL2( ILINK+5-SECN0) 




013AE 


OA DO 










667 




SVC 


X'DO' 


PRINT LINK ADDRESS 


013B0 


EO 










668 




DC 


X^EO* 




013B1 


10 










669 




DC 


X • 10* 




013B2 


F5A3 










670 




DC 


AL2( ILINK-SECNO+REG) 




013B4 


41 BB 


0 


004 






671 




LA 


Rlly4(Rll ) 




013B8 


91 80 


B 


000 






672 




TM 


0( Rll ) f X 9 80 f 




013BC 


47 10 


F 


442 






673 




BC 


ALLylOCSW 


BR. IF NO I -0 COMMAND ISSUED 


013C0 


OA DO 










674 




SVC 


X 'DD • 


CONVERT 1-0 ADDRFSS 


013C2 


0003 










675 




DC 


AL2(3) 




013C4 


0670 










676 




DC 


AL2* IOADR-SECNO) 




013C6 


0599 










677 




DC 


AL2 ( I 0ADDR+5-SECN0 ) 




013C8 


OA DO 










678 




SVC 


X»DO« 


PRINT 1-0 ADDRESS 


013CA 


EO 










679 




DC 


X^O' 




013CB 


OF 










680 




DC 


X^F* 




013CC 


F594 










681 




DC 


AL2( IOADDR-SECNO+REG) 




013CE 


95 9C 


F 


1A6 






682 




CLI 


ISSUEtX^C 1 


COMPARE FOR SIO COMMAND 


013D2 


47 60 


F 


42C 






683 




BC 


UNEQy ICCOUT 


BR. IF NOT 


013D6 


50 AO 


F 


5B8 






684 




ST 


R10» ICAW+5 


STORE CCW ADDR. 


013DA 


OA DD 










685 




SVC 


X'DO* 


CONVERT CAW 


013DC 


0003 










686 




DC 


AL2(3) 




013DE 


05B9 










687 




DC 


AL2( ICAW+6-SECN0) 




013E0 


05B8 










688 




DC 


AL2( ICAW+5-SECN0) 




013E2 


OA DO 










689 




SVC 


X^DO* 


PRINT CAW 


013E4 


EO 










690 




DC 


X»EO» 




013E5 


OB 










691 




DC 


X»0B» 




013E6 


F5B3 










692 




DC 


AL2( ICAW-SECNO+REG) 




013E8 


D2 02 


F 


5C6 


F 


5C2 


693 




MVC 


IBLAH+K 3) » ICCW 


MOVE -CCW- TO MESSAGE 


013EE 


92 16 


F 


427 






694 




MVI 


ICNT,X»16» 


ADJUST COUNT 


013F2 


50 AO 


F 


854 






695 




ST 


R10,SAV10 


MOVE CONTENTS OF REG 10 TO SAVE 


013F6 


D2 07 


F 


568 


A 


000 


696 


ICWOUT 


MVC 


W0RK(8) 9 0(R10) 


MOVE CCW TO WORK AREA 


013FC 


45 90 


F 


410 






697 




BAL 


R9, ICOUT 


BR. TO OUTPUT CCW 


01400 


91 CO 


A 


004 






698 




TM 


4(R10) , X»CO» 


CHECK FOR ANY CHAIN FLAGS 


01404 


47 80 


F 


42C 






699 




BC 


NONE y ICCOUT 


BR. IF NONE 


01408 


41 AA 


0 


008 






700 




LA 


R10 V 8(R10) 


UPDATE TO NEXT CCW 


0140C 


47 FO 


F 


3F6 






701 




BC 


UNC ? ICWOUT 


BR. UNCONDITIONAL 


01410 


OA DD 










702 


ICOUT 


SVC 


X»DD« 


CONVERT 


01412 


0008 










703 




DC 


AL2C8) 




01414 


0568 










704 




DC 


AL2( WORK-SECNO) 




01416 


0568 










705 




DC 


AL2(W0RK-SECN0) 




01418 


D2 07 


F 


5CA 


F 


568 


706 




MVC 


IBLAH+5(8)»W0RK 


MOVE TO MESSAGE 


0141E 


D2 07 


F 


503 


F 


570 


707 




MVC 


IBLAH+14(8> yW0RK+8 




01424 


OA DO 










708 




SVC 


X»DO« 


PRINT 


01426 


EO 










709 




DC 


X»£0» 




01427 


1A 










710 


ICNT 


DC 


X* 1A' 




01428 


F5C5 










711 




DC 


AL2 ( I BLAH-SECNO+REG ) 




0142A 


07 F9 










712 




BCR 


UNCtR9 


RETURN VIA REG 9 



0142C 


D2 


00 


F 


585 


B 


004 


713 


ICCOUT 


MVC 


IEXPCC+5( 1 ) t 4( Rll ) 


MOVE EXP CC TO MESSAGE 


01432 


58 


AO 


F 


680 






714 




L 


RlOy I SLAVE 


RESTORE REG 10 


01436 


OA 


DO 










715 




SVC 


X • DO • 


PRINT EXPECTED COND* CODE 


01438 


EO 












716 




DC 


X , EO* 




01439 


OA 












717 




DC 


X'OA 1 




01 43 A 


F580 










718 




DC 


ALZ 1 1 EXPCC— 5ECN0+REG ) 




01 43C 


OA 


DO 










719 




SVC 


X "DO ' 


r%r% V fiki TP Atti i A t #*riAin #* ni\r 

PRINT ACTUAL COND. CODE 


0143E 


EO 












720 




DC 


X • EO • 




0 1 4 3 F 


OA 












72 1 




DC 


X • OA • 




01 440 


F58A 










722 




DC 


AL2( I ACTCC-SECNO+REG 1 




01 442 


D2 


02 


F 


5C6 


F 


5BF 


723 


IOCSW 


MVC 


IBLAH+l ( 3 ) y ICSW 


MOVE — C SW- TO MESSAGE 


01448 


92 


1 A 


F 


427 






724 




MVI 


ICNT t X ' 1A ■ 


ADJUST COUNT 


01 44C 


91 


08 


B 


000 






725 




TM 


OlRllJ y X * 08 • 




Ux*f 3U 


47 


80 


F 


474 






726 




BC 


NUNfc t lulul 


BR. IF NU C5W EXPECTED 


01454 


D2 


02 


F 


5 DC 


F 


5E2 


727 




MVC 


IBLAH+23I3) y IEXP 


MOVE -EXP- TO MESSAGE 


0145 A 


48 


6B 


0 


006 






728 




LH 


no ^ f n i i % 

KB » 6 l Kl 1 ) 




0145E 


40 


80 


F 


46E 






729 




STH 


R8y ICHNG1+4 




01462 


41 


88 


0 


008 






730 




LA 


R8f 8( R8 ) 




01466 


40 


80 


F 


49E 






731 




STH 


R8f ICHNG2+4 




0146A 


D2 


07 


F 


568 


F 


568 


732 


ICHNG1 


MVC 


WORK ( 8) tWORK 


MOVE EXPECTED CSW TO WORK AREA 


01470 


45 


90 


F 


410 






733 




BAL 


R9y ICOUT 


BR. TO OUTPUT EXPECTED CSW 


01474 


91 


40 


F 


0E4 






734 


IDIDI 


TM 


I SWyX'40* 




01478 


47 


80 


F 


48C 






735 




BC 


NONE* IMORST 


BR. IF NO CSW STORED 


0147C 


D2 


02 


F 


5 DC 


F 


5DF 


736 




MVC 


IBLAH+23I3) ylACT 


MOVE -ACT- TO MESSAGE 


01482 


D2 


07 


F 


568 


F 


652 


737 




MVC 


WORK (8) y ICSW1 


MOVE ACTUAL CSW TO WORK AREA 


01488 


45 


90 


F 


4 10 






738 




BAL 


R9y ICOUT 


BR. TO OUTPUT ACTUAL CSW 


0148C 


91 


04 


B 


000 






739 


IMORST 


TM 


0( Rll ) yX , 04* 




01490 


47 


60 


F 


4A4 






740 




BC 


NONEy IDID 


BR. IF NOT EXPECTING 2 CSWS 


01494 


D2 


02 


F 


5 DC 


F 


5E2 


741 




MVC 


IBLAH+23(3) yIEXP 


MOVE -EXP- TO MESSAGE 


0149A 


D2 


07 


F 


568 


F 


568 


742 


ICHNG2 


MVC 


WORK ( 8 ) y WORK 


MOVE EXPECTED CSW TO WORK AREA 


014A0 


45 


90 


F 


410 






743 




BAL 


R9y ICOUT 


BR. TO OUTPUT EXPECTED CSW 2 


014A4 


91 


20 


F 


0E4 






744 


IDID 


TM 


I SWy X ^O* 




014A8 


47 


80 


F 


4BC 






745 




BC 


NONEy IPAS 


BR. IF NO SECOND CSW STORED 


014AC 


D2 


02 


F 


5 DC 


F 


5DF 


746 




MVC 


IBLAH+23(3) ylACT 


MOVE -ACT- TO MESSAGE 


014B2 


D2 


07 


F 


568 


F 


65A 


747 




MVC 


WORK (8) y ICSW2 


MOVE CSW TO WORK AREA 


014B8 


45 


90 


F 


410 






748 




BAL 


R9y ICOUT 




01 4 BC 


D2 


00 


F 


5 EA 


B 


005 


749 


1PAS 


MVC 


IEXSNS+5(lly5(Rll» 


MOVE EXP SENSE TO MESSAGE 


014C2 


91 


04 


F 


0E4 






750 




TM 


I CLI VIA/. 1 

I 5Wy X * 04 ' 




01 4C6 


47 


80 


F 


4E6 






751 




BC 


■tinnier t r> a r c 
NONE y I PA55 


BR. IF NO SENSE DATA RECIEVED 


014C A 


OA 


OD 










752 




SVC 


X * DD* 


CONVERT EXPECTED SENSE 


01 4CC 


0001 










753 




DC 


AL2 ( 1 ) 




014CE 


05EA 










754 




DC 


AL2 ( I EXSNS+5-SECN0) 




014D0 


05EA 










755 




DC 


AL2( I EXSN5+5-SECN0 J 




014D2 


OA 


DO 










756 




SVC 


X • DO ' 


PRINT EXPECTED SENSE 


014D4 


EO 












757 




DC 


X * EO" 




01 4D5 


OB 
















DC 


X * OB 1 




014D6 


F5E5 










759 




DC 


AL2I I EX5N5— StCNO+REG I 




014D8 


OA 


DD 










760 




SVC 


X * DD ' 




014DA 


0001 










761 




DC 


AL2(1) 




014DC 


05F5 










762 




DC 


AL2( I ACSNS+5-SECN0) 




014DE 


05F5 










763 




DC 


AL2UACSNS+5-SECN0) 




014E0 


OA 


DO 










764 




SVC 


X»DO« 


PRINT ACTUAL SENSE DATA 


01462 


EO 












765 




DC 


X'EO* 




014E3 


OB 












766 




DC 


X»OB» 




014E4 


F5F0 










767 




DC 


AL2UACSNS-SECN0+REG) 




014E6 


95 


30 


E 


181 






768 


IPASS 


CLI 


SYSM0D1 R14 ) yX«30» 


CHECK FOR MODEL 30 


014EA 


47 


60 


F 


52A 






769 




BC 


UNEQyIOPOUT 


BR. IF NOT 


014EE 


D2 


08 


F 


568 


0 


080 


770 




MVC 


WORM 12 ) y LOGOUT 


MOVE LOGOUT TO WORK AREA 


014F4 


OA 


DD 










771 




SVC 


X'DD* 


CONVERT 


014F6 


OOOC 










772 




DC 


AL2U2) 




014F8 


0568 










773 




DC 


AL2(W0RK-SECN0) 




014FA 


0568 










774 




DC 


AL2( WORK-SECNO) 




014FC 


D2 


01 


F 


600 


F 


568 


775 




MVC 


I0L0G+5(2),W0RK 


MOVE LOG OUT TO MESSAGE 


01502 


D2 


05 


F 


603 


F 


56A 


776 




MVC 


I0L0G+8(6) yWORK+2 




01508 


D2 


05 


F 


60A 


F 


572 


777 




MVC 


IOLOG+15(6),W0RK-HO 
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1403 


PRINTER FUNCTION 2 
















1403 


PRINTER FUNCTION 2 












0150E 


D2 05 F 611 F 57A 


778 




MVC 


I0L0G+22(6) , WORK* 18 








01620 


40E2E240F040D6D5 


831 


I0PT1 


DC 


C» SS 0 ON FOR LOO' 




01514 


OA DO 


779 




SVC 


X^O 1 


PRINT 


LOG OUT 




01628 


40C606D940D306D6 












01516 


EO 


780 




DC 


X'EO* 








01630 


D740D6 0540E7C9D6 


832 




DC 


C«P ON XIO, SS 1 0' 




01517 


1C 


781 




DC 


X» 1C 








01638 


6B40E2E240F140D6 












01518 


F5FB 


782 




DC 


AL2( IOLOG-SECNO+REG) 








01640 


D540C6D6D940E3C9 


833 




DC 


C»N FOR TIO SIO L0» 




0151A 


91 02 F 0E4 


783 




TM 


I SW f X , 02 l 








01648 


D640E2C9D640D3D6 












0151E 


47 80 F 52A 


784 




BC 


NONE , IOPOUT 


BR. IF 


NOT UIO 




01650 


D6D7 


834 




DC 


C'OP* 




01522 


94 FO F 0E4 


785 




NI 


ISWtX'FD 1 


RESET 


UIO SWITCH 




01652 


0000000000000000 


835 


ICSW1 


DC 


XL8«0» 




01526 


47 FO F 204 


786 




BC 


UNCI WAIT 


BR. UNCONDITIONAL 




0165A 


0000000000000000 


836 


ICSW2 


DC 


XLB'O 1 




0152A 


OA DO 


787 


IOPOUT 


SVC 


X^O' 


PRINT 


LOOP OPTIONS 




01662 


000000000000 












0152C 


CO 


788 


IFLAG2 


DC 


X»CO» 








01668 


040015F500000001 


837 


ISENSE 


CCW 


X , 04 f ^ACSNS+SfX'OO* f 


1 


0152D 


32 


789 




DC 


X«32« 








01670 


0011A6 


838 


IOADR 


DC 


AL3USSUE) 




0152E 


F620 


790 




DC 


AL2( I0PT1-SECN0+REG) 








01673 


FE 


839 


MSK1 


DC 


X'FE* 




01530 


OA DO 


791 




SVC 


X'DO 1 


SPACE 


A LINE 




01674 


01 


840 


MSK2 


DC 


X»01« 




01532 


AO 


792 




DC 


X»AO« 








01675 


40E4C9D640E7E7E7 


841 


IUNEX 


DC 


C» UIO XXXXXX* 




01533 


01 


793 




DC 


X'Ol 1 








01670 


E7E7E7 












01534 


F5A3 


794 




DC 


AL2ULINK-SECN0+REG) 








01680 


0000000000000000 


842 


ISLAVE 


DC 


XLS'O* 


REGISTER SAVE AREA 


01536 


50 AD 0 048 


795 




ST 


R10,HCAW(R13) 


STORE 


CAW 




01688 


0600169800000084 


843 


DCKRD 


CCW 


X«06» , CKAR, X«00* ,132 




0153A 


91 CO F 004 


796 




TM 


SNSW,X«C0» 


CHECK 


SECTION SENSE 


SWITCH 0 AND 1 


01690 


00001690 


844 


CROCSW 


DC 


A(CRDCSW) 




0153E 


47 50 F 154 


797 




BC 


ANY, I TRY1 


BR. IF 


ANY ON 




01694 


OCOOOOOO 


845 




DC 


X'OCOOOOOO' 




01542 


91 01 F 0E5 


798 




TM 


ISW+UX'Ol* 








01698 




846 


CKAR 


DS 


132C 




01546 


07 15 


799 




BCR 


ALL ,R5 


RETURN 


VIA REG 5 IF 


HANG UP 


0171C 




847 


DRAR 


DS 


132C 




01548 


91 08 B 000 


800 


ILEAVE 


TM 


0(R11),X«08» 








017A0 


0200171C00000084 


848 


RDCCW 


CCW 


X«02«, DRAR, X»00», 132 




0154C 


47 80 F 554 


801 




BC 


NONE, IUP 


BR. IF 


NO CSW EXPECTED 


017A8 


000017A8 


849 


WHOPS 


DC 


A (WHOPS) 




01550 


41 BB 0 002 


802 




LA 


R11,2(R11) 


UPDATE 


LINK ADDRESS 


FOR RETURN 


017AC 


OCOOOOOO 


850 




DC 


X'OCOOOOOO' 




01554 


41 BB 0 006 


803 


IUP 


LA 


Rllt6(Rll) 












851 




01558 


98 89 F 560 


804 




LM 


R8,R9, ISAVE 


RESTORE REGS 8 AND 9 








852 


* 




INITIALIZE ROUTINE 


0155C 


07 FB 


805 




BCR 


UNCtRll 


RETURN 


VIA REG 11 








853 




0155E 


07 00 


806 




CNOP 


0,8 








017B0 


IB DO 


854 


INIT 


SR 


R13,R13 


ZERO REG 13 


01560 


0000000000000000 


807 


ISAVE 


DC 


XLS'O 1 








017B2 


91 40 E 196 


855 




TM 


406(R14) ,X«40» 


CHECK FOR FORCED PROBLEM STATE 


01568 




808 


WORK 


DS 


24C 








017B6 


47 80 F 7BC 


856 




BC 


NONE, NITWIT 


BR. IF NOT 


01580 


40C3C34040E740C5 


809 


IEXPCC 


DC 


C» CC X EXP* 








017BA 


18 OF 


857 




LR 


R13,R15 


SET UP FOR PROBLEM STATE 


01588 


E7D7 
















017BC 


58 CO F OEO 


858 


NITWIT 


L 


R12,UNIT1 


LOAD REG 12 WITH UNIT TABLE ENTRY 


0158A 


40C3C34040E740C1 


810 


IACTCC 


DC 


C« CC X ACT* 








017C0 


54 CO F 858 


859 




N 


R12,M0D50 


AND OUT UNUSED BITS 


01592 


C3E3 
















017C4 


91 80 F 0E4 


860 


BLOOP 


TM 


ISWtX'BO* 


CHECK FOR HANG UP 


01594 


40C1C4D940E7E7E7 


811 


I0ADDR 


DC 


C» ADR XXXXXX XIO« 








017C8 


47 10 F 7DE 


861 




BC 


ALL, HANGUP 


BR. IF DETECTED 


0159C 


E7E7E740E7C9D6 
















017CC 


92 40 F 85D 


862 




MVI 


PRAR,X»40« 


MOVE BLANK TO PRINT AREA 


015A3 


00 


812 




DC 


X«00« 








017D0 


02 00 F 810 F 003 


863 




MVC 


RTSAV(l),SECN0+3 


SAVE ROUTINE NUMBER 


015A4 




813 




CNOP 


0,4 








017D6 


02 82 F 85E F 85D 


864 




MVC 


PRAR+l ( 131 ) ,PRAR 


BLANK PRINT AREA 


015A3 




814 




ORG 


*-l 








017DC 


07 F4 


865 




BCR 


UNCR4 


RETURN VIA REG 4 


015A3 


40C1C4D940E7E7E7 


815. 


IL INK 


DC 


C* ADR XXXXXX LINK* 








017DE 


D2 00 F 003 F 810 


866 


HANGUP 


MVC 


SECN0+3(1), RTSAV 


MOVE RTN NO. THAT HANG WAS FOUND 


015AB 


E7E7E740D3C9D5D2 
















017E4 


94 FE F 0E5 


867 




NI 


ISW+l.X^FE* 




015B3 


00 


816 




DC 


X«00« 








017E8 


96 01 F 0E5 


868 




01 


ISW+1,X*01* 




015B4 




817 




CNOP 


0,4 








017EC 


98 AB F 680 


869 




LM 


RIO, Rll, ISLAVE 


RESTORE REGS 10 AND 11 


015B3 




818 




ORG 


*-l 








017F0 


OA DO 


870 




SVC 


X»DO» 


PRINT 


015B3 


40C3C1E640E7E7E7 


819 


ICAW 


DC 


C CAW XXXXXX • 








017F2 


64 


871 




DC 


X«64« 


-PREVIOUS HANGUP DETECTEO- 


015BB 


E7E7E740 
















017F3 


1A 


872 




DC 


X»1A* 




015BF 


C3E2E6 


820 


ICSW 


DC 


C'CSW* 








017F4 


F82C 


873 




DC 


AL 2 ( HUNG- SECNO+REG ) 




015C2 


C3C3E6 


821 


ICCW 


DC 


C'CCW 1 








017F6 


OA DO 


874 




SVC 


X»DO« 




015C5 


40C3E2E640E7E7E7 


822 


IBLAH 


DC 


C» CSW XXXXXXXX XX 1 








017F8 


A019 


875 




DC 






015CD 


E7E7E7E7E740E7E7 
















017FA 


F811 


876 




DC 


AL2 (CLUIN- SECNO+REG 1 




01505 


E7E7E7E7E7E740C5 


823 




DC 


C'XXXXXX EXP* 








017FC 


45 50 F 2C0 


877 




BAL 


R5, 100 SNS 


BR. TO OUTPUT AVAILABLE INFO 


015D0 


E7D7 
















01800 


92 00 F 0E4 


878 




MVI 


ISW,X«00* 


RESET HANGUP SWITCH 


015DF 


C1C3E3 


824 


IACT 


DC 


C»ACT« 








01804 


94 7F F 0E4 


879 




NI 


ISW,X«7F» 




015E2 


C5E7D7 


825 


IEXP 


DC 


C'EXP* 








01808 


92 01 F 003 


880 




MVI 


SECN0+3,X»0l* 


RESTORE TO ROUTINE 01 


015E5 


40E2D5E240E7E740 


826 


IEXSNS 


DC 


C f SNS XX EXP* 








0180C 


47 FO F 7C4 


881 




BC 


UNC, BLOOP 




015ED 


C5E7D7 
















01810 


00 


882 


RTSAV 


DC 


X'00« 




015F0 


40E2D5E240E7E740 


827 


IACSNS 


DC 


C« SNS XX ACT* 








01811 


40E2C5C540C4C5E2 


883 


CLUIN 


DC 


C» SEE DESCRIPTION* 




015F8 


C1C3E3 
















01819 


C3D9C9D7E3C9D6D5 












015FB 


40D3D6C740E7E740 


828 


IOLOG 


DC 


C* LOG XX XXXXXX X* 








01821 


60C3D6D4D4C505E3 


884 




DC 


C •-COMMENTS' 




01603 


E7E7E7E7E7E740E7 
















01829 


E2 












0160B 


E7E7E7E7E740E7E7 


829 




DC 


C'XXXXX XXXXXX • 








0182A 


07 00 


885 




CNOP 


0,4 




01613 


E767E7E7 
















0182C 


40D7D9C5E5C9D6E4 


886 


HUNG 


DC 


C» PREVIOUS HANG U« 




01617 


40E3E2E340E7E7E7 


830 


ITSTNO 


DC 


C f TST XXXX* 








01834 


E240C8CID5C740E4 












0161F 


E7 
















0183C 


D740C4C5E3C5C3E3 


887 




DC 


C»P DETECTED* 
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01844 


C5C4 










01 846 


07 00 


888 




CN0P 


0,4 


01848 


0000000000000000 


889 


SAVIT 


DC 


XL12»0» 


01 850 


00000000 










01854 


00000000 


890 


SAV10 


DC 


XL4«0« 


01858 


00003rrr 


891 


M0D50 


DC 


X«00003FFF« 


01 85C 


40 


892 




DC 


X»40» 


01 850 




893 


PRAR 


OS 


132C 


018E1 


00 










018E2 


u r uu 


894 




CN0P 


0,4 






one 
07D 


*********************************************************************** 






□ OA 

070 


* ROUTINE 01 


- ISSUE SKIP TO 1 IMMEDIATE, COMMAND CHAINED TO TWO SPACE 






897 


* 




1 IMMEDIATE COMMANDS. THE FIRST SPACE 1 SHOULD DETECT 






nan 


* 




A 9 HOLE IN THE CARRIAGE TAPE. THIS SHOULD BRI^G UP 






899 


* 




UNIT CHECK AND BREAK THE CHAIN. TURN ON CHAIN DATA FLAG 






onn 

7UU 


* 




AND ISSUE CHAIN AGAIN. THE SKIP TO 1 WILL BE EXECUTED, 






on 1 


* 




BUT NO CHAINING WILL OCCUR. 






on 0 

7U£ 


* 




ISSUE SKIP IMMEDIATE TO CHANNEL 4 FOLLOWED BY TWO SPACE 






903 






IMMEDIATE COMMANDS. A CHANNEL 12 SHOULD BE DETECTED ON 






904 


* . 




THE FIRST SPACE IMMEDIATE, BRING UP UNIT EXCEPTION, AND 






one 


* : 




BREAK COMMAND CHAINING. 






906 


*********************************************************************** 


018E4 


01 


907 


R0UT01 


DC 


X»01« ROUTINE NUMBER 


01 8E5 


00097A 


908 




DC 


AL3(R0UT02-SECN0) ADDRESS OF NEXT ROUTINE 


018E8 


4 5 40 F 7R0 


909 




BAL 


R4,INIT BR. TO INITIALIZE 


01 8 EC 


4 1 Aft F ' Q9A 


01 n 


G001 


LA 


R10,CHN3 LOAD CCW ADDRESS 


01 8F0 


97 40 F Q?T 


911 




MVI 


CHN3+4,X»40« SET UP COMMAND CHAIN 


01 8F4 


45 AO F 1 0F 


71i 




BAL 


R11,ISI0 BR. TO ISSUE SIO 


01 8F8 


3800 


913 




DC 


X»3800« CONTROL SWITCHES 


01 8F A 


0010 


914 




DC 


X»0010» TEST NUMBER 


01 8FC 


poo 1 


915 




DC 


X»F001» EXP COND. CODE AND SENSE 


018FE 


F940 


916 




DC 


AL2< BRKUC- SECNO+REG) EXP CSW ADDRESS 


01900 


q? ro f o?r 


017 
7i r 




MVI 


CHN3+4,X I C0 I TUHN ON DATA CHAIN 


01904 


45 R0 F 1 OF 


918 




BAL 


R11,ISI0 BR. TO ISSUE SIO 


m ana 


3CUU 


Q 1 Q 

717 




DC 


X«3E00» CONTROL SWITCHES 


01 90A 


0020 


7CU 




DC 


X»0020» TEST NUMBER 


01 90C 


F 1 00 


921 




DC 


X»F100« EXP COND. CODE AND SENSE 


ni one 


F948 






DC 


AL2IN0CHN-SECN0+REG ) EXP CSW ADDRESS 


01910 


41 AO F QRfl 


923 




LA 


RIO, UNEX LOAD CCW ADDRESS 


01914 


45 RO F lOF 


924 




BAL 


R11,ISI0 BR. TO ISSUE SIO 


01918 


3 A00 


925 




DC 


X»3A00« CONTROL SWITCHES 


0191 A 


0030 


926 




DC 


X'0030 1 TESTNUMBER 


0191C 


F000 


927 




DC 


X'FOOO' EXP COND. CODE AND SENSE 


0191 E 


F970 


928 




DC 


AL2(EXCE-SECN0+REG) EXP CSW ADDRESS 


01920 


OA 06 


929 




SVC 


X«D6« ROUTINE EXIT 


01922 


000000000000 










01928 


RROf) 1 R 5D40000001 


930 


CHN3 


CCW 


X»8B» ,PRAR,X»40» ,1 


01930 


0B00185D40000001 


931 




CCW 


X»OB» ,PRAR,X , 40» ,1 


01938 


0B00185000000001 


932 




CCW 


X»OB» jPRAR.X'OO 1 ,1 


01 940 


noon l q ^ft 


933 


BRKUC 


DC 


A(BRKUC-8) 


01944 


06000001 


934 




DC 


X'06000001' 


01948 


00000000 


935 


NOCHN 


DC 


XL4«0» 


0194C 


08000000 


936 




DC 


X»08000000 s 


01950 


00000000 


937 




DC 


XL4«0« 


01954 


04000000 


938 




DC 


X , 04000000« 


01958 


A300185D40000001 


939 


UNEX 


CCW 


X»A3« ,PRAR,X»40» ,1 


01960 


0B00185040000001 


940 




CCW 


X^OB^ tPRAR 9 X a 40' v 1 


01968 


OB00185000000001 


941 




CCW 


X'0B«,PRAR,X»00»,1 


01970 


00001968 


942 


EXCE 


DC 


A(UNEX+16) 


01974 


05000001 


943 




DC 


x'osoooooi* 


01978 




944 




CNOP 


0,4 






945 


*********************************************************************** 






946 


* ROUTINE 02 


- DATA CHAIN A DIAGNOSTIC READ COMMAND, WITH THE COUNT 






947 


♦ 




EQUAL TO THE RECORD LENGTH. THE NEXT COMMAND IS INVALID 






948 






TO THE CHANNEL. INCORRECT LENGTH RECORD AT CHANNEL END 
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15MAR66 15N0V66 
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ID F831- 


EC'S 


125632 125655 


131812 






PAGE 8 



3 O O O O 3 3 3 3 3 3 3 3 3 3 3 3 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 
1403 PRINTER FUNCTION 2 



P/N 840106 
PAGE 8A 









949 


* 




TIME SHOULD BREAK 


THE CHAIN AND THE CCW WITH THE INVALID 








950 


* 




COMMAND SHOULD NOT 


BE USED. A DIAGNOSTIC READ WITH A 








951 






COUNT LESS THAN THE RECORD LENGTH IS NOW DATA CHAINED TO 








952 






COMPLETE TRANSFERING THE CORRECT RECORD LENGTH. THE 








953 


* 




SECOND CCW COMMAND 


FIELD IS INVALID TO THE CHANNEL- NO 








954 






CHANNEL PROGRAM CHECK SHOULD BE SET. 








955 


*********************************************************************** 


01978 


02 




956 


nni 1TA5 




X * 02 * 


KUU 1 1 nit IMUntJfcK 


01 979 


000908 




957 




nr 


ALJIKUUI U3— dCLINU J 


Annoccc nc mcvt ddiit imc 
AUUKtoo Ur NtA 1 KUUIlNc 


0197C 


45 40 


F 7B0 


958 




BAL 


R4, INIT 


BR. TO INITIALIZE 


01980 


41 AO 


F 9A8 


959 


G002 


LA 


RIO, RDCDA 


LOAD CCW ADDRESS 


01984 


45 BO 


F 10E 


960 




BAL 


R11,ISI0 


BR. TO ISSUE SIO 


01 988 


3A00 




961 




DC 


X^AOO 1 


CONTROL SWITCHES 


01 98 A 


0040 




962 




DC 


X«0040« 


TEST NUMBER 


m oar 


FOOO 




963 




DC 


X»F000» 


EXP COND. CODE AND SENSE 




F9B8 




70't 




DC 


AL2 ( WI ERD-SECN04REG ) 


EXP CSW ADDRESS 


01 990 


41 AO 


F 9C0 


965 




LA 


RIO, TRU 


LOAD CCW ADDRESS 


01 994 


45 BO 


F 10E 


966 




BAL 


R11,ISI0 


BR. TO ISSUE SIO 


01 998 


3A00 




Qi7 , 
70 1 " 




DC 


X«3A00» 


CONTROL SWITCHES 


01 99 A 


0050 




700 




DC 


X«0050» 


TEST NUMBER 


0199C 


FOOO 




969 




DC 


X , F0OO t 


EXP COND CODE AND SENSE 


0199E 


F9D0 




970 




DC 


AL 2 ( WORD-SECNO+REG ) 


EXP CSW ADDRESS 


019A0 


OA 06 




971 




SVC 


X»D6« 


ROUTINE EXIT 


019A2 


000000000000 












019A8 


0200185D80000084 


972 


RDCDA 


CCW 


X«02 , ,PRAR,X»80»,132 




019B0 


0000185D00000001 


973 




CCW 


X'OONPRAR.X'OOSl 




019B8 


000019B8 


974 


WIERD 


DC 


A (WIERD ) 




019BC 


0C400001 


975 




DC 


X , 0C400001« 




019C0 


0200185080000083 


976 


TRU 


CCW 


X f 02* , PRAR, X»80» ,131 




019C8 


0000185D00000001 


977 




CCW 


X»00» ,PRAR,X»00» ,1 




01900 


000019D0 


978 


WORD 


oc 


A (WORD) 




01904 


OCOOOOOO 


979 




DC 


X»OC00000O» 




01908 






980 




CNOP 


0,4 










98 1 


*********************************************************************** 








982 


* ROUTINE 03 


- ISSUE A NOP, COMMAND CHAINED TO A UCS PRE-CONDITION LOAD 








983 


* 




-EB- COMMAND. EXPECT COND. CODE 0 ON THE START 1-0. 








984 


* 




UNIT CHECK SHOULD 


BREAK THE CHAIN DURING INITIAL 








985 


* 




SELECTION OF THE - 


EB- COMMAND. COMMAND REJECT SENSE BIT 








986 






SHOULD BE SET. ON 


NON-UCS PRINTERS, -EB- IS AN INVALID 








987 






COMMAND. ON UCS PRINTERS THE -EB- MUST BE THE FIRST 








988 






COMMAND IN A CHAIN 


, OR COMMAND REJECT WILL BE SET. 








989 


*********************************************************************** 


01908 


03 




990 


ROUT03 


DC 


X»03» 


ROUTINE NUMBER 


01 909 


000A30 




99 1 




DC 


AL3(R0UT04-SECN0) 


ADDRESS OF NEXT ROUTINE 


019DC 


45 40 


F 7B0 


992 




BAL 


R4,INIT 


BR. TO INITIALIZE 


019E0 


41 AO 


F A18 


993 


G003 


LA 


R10,N0PEB 


LOAD CCW ADDRESS 


01 9E4 


92 EB 


F A20 


994 




MVI 


NOPEB+S.X'EB* 


SET UP PRE-CONDITION LOAD 


019E8 


45 BO 


F 10E 


995 




BAL 


R11,ISI0 


BR. TO ISSUE SIO 


019EC 


3800 




996 




DC 


x^eoo' 


CONTROL SWITCHES 


019EE 


0060 




997 




DC 


X»0060« 


TEST NUMBER 


019F0 


F080 




998 




DC 


X«F080' 


EXP COND. CODE AND SENSE 


019F2 


FA28 




999 




DC 


AL2(Z0T-SECN0+REG) 


EXP CSW ADDRESS 


019F4 


92 73 


F A20 


1000 




MVI 


NOPEB+S^'TS* 


SET UP BLOCK DATA CHECK 


019F8 


45 BO 


F 10E 


1001 




BAL 


R11,ISI0 


BR. TO ISSUE SIO 


019FC 


3800 




1002 




DC 


X»3800» 


CONTROL SWITCHES 


019FE 


0070 




1003 




DC 


X»0070« 


TEST NUMBER 


01A00 


F080 




1004 




DC 


X»F080 t 


EXP COND. COOE AND SENSE 


01A02 


FA28 




1005 




DC 


AL2U0T-SECN0+REG) 


EXP CSW ADDRESS 


01A04 


92 78 


F A20 


1006 




MVI 


N0PEB+8tX , 7B* 


SET UP ALLOW DATA CHECK 


01A08 


45 BO 


F 10E 


1007 




BAL 


R11,ISI0 


BR. TO ISSUE SIO 


01A0C 


3800 




1008 




DC 


x*380'o« 


CONTROL SWITCHES 


01A0E 


0080 




1009 




DC 


X^OOBO 1 


TEST NUMBER 


01A10 


F080 




1010 




DC 


X»F080» 


EXP COND CODE AND SENSE 


01A12 


FA28 




1011 




DC 


AL2 ( ZOT-SECNO-f REG ) 


EXP CSW ADDRESS 


01A14 


OA D6 




1012 




SVC 


X«D6 t 


ROUTINE EXIT 
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01 A16 


00 00 














Ul Ala 


030018 5D40000001 


mil 
i u ld 


NOPEB 


CCW 


X»03«,PRAR,X»40»,1 




01 A20 


EB00L8 5000000001 


1014 




CCW 


X^ER 1 ,PRAR,X«00» ,1 




Ul Ac O 


00001A28 


1U13 


ZOT 


DC 


A(ZOT) 




ai a or 


02000001 


lUlO 




DC 


X»02000001* 




01 A30 






1U1 ( 




CNOP 


0,4 




















into 
1 U I 


* ROUTINE 04 


- PRINT A LINE OF BLANKS, ISSUE DIAGNOSTIC CHECK R 








1020 


* 




CHECK FOR ALL PLC BITS BEING SET ON. 








lUit 1 


**************************************************************** 


01 A30 


04 




1 yjc-c 


RnilTf)4 


DC 


X • 04 * 


ROUTINE NUMBER 


01 A3 1 


f\r\n o no 




1023 




DC 


ai a f Rni]Trt5-^Ff NO ) 


ADDRESS OF NFXT ROUT INF 


01 A34 




r r dU 


1024 




BAL 


R4? IN I T 


BR. TO INITIALIZE 


01 A38 


4 1 AO 


F AFO 


1025 


G004 


LA 


RIOtPRCCW 


LOAD CCW ADDRESS 


01 A3C 


45 B0 


F 10E 


i n?A 

LVC.O 




BAL 


Rll , I SIO 


BR. TO ISSUE SIO 


Ul A*HI 


3 cuu 




1U£ f 




DC 


X • 3E0O* 


CTRL SWITCHES 


UlflHc 


0090 




1U£0 




DC 


X , 0090» 


TEST NUMBER 


01 A44 


F000 




1029 




DC 


X , F000» 


EXP COND CODE AND SENSE 


01 A46 


FAF8 




1030 




DC 


AL2(PRCSW-SECN0+REG) 


EXP CSW ADDRESS 


01 A48 


41 AO 


F 688 


103 1 




LA 


R10,DCKRD 


LOAD CCW ADDRESS 


U1AHU 


45 BO 


F 10E 






BAL 


Rll 9 ISIO 


BR. TO ISSUE SIO 


01 A50 


3A00 




1033 




DC 


X # 3A00* 


CONTROL SWITCHES 


01 A52 


0100 




1034 




DC 


X •0100 1 


TEST NUMBER 


01 A54 


F000 




1035 




DC 


X • F000 • 


EXP COND. CODE AND SENSE 


01 A56 


F690 




1036 




DC 


AL2(CRDCSW-SECN0+REG) 


EXP CSW ADDRESS 


01 A58 


92 00 


F AE4 


1037 




MVI 


SKORCH, X^OO* 


RESET SWITCH 


01A5C 


41 70 


0 084 


1038 




LA 


R7, 132 


SET UP TO CHECK 132 POSITIONS 


01 A60 


41 80 


F 71B 


1039 




LA 


R8»CKAR+1 31 


LOAD ADDR POSITION 132 


01 A64 


91 04 


8 000 


1040 


TECT 


TM 


0(R8) »X*04* 


CHECK FOR PLC BIT 


01 A68 


47 80 


F A8C 


1041 




BC 


NONE , ERED 


BR. IF NONE 


01A6C 


46 60 


F A70 


1042 


TIC 


BCT 


R8t *+4 


DECRIMENT ADDRESS 


01A70 


46 70 


F A64 


1043 




BCT 


R7, TECT 


BR. UNTIL 132 CHECKED 


01A74 


91 01 


F AE4 


1044 




TM 


SKORCH, X , 01 * 




01 A78 


47 80 


F A8A 


1045 




BC 


NONE , END04 


BR. IF NO ERR DETECTED 


01 A7C 


41 AO 


F AFO 


1046 




LA 


RIOtPRCCW 


SET UP TO LOOP ON PRINT 


01 A80 


45 BO 


F 52A 


1047 




BAL 


Rll. inPOUT 

IM 1 t AUiUU 1 


BR. TO PRINT LOOP OPTIONS 


01 A84 


000000000000 


1048 




DC 


XL6 9 0 • 




01 A8 A 


OA 06 




1049 


EN004 


SVC 


X * D6 * 


RfltJTINF FXIT 


01 A8C 


91 01 


F AE4 


1050 


CKCU 


TM 


Ol\UKt»n»A Ul 


ruprv cna UP AHI hid PR IMTPD 


01 A90 


47 10 


F AA4 


1051 




BC 


ALL ,NQHDR 


BR. IF IT WAS 


01 A94 


96 01 


F AE4 


1052 




01 


SKORCH, X»01» 


INDICATE HEADING PRINTED 


rti Aon 


OA 00 




inca 




SVC 


X»D0» 




01 A9A 


64 








DC 


X»64» 




Ul A^D 


09 




1UDD 




DC 


X»09« 




01 A9C 


FADB 




i net 




DC 


AL2( BLABRR-SECNO+REG ) 




01 A9E 


OA 00 




1057 




SVC 


X»D0» 




01 AAO 


64 




1058 




DC 


X»64» 




01 AA1 


IF 




1059 




DC 


X*1F* 




01 AA2 


FABC 




1060 




DC 


AL2 f MI THED-SECNO+REG ) 




01 A A4 


4E 70 


F 568 


1 UO 1 


NOHOR 


CVD 


R7,WORK 


CONVERT PRINT POSITION TO DEC 


01AA8 


F3 21 


F AE6 F 56E 


1062 




UNPK 


P0S4K3) ,W0RK+6<2> 




01AAE 


96 FO 


F AE8 


1063 




01 


P0S+3,X , F0« 




01AB2 


OA 00 




1064 




SVC 


X»D0» 


PRINT ERR POSITION 


01AB4 


AO 




1065 




DC 


X»AO« 




01AB5 


04 




1066 




DC 


X»04« 




01AB6 


FAE5 




1067 




DC 


AL2< POS-SECNO+REG ) 




01AB8 


47 FO 


F A6C 


1068 




BC 


UNCTIC 




01ABC 


40D703C340D506E3 


1069 


MITHED 


DC 


C» PLC NOT SET PRI • 




01AC4 


40E2C5E340D7D9C9 












01ACC 


D5E3C905C740C2D3 


1070 




DC 


C'NTING BLANKS IN« 




01AD4 


C1D502E240C9D5 












01A0B 


40E3E2E340F0F1F1 


1071 


BLABRR 


DC 


C» TST 0110« 


TEST NUMBER 


01AE3 


FO 














01AE4 


00 




1072 


SKORCH 


DC 


X»00« 




01AE5 


40E7E7E7 


1073 


POS 


DC 


C« XXX» 





DATE 
EC'S 



15MAR66 15N0V66 120CT67 
125632 125655 131812 



ID F831-5 
PAGE 9 



c c c c c o 



c c c c c c © c c 



IBM MAINTENANCE DIAGNOSTIC PROGRAM P/N 840106 

PAGE 9A 

1403 PRINTER FUNCTION 2 



01AE9 00000000000000 



01 AFO 


0100185000000084 


1074 


PRCCW 


CCW 


X'Ol 1 ,PRAR,X«00« ,132 




01AF8 


uuuu i a ro 




1075 


PRCSW 


DC 


A (PRCSW) 




01 AFC 


OHOOOOOO 

V O W WW \J\J 




1076 




DC 


X»08000000* 




01600 


00000000 




1077 




DC 


XL4"0 I 




01B04 


04000000 




1078 




DC 


X»04000000 t 




01B08 






1079 




CNOP 


0,4 










1080 










108 1 


* ROUTINE 05 


- THIS ROUTINE WILL RUN ON UCS PRINTERS ONLY- 








1082 


* 




COMMAND CHAIN A PRE 


-CONDITION LOAD -EB-, TO A BLOCK DATA 








108 3 


* 




CHECK COMMAND, TO AN ALLOW DATA CHECK COMMAND. COND. 








1084 


* 




CODE 0 SHOULD BE SET ON THE SIO. THE ENTIRE CHAIN 








1085 


* 




SHOULD BE EXECUTED. 


THE PRE-COND. LOAD LATCH BEING ON 








1086 


* 




BLOCKS COMMAND REJECT OF THE DATA CHECK COMMANDS , EVEN 








1087 


* 




THOUGH THEY ARE NOT 


THE FIRST IN A CHAIN. 








1088 


* 




COMMAND CHAIN A PRE 


-CONDITION LOAD -EB-, TO A DI AG READ, 








1089 


* 




TO ALLOW DATA CHECK 


COMMAND. THE DI AG READ SHOULD RESET 








1090 


* 




THE PRE-CONDITION LOAD LATCH, AND COMMAND REJECT SHOULD 








1091 






BREAK THE CHAIN ON 


THE ALLOW DATA CHECK COMMAND. 








1092 




01B08 


05 




1093 


R0UT05 


DC 


X»05» 


ROUTINE NUMBER 


01B09 


000B70 




1094 




DC 


AL3CR0UT06-SECN0) 


ADDRESS OF NEXT ROUTINE 


01B0C 


45 40 F 


7B0 


1095 




BAL 


R4,INIT 


BR. TO INITIALIZE 


01B10 


41 AO F 


B50 


1096 


G005 


LA 


RIO, BIGC 


LOAD CCW ADDRESS 


01B14 


92 73 F 


B58 


1097 




MVI 


BIGC^X^* 


SET UP BLOCK DATA CHECK 


0IB18 


58 10 F 


84C 


1098 




L 


Rl v SAVIT+4 




01B1C 


91 10 F 


0E1 


1099 




TM 


UNIT1+1,X»10» 


CHECK FOR UCS FEATURE 


01B20 


47 80 F 


B40 


1100 




BC 


N0NE,END05 


BR. IF NOT DEFINED 


01B24 


45 BO F 


10E 


1101 




BAL 


Rll, ISIO 


BR. TO ISSUE SIO 


01B28 


3A00 




1102 




DC 


X«3A00» 


CONTROL SWITCHES 


01B2A 


0120 




1103 




DC 


X'0120 8 


TEST NUMBER 


01B2C 


FOOO 




1104 




DC 


X«F000« 


EXP COND CODE AND SENSE 


01B2E 


FB68 




1 105 




DC 


AL2(BIGW-SECN0+REG> 


EXP CSW ADDRESS 


01B30 


92 02 F 


B58 


1106 




MVI 


BIGC+8,X*02« 


SET UP SENSE 


01B34 


45 BO F 


10E 


1 107 




BAL 


Rll, ISIO 


BR. TO ISSUE SIO 


01B38 


3800 




1108 




DC 


X«3800 f 


CONTROL SWITCHES 


01B3A 


0130 




1 109 




DC 




TEST NUMBER 


01 B3C 


F080 




1110 




DC 


X V, F080« 


EXP COND CODE AND SENSE 


01B3E 


FB44 




1111 




DC 


AL2(BUST~SECN0+REG> 


EXP CSW ADDRESS 


01B40 


OA 06 




1112 


END05 


SVC 


X«D6* 


ROUTINE EXIT 


01842 


00 00 














01 B44 


00001B68 




1113 


BUST 


DC 


A(BIGW) 




01 B48 


02000001 




1114 




DC 


X»02000001» 




01 B4C 


00000000 














01 B50 


EB00185D40000001 


1115 


BIGC 


CCW 


X»EB» »PRAft fX^O 9 ,1 




01 B58 


7300185D60000001 


1116 




CCW 


X«73» ,PRAR,X»60» ,1 




01 B6Q 


7B0O185D00O00001 


1117 




CCW 


X^B 1 ,PRAR,X»00« ,1 




01 B68 


00001B68 




1118 


BIGW 


DC 


A(BIGW) 




01 B6C 


0C000001 




1119 




DC 


X'OCOOOOOl 1 




01B70 






1120 




CNOP 


0,4 










1121 










1122 


* ROUTINE 06 


- ISSUE A UCS LOAD WITH FOLDING COMMAND. COND. CODE 1 








1123 


* 




SHOULD BE SET ON THE SIO, WITH UNIT CHECK IN THE CSW, 








1124 


* 




AND COMMAND REJECT 


IN THE SENSE BYTE. THE -F3- COMMAND 








1125 


* 




IS INVALID ON NON-UCS PRINTERS, AND ON UCS PRINTERS, THE 








1126 


* 




PRE-CONDITION LOAD 


LATCH MUST BE SET FOR THE COMMAND TO 








1127 


* 




BE ACCEPTED. REPEAT FOR LOAD NO FOLD -FB-. 








1128 




01B70 


06 




1129 


R0UT06 


DC 


X«06« 


ROUTINE NUMBER 


01B71 


000BC8 




1130 




DC 


AL3(R0UT07-SECN0) 


ADDRESS OF NEXT ROUTINE 


01B74 


45 40 F 


7 BO 


1131 




BAL 


R4,INIT 


BR. TO INITIALIZE 


01B78 


41 AO F 


7 AO 


1132 


G006 


LA 


RIOtRDCCW 


SET ADDR OF READ COMM IN REG 10 


01B7C 


45 BO F 


10E 


1133 




BAL 


Rll, ISIO 


BR. TO DO SIO 


01B80 


3800 




1134 




DC 


X 9 3SQO* 


CONTROL SWITCHES 


01B82 


0140 




1135 




DC 


X'OIAO* 


TEST NUMBER 
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01B84 


FOOO 








1136 




DC 


X'FOOO* 


EXP COND CODE - EXP SENSE 


01C40 


01B86 


F7A8 








1137 




DC 


AL2( WHOPS-SECNO+REG ) 


ADDRESS OF EXP CSW 


01C48 


01B88 


92 F3 


F 


BCO 




1138 




MVI 


LDUCS, X»F3« 


INSURE UCS LOAD WITH FOLDING OP 


01C50 


01B8C 


41 AO 


F 


BCO 




1139 




LA 


RIOtLDUCS 




01C58 


01B90 


45 BO 


F 


10E 




1140 




BAL 


R11,ISI0 


GO DO SIO 


01C60 


01B94 


3800 








1141 




DC 


x^eoo* 


CONTROL SWITCHES 


01C68 


01B96 


0150 








1142 




DC 


X»0150» 


TEST NUMBER 


01C70 


01B98 


F180 








1143 




DC 


X»F180« 


COND. CODE 1 - COMM. REJ. EXPECTED 


01C78 


01B9A 


FBB2 








1144 




DC 


AL2 ( FOLD-SECNO+REG ) 


ADDRESS OF CSW 


01C80 


01B9C 


92 FB 


F 


BCO 




1145 




MVI 


LDUCS, X»FB« 


INSURE UCS LOAD NO FOLDING 


01C88 


01BAO 


41 AO 


F 


BCO 




1146 




LA 


RIO, LDUCS 




01C90 


01BA4 


45 BO 


F 


10E 




1147 




BAL 


RllylSIO 


GO DO SIO 


01C98 


01BA8 


3800 








1148 




DC 


x»3800« 


CONTROL SWITCHES 


01CA0 


01BAA 


0160 








1149 




DC 


X»0160» 


TEST NUMBER 


01CA8 


01BAC 


F180 








1150 




DC 


X«F180» 


COND. CODE 1 - COM. REJ. EXPECTED 


01CB0 


01BAE 


FBB2 








1151 




DC 


AL2 (FOLD-SECNO+REG ) 


ADDRESS OF CSW 


01CB8 


01BB0 


OA D6 








1152 


END06 


SVC 


X»D6« 


ROUTINE EXIT 


01CC0 


01BB2 


00000000 






1153 


FOLD 


DC 


XL4 , 0» 




01CC8 


01BB6 


02000000 






1154 




DC 


X»02000000« 




01CD0 


01BBA 


000000000000 














01CD8 


01BC0 


F3001850000000FO 


1155 


LDUCS 


CCW 


X»F3 , ,PRAR,X»00 , ,240 




01CE0 


01BC8 










1156 




CNOP 


0,4 




01CE8 












1157 


************************************************** ********************* 


01CEE 












1158 


* ROUTINE 07 


- ISSUE ALL COMMANDS 


TO THE 1403, THAT SHOULD RESULT IN 


01CF6 












1159 


* 




COMMAND REJECT. EXPECT COND. CODE 1 ON EACH SIO, WITH 














1160 


* 




UNIT CHECK IN THE 


CSW. EXPECT COMMAND REJECT IN THE 














1161 


* 




SENSE BYTE. AFTER 


EACH INVALID, ISSUfc BLANK PRINT NO 














1162 


* 




SPACE, AND ANOTHER 


SENSE TO CHECK PROPER RESETING OF THE 


00000 












1163 


* 




SENSE INFORMATION. 




00007 












1164 


*********************************************************************** 


OOOOF 


01BC8 


07 








1165 


R0UT07 


DC 


X»07« 


ROUTINE NUMBER 


00008 


01BC9 


OOFFFF 








1166 




DC 


X«OOFFFF« 


ADDRESS OF NEXT ROUTINE 


00004 


01BCC 


45 40 


F 


7 BO 




1167 




BAL 


R4.INIT 


BR. TO INITIALIZE 


00001 


OIBDO 


41 20 


0 


0A3 




1168 


G007 


LA 


R2,163 


SET UP FOR 163 INVALIDS 


00005 


01BD4 


91 01 


F 


0E1 




1169 




TM 


UNIT1+1,X*01« 


CHECK FOR TWO CHANNEL SWITCH 


00008 


01BD8 


47 10 


F 


BEA 




1170 




BC 


ALL, ARG 


BR. IF DEFINED 


00004 


01BDC 


41 32 


F 


C40 




1171 




LA 


R3,ERTAB(R2) 


SET UP FOR 171 INVALIDS 


00002 


01BE0 


D2 07 


3 


000 


F CEE 


1172 




MVC 


0(8, R3) ,VC2CS 


» t 


00001 


01BE6 


41 22 


0 


008 




1173 




LA 


R2,8(R2) 




00008 


01BEA 


91 10 


F 


0E1 




1174 


ARG 


TM 


UNIT1+1,X»10» 


CHECK FOR UCS FEATURE 


00004 


01BEE 


47 10 


F 


COO 




1175 




BC 


ALL,LESS3 


BR. IF DEFINED 


00002 


01BF2 


41 32 


F 


C40 




1176 




LA 


R3,ERTAB(R2) 


SET UP FOR 174 INVALIDS 


00006 


01BF6 


D2 02 


3 


000 


F CF6 


1177 




MVC 


0(3,R3),VCUCS 


t , 


OOOOC 


01BFC 


41 22 


0 


003 




1178 




LA 


R2,3(R2) 


» , 


OOOOA 


01C00 


43 32 


F 


C3F 




1179 


LESS3 


IC 


R3,ERTAB-l(R2) 


PICK UP INVALID COMMAND 


00080 


01C04 


42 30 


F 


C30 




1180 




STC 


R3, CCWERR 


STORE IN CCW 


00181 


01C08 


41 AO 


F 


C30 




1181 




LA 


RIO, CCWERR 


LOAD CCW ADDRESS 


OFOOO 


01C0C 


45 BO 


F 


10E 




1182 




BAL 


Rllt ISIO 


BR. TO ISSUE SIO 


0005A 


01C10 


0800 








1183 




DC 


x^osoo' 


CONTROL SWITCHES 


00000 


01C12 


0170 








1184 




DC 


X'OITO* 


TEST NUMBER 


00001 


01C14 


F180 








1185 




DC 


X«F180« 


EXP COND. CODE AND SENSE 


00002 


01C16 


FC38 








1186 




DC 


AL2 ( RE J-SECNO+REG ) 


EXP CSW ADDRESS 


00003 


01C18 


41 AO 


F 


AFO 




1187 




LA 


R1CPRCCW 


LOAD PRINT CCW ADDRESS 


00004 


01C1C 


45 BO 


F 


10E 




1188 




BAL 


R11,ISI0 


BR. TO ISSUE SIO 


00005 


01C20 


3C00 








1189 




DC 


X»3C00» 


CONTROL SWITCHES 


00006 


01C22 


0180 








1190 




DC 


X , 0180« 


TEST NUMBER 


00007 


01C24 


FOOO 








1191 




DC 


X'FOOO' 


EXP COND CODE AND SENSE 


00008 


01C26 


FAF8 








1192 




DC 


AL2 ( PRCSW-SECNO+REG ) 


EXP CSW ADDRESS 


00009 


01C28 


46 20 


F 


COO 




1193 




BCT 


R2,LESS3 


BR. UNTIL ALL INVALIDS CHECKED 


OOOOA 


01C2C 


OA D6 








1194 




SVC 


X , D6« 


ROUTINE EXIT 


OOOOB 


01C2E 


00 00 


















OOOOC 


01C30 


0000185D0000000> 


1195 


CCWERR 


CCW 


X«00«,PRAR,X«OOS1 




OOOOD 


01C38 


00000000 






1196 


REJ 


DC 


XL4 , 0» 




OOOOE 


01C3C 


02000000 






1197 




DC 


X»02000000* 




OOOOF 


01C40 










1198 




CNOP 


0,4 


DEFINE BOUNDRY 


00198 



07F3FBFFFEFDFCFA 

F9F7F6F5F2F1EFEE 

EDECEAE9E7E6E4E2 

DFDEDCDAD7D6D2CF 

CECCCAC7C6C4C2BF 

BEBCBAB7B6B2AFAE 

ACAAA7 A4A29F9E9C 

9A9796928F8E8C8A 

878685848382817F 

7E7D7C7C7A797776 

757272716F6E6D6C 

6B6A696766656463 

62615F5E5D5C5B5A 

595756555352514F 

4E4D4C4B4A494746 

45444342413F3E3D 

3C3B3A3937363533 

32312F2E2D2C2B2A 

2927262524232221 

1F1E1C1A1716120F 

OEOCOAOOOOOOOOOO 

000000000000 

1434547494B4D4F4 

EB737B 



1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 



ERTAB 


DC 


X 


* 07F3FBFFFEFDFCFA • 




DC 


X 


•F9F7F6F5F2F1EFEE • 




DC 


X 


• EDECEAE9E7E6E4E2 * 




DC 


X 


•DFDEDCDAD7D6D2CF » 




DC 


X 


• CECCCAC7C6C4C2BF » 




DC 


X 


•BEBCBAB7B6B2AFAE • 




DC 


X 


•ACAAA7A4A29F9E9C • 




DC 


X 


•9A9796928F8E8C8A* 




DC 


X 


•878685848382817F* 




DC 


X 


•7E7D7C7C7A797776* 




DC 


X 


•757272716F6E6D6C 9 




DC 


X 


•6B6A696766656463 1 




DC 


X 


•62615F5E5D5C5B5A* 




DC 


X 


•595756555352514F' 




DC 


X 


•4E4D4C4B4A494746« 




DC 


X 


•45444342413F3E3D' 




DC 


X 


•3C3B3A3937363533* 




DC 


X 


•32312F2E2D2C2B2A* 




DC 


X 


•2927262524232221 • 




DC 


X 


•1F1E1C1A1716120F• 




DC 


X 


•OEOCOAOOOOOOOOOO* 




DC 


X 


•000000000000' 


VC2CS 


DC 


X 


•1434547494B4D4F4* 


VCUCS 


DC 


X 


•EB737B' 



*********************************************************************** 

* EQUATES * 

*********************************************************************** 



NEVER 


EQU 


0 


NCCO 


EQU 


7 


UNC 


EQU 


15 


NONE 


EQU 


8 


SOME 


EQU 


4 


ALL 


EQU 


1 


ANY 


EQU 


5 


CCO 


EQU 


8 


CC1 


EQU 


4 


CC2 


EQU 


2 


CC3 


EQU 


1 


EQ 


EQU 


8 


LO 


EQU 


4 


HI 


EQU 


2 


UNEQ 


EQU 


6 


EQLO 


EQU 


12 


EQHI 


EQU 


10 


LOGOUT 


EQU 


X«80« 


SYSMOD 


EQU 


X»181« 


REG 


EQU 


X»F000» 


WHAT 


EQU 


90 


RO 


EQU 


0 


Rl 


EQU 


1 


R2 


EQU 


2 


R3 


EQU 


3 


R4 


EQU 


4 


R5 


EQU 


5 


R6 


EQU 


6 


R7 


EQU 


7 


R8 


EQU 


8 


R9 


EQU 


9 


RIO 


EQU 


10 


Rll 


EQU 


11 


R12 


EQU 


12 


R13 


EQU 


13 


R14 


EQU 


14 


R15 


EQU 


15 


WT 


EQU 


408 
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0005A 


1264 


WAHT 


EQU 


90 


00040 


1265 


HCSW 


EQU 


64 


00048 


1266 


HCAW 


EQU 


72 


00009 


1267 


NMIXED 


EQU 


9 


00008 


1268 


Z 


EQU 


8 


OOOOD 


1269 


NCC2 


EQU 


13 


00004 


1270 


NOTZRO 


EQU 


4 


OOOOC 


1271 


MIXNON 


EQU 


12 


OOOOB 


1272 


NCC1 


EQU 


11 




1273 


* 








1274 


* 


GENERAL EC 




1275 


* 






00078 


1276 


HION 


EQU 


120 


001BC 


1277 


DM 10 


EQU 


444 


OOIAO 


1278 


DMSSW 


EQU 


416 




1279 




END 





NOT MIXED 0 3 

ZERO 0 
NOT BUSY 0 1 3 

NOT ZERO - AND - 1 
MIXED OR NONE 0 1 
CSW NOT STORED 0 2 3 



HARDWARE I/O NEW PSW LOCATION 
DMIO TABLE 
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01015 
0107C 
01669 
01670 
01689 
01690 
017A1 
017A8 
01929 
01931 
01939 
01940 
01959 
01961 
01969 
01970 
019A9 
019B1 
01988 
019C1 
019C9 
01900 
01A19 
01A21 
01A28 
01AF1 
01AF8 
01B44 
01B51 
01B59 
01B61 
01B68 
01BC1 
01C31 
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LABEL CROSS-REFERENCE BY STATEMENT NUMBERS 



LABEL 


LEN 


VALUE 


DEFN 


REFERENCES 




ALL 


1 


000001 


1231 


0501 


0543 


0566 










1175 






ANY 


1 


000005 


1232 


0797 






ARG 


4 


001BEA 


1174 


1170 






BIGC 


8 


001B50 


1115 


1096 


1097 


1106 


BIGW 


4 


001B68 


1118 


1105 


1113 


1118 


BLABRR 


9 


001ADB 


1071 


1056 






BLOOP 


4 


0017C4 


0860 


0881 






BRKUC 


4 


001940 


0933 


0916 


0933 




BUST 


4 


001B44 


1113 


1111 






CAW 


4 


001048 


0325 








CCWERR 


8 


001C30 


1195 


1180 


1181 




CCO 


1 


000008 


1233 


0523 


0529 




CC1 


1 


000004 


1234 


0530 


0610 




CC2 


1 


000002 


1235 


0531 






CC3 


1 


000001 


1236 








CHN3 


8 


001928 


0930 


0910 


0911 


0917 


CKAR 


1 


001698 


0846 


0843 


1039 




CLUIN 


16 


001811 


0883 


0876 






CROCSN 


4 


001690 


0844 


0844 


1036 




CSW 


8 


001040 


0324 








DCKRD 


8 


001688 


0843 


1031 






DMIO 


1 


0001BC 


1277 








DMSSW 


1 


0001A0 


1278 








ORAR 


1 


00171C 


0847 


0848 






END04 


2 


001A8A 


1049 


1045 






EN005 


2 


001B40 


1112 


1100 






END06 


2 


001BB0 


1152 








EQ 


1 


000008 


1237 


0545 


0641 




EQHI 


1 


OOOOOA 


1242 








EQLO 


1 


OOOOOC 


1241 








ERED 


4 


001A8C 


1050 


1041 






ERTAB 


8 


001C40 


1199 


1171 


1176 


1179 


EXCE 


4 


001970 


0942 


0928 






fcXNPSW 


5 


001058 


0327 








EXOPSW 


8 


001018 


0319 








FLAG1 


* 1 


00100E 


0315 








FLAG2 


1 


00100F 


0316 








FOLD 


4 


001BB2 


1153 


1144 


1151 




G001 


4 


0018EC 


0910 








G002 


4 


001980 


0959 








G003 


4 


0019E0 


0993 








G004 


4 


001A38 


1025 








G005 


4 


001B10 


1096 








G006 


4 


001B78 


1132 








G007 


4 


001BD0 


1168 








GREG 


4 


00118C 


0522 


0524 






HANGUP 


6 


0017DE 


0866 


0861 






HCAW 


1 


000048 


1266 


0495 


0606 


0795 


HCSW 


1 


000040 


1265 


0496 


0496 


0537 


HI 


1 


000002 


1239 








HI ON 


1 


000078 


1276 








HUNG 


16 


00182C 


0886 


0873 






IACSNS 


11 


0015F0 


0827 


0622 


0762 


0763 


IACT 


3 


0015DF 


0824 


0581 


0736 


0746 


IACTCC 


10 


00158A 


0810 


0527 


0532 


0534 


IBLAH 


16 


0015C5 


0822 


0579 


0581 


0693 


IBLE 


4 


001200 


0550 


0545 






IBSN 


6 


001316 


0624 


0596 


0600 


0602 


ICAW 


12 


0015B3 


0819 


0684 


0687 


0688 


ICCOUT 


6 


00142C 


0713 


0683 


0699 





0543 0566 0590 0598 0614 0617 0646 0673 0799 0861 1051 1170 



0536 
0706 



0692 



0837 

0540 0544 0546 
0707 0711 0723 



0624 
0727 



0722 

0736 0741 



0746 



iccswi 


6 


001338 


0632 


0631 










ICCSW2 




00 135A 


0640 


0639 










ICCW 


3 


0015C2 


0821 


0693 










ICHNG1 




00146A 


0732 


0729 










ICHNG2 


6 


00149A 


0742 


0731 










ICM 


2 


00 100A 


0312 












ICNT 


1 


001427 


0710 


0580 


0694 


0724 






ICOUT 


2 


001410 


0702 


0582 


0697 


0733 


0738 


0743 


ICSW 


3 


0015BF 


0820 


0579 


0723 








ICSW1 


8 


00 1652 


0835- 


0537 


0548 


0567 


0597 


0632 


ICSW2 


8 


00165A 


0836 


0585 


0601 


0640 


0640 


0747 


ICWOUT 


6 


0013F6 


0696 


0701 










IDID 


4 


0014A4 


0744 


0740 










IDIDI 


4 


001474 


0734 


0726 










IDOSNS 


4 


0012C0 


0603 


0594 


0598 


0877 






IDUNCK 


4 


001368 


0643 


0615 


0618 


0641 






IEXP 


3 


0015E2 


0825 


0727 


0741 








IEXPCC 


10 


001580 


0809 


0713 


0718 








IEXSNS 


1 1 


0015E5 


0826 


0749 


0754 


0755 


0759 




IEYEOH 


6 


00111E 


0492 


0482 


0487 








IFLAG1 


1 


001398 


0657 


0643 


0649 








IFLAG2 


1 


00152C 


0788 


0644 


0650 








IHANG 


4 


00116C 


0513 


0518 










IHI 


4 


001184 


0520 


0512 


0516 








IHIO 


4 


i 0010£6 


0478 












ILEAVE 


4 


001548 


0800 


0648 










ILINK 


16 


0015A3 


0815 


0662 


0665 


0666 


0670 


0794 


ILOKE 


4 


001300 


0619 


0610 










ILOOP 


4 


00115C 


0509 


0481 


0484 


0489 






IMORST 


4 


00148C 


0739 


0735 










INDER 


4 


001364 


0642 


0608 


0614 


0617 


0623 


0625 


INI T 


2 


0017B0 


0854 


0909 


0958 


0992 


1024 


1095 


IN0EX1 


4 


0012E8 


0613 


0627 










INDEX 2 


4 


0012F4 


0616 


0635 










INOW 


4 


00 HOC 


0541 


0501 


0533 


0535 


0539 




INPSW 


5 


001010 


0317 












INT3 


4 


001280 


0587 


0569 










IOADDR 


1 5 


001594 


08 1 1 


0480 


0486 


0491 


0677 


0681 


IOADR 


3 


001 A70 


0838 


0676 










I OCSW 




00 1442 


0723 


0673 










1 OLOG 


16 


00 15FB 


0828 


0775 


0776 


0777 


0778 


flTP!> 
U I 


I ONE 






0536 


0530 














00 1 07ft 


0332 












1 uur Jn 


8 


OO 1 O 

\J\J IV ZfO 


0323 


0562 


0573 








I OPOUT 


2 


00 152 A 


0787 


0769 


0784 


1 OA7 
IU*t f 






1 OPT 1 


1 6 


oo 1 fi?n 


08 31 


0479 


0485 


0490 


0790 




IOUTI T 




00 1388 


0651 


0646 










IPAS 


6 


0014BC 


0749 


0745 










IPASS 


4 


0014E6 


0768 


0584 


0751 








IRETRN 


4 


001224 


0562 


0333 










ISAVE 


8 


001560 


0807 


0494 


0804 








ISEN 


4 


001298 


0593 


0543 


0547 


0549 


0558 


0588 


ISENSE 


8 


001668 


08 37 


0605 










ISIO 


4 


00110E 


0488 


0912 
1140 


0918 
1147 


0924 
1182 


0960 
1188 


0966 


ISLAVE 


8 


001680 


0842 


0493 


0714 


0869 






ISSUE 


4 


0011A6 


0528 


0478 


0483 


0488 


0682 


0838 


ISV2 


6 


001276 


0585 


0566 










ISW 


2 


0010E4 


0473 


0525 


0525 


0526 


0538 


0541 










0589 


0591 


0595 


0599 


0613 










0744 


0750 


0783 


0785 


0798 


ITIC 


4 


0012E0 


0611 


0620 










ITIO 


4 


0010FA 


0483 












ITIOLP 


4 


0012D8 


0609 


0611 










ITRY1 


4 


001154 


0507 


0510 


0514 


0797 







0748 



0590 



0550 



1001 1007 1026 1032 1101 1107 1133 



0553 0557 0564 0565 0568 0583 0586 
0621 0628 0636 0642 0645 0734 0744 
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ITRY2 


4 


001164 


0511 


0508 








ITSTNO 


9 


001617 


0830 


0492 


0651 


0654 


0655 


ITWO 


4 


0011BE 


0534 


0531 








IUIO 


6 


001246 


0570 


0563 








IUNEX 


11 


001675 


0841 


0574 


0578 






IUP 


4 


001554 


0803 


0801 








IWAIT 


4 


001204 


0551 


0592 


0786 






IZERO 


4 


0011D8 


0540 


0529 








JOHN 


6 


001198 


0525 


0503 


0523 






LDUCS 


8 


001BC0 


1155 


1138 


1139 


1145 


1146 


LESS3 


4 


001C00 


1179 


1175 


1193 






LO 


1 


000004 


1238 










LOGOUT 


1 


000080 


1243 


0499 


0499 


0770 




MCNPSW 


8 


001070 


0331 










MCOPSW 


8 


001030 


0322 










MITHEO 


16 


001ABC 


1069 


1060 








MIXNON 


1 


OOOOOC 


1271 










M0D44 


4 


00 1144 


0500 


0498 








M0050 


4 


001858 


0891 


0859 








MSK1 


1 


001673 


0839 


0554 








MSK2 


1 


001674 


0840 


0556 








NCCO 


1 


000007 


1227 


0514 


0608 


0620 




NCC1 


1 


OOOOOB 


1272 










NCC2 


1 


000000 


1269 










NEVER 


1 


000000 


1226 










NIOU 


1 


001000 


0314 










NITWIT 


4 


00 17BC 


0858 


0856 








NMIXED 


1 


000009 


1267 










NOCHN 


4 


001948 


0935 


0922 








NOHOR 


4 


001AA4 


1061 


1051 








NONE 


1 


000008 


1229 


0503 


0508 


0512 


0516 










0637 


0648 


0699 


0726 










1045 


1100 






NOPEB 


8 


001A18 


1013 


0993 


0994 


1000 


1006 


NOTZRO 




000004 


1270 










PGNPSW 


8 


00 1 OAR 


0330 










PGOPSH 


8 


001028 


0321 










POS 


4 


00 1AE5 


1073 


1062 


1063 


1067 




PRAR 


\ 


oo l Rsn 


0893 


0862 


0864 


0864 


0930 










1013 


1014 


1074 


1115 


PRCCW 


8 


001AF0 


1074 


1025 


1046 


1 187 




PRCSW 


4 


00 1AF8 


1075 


1030 


1075 


1 192 




RDCCW 


8 


00 17 AO 


0848 


1 132 








ROCDA 


8 


0019A8 


0972 


0959 








REG 


I 


OOFOOO 


1245 


0578 


0659 


0670 


0681 










0873 


0876 


0916 


0922 










1056 


1060 


1067 


1105 


RE J 


4 


001C38 


1196 


1186 








R0UT01 


1 


0018E4 


0907 


0318 








R0UT02 


1 


001978 


0956 


0908 








ROUT03 


1 


001908 


0990 


0957 








R0UT04 


1 


001A30 


1022 


0991 








R0UT05 


1 


001B08 


1093 


1023 








R0UT06 


1 


001B70 


1129 


1094 








ROUTO? 


1 


001BC8 


1165 


1130 








RTSAV 


1 


001810 


0882 


0863 


0866 






RO 


1 


000000 


1247 










Rl 


1 


000001 


1248 


0520 


0521 


0524 


1098 


RIO 


1 


OOOOOA 


1257 


0493 


0495 


0684 


0695 










0959 


0965 


0993 


1025 


Rll 


1 


OOOOOB 


1258 


0492 


0493 


0500 


0542 










0662 


0671 


0671 


0672 










0803 


0803 


0805 


0869 










1026 


1032 


1047 


1101 


R12 


1 


OOOOOC 


1259 


0509 


0513 


0517 


0522 
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0999 
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1036 


1056 


1111 


1137 


1144 


1151 
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1192 








0696 


0698 


0700 


0700 


0714 


0795 


0869 


0910 


0923 


1031 


1046 


1096 


1132 


1139 


1146 


1181 


1187 




0587 


0593 


0622 


0624 


0626 


0630 


0634 


0651 


0661 


0713 


0725 


0728 


0739 


0749 


0800 


0802 


0802 


0803 


0912 


0918 


0924 


0960 


0966 


0995 


1001 


1007 


1026 


1107 


1133 


1140 


1147 


1182 


1188 








0528 


0562 


0607 


0609 


0858 


0859 
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1 260 
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I 
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0958 
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I 
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R6 


i 
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R7 


I 


UUUUU f 


1254 


1038 
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I 
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0942 






UNIT1 
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0010E0 


0335 


0858 


1099 


1169 


1174 


U1ADDR 


2 


0010E2 


0337 










U10P 


1 


0010E1 


0336 










VCUCS 


3 


001CF6 


1222 


1177 








VC2CS 
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001CEE 


1221 


1172 
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1246 
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COLS. 



1 THROUGH 20 



COLS. 21 THROUGH 40 



BESD AA..AAXF83 

9 YU Y9 

99 9 



BTXT. AAA. 
9 YQY 
999 

BTXT.AA8. 
9 YQ9 
99 

BTXT. AA&. 
9 YQ- 
990 

BTXT.AAS. 
9 YQ8 
99 



>A8. .AA81&A 
Y9 Y9 9 Y 
9 9 9 

» A8. • AAAAAA 
Y9 Y9YYYY 
9 9 9999 

.AA. .AAAAAA 
YU Y9YYYY 
99 9 9999 

• A8. • AACAAA 
Y9 Y90YYY 
9 9 9 9 



BTXT. AJQ.. A8. • AA65BS 
9 Y99 Y9 Y9 9- 
9 9 9 

BTXT. AJS..A8. .AAGA1H 
9 Y9 Y9 Y9ZY - 
9 9 9 



BTXT.AJH..A8. 
9 Y90 Y9 
9 9 

BTXT.AJC..A8. 

9 Y9- Y9 
9 9 

BTXT.AJ8..A8. 

9 Y9 Y9 
9 9 

BTXT.AKA..A8. 

9 Y9Q Y9 
9 Z 9 

BTXT.AKQ..A8. 

9 Y9Z Y9 
9 9 

BTXT.AKJ..A8. 
9 Y9Y Y9 

9 9 

BTXT.AKQ..A8. 

9 Y9 Y9 
9 9 



» AAHAAC 
Y90QY9 
9 99 

• AA5GG0 
Y9 YZ 
9 

» AAAH6F 
Y9-9 R 
9 

»AAA.OU 

Y9- 
9 

» AA5GEA 
Y9 QZQ 
9 9 

.AAA.OU 
Y9- 
9 

■ AAEAGA 
Y9QY-Y 
9 9 9 



15..AAAA.AD9 

YYQY Y8 
9999 99 

AAAAAAAAAAG AADAAAAQU 
YYYYYYYYY9-Y99YYYY9 
999999999 9 9999 

A AAA AAA AAAAAA AAAAAA A 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 



AAAAADAAAAKU 

YYYY99YYYY99 
9999 9999 

AABF 1OBH65BH5JBF1MG0 
YY-Q 0- 9- Y-Q 8Z 
99 

5JKA6MABAL6AAI5-GNAH 
Y 9 8Q9QY YQO YYZ 
90 9 

AA0DGA1MDA&AG01DA.0D 
-Y 9ZY ZQY-YZ R- 9 
9 9 

EAGAGA1HFA1DPA0U0UFA 
QY-YZY -ZQ Y 9 - Y 
9 9 9 

1DB15GKG6B-.F.0UG01D 
Q- Y 9 RO - Z Q 
9 9 

GA2HFA0UHFAHHAACFA0U 
ZY — Q RQ9-0QY9-Y 
9 9 

GA2FKG6B0.F.0UG02AKG 
ZQ R 9 R - ZY9 
9 0 

4AFB0UG04WKG6K0. F JOU 
Q-9 Z 9 8 -Y 
9 9 

GA30AB6FGA26AJ0UGA30 
ZY 9-9 RZQ — Y ZY 9 
9 9 

G.3AFA2QG030A.0UGA3M 
Z YZQ Z 9- ZQ Z 
9 9 



COLS. 41 THROUGH 60 
840 



AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

AAAAAAAAADA AAA AAAAAA 
YYYYYYYYY9YYYYYYYYYY 
999999999 9999999999 



10BE10BE1MBT65BT5 JGO 
8-Q 0-Q 8- 9- YZ 
9 

PG-.-.EAJAG-1DPCAAAA 
90 0 -QZOZ Z 8YYYY 
Z 99 9 

GA1DEACAG&1DA.0DGA1D 
ZY OQY-YZ- R- 9ZY 0 
9 9 0 

0UBX5GDASAGA1QG. 1FG J 
- YQY-YZY Z ZY 
9 9 9 

B05GD70UA. AAGA2HE05G 
- Y-8 - QYZQ — Y 
09 9 

AA6CFA2MAA6DD70UG02H 
YY RZQ 9YY R-8 Z - 
9 0 9 0 

5Q0.BEACA1F2B-MC6EKB 
Z 8QY9Y89880Z8 R 9 
999 99 9 9 0 

AAAAGA2HAH0UGA2HFH0U 
-QQYZY — 9 ZQ — 9 
909 9 

AB60GA30HFAHHAADAA6Q 
-9 8ZY 9RQ9-0QY9ZY Z 
9 

G03QAJ0UGA3MG03QED-D 
Z Z-Y ZQ ZZ Z-80Z 
9 9 9 



COLS. 61 THROUGH 80 
107. 131812. .83150001 



AAAAAAAAAAAA83 150002 

YYYYYYYYYYYY 

999999999999 

AAA AAA AAA A AA83 150003 

YYYYYYYYYYYY 

999999999999 



.83150004 



10BD10BD1MBS83 150005 
8-Q 0-Q 8- 
9 

AAAAGA1DA&0D83 150006 
-YQYZQ Q— 9 
09 9 9 

0 AG AGO 1UH0AH8 3 150007 
QY-YZ 8R89- 
9 9 9 

1FB35GG01DB283 150008 
Q- YZ Q- 
0 9 

GA2AE15GG-2H83 150009 
ZY Y- YZ - 
9 

AC02G-2FD70U83 150010 
8- 8Z Z-8 
9 

5F5GBK4XKB5D83150011 
Q-8 9 9 Q 
0 9 9 

G02DABAAGA2683 150012 
Z 9-9QYZY - 
09 

6EAHDA6AG63M83150013 
YYZQY-YZ- Z 
9 9 9 0 

G62SFD0UNA5583150014 
Z- 8-9 Y 
0 9 
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BTXT. ALA. 
9 Y9Q 
9 9 

BTXT. ALH. 
9 Y9Z 
9 

BTXT. ALA. 
9 Y9Y 

9 

BTXT. ALH. 

9 Y9- 
9 0 

BTXT. ALO. 
9 Y9 
9 

BTXT. AMY. 
9 Y99 

9 

BTXT. AM-. 
9 Y9 
9 

BTXT.AMH. 
9 Y9- 
9 

BTXT. AM-. 

9 Y90 
9 

BTXT. ANH. 
9 Y99 
9 

BTXT. AN.. 
9 Y9 
9 

BTXT. ANA. 
9 Y9Y 

9 

BTXT.ANL. 
9 Y90 
9 

BTXT. ANC. 
9 Y9- 
9 0 

BTXT.ANL. 
9 Y9Y 
9 9 

BTXT. AOT. 
9 Y99 
9 



.A8..AAAEG- 

Y9 Y9Q9Z 
9 9 0 

• A8. • AA24AJ 
Y9 Y9 -Y 
9 9 9 

• A8. • AABU3H 
Y9 Y9-9 - 
9 9 

.A8. .AAAAAA 

Y9 Y9-YQY 
9 9 09 

• A8. • AA4X&J 
Y9 Y9 9 Y 
9 9 

.A8..AA5EG9 

Y9 Y9 9 
9 9 

• A8. • AA4WAH 
Y9 Y9 8Z0 
9 9 

• A8. • AA5SKG 
Y9 Y9 9 

9 9 

• A8. • AAEKB- 
Y9 Y99Y80 
9 9 99 

• A8. • AAKE6B 
Y9 Y9 9 8 
9 9 9 

. AY. .AA1DAA 
Y9 Y9 R-9 
9 9 

. AU. .AA.CC. 

Y9 Y9 
9 9 

. AJ. .AA. ADR 

Y9 Y9 
9 9 

.A8. .AA.CAW 

Y9 Y9 
9 9 

.A8. .AAX.EX 
Y9 Y9 
9 9 

. A8. .AA.0.0 

Y9 Y9 
9 9 



3MNA5GADG-3MAHAAGA2Y 
Z Y YQ9Z Z-9QYZY 
9 0 09 

0UGA3MAHAH. A30NG6K6K 
ZY ZZ0Y9 Y 8 9 8 8 
9 

BA5UKA6MABBEABFMFMB- 
-Y 8 9 8Q98QY9989880 
9 90 999 9 99 

GA4BBEACF6EI B-SG5DED 
ZQ Z8QY99-9-8088 — Q 
9 999 0 9 9 

8DKG5QJAEA4AACJDGA4U 
R 9 ZYYZQ Q — Y9ZY 8 
9 9 9 

KA5EADHJ6AB-SB5AB-SB 
Y 0Q9RY Y8088 Y8088 
9 0 9 9 9 9 

AH. A4FKG5Q5QEA4AA.0U 
Y9 Y Q 9 Z ZZQ Q- 
9 9 

5Q5QEA4AAJ0UGA4DKB5D 
Z ZZQ Q-Y ZY Q 9 Q 
9 9 0 9 

SC5VBEAAE5E5B-SC50EA 
88 8QY99 9 8088 -Q 
9 999 9 9 Z 

5BK E6J52B-SM5CAB0UGA 
R 9 9 88088 Q-9 ZY 
0 9 9 Z 

OVGN AHA AG A5DAC ABACA F 
99-9QYZY RZQY9ZQY9 
09 09 09 

• X.EXP .OCX. ACT .ADR 



•XXXXXX.LINKA 

Y 
9 

•XXXXXX.CSWCCW.CSW.X 



P.SNS.XX.ACT.LOG. XX. 



N.FOR.LOOP.ON.XIOT.S 
8 



A.0UGA3MHCAF.A34NG6B 
ZY ZZYY9 Y 8 9 R 
9 9 

GA3QFA0UBM3HBG5UAA0U 

ZY Z-9 -Z 8-9 

9 

MA6PAAADLHCA5QBEACER 
Z8 9ZYY98- Q 08QY990 
9 9 90 0 999 

10G-4UCJ5HBEACEI EHB- 
OZ 8 Y -8QY99-9-80 
9 0999 0 09 

AKAHG036BEAHEQEQKG5B 
ZYY9Z 8QY99Z9Z 9 Y 
9 999 9 

5BKB5F5GBK4XAHAAGA4D 
Y 9 Q-8 9-9QYZY R 
0 9 09 0 

GA4DKB5D5GKG5Q6BEA4A 
ZY Y 9 Q Q 9 Z RZQ Q 
9 9 9 

5GKG5Q6KEA4AKA5KAEAD 
Q 9 Z 8ZQ Q Y YQ9-9 
9 9 9 90 

JAG-5SKC5QAABEADEQEQ 
ZOZ 8 8 ZYY8QY89Z9Z 
9 9 9 9999 

5SDE0UG02DB-G26JB-JA 
8-Q Z 980-9 Y80Y9 
9 Z 9 99 

HI5-GCGAA A AAAAAA. ... 
-0 9Q9YYYYYYYYY 
Z 999999999 



.XXXXXX.XIOA. 

Y 
9 



XXXXXXX.XXXXXXXX.EXP 



XXXXXX.XXXXXX.XXXXXX 



S.l.ON.FOR.TIO.SIO.L 



6BG-3MADAAGA83150015 
RZ Z-9QYZY 
09 

GA3HAA0DGA5H83150016 
ZQ 0-9 9ZY Z 
9 

EQB-SA5LACAD83150017 
90808Q 0ZQY9 
9 9 09 

SC5CKB5F5BB083150018 
88-9 -9 
9 0 

5QKG5L5SB-SK83150019 
Z 9 -8088 
09 9 

KB5D5SHCAF.A83 150020 
9 Q ZYY9 Y 
9 9 

ADAAGA4MKB5D83150021 
-9QYZY 0 9 Q 
09 9 

0UGA4WBEAAEK83 150022 
ZY 8QY99Y 
999 9 

KA6A5QKE6C5683 150023 
9 Y Z 9 9 - 
9 

5L£NAHA£0DG£83 150024 
0 YYZ— 9Z 
9 



.83150025 



•83150026 



•83150027 



ACTEXP.SNS.X83 150028 



. TST.XXXX . SS83 150029 



00PAAAAAAAAA83 150030 
YYYYYYYYY 
999999999 



DATE 
EC'S 



15MAR66 15N0V66 120CT67 
125632 125655 131812 
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BTXT. AOL.. A8. 

9 Y98 Y9 
9 9 

BTXT. AOC..AE. 
9 Y9- Y9 
9 9 



• AAAAAA 
Y9YYYY 
9 9999 

• AAAOAA 
Y9Q8YY 
9 999 



AAAAAAAAADAN5AAAAAJ0 
YYYYYYYYY9Y9 YYY9Y90 
999999999 9 999 9 



FA.UIO.XXXXXXAAAAAAA 
Q9 YYYYYYY 
Z 9999999 



AFA0HAAADAA083 150031 

Y9Y9-YYY0YY9 

9 9 999 99 



.83150032 



BTXT.APJ..A8. .AABAPM AAADAAPQDAAAL EA. JFGA 

9 Y9Y Y9 Y99Y98 YYY0YY908YYY8Q- Z-ZY 

9 9 9 9 9 999 99 999999 



7DQGHS0SDG8HAA0UGA7F 
Q9QR- 8R- R-Y ZQ Q 
0 9 9 9 



B. 8NKA8 A0CKB83 150033 
- 8 Y Q 9 0 
9 9 



BTXT.APQ..A8. 

9 Y9 Y9 
9 9 



•AA808N G4KA0C8ADF0VFA0VHL6A 
Y9 8 8 9 Y 9 Q-Q -9 -Y Y 

9 9 9 Z 



B-MK8UB-JJ8JE62&BA0U 
80Z8 880Y8 9Z — Y 
9 9 99 9 9 



D70UBA0CG07D83 150034 
-8 -9 9Z 



BTXT.AQA..A8. 

9 Y9Q Y9 
9 9 9 



• AAA.SE 
Y9Y 
9 9 



E.DESCRIPTION-COMMEN 



TSGA. PREVIOUS. HANG. U 
9Y 
9 



P. DETECTE0GA83 150035 
9Y 
9 



BTXT.AQH..AN. 

9 Y9Z Y9 
9 9 



•AAAAAA AAAAAAAAAAAAAA7G. 
Y9YYYY YYYYYYYYYYYYYY8Q 
9 9999 999999999999999Z 



.83150036 



BTXT.AQJ..A8. 

9 Y9Z Y9 
9 9 



• AAAGAA AAHE.7AAJ9YB.9UEA IF 8 

Y9Y9Y9 Y8RZ QZY 9- 8ZQ 89 

9 9 9 990 0 9 0 9 



AAA0A9.BC9UEA1F6AA Jl 
YYQ 9 — 8ZQ 88YYY 
999 9 0 99999 



A9HA J9HEA 1F283 1500 37 
Y ZZY RZQ 88 
9 0 99 



BTXT.AJJ..A8. 

9 Y88 Y9 
999 9 

BTXT. AJA..A8. 
9 Y8R Y9 
99 9 

BTXT.AJI..A8. 

9 Y80 Y9 
99 9 



•AAAAAO A9CB0AAAAAACAQN. AAAC 

Y9YYQ Y -8 YYYYYYYY98 YY98 

9 99Z 9 09 999999 9 99 9 

• AAAAAD AAALAQN • AAA CAQN. AAAC 

Y9YYY9 YYY0Y98 YY98Y98 YY98 

9 999 999 9 99 99 99 9 

• AAAA.O A9HAJ9CEA 1F2AAC0A9— B 

Y9YY Y -ZY -ZQ 88YY Y 08 

9 99 9 0 0 9999 9 9 



AQN. AAACAQNAAAAAA J8F 

Y98 YY98Y98YYY9YY899 
9 99 99 999 999 

AQNAAAAAA JQE AAABAAQE 
Y98YYY9YY8Z9YY99Y8 Z 
9 999 999 99 99 

OAAAAAABAQNAAADAAQNA 
YYYYYY9Y98YYY0YY98Y 
999999 9 99 99 9 



AAAAAAAHAAAA83 150038 

YY9YYYY9YYYY 

99 9999 9999 

•7AAJ9QEA1F283 150039 
QZY OZQ 88 
0 0 99 

AAA AAJHD. A AB83 150040 
YY9YY8-8 Y99 
99 99909 9 



BTXT. AJA..A8. .AAAQNA AAC A AQN AAAAAA J-DAAAC 

9 Y8 Y9 Y9Y98Y YY0YY98YYY9YY808YYY9 
99 9 9 9 99 99 999 999 9999 



ABAE.7AA JBQBLB JE A1F8 
Y8QZ QZYQ9-YQYZQ 89 
99Z 0 Z 9Z9 0 9 



AA-0ABYBCBJE83150041 
YY YQ9-RQYZ 
99 Z 0Z9 



BTXT. A J9. . A8. . AAA1F8 AA&0ABYB3BJEA1F8AAA0 
9 Y8 Y9 Y9Q 89 YY- YQ9-8QYZQ 89YYY 

99 9 9 0 9 990 Z Z9 0 9 99 



ABYBOAAC AQN. AAALAQN A 
YQ98 YY9Y98 YY9YY98Y 
Z 9 99 9 99 99 9 



AAAAAKYBAAAD83 150042 

YY9YY899YY99 

99 999 99 



BTXT. AK1.. A8. .AAACHE . 7AA JB0EA1F6AAA0AB8A 
9 Y89 Y9 Y9Y89Z QZYQ ZQ 88YYQ YQ Z 

99 9 9 99 0 Z 0 9999 9Z 

■A8..AAABDF AB&F&BMAABUGABBA JBOE 

Y9 Y9YQYZ YQ-Z-QZ-9Q ZYQYZYQ Z 
9 9 Z ZO OZ Z Z Z 



BTXT.AK/. 
9 Y88 
99 



J6HEA1F2AAA0A6ABABUA 
Y OZQ 88Y9Y Y Q-YQ Z 
0 999 9 9 9Z 

A5SAAAAAAB0AABUGABMF 
Q 8YYYYYY8 -9Q ZQQO- 
0 99999999 Z 9Z 



GADAA7LADAAG83 150043 
-YOZY 8-9YYZ 
09 9 9 

ABUB-MABCB-M83 150044 
9Q 80Z8QQ80Z 
Z 9 9Z99 



BTXT. AKJ. • A8. .AAPBDF 65Q3/BW5WF0BYB-JDBVG 
9 Y80 Y9 Y98QQ8 - Z 9Q 8- Q 80Y9Q Z 

99 9 9 9Z0 0 Z Z 8 9 Z 



OBU.PLC.NOT.SET.PRIN 
Q8 
Z 



TING. BLANKS. 83150045 



BTXT.AKR.. A8. .AAIN.T 5T.0 110A.XXXAAAAAAAA 

9 Y8 Y9 Y9 Y YYYYYYY9 

99 9 9 9 9999999 



AQNAAA0AAK8HAAAA AAAD 
Y98YYY0YY8 9YYYYYYY9 
9 999 999 9999999 



AAAEAC6E. 7 AA83 150046 
YYY9Y8-Z QZ 
999 990 0 
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BTXT.ALJ. 

9 Y89 
99 



,A8. .AAJC6B 
Y9 Y9YQ - 
9 9 Z 



CCHHA8DAA0JGAC .EA1F2 
RQRRQ 8-Q ZZYQ ZQ 88 
OZ 9 9 Z 0 99 



AAJ0ACQBBCHEA1F8AAA0 
Y9Y YQZ-9QRZQ 89Y9Q 
99 9Z Z099Z 



ACDB0AAAALQB83 150047 
YQZ8 YYYY8Z9 
Z 9 99999 



BTXT. ALA. 
9 Y88 
99 



. A8. .AAAAAA 
Y9 Y9YY9Y 
9 9 99 9 



AAALAQN. A AACAQN-AA A3 
YYYYY98 YY9RY98 YY98 
99999 99 09 99 



AQNAAAAAALQDAAAFACHE 
Y98YYY9YY8Z8YY99Y8 Z 
9 999 999 999 99 



•7AAJ7JEA1F8 83 150048 
QZY YZQ 89 
0 0 9 



BTXT. ALA. 

9 Y80 
99 



, A8. .AAAA.O 
Y9 Y9Y9 
9 9 9 



A7QB3C£AJC£EA1F8AA£1 
Y 0- Q-ZYQ-ZQ 89Y9 
9 Z Z 0 9 9 



ACBBCCCA JC6EA1F8AA-1 
YQ — Q Q-ZYQ-ZQ 89Y9 
ZO ZZ Z 0 9 9 



ACBB0AAAABAA83 150049 
YQ-8 YYYY9YY 
Z09 9999 99 



BTXT. ALL 

9 Y8- 
990 



» A8. .AAAAAA 

Y9 Y9YYYY 
9 9 9999 



AAA3AQNAAA0GAGGE.7AA 
YYY Y98YYY 9YQQZ QZ 
999 9 999 9ZZ 0 



JALAA0JGACKA2D.KGAAD 
YYO-9 ZZQQYZ9Q 9QYQ 
99 9Z9 Z Z9Z 



OAS AH A AO JGAD8 3 150050 
YZ9Y9-Q ZZCQ 
9 9 9 9Z 



BTXT. ALL 
9 Y8 
99 



. A8. • AAAA2D 
Y9 Y9YZ9Q 
9 9 9 Z. 



. KB AAD6ASACC2D7BADAA 
9QYQ Z9Y9Z9Q8ZQQQZ 
Z9Z 9 Z9 ZZZ 



JDAEA1FHAA t 1 AD8A JBOE 
YQQZQ 89Y9- YQ9ZYQ Z 
ZZ 0 9 9 0 Z Z 



A1F4AAA0AB8F83150051 
Q 88Y9Y YQ Z 
0 999 9Z 



BTXT. AM/. 
9 Y88 
999 



.A8..AAJDAB 
Y9 Y9YQY8 
9 9 9Z99 



OAA AAQNAAAAAAAABAAAG 
YYYY98YYY9YYYY9YYY9 
9999 999 9999 999 



3CGFEDB 97652 1P0NMKZX 
QQQQQQ YYYYY 
ZZZZZZ 99999 



WUSGF0BP0KGF83 150052 
QQQQ YY 
9999 99 



BTXT. AM/. 
9 Y8 
99 



» A8. . AADBGF 
Y9 Y9YY 
9 9 99 



DBGFDBGFBPOMKPMKGFDB 

QQQQ YYYYOOOQQQQ 

0000000 



GFBGFDBGFE0CBA765442 
YYYY0000000888888 



IGF EBB AX WVUT83 150053 
8RRRRRR88888 
000000 



BTXT. AMI. 

9 Y8- 
99 



>A8..AA&/P0 

Y9 Y9-8ZZ 
9 9 



NMLK/PONMLK JGFECBAGF 
ZZZZ 8888888RRRRRR88 



EDCBAGFE0CBA76543217 
88888ZZZZZZZ88888889 
9999999 



65321XWVUTS/83 150054 
999998888888 
9999999 



BTXT.AMJ. 

9 Y8 
99 



, AY. .AAXWVU 

Y9 Y99999 
9 9 



TS/POMKPOKGFDBAAAAAA 
99988889998888 YYYYY Y 
9999 9999999999 



AAAAAM4DDD0M4LC3. . , 
YYYYY99RR — YR8 
99999 0 0 90 



•83150055 



BRLD..... 

9 



BRLD. 
9 



BRLD. 
9 



BEND. 
9 



BLDT. 
9 



.A4. 

Y9 
9 

.A4. 

Y9 

9 

. AU. 
Y8 
99 



• AAAA 
Y9Y9 
9 9 

• AAAA 
Y9Y9 
9 9 

• AAAA 
Y9Y9 
9 9 



A A AN E A A4 A AO /A AOS A AO I 
8YQ98YQ88Y988Y9-8Y90 
999 999 99 99 099 

AAJ J AAJ/AAJ/EA J&AA JR 
8Y888Y8 8Y888Y8-8Y80 
999 999 999 9990999 

EAKYAAK1EAK8EALDAAL A 
8Y898Y8 8Y8 8Y8Z8Y8R , 
999 999 999 999 999 



EAOAAAP JEAPQAA J/AA Jl 
8Y9Q8Y908Y908Y888Y89 
99 99 99 9999999 

AA JAEA JHAA JAAA Jl EA J- 
8Y8-8Y8-8Y8 8Y8 8Y80 
99909990999 999 999 

AAL JAAL/EALQAALAHAM1 
8Y888Y8 8Y8Z8Y8 9Y89 
999 999 999 999 99 



AAJ1DAJ... ..83150056 

8Y888Y8 

9999999 

AAKJHAK/.. ••83150057 

8Y889Y89 

9999 99 



.83150058 



•83150059 



•83150060 
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PROGRAM LENGTH = 4079 (DECIMAL) 



01000 
01000 



2 
3 
4 
5 
6 
7 
8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 



PRINT ON, GEN, DATA 
XF8325 START 4096 
USING *,15 

* MODIFICATIONS 

* REVISION LEVEL 5. THIS REVISION DIFFERS FROM VERSION 4 AS FOLLOWS 

* 1. THE PROGRAM HAS BEEN MODIFIED TO TEST THAT THE HEX CHARACTERS 

* 80 AND CO ARE CONSIDERED VALID UNPRINTABLE CHARACTERS WHEN 

* THE UCS PRINTER IS IN FOLDING MODE. 

* 2. INCLUDES CHANGES TO ENABLE PROGRAM TO RUN WITH DM-44. 

* E.C. PREREQUISITES 

* MACHINE . . . 2821 MUST BE AT E.C. 125673 

* PROGRAM . . . NONE 

* REVISION LEVEL 4. THIS REVISION DIFFERS FROM VERSION 3 AS FOLLOWS... 



* 
* 
* 
* 
* 
* 

* 

* E.C 



1. 
2. 



5. 



THE PROGRAM HAS BEEN MODIFIED TO INCLUDE -TEST NUMBERS- 
TEST THE ABILITY TO SET AND SUPPRESS INCORRECT LENGTH RECORD 
ON A UCS BUFFER LOAD COMMAND. 

TEST THE ABILITY TO LOAD THE UCS BUFFER WITH BLANKS (40). 
TEST THE ABILITY TO LOAD THE UCS BUFFER WITH A SHORT COUNT 
AND NOT AFFECT THE REST OF THE BUFFER. 

TEST THE ABILITY TO -FOLD- CHARACTERS FROM THE FIRST QUADRANT 
TO THE FOURTH QUADRANT. 
6. INCLUDE TESTING PREVIOUSLY HANDLED BY PROGRAM ID F833 WHICH 
IS NOW OBSOLETE. 
PREREQUISITES 
MACHINE . . . 2821 MUST BE AT E.C. 125655 

* PROGRAM . . . NONE 

* USE DESCRIPTION F830* AT EC 125655, DATED NOV 15, 1966 OR LATER. 
*********************************************************************** 

* REVISION LEVEL 3. THIS REVISION DIFFERS FROM VERSION 2 AS FOLLOWS... 

* 1. THE PROGRAM HAS BEEN MODIFIED TO RESET THE BLOCK DATA CHECK 

* LATCH, ON UCS PRINTERS, DURING INITIALIZATION OF THE SECTION. 

* E.C. PREREQUISITES 

* MACHINE . . . 2821 MUST BE AT MINIMUM E.C. LEVEL 124265. 

* PROGRAM . . . NONE 
♦♦*********************************^^ 

* 
* 

t****************************^^ 

*********************************************************************** 

* TEST NUMBER DESCRIPTION 



ROUTINE 01 



TEST DESCRIPTION 



0010 - OPERATION ATTEMPTED 

ISSUE A PRE-CONDITION LOAD COMMAND, COMMAND CHAINED TO ALLOW 
DATA CHECK COMMAND AND FURTHER CHAINED TO A LOAD UCS BUFFER 
COMMAND WITHOUT FOLDING. THE BUFFER IS LOADED WITH BLANKS. 

EXPECTED RESPONSE 

EXPECT CHANNEL END AND THEN DEVICE END. 
COND. CODE 0 ON THE SIO (COMMAND ACCEPTED) 



64 




65 




66 


* ( 


67 




68 


♦ 


69 




70 


* 


71 


* 


72 


* 


73 




74 


♦ 


75 


* 


76 


* 


77 




78 




79 




80 


* 


81 




82 


* 


83 


* 


84 




85 


4c 


86 


4c 


87 


4> 


88 


4c 


89 


4c 


90 


4c 


91 


* 


92 


4c 


93 


4c 


94 


4c 


95 


4c 


96 


4c 


97 


* 


98 


4c 


99 


4c 


100 


* 


101 


4c 


102 


4c 


103 


" 4c 


104 


4c 


105 


4c 


106 


4c 


107 


4c 


108 


* 


109 


4c 


110 


4c 


111 


♦ 


112 


4c 


113 


* 


114 




115 


* 


116 


4c 


117 


* 


118 




119 


4c 


120 


4c 


121 


4t 


122 


4< 


123 


« 


124 




125 


* 


126 


4c 


127 


* 


128 





- OPERATION ATTEMPTED 

ISSUE A PRE-CONDITION LOAD COMMAND, COMMAND CHAINED TO ALLOW 
DATA CHECK COMMAND AND FURTHER CHAINED TO A LOAD UCS BUFFER 
COMMAND WITH FOLDING. THE BUFFER IS LOADED WITH BLANKS. 

EXPECTED RESPONSE 

EXPECT CHANNEL END AND THEN DEVICE END. 
COND. CODE 0 ON THE SIO (COMMAND ACCEPTED) 

- OPERATION ATTEMPTED 

ISSUE A PRE-CONDITION LOAD COMMAND CHAINED TO LOAD UCS BUFFER 
WITH A SHORT COUNT -239-. 

EXPECTEO RESPONSE 

EXPECT CHANNEL END WITH INCORRECT LENGTH FLAG ON, 
THEN DEVICE END. 

COND. CODE 0 ON THE SIO (COMMAND ACCEPTED). 

) - OPERATION ATTEMPTED 

ISSUE A PRE-CONDITION LOAD COMMAND, COMMAND CHAINED TO A LOAD 
THE UCS BUFFER COMMAND WITH A LONG COUNT -241-. 

EXPECTED RESPONSE 

EXPECT CHANNEL END WITH INCORRECT LENGTH FLAG ON AND RESIDUAL 
COUNT OF 1, THEN DEVICE END. 

COND. CODE 0 ON THE SIO (COMMAND ACCEPTED) . 

ROUTINE 02 

3 - OPERATION ATTEMPTED 

LOAD THE UCS BUFFER WITH BLANKS AND NO FOLDING. 
EXPECTED RESPONSE 

EXPECT CHANNEL END AND THEN DEVICE END. 
COND. CODE 0 ON THE SIO (COMMAND ACCEPTED). 

0 - OPERATION ATTEMPTED 

ISSUE A PRE-CONDITION LOAD COMMAND, COMMAND CHAINED TO A WRITE 
NO SPACE COMMAND. 

EXPECTEO RESPONSE 

THE UCS BUFFER AND THE PRINT AREA BOTH CONTAIN 

BLANKS AND THE PRE-CONDITION LOAD LATCH IS SET ON. A WRITE 

COMMAND ISSUED UNDER THESE CONDITIONS FORCES PRINT CHECK IN 

EVERY POSITION. EXPECT CHANNEL END THEN DEVICE END WITH UNIT 

CHECK. EQUIPMENT CHECK SHOULD BE IN THE SENSE BYTE. 

ALLOW NEXT TWO TESTS TO BE PERFORMED FOR FURTHER INFORMATION. 
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129 * 0070 - OPERATION ATTEMPTED 

130 * 

131 * ISSUE DIAGNOSTIC CHECK READ. 

132 * 

133 * EXPECTEO RESPONSE 

134 * 

135 * EXPECT CHANNEL END, DEVICE END, UNIT CHECK TOGETHER. 

136 * EQUIPMENT CHECK (PRINT CHECK) IN THE SENSE BYTE. 

137 * THIS TEST WILL FAIL IF TEST 0060 ABOVE FAILED. 

138 * 

139 * 

140 * 0080 - OPERATION ATTEMPTED 

141 * 

142 * TEST 0070 ABOVE READS BACK 132 CHECK PLANE POSITIONS. 

143 * THIS TEST SCANS THE CHECK PLANE POSITIONS FOR NO PRINT CHECK 

144 * SET. 

145 * 

146 * **********************^**********^ 

147 * NOTE. ..THIS TEST DOES NOT PRINT OUT IF THE CORRECT PRINT 

148 * OUT SWITCH IS SET ON, OR IF TEST 0070 ABOVE DETECTS NO ERROR. 

149 * ************************************************************ 

150 * 

151 * EXPECTED RESPONSE 

152 * 

153 * EXPECT PRINT CHECK BIT ON IN EVERY CHECK PLANE POSITION. THIS 

154 * TEST SCANS ALL CHECK PLANE POSITIONS AND PRINTS OUT POSITIONS 

155 * WHICH DO NOT HAVE PRINT CHECK BIT SET ON. IF YOU LOOP AT THIS 

156 * TIME YOU WILL LOOP ON THE PRE-LOAD, WRITE COMMANDS. 

157 * 

158 * 

159 * ROUTINE 03 

160 * 

161 * 0090 - OPERATION ATTEMPTED 

162 * 

163 * LOAD UCS BUFFER WITH 15 SETS OF 16 CHARACTERS, FO THRU FF. 

164 * 

165 * EXPECTED RESPONSE 

166 * 

167 * EXPECT CHANNEL END AND THEN DEVICE END. 

168 * 

169 * 

170 * 0100 - OPERATION ATTEMPTED 

171 * 

172 * ISSUE A PRINT COMMAND. 

173 * 

174 * EXPECTED RESPONSE 

175 * 

176 * PRINT AREA IS FILLED WITH CHARACTER -A- (CI) WHICH DOES NOT 

177 * COMPARE TO WHAT IS IN THE UCS BUFFER. 

178 * EXPECT CHANNEL END THEN DEVICE END WITH UNIT CHECK. 

179 * DATA CHECK WILL BE IN THE SENSE BYTE. 

180 * CONTINUE ON FOR FURTHER INFORMATION. 

181 * 

182 * 

183 * 0110 - OPERATION ATTEMPTED 

184 * 

185 * ISSUE A DIAGNOSTIC CHECK READ. 

186 * 

187 * EXPECTEO RESPONSE 

188 * 

189 * EXPECT CHANNEL END, OEVICE END UNIT CHECK TOGETHER. 

190 * EQUIPMENT CHECK IS IN THE SENSE BYTE. 

191 * THIS TEST WILL FAIL IF TEST 0100 FAILED. CONTINUE ON FOR MORE 

192 * INFORMATION. 

193 * 
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194 * 

195 * 0120 - OPERATION ATTEMPTED 

196 * 

197 * TEST 0110 ABOVE READS BACK 132 CHECK PLANE POSITIONS. 

198 * THIS TEST SCANS ALL 132 CHECK PLANE POSITIONS FOR PRINT LINE 

199 * COMPLETE BIT TO BE SET OFF IN ALL POSITIONS. 

200 * 

201 * ***********;|^*****************^ 

202 * NOTE. ..THIS TEST DOES NOT PRINT OUT IF THE CORRECT PRINT 

203 * OUT SWITCH IS SET ON, OR IF TEST 0110 ABOVE DETECTS NO ERROR. 

204 * **************************************************** ******** 

205 * 

206 * EXPECTED RESPONSE 

207 * 

208 * EXPECT PRINT LINE COMPLETE BIT TO BE SET OFF IN ALL 

209 * POSITIONS. THIS TEST WILL PRINT OUT WHICH POSITIONS THE PRINT 

210 * LINE COMPLETE BIT IS ON. 

211 * IF YOU LOOP AT THIS TIME, YOU WILL LOOP ON THE WRITE COMMAND. 

212 * 

213 * 

214 * ROUTINE 04 

215 * 

216 * 0130 - OPERATION ATTEMPTED 

217 * 

218 * LOAD UCS BUFFER WITH 15 SETS OF 16 CHARACTERS FO THRU TO FF. 

219 * 

220 * EXPECTED RESPONSE 

221 * 

222 * EXPECT CHANNEL END AND THEN DEVICE END. 

223 * 

224 * 

225 * 0140 - OPERATION ATTEMPTED 

226 * 

227 * ISSUE A BLOCK DATA CHECK COMMAND. 

228 * 

229 * EXPECTED RESPONSE 

230 * 

231 * . EXPECT CHANNEL END DEVICE END TOGETHER. BLOCK DATA CHECK 

232 * LATCH SHOULD BE SET ON. 

233 * 

234 * 

235 * 0150 - OPERATION ATTEMPTED 

236 * 

237 * ISSUE A PRINT COMMAND. 

238 * 

239 * EXPECTED RESPONSE 

240 * 

241 * THE PRINT AREA IS FILLED WITH CHARACTER -A- WHICH DOES NOT 

242 * COMPARE TO WHAT IS IN THE UCS BUFFER. EXPECT CHANNEL END AND 

243 * THEN DEVICE END WITH N 0 DATA CHECK IN THE SENSE BYTE DUE TO 

244 * THE BLOCK DATA CHECK LATCH BEING ON FROM TEST 0140 ABOVE. 

245 * 

246 * 

247 * 0160 - OPERATION ATTEMPTED 

248 * 

249 * ISSUE ALLOW DATA CHECK COMMAND. 

250 * 

251 * EXPECTEO RESPONSE 

252 * 

253 * EXPECT CHANNEL END DEVICE END TOGETHER AND SETTING THE BLOCK 

254 * DATA CHECK LATCH OFF. 

255 * 

256 * 

257 * 0170 - OPERATION ATTEMPTED 

258 * 
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259 


# 


260 


* 


261 


♦ 


262 


* 


263 


* 


264 


* 


265 




C.OO 




267 




268 




269 


♦ 


270 




27 1 


* 


272 




C 1 3 




£. 1 H 




C O 




OTA 
CIO 




077 




£IO 




57Q 
C 17 










* 


282 


* 


283 




284 




nnc 




COO 




out 

CO f 




too 




289 


* 


290 




291 




292 




293 


* 


294 




295 




296 




297 


♦ 


298 


* 


299 




300 




301 




302 




303 


* 


304 




305 




306 


* 


307 




308 


* 


309 


* 


310 




311 


* 


312 


* 


313 


* 


314 




315 


* 


316 


* 


317 


* 


318 


* 


319 




320 




321 


* 


322 


* 


323 


* 



ISSUE A PRINT COMMAND. 
EXPECTED RESPONSE 

THE PRINT AREA IS FILLED WITH CHARACTER -A- WHICH DOES NOT 
COMPARE TO WHAT IS IN THE UCS BUFFER. EXPECT CHANNEL END 
THEN DEVICE END WITH UNIT CHECK. EXPECT DATA CHECK IN THE 
SENSE BYTE DUE TO BLOCK DATA CHECK LATCH BEING SET OFF FROM 
TEST 0160 ABOVE. 



ROUTINE 05 

OPERATION ATTEMPTED 

LOAD UCS BUFFER WITH 15 SETS OF 16 CHARACTERS FO THRU TO FF 
EXPECTEO RESPONSE 
CHANNEL END AND THEN DEVICE END. 

OPERATION ATTEMPTED 
ISSUE A PRINT COMMAND. 
EXPECTED RESPONSE 

POSITIONS 2 THRU 132 OF THE PRINT AREA CONTAINS BLANKS. 

POSITION 1 OF THE PRINT AREA CONTAINS A -1-. 

EXPECT CHANNEL END AND THEN DEVICE END, AND PRINT ONE 

CHARACTER. 



- OPERATION ATTEMPTED 



PLACE A BLANK IN POSITION ONE OF BUFFER LOAD AREA. 
LOAD UCS BUFFER WITH A COUNT OF 1. 



ISSUE A 



EXPECTED RESPONSE 

THIS SHOULD PLACE ONLY ONE BLANK IN THE UCS BUFFER AND NOT 
ALTER THE REST OF THE BUFFER. 



OPERATION ATTEMPTED 
ISSUE A PRINT COMMAND. 
EXPECTED RESPONSE 

PRINT AREA CONTAINS A -1- AND THE REST ARE BLANKS. 
IF TEST 0200 ABOVE WAS PERFORMED CORRECTLY , THAT IS ONLY ONE 
POSITION OF THE BUFFER IS BLANK THEN A COMPARE SHOULD OCCUR 
AND THE CHARACTER IS PRINTED. EXPECT CHANNEL END AND THEN 
DEVICE END. 



ROUTINE 06 

OPERATION ATTEMPTED 
LOAD UCS BUFFER WITH 5 SETS OF 48 CHARACTERS. 
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324 * EXPECTED RESPONSE 

325 * 

326 * CHANNEL END AND THEN DEVICE END. 

327 * 

328 * 

329 * 0230 - OPERATION ATTEMPTED 

330 * 

331 * ISSUE A PRINT COMMAND. 

332 * 

333 * EXPECTED RESPONSE 

334 * 

335 * THE PRINT AREA CONTAINS 48 CHARACTER SETS. EXPECT CHANNEL END 

336 * AND THEN DEVICE END. 

337 * CONTINUE ON FOR FURTHER INFORMATION. 

338 * 

339 * 

340 * 0240 - OPERATION ATTEMPTED 

341 * 

342 * ISSUE A DIAGNOSTIC READ COMMAND. 

343 * 

344 * 

345 * EXPECTED RESPONSE 

346 * 

347 * EXPECT CHANNEL ENO DEVICE END TOGETHER. THIS TEST WILL FAIL 

348 * IF TEST 0230 ABOVE FAILED. 

349 * CONTINUE ON FOR FURTHER INFORMATION. 

350 * 

351 * 

352 * 0250 - OPERATION ATTEMPTED 

353 * 

354 * TEST 0240 ABOVE READS BACK THE CONTENTS OF THE DATA BUFFER. 

355 * THIS TEST WILL COMPARE WHAT IS IN THE PRINT AREA TO WHAT WAS 

356 * READ BACK FROM THE DATA BUFFER. 

357 * 

358 * 4t4t«««««**4<*«««««*«*«*«*4c*^#«««*4c^****««*«*«******« 

359 * NOTE. ..THIS TEST DOES NOT PRINT OUT IF THE CORRECT PRINT 

360 * OUT SWITCH IS SET ON, OR IF TEST 0240 ABOVE DETECTS NO ERROR. 

361 * *♦*********♦♦***♦*♦♦**♦♦*#****#*****♦************♦*♦****♦♦** 

362 * 

363 * EXPECTED RESPONSE 

364 * 

365 * PRINT AREA AND DATA BUFFER POSITIONS THAT DO NOT COMPARE 

366 * * ARE PRINTED OUT. IF YOU LOOP AT THIS POINT, YOU WILL LOOP 

367 * ON THE PRINT COMMAND. 

368 * NOTE DO NOT USE TO TROUBLE SHOOT PRINT CHECK PROBLEMS, 

369 * USE ONLY TO CHECK READ BACK OF THE DATA BUFFER. 

370 * 

371 * 

372 * 0260 - OPERATION ATTEMPTED 

373 * 

374 * . LOAD THE UCS BUFFER WITH FOLDING. UCS BUFFER IS FILLED WITH 

375 * 5 SETS OF 48 FOURTH QUADRANT' CHARACTERS -CI TO F0-. 

376 * 

377 * EXPECTED RESPONSE 

378 * 

379 * EXPECT CHANNEL END AND THEN DEVICE END* 

380 * 

381 * 

382 * 0270 - OPERATION ATTEMPTED 

383 * 

384 * PRINT AREA IS FILLED WITH 48 FIRST QUADRANT CHARACTERS 

385 * -30 TO 01- REPEATED TO FILL THE 132 PRINT POSITIONS. 

386 * A PRINT COMMAND IS THEN ISSUED. 

387 * 

388 * EXPECTED RESPONSE 
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389 


* 










454 


* 


THIS TEST COMPARES THE DUALING CHARACTERS AFTER TRANSLATION 




390 


* 




EXPECT CHANNEL END AND THEN DEVICE END. 






455 


* 


BY THE DATA BUFFER TO WHAT THE DUALING CHARACTERS SHOULD BE 




391 






NOT E — IF THIS TEST (FOLDING) FAILED, CHANNEL END AND THEN 






456 


* 


AFTER TRANSLATION. 




392 






DEVICE END WITH UNIT CHECK WILL OCCUR. DATA CHECK WILL BE IN 






457 


* 






393 






THE SENSE BYTE. 






458 


* 


************************************************************ 




394 












459 


* 


NOTE. ..THIS TEST DOES NOT PRINT OUT IF THE CORRECT PRINT 




395 






POSSIBLE FAILURE CAUSES 






460 


* 


OUT SWITCH IS SET ON, OR IF TEST 0310 ABOVE DETECTS NO ERROR. 


396 












461 




************************************************************ 




397 


* 




1. THE FOLDING LATCH FAILED TO BE SET ON. 






462 








398 


* 




2. FAILED TO FORCE A COMPARE ON THE ZERO AND ONE BITS OF 






463 


* 


EXPECTED RESPONSE 




399 






THE UCS AND PRINT BUFFER DATA. 






464 








400 


* 








* 


465 


* 


ANY INCORRECT DUALING CHARACTER FOUND IN THE BUFFER WILL 




401 


♦ 










466 




RESULT IN A PRINT OUT OF THE FOUR DUALING CHARACTERS AS THEY 




402 


* 




ROUTINE 07 






467 


* 


APPEAR IN THE DATA BUFFER AND A PRINTOUT OF WHAT THEY SHOULD 




403 


* 










468 


* 


BE. IF YOU LOOP AT THIS TIME, YOU WILL LOOP ON THE PRINT 




404 


*********************************************************************** 






469 


* 


COMMAND. 




405 


* 




NOTE — SECTION SENSE SWITCH 24 MUST BE ON TO INDICATE DUAL ING 






470 








406 


*********************************************************************** 






471 


* 






407 


* 










472 


* 


ROUTINE 08 




408 


* 


0280 


- OPERATION ATTEMPTED 






473 


* 






409 


* 










474 


* 






410 


* 




LOAD UCS BUFFER WITH 5 SETS OF 48 CHARACTERS. EACH SET 






475 


* 0330 


-OPERATION ATTEMPTED . 




411 


* 




INCLUDES THE FOUR DUALABLE CHARACTERS. 






476 


* 






412 


* 










477 


* 


THE UCS BUFFER IS LOADED IN FOLDING MODE, WITH A 16 CHAR. SET. 


413 


* 




EXPECTED RESPONSE 






478 








414 












479 


* 


EXPECTED RESPONSE 




415 


* 




CHANNEL END AND THEN DEVICE END. 






480 


* 






416 


* 










481 


* 


EXPECT COND. CODE 0 TO BE SET ON THE START 1-0. EXPECT A 




417 


+ 










482 


* 


CHANNEL AND -DEVICE END INTERRUPT. THE FOLDING LATCH SHOULD 




418 


♦ 


0290 


- OPERATION ATTEMPTED 






483 


* 


BE SET ON. 




419 


* 










484 


* 






420 


* 




PLACE ALREADY TRANSLATED DUAL ING CHARACTERS INTO PRINT AREA. 






485 








421 


* 




ISSUE A PRINT COMMAND TO PRINT THE FOUR DUALING CHARACTERS. 






486 


* 0340 


- OPERATION ATTEMPTED 




422 


* 










487 


* 






423 


* 




EXPECTED RESPONSE 






488 


* 


A PRINT COMMAND IS ISSUED, AND INTERRUPTS ARE CLEARED. 




424 


* 










489 








425 


* 




EXPECT CHANNEL END AND THEN DEVICE END. 






490 


* 


EXPECTED RESPONSE 




426 












491 


* 






427 


* 










492 


* 


THE PRINT AREA CONTAINS HEX CHARACTERS -80-, AND -CO-. THE 




428 


* 


0300 


- OPERATION ATTEMPTED 






493 


* 


UCS BUFFER DOES NOT CONTAIN ANY OF THESE CHARACTERS, BUT 




429 


* 










494 


* 


BECAUSE OF FOLDING MODE, THE CHARACTERS ARE CONSIDERED VALID 




430 


* 




PLACE UNTRANSLATED DUALING CHARACTERS IN THE PRINT AREA. 






495 


* 


UNPRINTABLE CHARACTERS, AND ARE TREATED AS BLANKS OR NULLS. 




431 


* 




ISSUE A PRINT COMMAND TO PRINT THE FOUR DUALING CHARACTERS. 






496 


* 


EXPECT COND. CODE 0 ON THE START 1-0. EXPECT 2 SEPARATE 




432 


* 










497 


* 


INTERRUPTS - CHANNEL END, THEN DEVICE END. UNIT CHECK AND 




433 


* 




EXPECTED RESPONSE 






498 




DATA CHECK SHOULD NOT OCCUR. 




434 


* 










499 


* 






435 






EXPECT CHANNEL END AND THEN DEVICE END. IF AN ERROR OCCURS 






500 


******************* 4**4+********+*++++ 


436 


* 




ON THIS TEST, CONTINUE THROUGH THE NEXT 2 TESTS FOR FURTHER 






501 


* SECTION PREFACE *********************************** SECTION PREFACE 


* 


437 






ERROR INFORMATION. 






502 


******************* ******************* 


438 








01000 


F8325000 


503 


SECNO 


DC XL4«F8325000« 




439 








01004 


00000000 


504 


SNSW 


DC XL4»00» SECTION SENSE SWITCHES 


* 


440 




0310 


- OPERATION ATTEMPTED 


01008 


0000 


505 




DC XL2«00« 


* 


441 








OiOOA 


0000 


506 


ICM 


DC XL2»00» INTERRUPTION CONDITION MASK 


* 


442 






ISSUE A DIAGNOSTIC READ COMMAND. 


0100C 


00 


507 


SDMF 


DC XL1»00« SECTION DM FLAGS 


* 


443 








0100D 


01 


508 


NIOU 


DC XL1»01» NUMBER OF UNIT TABLE ENTRYS 


* 


444 


* 




EXPECTED RESPONSE 


0100E 


CO 


509 


FLAG1 


DC X»CO» EXCLUSIVE CPU 


* 


445 


* 






0100F 


00 


510 


FLAG2 


DC X»00» I/O INT ARE ERR, EXT INT TO PROG 


* 


446 






EXPECT CHANNEL END DEVICE END TOGETHER. IF AN ERROR OCCURRED 


01010 


0104000000 


511 


INPSW 


DC X»0104000000» DISABLED, SPVSR STATE, NO PGM MASK 


* 


447 


* 




ON PREVIOUS TEST, THIS TEST WILL INDICATE AN ERROR ALSO. 


01015 


0018F8 


512 




DC AL31R0UT01) ADR OF 1ST ROUTINE PREFIX 


* 


448 


* 




CONTINUE ON TO NEXT TEST FOR FURTHER ERROR INFORMATION. 


01018 


0000000000000000 


513 


EXOPSW 


DC XL8«0« SECTION OLD EXTERNAL PSW 


* 


449 


* 






01020 


0000000000000000 


514 


SVOPSW 


DC XL8*00« CLEAR ALL OLD PSWS 


* 


450 


* 






01028 


0000000000000000 


515 


PGOPSW 


DC XL8«00« PROGRAM OLD PSW 


* 


451 


♦ 


0320 


- OPERATION ATTEMPTED 


01030 


0000000000000000 


516 


MCOPSW 


DC XL8*00* MACHINE CHECK OLD PSW 


* 


452 


♦ 






01038 


0000000000000000 


517 


IOOPSW 


DC XL8«00« I/O OLD PSW 


* 


453 






TEST 0290 ABOVE READS BACK THE CONTENTS OF THE DATA BUFFER. 


01040 


0000000000000000 


518 


CSW 


DC XL8«00« CHANNEL STATUS WORD 


* 



DATE 
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1403 


rKINIfcR FUNCTION 3 










01048 


00000000 


519 


CAW 


nr 


AL*» UU t, AW * 


01 04C 


0000000000000000 


520 






ALic UU KtbtKYtU rUK UM Ubt * 


01054 


qppooooo 








01058 


0004000000 


521 


EXNPSW 


DC 


X»0004000000» EXTERNAL NEW PSW * 


0105D 


000000 


522 


SRET 


DC 


XL3«0« ADR OF EXT INTRPT ROUTINE * 


01060 


0000000000000000 


523 


SVNPSW 


DC 


XLS'OO' SUPERVISOR NEW PSW * 


01068 


0000000000000000 


524 


PGNPSW 


DC 


XL8«00« PROGRAM NEW PSW * 


01070 


0000000000000000 


525 


MCNPSW 


DC 


XL8'00« MACHINE CHECK NEW PSW * 


01078 


01040000 


526 


IONPSW 


DC 


XL4»01040000» I/O NEW PSW * 


0107C 


000011 04 


527 




DC 


AL4 ( IRETRN) ADDRESS OF I/O INTRPT ROUTINE * 


01080 




528 




DS 


96C 96 BYTE REG DUMP AREA FOR DM USE * 


010E0 


83 


529 


UNIT1 


DC 


X»83« UNIT TYPE - 1419 MICR * 


01 OE 1 


00 


530 


U10P 


DC 


X'OO' OPTIONAL FEATURES BYTE * 


010E2 


8000 


531 


U1ADDR 


DC 


X»8000» FLAGS AND CHAN/UNIT ADDRESS * 






532 


*********************************************************************** 






534 


*************************************************** ***************** *** 






535 


* 




1403 SENSE BYTE 






536 


******************************************************* **************** 






537 


* 


BIT 


MEANING 






538 


* 


0 


COMMAND REJECT 






539 


* 


1 


INTERVENTION REQUIRED 






540 


* 


2 


BUS OUT CHECK 






541 


* 


3 


EQUIPMENT CHECK - HAMMER FIRE CHECK 






542 


* 


4 


DATA CHECK - UCS PRINTERS ONLY - UNCOMPARABLE CHARACTER 






543 


* 


5 


BUFFER PARITY CHECK - REFERS TO UCS BUFFER 






544 


* 


6 


NOT USED 






545 


* 


7 


CHANNEL 9 






546 


*************************************************** ******************** 






547 


*********************************************************************** 






548 






1403 DEVICE STATUS 






549 


*********************************************************************** 






550 


* 


BIT 


MEANING 






551 


* 


0 


ATTENTION - NOT USED 






552 


* 


1 


STATUS MODIFIER - 2 CHANNEL SWITCH FEATURE ONLY 






553 


* 


2 


CONTROL UNIT END - 2 CHANNEL SWITCH FEATURE ONLY 






554 


* 


3 


DEVICE BUSY 






555 


* 


4 


CHANNEL END 






556 


* 


5 


DEVICE END 






557 


* 


6 


UNIT CHECK 






558 


* 


7 


UNIT EXCEPTION - CHANNEL 12 






559 


*********************************************************************** 






560 


* 




1403 DIAGNOSTIC CHECK READ DATA 






561 


*********************************************************************** 






562 


* 


BIT 


MEANING 






563 


* 


5 


ON - THE PRINT LINE COMPLETE BIT HAS BEEN SET FOR THIS 






564 


* 




POSITION. 






565 






OFF - ON BASIC PRINTERS, A COMPARE BETWEEN THE DATA BEING 






566 


* 




PRINTED, AND THE PRINT CHARACTER GENERATOR DID NOT 






567 


* 




OCCUR IN THIS- POSITION, AND THE CHARACTER WAS NOT 






568 


* 




CONSIDERED A VALID UNPRINTABLE. 






569 


* 










570 


* 




ON UCS PRINTERS, A COMPARE BETWEEN THE DATA BUFFER 






571 


* 




AND THE UNIVERSAL CHARACTER SET BUFFER DID NOT OCCUR 






572 


* 




AND THE CHARACTER WAS NOT CONSIDERED A NULL OR BLANK 






573 


* 










574 


* 


6 


ON - THE PRINT CHECK PLANE FOR THIS POSITION WAS SET ON. 






575 


* 




THIS PLANE IS SET BY 






576 


* 




1. A HAMMER FIRE AND AN EQUAL CHECK. 






577 


* 




2. NO HAMMER FIRE AND NO EQUAL CHECK. 






578 


* 




3. LINE FULL, NOT VALID UNCOMPARABLE CHARACTER, AND 






579 


* 




NOT A PRINT LINE COMPLETE BIT IN THIS POSITION. 






580 


* 




OFF - THE PRINT CHECK PLANE FOR THIS POSITION IS NOT SET. 






581 


* 










582 


* 


7 


ON - A PARITY CHECK IN THE DATA BUFFER WAS DETECTED IN 


DATE 


15MAR66 15N0V66 


120CT67 
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632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 



THIS POSITION. 



* 
* 

* OFF - THIS POSITION OF THE DATA BUFFER HAS CORRECT PARITY. 
*********************************************************************** 

* PARAMETERS USED TO ENTER 

* THE 1-0 HANDLER ROUTINE 

*********************************************************************** 

* BAL R11,ISI0 LINK TO 1-0 HANDLER 

* DC XL2«0000» CONTROL SWITCHES 

* DC X»0014» TEST NO. IN DEC EXPRESSED IN HEX 

* DC X»F0» EXPECTED COND. CODE 

* DC X'OO' EXPECTED SENSE DATA 

* DC AL2 ( ADR— BASE+REG ) ADDR. OF EXPECTED CSW IF NEEDED 
*********************************************************************** 
*********************************************************************** 

* k 1-0 HANDLER CONTROL SWITCHES 

* 2 BYTE PARAMETER FOLLOWING BAL 

*********************************************************************** 



* 


SWITCH 


DESCRIPTION 




* 


0 


OFF 




ISSUE AN 1-0 COMMAND 


* 




ON 




DO NOT 


ISSUE AN 1-0 COMMAND 


* 




OFF 




ENABLE 




* 




ON 




DO NOT 


ENABLE 


* 


2 


OFF 




EXPECT 


NO INTERRUPT 


* 




ON 




EXPECT 


AN INTERRUPT 


* 


3 ■ 


OFF 




DO NOT 


EXPECT 2 INTERRUPTS 


* 




ON 




EXPECT 


2 INTERRUPTS 


* 




OFF 




EXPECT 


NO CSWS 


* 




ON 




EXPECT 


A CSW 


* 


5 ~ 


OFF 




DO NOT 


EXPECT 2 CSWS 


* 




ON 




EXPECT 


2 CSWS 


* 


6 


OFF 




ALWAYS 


TRY TO ISSUE SENSE 


* 




ON 




SENSE ON UNIT CHECK ONLY 



*********************************************************************** 
*********************************************************************** 

* SWITCHES USED BY 1-0 HANDLER 

******************************************************^*** 3 | ( ^**i| t 4 ! ****** 



* 


SWITCH 


DESCRIPTION 


* 


0 




OFF 




NO HANGUP ON INTERFACE 


* 






ON 




HANGUP OCCURRED 


* 


1 




OFF 




NO CSWS STORED 


* 






ON 




ONE CSW STORED 


* 


2 




OFF 




SECOND CSW NOT RECIEVED 


* 






ON 




SECOND CSW RECIEVED 


* 


3 




OFF 




DID NOT ENABLE 


* 






ON 




ENABLED ONCE 


* 


4 




OFF 




DID NOT ENABLE TWICE 


* 






ON 




ENABLED TWICE 


* 


5 




OFF 




NO SENSE DATA RECIEVED 


* 






ON 




SENSE DATA RECIEVED 


* 


6 




OFF 




NO UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 


* 






ON 




UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 


* 


7 




OFF 




NO ERROR DETECTED 


* 






ON 




AN ERROR WAS DETECTED 



*********************************************************************** 

* REGISTERS USED IN 1-0 HANDLER 

*********************************************************************** 



REG COMMENTS 
5 USED AS LINK TO ERROR OUTPUT FROM INITIALIZE ROUTINE IF 
PREVIOUS HANGUP ON INTERFACE DETECTED. 

8 USED AS WORK REGISTER. WILL BE RESTORED UPON RETURN. 

9 USED AS WORK REGISTER. WILL BE RESTORED UPON RETURN* 
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IBH MAINTENANCE 


DIAGNOSTIC 


PROGRAM 






P/N 840108 


IBM MA 


INTENANCE 


DIAGNOSTIC 


PROGRAM 






P/N 840108 
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1403 


PRINTER 


FUNCTION 


3 












1403 


PRINTER 


FUNCTION 


3 
























648 


* 


10 


MUST CONTAIN CCW ADDRESS UPON ROUTINE ENTRY 


011B8 


88 


90 


0 


003 




713 




SRL 


R9,3 


ADJUST 














649 










011BC 


96 


60 


F 


0E4 




714 




01 


ISW«X'80 V 


TURN ON HANG UP SW 














650 


* 


11 


MUST BE USED AS LINK 


REG TO THIS ROUTINE 


011C0 


80 


00 


F 


5F3 




715 




SSM 


MSK1 


ENABLE 














651 


* 








011C4 


46 


90 


F 


1C4 




716 




BCT 


R9,* 


WAIT 














652 


* 


12 


MUST CONTAIN DEVICE ADDRESS 


011C8 


80 


00 


F 


5F4 




717 




SSM 


MSK2 


DISABLE 














653 


* 








011CC 


94 


7F 


F 


0E4 




718 




NI 


ISW^^F* 


TURN OFF HANG SW 














654 


*********************************************************************** 


011D0 


47 


FO 


F 


210 




719 




BC 


UNCI SEN 


BR. UNCONDITIONAL 


010E4 


0000 








655 


ISW 


DC 


XL2'0' 
















720 


*********************************************************************** 














656 


*********************************************************************** 














721 






ALL 1-0 


INTERRUPTS RETURN HERE 














657 






* 1-0 HANDLER SUB-ROUTINE * 














722 


*********************************************************************** 














658 


*************************** 4**4+++*++* * ************ ******************** 


011D4 


94 


7F 


F 


0E4 




723 


IRETRN 


NI 


ISW,X'7F I 


RESET HANG UP SW 


010E6 


02 


01 


F 


59C B 


002 


659 


ISIO 


MVC 


ITSTN0+5C 2) ,2<R11) 


SAVE TEST NUMBER 


011D8 


91 


40 


F 


0E4 




724 




TM 


I SW,X , 40* 




010EC 


90 


A8 


F 


4F8 




660 




STM 


R10,R11,I SLAVE 


SAVE REG 10 AND REG 11 


011DC 


47 


10 


F 


1E£ 




725 




BC 


ALL, I SV2 


BR. IF 1 CSW ALREADY STORED 


010F0 


90 


89 


F 


4F0 




661 




STM 


R8.R9, ISAVE 


SAVE REGS 8 AND 9 


011E0 


D2 


07 


F 


5 02 F 


040 


726 




MVC 


ICSW1 (8) ,HCSW(R15} 


SAVE CSW 1 


010F4 


50 


AO 


0 


048 




662 




ST 


R10,HCAW(R13) 


STORE COMMAND ADDRESS 


011E6 


96 


40 


F 


0E4 




727 




01 


I SW,X»40» 


INDICATE 1 CSW STORED 


010F8 


07 


07 


0 


040 D 


040 


663 




XC 


HCSW(8,R13) ,HCSW<R13) 




U11EA 


47 


FO 


F 


1F8 




728 




BC 


UNCINT3 


BR. UNCONDITIONAL 


010FE 


95 


30 


E 


181 




664 




CLI 


SYSM0DCR14) ,X«30» 


CHECK FOR MODEL 30 


011EE 


D2 


07 


F 


5 DA F 


040 


729 


ISV2 


MVC 


ICSW2(8),HCSW(R15) 


SAVE CSW 2 


01102 


47 


60 


F 


IOC 




665 




BC 


UNEQ,M0D44 


BR, IF NOT 


011F4 


96 


20 


F 


0E4 




730 




01 


* ISWfX'20« 


INDICATE 2 CSWS STORED 


01106 


07 


08 


0 


080 0 


080 


666 




XC 


LOGOUT ( 12 ) t LOGOUT 


CLEAR MOD 30 LOGOUT AREA 


011F8 


91 


10 


B 


000 




731 


INT3 


TM 


0(R1U,X»10» 


CHECK CTRL SW FOR 2 INTR EXPECTED 


01 IOC 


91 


80 


Q 


000 




667 


M0D44 


TM 


0(R11) ,X»80 t 


CHECK CONTROL SWITCH FOR NO 1-0 


011FC 


47 


80 


F 


210 




732 




BC 


NONE, ISEN 


BR. IF NOT 


01 1 10 


47 


10 


F 


1A4 




668 




BC 


ALL f INOW 


BR. IF ON 


U1200 


91 


08 


F 


0L4 




733 




TM 


I SW,X»08« 




01114 


91 


CO 


F 


004 




669 




TM 


SNSW, X»CO« 




01204 


47 


10 


F 


210 




734 




BC 


ALL, ISEN 


BR. IF ALREADY ENABLED TWICE 


01118 


47 


80 


F 


160 




670 




BC 


NONE, JOHN 




01208 


96 


08 


F 


0E4 




735 




01 


ISW,X»08» 


INDICATE ENABLED TWICE 














671 


*********************************************************************** 


0120C 


47 


FO 


F 


1B4 




736 




BC 


UNCIWAIT 
















672 


* 




SENSE SWITCH LOOPS 


01210 


91 


02 


B 


000 




737 


ISEN 


TM 


0(R11),X»02» 


CHECK CONTROL SWITCH FOR SNS ON UC 














673 


*********************************************************************** 


01214 


47 


80 


F 


238 




738 




BC 


NONE, IDOSNS 


BR. IF OFF TO ISSUE SENSE 


0111C 


91 


80 


F 


004 




674 


ITRY1 


TM 


SNSWiX'BO* 


CHECK SECTION SENSE SWITCH 0 


01218 


91 


40 


F 


0E4 




739 




TM 


ISW,X»40» 




01120 


47 


80 


F 


12C 




675 




BC 


NONE, ITRY2 


BR. IF OFF 


0121C 


47 


80 


F 


28E 




740 




BC 


NONE, IBSN 


BR. IF NO CSW STORED TO BYPASS SENSE 


01124 


9C 


00 


C 


000 




676 


ILOOP 


S 10 


0 ( R12 ) 


SIO, 110, OR HI 0 


01220 


91 


02 


F 


5D6 




741 




TM 


ICSW1+4,X"02« 


CHECK FOR UNIT CHECK 


01128 


47 


FO 


F 


11C 




677 




BC 


UNCITRY1 


BR. UNCONDITIONAL 


01224 


47 


10 


F 


238 




742 




BC 


ALL, IDOSNS 


IF YES BR. TO ISSUE SENSE 


0112C 


91 


40 


F 


004 




678 


ITRY2 


TM 


SNSN»X'40' 


CHECK SECTION SENSE SWITCH 1 


01228 


91 


20 


F 


0E4 




743 




TM 


ISW,X«20» 


CHECK FOR SECOND CSW 


01130 


47 


80 


F 


14C 




679 




BC 


NONE, IHI 


BR. IF OFF 


0122C 


47 


80 


F 


28E 




744 




BC 


NONE, IBSN 


BR. IF NOT TO BYPASS SENSE 


01134 


9D 


00 


C 


000 




680 


I HANG 


TIO 


0{R12) 


TEST 1-0 


01230 


91 


02 


F 


5DE 




745 




TM 


ICSW2+4,X»02» 


CHECK FOR UNIT CHECK 


01138 


47 


70 


F 


11C 




681 




BC 


NCCCITRYl 


BR. IF NOT COND. CODE 0 


01234 


47 


80 


F 


28E 




746 




BC 


NONE , IBSN 


BR. IF NOT TO BYPASS SENSE 


0113C 


91 


40 


F 


004 




682 




TM 


SNSW,X»40» 


CHECK SECTION SENSE SWITCH 1 


01234 


47 


80 


F 


28E 




746 




BC 


NONE, IBSN 


BR. IF NOT TO BYPASS SENSE 


01140 


47 


80 


F 


14C 




683 




BC 


NONE, IHI 


BR. IF OFF 


01238 


58 


9E 


0 


198 




747 


IDOSNS 


L 


R9,WT<R14) 


LOAD DM WAIT FACTOR 


01144 


9C 


00 


C 


000 




684 




SIO 


0(R12> 


START 1-0 


0123C 


88 


90 


0 


004 




748 




SRL 


R9,4 


ADJUST 


01148 


47 


FO 


F 


134 




685 




BC 


UNCI HANG 


BR. UNCONDITIONAL 


01240 


41 


80 


F 


5E8 




749 




LA 


R8,ISENSE 


LOAD SENSE COMMAND ADDRESS 














686 










01244 


50 


80 


0 


048 




750 




ST 


R8,HCAW(R13) 


STORE IN CAW 


0114C 


58 


IE 


0 


198 




687 


IHI 


L 


R1,WTU4) 




01248 


9C 


00 


C 


000 




751 




SIO 


0(R12) 


ISSUE SENSE 


01150 


88 


10 


0 


003 




688 




SRL 


Rl,3 




0124C 


47 


70 


F 


2 DC 




752 




BC 


NCCO, INDER 


BR. IF NOT ACCEPTED 


01154 


90 


00 


C 


000 




689 


GREG 


TIO 


0(R12) 




01250 


9D 


00 


C 


000 




753 


ITIOLP 


TIO 


0(R12) 


TEST 1-0 


01158 


47 


80 


F 


160 




690 




BC 


CCO, JOHN 




01254 


47 


40 


F 


278 




754 




BC 


CC1, ILOKE 


BR. IF CSW STORED 


0115C 


46 


10 


F 


154 




691 




BCT 


R1,GREG 




01258 


46 


90 


F 


250 




755 


ITIC 


BCT 


R9, ITIOLP 




01160 


D7 


01 


F 


0E4 F 


0E4 


692 


JOHN 


XC 


ISW(2) ,ISW 




0125C 


47 


FO 


F 


28E 




756 




BC 


UNC IBSN 


BR. UNCONDITIONAL 


01166 


96 


80 


F 


0E4 




693 




01 


ISW,X 9 80« 




01260 


91 


40 


F 


0E4 




757 


IN0EX1 


TM 


ISW,X«40« 




0116A 


92 


E7 


F 


50F 




694 




MVI 


IACTCC+5,C»X» 


MOVE IN A -X- 


01264 


47 


10 


F 


2 DC 




758 




BC 


ALL , INDER 


BR. IF CSW STORED 


0116E 


9C 


00 


C 


000 




695 


ISSUE 


SIO 


0(R12) 


1-0 COMMAND- SIO, TIO, OR HIO 


01268 


47 


FO 


F 


260 




759 




BC 


UNCIDUNCK 


BR. UNCONDITIONAL 


01172 


47 


80 


F 


1A0 




696 




BC 


CCO, IZERO 


BR. IF COND. CODE 0 


0126C 


91 


20 


F 


0E4 




760 


IN0EX2 


TM 


ISW,X«20» 




01176 


47 


40 


F 


18E 




697 




BC 


CC1,I0NE 


BR. IF COND. CODE 1 


01270 


47 


10 


F 


2 DC 




761 




BC 


ALL, INDER 


BR. IF CSW 2 STORED 


0117A 


47 


20 


F 


186 




698 




BC 


CC2,ITW0 


BR. IF COND. CODE 2 


01274 


47 


FO 


F 


2 EO 




762 




BC 


UNCIDUNCK 


BR. UNCONDITIONAL 


0117E 


92 


F3 


F 


50F 




699 




MVI 


IACTCC+5,X«F3« 


INDICATE COND. CODE 3 


01278 


95 


OC 


D 


044 




763 


ILOKE 


CLI 


HCSW+4IR13) ,X«OC« 


CHECK FOR CE DE ONLY 


01182 


47 


FO 


F 


1A4 




700 




BC 


UNCINOW 


BR. UNCONDITIONAL 


0127C 


47 


70 


F 


258 




764 




BC 


NCCO,ITIC 


BR. IF NOT 


01186 


92 


F2 


F 


50F 




701 


ITWO 


MVI 


IACTCC+5,X«F2« 


INDICATE COND. CODE 2 


01280 


96 


04 


F 


0E4 




765 




01 , 


ISW,X , 04» 


INDICATE SENSE DATA RECIEVED 


0118A 


47 


FO 


F 


1A4 




702 




BC 


UNCINOW 


BR. UNCONDITIONAL 


01284 


D5 


00 


F 


575 B 


005 


766 




CLC 


IACSNS+5(1),5(R11) 


COMPARE FOR EXPECTED SENSE 


0118E 


92 


Fi 


F 


50F 




703 


IONE 


MVI 


IACTCC+5,X«F1« 


INDICATE COND. CODE 1 


0128A 


47 


60 


F 


2 DC 




767 




BC 


UNEO, INDER 


BR. IF UNEQUAL 


01192 


02 


07 


F 


5D2 D 


040 


704 




MVC 


ICSWK8) ,HCSW(R13) 


SAVE CSW 


0128E 


05 


00 


F 


50F B 


004 


768 


IBSN 


CLC 


IACTCC+5I1) ,4<RU) 


COMPARE FOR EXPECTED COND* CODE 


01198 


96 


40 


F 


0E4 




705 




01 


ISW,X«40» 


INDICATE 1 CSW 


01294 


47 


60 


F 


2 DC 




769 




BC 


UNEQ, INDER 


BR. IF UNEQUAL 


0119C 


47 


FO 


F 


1A4 




706 




BC 


UNCINOW 


BR. UNCONDITIONAL 


01298 


91 


08 


B 


000 




770 




TM 


OtRlDtX'OB* 




Oil AO 


92 


FO 


F 


50F 




707 


IZERO 


MVI 


IACTCC+5, X»F0« 


INDICATE COND. CODE 0 


0129C 


47 


80 


F 


260 




771 




BC 


N0NE,IN0EX1 


BR* IF NO CSW EXPECTED 


011A4 


94 


7F 


F 


0E4 




708 


INOW 


NI 


ISW,X»7F» 


TURN OFF HANG UP SWITCH 


012A0 


91 


40 


F 


0E4 




772 




TM 


ISW,X»40« 




011A8 


91 


40 


8 


000 




709 




TM 


0CRll)tX'40* 


CHECK CONTROL SWITCH FOR NO ENABLE 


012A4 


47 


60 


F 


2 DC 




773 




BC 


NONE, INDER 


BR* IF NO CSW RECIEVED 


011AC 


47 


10 


F 


210 




710 




BC 


ALL , I SEN 


BR. IF ON 


012A8 


48 


8B 


0 


006 




774 




LH 


R8,6(R11) 


LOAD CSW ADDR 


01180 


96 


10 


F 


0E4 




711 




01 


ISNfXUO* 


INDICATE ENABLED ONCE 


012AC 


40 


80 


F 


2B4 




775 




STH 


R8,ICCSWl+4 


STORE IN COMPARE INSTR* 


01184 


58 


9E 


0 


198 




712 


IWAIT 


L 


R9,WT(R14> 


LOAD DM WAIT FACTOR 


012B0 


D5 


07 


F 


5D2 F 


5 02 


776 


ICCSW1 


CLC 


ICSW1(8),ICSW1 


COMPARE FOR EXPECTED CSW 
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012B6 


47 


60 


F 


2 DC 






777 




BC 


UNEQt INDER 


012BA 


91 


04 


B 


000 






778 




TM 


0(R11) ,X«04' 


012BE 


47 


80 


F 


26C 






779 




BC 


NONE v I N0EX2 


012C2 


91 


20 


F 


0E4 






780 




TM 


ISWiX^O' 


012C6 


47 


80 


F 


2 DC 






781 




BC 


NONE* INDER 


012CA 


41 


88 


0 


008 






782 




LA 


R8,8(R8) 


012CE 


40 


80 


F 


2 06 






783 




STH 


R8, ICCSW2+4 


012D2 


D5 


07 


F 


5DA 


F 


5 DA 


784 


ICCSW2 


CLC 


ICSW2(8),ICSW2 


012D8 


47 


80 


F 


2E0 






785 




BC 


EQ, IDUNCK 


012DC 


96 


01 


F 


0E4 






786 


INDER 


01 


ISW,X»01» 


012E0 


92 


64 


F 


310 






787 


IOUNCK 


MVI 


IFLAGl,X«64» 


012E4 


92 


CO 


F 


4A4 






788 




MVI 


IFLAG2,X«C0» 


012E8 


91 


01 


F 


0E4 






789 




TM 


ISWt X'Ol* 


012EC 


47 


10 


F 


300 






790 




BC 


ALL, IOUTIT 


012F0 


91 


01 


F 


004 






791 




TM 


SNSVy ,X»01 • 


012F4 


47 


80 


F 


4 CO 






792 




BC 


NONE » I LEAVE 


012F8 


92 


24 


F 


310 






793 




MVI 


IFLAGl,X , 24 t 


012FC 


92 


80 


F 


4A4 






794 




MVI 


IFLAG2,X•8Q• 


01300 


D2 


01 


F 


59C 


B 


002 


795 


IOUTIT 


MVC 


ITSTN0+5( 2) ,2(R11) 


01306 


OA 


DO 










796 




SVC 


X^DD 1 


01308 


0002 










797 




DC 


AL2(2) 


0130A 


059C 










798 




DC 


AL2< ITSTN0+5-SECN0) 


0130C 


059C 










799 




DC 


AL2( I TSTN0+5-SECN0) 


0130E 


OA 


00 










800 




SVC 


X»DO« 


01310 


64 












801 


IFLAG1 


DC 


X»64» 


01311 


09 












802 




DC 


X«09 9 


01312 


F597 










803 




DC 


AL2< ITSTNO-SECNO+REG) 


01314 


41 


80 


0 


004 






804 




LA 


R8,4 


01318 


IB 


88 










805 




SR 


RlltR8 


0131A 


50 


80 


F 


528 






806 




ST 


RlltILINK45 


0131E 


OA 


OD 










807 




SVC 


X»DD» 


01320 


0003 










808 




DC 


AL2(3) 


01322 


0529 










809 




DC 


AL2( I LI NK+ 6- SEC NO) 


01324 


0528 










810 




DC 


AL2( ILINK+5-SECN0) 


01326 


OA 


DO 










811 




SVC 


X'DO' 


01328 


EO 












812 




DC 


X»EO» 


01329 


10 












813 




DC 


X»10« 


0132A 


F523 










814 




DC 


AL 2 ( I L I NK-SECNO+REG ) 


0132C 


41 


BB 


0 


004 






815 




LA 


R11,4(R11) 


01330 


91 


80 


B 


000 






816 




TM 


OtRlDtX'SO' 


01334 


47 


10 


F 


3BA 






817 




BC 


ALL,IOCSW 


01338 


OA 


DD 










818 




SVC 


X»DD« 


0133A 


0003 










819 




DC 


AL2(3) 


0133C 


05F0 










820 




DC 


AL2U0ADR-SECN0) 


0133E 


0519 










821 




DC 


AL2U0ADDR+5-SECN0) 


01340 


OA 


DO 










822 




SVC 


X«DO« 


01342 


EO 












823 




DC 


X«EO« 


01343 


OF 












824 




DC 


X'GF* 


01344 


F514 










825 




DC 


AL2 ( I OADDR— SECNO+REG ) 


01346 


95 


9C 


F 


16E 






826 




CLI 


ISSUE, X»9C» 


0134A 


47 


60 


F 


3A4 






827 




BC 


UNEQ, ICCOUT 


0134E 


50 


AO 


F 


538 






828 




ST 


R10,ICAW+5 


01352 


OA 


DD 










829 




SVC 


X«DD» 


01354 


0003 










830 




DC 


AL2(3) 


01356 


0539 










831 




DC 


AL2 ( ICAW+6-SECN0) 


01358 


0538 










832 




DC 


AL2UCAW+5-SECN0) 


0135A 


OA 


DO 










833 




SVC 


X«DO» 


0135C 


EO 












834 




DC 


X^EO" 


0135D 


OB 












835 




DC 


X«OB« 


0135E 


F533 










836 




DC 


AL2UCAW-SECN0+REG) 


01360 


02 


02 


F 


546 


F 


542 


837 




MVC 


IBLAH+1(3),ICCW 


01366 


92 


16 


F 


39F 






838 




MVI 


ICNT,X«16» 


0136A 


50 


AO 


F 


818 






839 




ST 


R10,SAV10 


0136E 


D2 


07 


F 


408 


A 


000 


840 


ICWOUT 


MVC 


W0RK(8)«0(R10) 


013T4 


45 


90 


F 


388 






841 




BAL 


R9 f ICOUT 



BR. IF UNEQUAL 

BR. IF NO CSW 2 EXPECTED 

BR. IF NO CSW 2 RECIEVED 
UPDATE TO SECOND CSW 

COMPARE FOR EXPECTED CSW 2 

BR. IF EQUAL 

INDICATE AN ERROR 

SET UP FOR ERROR PRINTOUT 

CHECK FOR A DETECTED ERROR 
BR. IF ERROR DETECTED 
CHECK SECTION SENSE SWITCH 7 
BR. IF OFF 

SET UP FOR CORRECT PRINTOUT 

MOVE TEST NUMBER TO PRINT 
CONVERT TEST NUMBER 



PRINT TEST NUMBER 

ADJUST LINK ADDRESS FOR PRINTOUT 
CONVERT LINK ADDRESS 

PRINT LINK ADDRESS 



BR. IF NO 1-0 COMMAND ISSUED 
CONVERT 1-0 ADDRESS 



PRINT 1-0 ADDRESS 



COMPARE FOR SIO COMMAND 
BR. IF NOT 
STORE CCW ADDR. 
CONVERT CAW 



PRINT CAW 



MOVE -CCW- TO MESSAGE 
ADJUST COUNT 

MOVE CONTENTS OF REG 10 TO SAVE 
MOVE CCW TO WORK AREA 
BR. TO OUTPUT CCW 



01378 
0137C 
01380 
01384 
01388 
0138A 
0138C 
0138E 
01390 
01396 
0139C 
0139E 
0139F 
O13A0 
013A2 
013A4 
013AA 
013AE 
013B0 
013B1 
013B2 
013B4 
013B6 
013B7 
013B8 
013BA 
013C0 
013C4 
013C8 
013CC 
013D2 
013D6 
013DA 
013DE 
013E2 
013E8 
013EC 
013F0 
013F4 
013FA 
01400 
01404 
01408 
0140C 
01412 
01418 
0141C 
01420 
01424 
0142A 
01430 
01434 
0143A 
0143E 
01442 
01444 
01446 
01448 
0144A 
0144C 
0144D 
0144E 
01450 
01452 
01454 



91 CO 
47 80 
41 AA 
47 FO 
OA DD 
0006 
04D8 
04D8 
D2 07 
D2 07 
OA DO 
EO 

1A 

F545 
07 F9 
D2 00 
58 AO 
OA DO 
EO 
OA 

F500 
OA DO 
EO 
OA 

F50A 
D2 02 

92 1A 
91 08 

47 80 
D2 02 

48 8B 

40 80 

41 88 
40 80 
D2 07 
45 90 
91 40 
47 80 
D2 02 
D2 07 
45 90 
91 04 
47 80 
D2 02 
D2 07 
45 90 
91 20 
47 80 
D2 02 
D2 07 
45 90 
D2 00 
91 04 
47 80 
OA DO 
0001 
056A 
056 A 
OA DO 
EO 

OB 
F565 
OA DD 
0001 
0575 



A 004 
F 3A4 
0 008 
F 36E 



F 54A 
F 553 



F 505 
F 4F8 



F 546 
F 39F 
B 000 



3 EC 
55C 
006 
3E6 
008 
416 
408 
388 
0E4 
404 
55C 

4 08 
388 

B 000 
F 41C 
55C 
4D8 
388 
0E4 
434 
55C 
4 08 
388 
56A 
0E4 
45E 



F 4D8 
F 4E0 



B 004 



F 53F 



F 562 



F 4D8 



F 55F 
F 5D2 



F 562 
F 4D8 



F 55F 
F 5 DA 



B 005 



842 TM 4(R10) f X•C0• 

843 BC NONE, ICCOUT 

844 LA R10,8(R10) 

845 BC UNC, ICWOUT 

846 ICOUT SVC X'DD* 

847 DC AL2(8) 

848 DC AL2(W0RK-SECN0) 

849 DC AL2(W0RK-SECN0) 

850 MVC IBLAH+518) ,WORK 

851 MVC IBLAH+14(8) ,W0RK+8 

852 SVC X»DO« 

853 DC X»EO« 

854 ICNT DC X'lA' 

855 DC AL2( I BLAH-SECNO+REG ) 

856 BCR UNC,R9 

857 ICCOUT MVC I EXPCC+5 < 1 ) ,4 < R 1 1 ) 

858 L R10,ISLAVE 

859 SVC X»DO« 

860 DC X'EO* 

861 DC X»OA» 

862 DC AL2< IEXPCC-SECNQ+REG) 

863 SVC X*DO« 

864 DC X»EO« 

865 DC X'OA» 

866 DC AL2 ( I ACTCC-SECNO+REG ) 

867 IOCSW MVC I BLAH+ 1 ( 3 ) , ICSW 

868 MVI ICNT, X'lA • 

869 TM 0(R11 ) ,X , 08» 

870 BC NONE u 10101 

871 MVC IBLAH+23(3) ,IEXP 

872 LH R8,6(R11) 

873 STH R8,ICHNGl+4 

874 LA R8,8(R8) 

875 STH R8,ICHNG2+4 

876 ICHNG1 MVC WORK ( 8) , WORK 

877 BAL R9, ICOUT 

878 IDIDI TM ISW,X»40« 

879 BC NONE, IMORST 

880 MVC IBLAH+23I3) ,IACT 

881 MVC WORM 8) ,ICSW1 

882 BAL R9, ICOUT 

883 IMORST TM 0(R11) ,X , 04« 

884 BC NONE, IDID 

885 MVC IBLAH+23(3) ,IEXP 

886 ICHNG2 MVC WORM 8), WORK 

887 BAL R9, ICOUT 

888 IDID TM ISW,X«20« 

889 BC NONE , I PAS 

890 MVC IBLAH+23C3) ,IACT 

891 MVC WORM 8) f ICSW2 

892 BAL R9, ICOUT 

893 IPAS MVC IEXSNS+5(lf,5(Rll) 

894 TM ISW,X«04 f 

895 BC NONE.IPASS 

896 SVC X«DD« 

897 DC AL2U) 

898 DC AL2UEXSNS+5-SECN0) 

899 DC AL2UEXSNS+5-SECN0) 

900 SVC X'DO* 

901 DC X«E0« 

902 DC X»OB« 

903 DC AL2( I EXSNS-SECNQ4REG ) 

904 SVC X»DD« 

905 DC AL2I1) 

906 DC AL2UACSNS+5-SECNO) 



CHECK FOR ANY CHAIN FLAGS 
BR. IF NONE 
UPDATE TO NEXT CCW 
BR. UNCONDITIONAL 
CONVERT 



MOVE TO MESSAGE 
PRINT 



RETURN VIA REG 9 

MOVE EXP CC TO MESSAGE 

RESTORE REG 10 

PRINT EXPECTED COND. CODE 



PRINT ACTUAL COND. CODE 



MOVE -CSW- TO MESSAGE 
ADJUST COUNT 



BR. IF NO CSW EXPECTED 
MOVE -EXP- TO MESSAGE 



MOVE EXPECTED CSW TO WORK AREA 
BR. TO OUTPUT EXPECTED CSW 

BR. IF NO CSW STORED 

MOVE -ACT- TO MESSAGE 

MOVE ACTUAL CSW TO WORK AREA 

BR. TO OUTPUT ACTUAL CSW 

BR. IF NOT EXPECTING 2 CSWS 
MOVE -EXP- TO MESSAGE 
MOVE EXPECTED CSW TO WORK AREA 
BR. TO OUTPUT EXPECTED CSW 2 

BR. IF NO SECOND CSW STORED 
MOVE -ACT- TO MESSAGE 
MOVE CSW TO WORK AREA 

MOVE EXP SENSE TO MESSAGE 

BR* IF NO SENSE DATA RECIEVED 
CONVERT EXPECTED SENSE 



PRINT EXPECTED SENSE 
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01456 


0575 


907 




DC 


AL2(IACSNS+5-SECN0) 




Q1458 


OA PO 


908 




SVC 


X»DO' 


PRINT ACTUAL SENSE DATA 


0145A 


EQ 


909 




DC 


X'EO 1 




0145B 


OB 


910 




DC 


X'OB 1 




0145C 


F570 


911 




DC 


AL2( IACSNS-SECNO+REG) 




0145E 


95 30 E 181 


912 


IPASS 


CLI 


SYSM0D(R14) tX'30 9 


CHECK FOR MODEL 30 


01462 


47 60 F 4A2 


913 




BC 


UNEQ, IOPOUT 


BR. IF NOT 


01466 


D2 OB F 4D8 0 080 


914 




MVC 


WORK ( 12 ) t LOGOUT 


MOVE LOGOUT TO WORK AREA 


0146C 


OA DD 


915 




SVC 


X'DO 1 


CONVERT 


0146E 


OOOC 


916 




DC 


AL2< 12) 




01470 


04D8 


917 




DC 


AL2(W0RK-SECN0) 




01472 


0408 


918 




DC 


AL2( WQRK-SECNO) 




01474 


D2 01 F 580 F 4D8 


919 




MVC 


IOLOG+512) f WORK 


MOVE LOG OUT TO MESSAGE 


0147A 


02 05 F 583 F 4DA 


920 




MVC 


I0L0G+8(6) tWORK+2 




01480 


D2 05 F 58A F 4E2 


921 




MVC 


I0L0G+15<6) ,W0RK+10 




01486 


D2 05 F 591 F 4EA 


922 




MVC 


I0L0G+22( 6) ,W0RK+18 




0148C 


OA DO 


923 




SVC 


X^DO 1 


PRINT LOG OUT 


0148E 


EO 


924 




DC 


X'EO' 




0148F 


1C 


925 




DC 


X'lC 




01490 


F57B 


926 




DC 


AL2( IOLOG-SECNO+REG) 




01492 


91 02 F 0E4 


927 




TM 


I SW,X , 02* 




01496 


47 80 F 4A2 


928 




BC 


NONE , IOPOUT 


BR* IF NOT UIO 


0149A 


94 FD F 0E4 


929 




NI 


ISWyX^FD 1 


RESET UIO SWITCH 


0149E 


47 FO F 1B4 


930 




BC 


UNC * I WA I T 


BR. UNCONDITIONAL 


014A2 


OA 00 


931 


IOPOUT 


SVC 


X'DO 1 


PRINT LOOP OPTIONS THEN HALT 


014A4 


CO 


932 


IFLAG2 


DC 


X'CO* 




014A5 


32 


933 




DC 


X , 32* 




014A6 


F5A0 


934 




DC 


AL2( I0PT1-SECN0+REG) 




014A8 


OA 00 


935 




SVC 


X 'DO 1 


SPACE A LINE 


014AA 


AO 


936 




DC 


X'AO 1 




014AB 


01 


937 




OC 


X' 01 • 




014AC 


F523 


938 




DC 


AL2( ILINK-SECNO+REG) 




014AE 


50 AD 0 048 


939 




ST 


R10,HCAW(R13) 


STORE CAW 


014B2 


91 CO F 004 


940 




TM 


SNSW, X'CO * 


CHECK SECTION SENSE SWITCH 0 AND 


014B6 


47 50 F 11C 


941 




BC 


ANYt ITRY1 


BR. IF ANY ON 


014BA 


91 01 F 0E5 


942 




TM 


ISW+ltX*01' 




014BE 


07 15 


943 




BCR 


ALL tR5 


RETURN VIA REG 5 IF HANG UP 


014C0 


91 08 B 000 


944 


ILEAVE 


TM 


0(R11) 9 X'OS* 




014C4 


47 80 F 4CC 


945 




BC 


NONE » IUP 


BR. IF NO CSW EXPECTED 


014C8 


41 BB 0 002 


946 




LA 


Rllt2(Rll ) 


UPDATE LINK ADDRESS FOR RETURN 


014CC 


41 BB 0 006 


947 


IUP 


LA 


R11,6(R11) 




01400 


98 89 F 4F0 


948 




LM 


R8»R9, ISAVE 


RESTORE REGS 8 AND 9 


014D4 


07 FB 


949 




BCR 


UNCRll 


RETURN VIA REG 11 


014D6 


07 00 


950 




CNOP 


0,8 




014D8 




951 


WORK 


DS 


24C 




014F0 


0000000000000000 


952 


ISAVE 


DC 


XLS^O* 




014F8 


0000000000000000 


953 


ISLAVE 


DC 


XLB'O* 


REGISTER SAVE AREA 


01500 


40C3C34040E740C5 


954 


IEXPCC 


DC 


C* CC X EXP' 




01508 


E7D7 












0150A 


40C3C34040E740C1 


955 


IACTCC 


DC 


C* CC X ACT* 




01512 


C3E3 












01514 


40CIC4D940E7E7E7 


956 


IOAOOR 


DC 


C» ADR XXXXXX SIO* 




0151C 


E7E7E740E2C9D6 












01523 


00 


957 




DC 


X^OO* 




01524 




958 




CNOP 


0,4 




01523 




959 




ORG 


*-l 




01523 


40C1C4D940E7E7E7 


960 


IL INK 


DC 


C» ADR XXXXXX LINK* 




0152B 


E7E7E740D3C9D5D2 












01533 


00 


961 




DC 


X«00» 




01534 




962 




CNOP 


0,4 




01533 




963 




ORG 


*-l 




01533 


40C3C1E64QE7E7E7 


964 


ICAW 


DC 


C* CAW XXXXXX • 




0153B 


E7E7E740 












0153F 


C3E2E6 


965 


ICSW 


DC 


C'CSW* 




01542 


C3C3E6 


966 


ICCW 


OC 


C^CCW" 
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HULocc to40 1 ft f c7 


967 


IBLAH 


OC 


C 1 CSW XXXXXXXX XX* 


01 54D 


trtftffcffc f 40t7fc7 










ni CCC 
Ul 


C7C7C7 C7C7 C7A r\f~IZ 

tit/tf tftf t r 40C3 


968 




DC 


C • XXXXXX EXP • 




E7D7 










01 55F 


C 1C3E3 


969 


I ACT 


DC 


C'ACT* 


01562 


C5E7D7 


970 


IEXP 


DC 


C*EXP • 


Ul 303 


f U t c. Uj t c *fU 1 1 1 f 


971 


IEXSNS 


DC 


C SNS XX EXP* 




C5E7D7 










01 570 


Anc 7ni» P">Anp7C7/.n 


972 


I ACSNS 


DC 


C SNS XX ACT' 


Ml K7Q 
UL 5fO 












0157B 


HULOUDUlHUClt 1 *tU 


973 


lULUb 


DC 


C LOG XX XXXXXX X' 


01583 


C7P7C7 P7e7C7A.riC7 










HI <iftR 
U13UD 


C7C7C7C7C7AnC7C7 

trtifcftftf Hut f t I 


974 




DC 


C'XXXXX XXXXXX* 




C7C7C7 C7 










01597 


t,flClt9 ClAft p-» C7C7 
HUCJCc CJfU tlCftf 


975 


ITSTNO 


DC 


C T5T XXXX' 


01 59F 


C7 
C f 










ni RAO 


HUCtCt'tUrutUuOU!) 


976 


IOPT 1 


DC 


C" SS 0 ON FOR LOO" 


UI5AO 


A n r a. riA r\a/. r\ ira ni r\£. 












U 1 HUUO U3**U tcwUO 


977 




DC 


C*P ON SIO, SS 1 0* 


01 5B8 


A a a. n po E7Anci AnnA 
0 OHUcc. r if UUo 












U3HUU6U6U , yHUt 3C9 


978 




DC 


C*N FOR TIO SIO LO* 


015C8 


D640E2C9D640D3D6 










015D0 


D6D7 


979 




DC 


C»OP* 


015D2 


0000000000000000 


980 


ICSW1 


DC 


XL8»0» 


i 015DA 


0000000000000000 


981 


ICSW2 


DC 


XL8«0» 


! 015E2 


000000000000 










1 015E8 


0400157500000001 


982 


ISENSE 


CCW 


X*04»,IACSNS+5,X»00«,1 


i 015F0 


00116E 


983 


IOADR 


DC 


AL3( ISSUE) 


! 015F3 


FE 


984 


MSK1 


DC 


X*FE» 


j 015F4 


01 


985 


MSK2 


DC 


X«01« 


I 015F5 


40E2C5C540C4C5E2 


986 


CLUIN 


DC 


C» SEE DESCRIPTION* 


! 015FD 


C3D9C9D7E3C906D5 










1 01605 


60C3D6D4D4C5D5E3 


987 




DC 


C'-COMMENTS* 


0160D 


E2 










0160E 




988 


CKAR 


DS 


132C 


01692 




989 


DRAR 


DS 


132C 


01716 


00 00 










01718 


0200169200000084 


990 


RDCCW 


CCW 


X , 02' f DRAR,X«00 , ,132 



99 X ************************#****^***********^ 

992 * INITIALIZE ROUTINE 

993 **********************^t*****^ 



01720 


IB 


DD 










994 


INIT SR 


R13,R13 


ZERO REG 13 


01722 


91 


40 


E 


196 






995 


TM 


406 (R 14) ,X*40« 


CHECK FOR FORCED PROBLEM STATE 


01726 


47 


80 


F 


730 






996 


BC 


NONE, NITWIT 


BR. IF NOT 


0172A 


18 


DF 










997 


LR 


R13,R15 


SET UP FOR PROBLEM STATE 


0172C 


92 


FB 


F 


8E0 






998 


MVI 


LOAD,X»FB» 


INSURE LOAD NO FOLD 


01730 


58 


CO 


F 


OEO 






999 


NITWIT L 


R12,UNIT1 


LOAO REG 12 WITH UNIT TABLE ENTRY 


01734 


54 


CO 


F 


81C 






1000 


N 


R12,M0D50 


AND OUT UNUSED BITS 


01738 


49 


CO 


F 


7FC 






1001 


CH 


R12,SAVDEV 


COMPARE FOR CURRENT DEVICE ADDRESS 


0173C 


47 


80 


F 


780 






1002 


BC 


EQ,BLOOP 


BR. IF EQUAL 


01740 


40 


CO 


F 


7FC 






1003 


STH 


R12,SAVDEV 


SAVE CURRENT DEVICE ADORESS 


01744 


91 


10 


F 


0E1 






1004 


TM 


UNIT1+1,X*10» 


CHECK FOR UCS FEATURE 


01748 


47 


80 


F 


702 






1005 


BC 


NONE, SCAT 




0174C 


D2 


02 


F 


FB9 


F 


5A6 


1006 


MVC 


FERR0+14<3),I0PTl+6 


MOVE WORD -ON - TO MSG 


01752 


D2 


02 


F 


FC4 


F 


F06 


1007 


MVC 


FERR0+25C3) ,OFF 


MOVE WORD -OFF- TO MSG 


01758 


D2 


02 


F 


FCB 


F 


F83 


1008 


MVC 


FERR0+32I3) ,NOT 


MOVE WORD -NOT- TO MSG 


0175E 


91 


60 


F 


007 






1009 


TM 


SNSW+S^eO* 


TEST FOR DUALING MODE 


01762 


47 


10 


F 


778 






1010 


BC 


ALL, OARIO 


BR. IF DUALING MODE 


01766 


D2 


02 


F 


FB9 


F 


FD6 


1011 


MVC 


FERR0+14(3),0FF 


MOVE WORD -OFF- TO MSG 


0176C 


D2 


02 


F 


FC4 


F 


5A6 


1012 


MVC 


FERR0+25(3),I0PTl+6 


MOVE WORD -ON - TO MSG 


01772 


D2 


02 


F 


FCB 


F 


FCA 


1013 


MVC 


FERR0*32(3) f FERR0*31 


BLANK OUT WORD -NOT- 


01778 


OA 


DO 










1014 


OARIO SVC 


X*D0» 


PRINT SS 24 MSG 


0177A 


04 












1015 


DC 


X»04« 




0177B 


2B 












1016 


DC 


X»2B f 




0177C 


FFAB 










1017 


OC 


AL2 < FERRO-SECNO+REG ) 
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0177E 
01780 
01784 
01788 
0178E 
01792 
01798 
0179E 
O17A0 
017A6 
017AA 
017AE 
017B2 
017B4 
017B5 
017B6 
017B8 
017BA 
017BC 
017BE 
017C2 
017C6 
017CA 
017CE 
017D2 
017D4 
017D5 
01706 
017D8 
017DA 
017E2 
017EA 
017F2 
017F9 
017FA 
017FC 
017FE 
01806 
0180E 
01816 
01818 
01818 
0181C 
01820 
01821 
018A5 



018A6 
018AC 
018B2 
018B8 
018BC 
018C0 
018C4 
018C6 
018C8 
018CA 
018CC 
018CE 
01800 
01808 
018E0 
018E8 



OA OA 


1018 


STAY 


SVC 


X •DA 1 


HAI T FDR <I<I Al TFOAT IflN 


91 80 F 0E4 


1019 


BLOOP 


TM 


I SW, X • 80 • 


THFTK FOR HANft IIP 


47 10 F 7A0 


1020 




BC 


ALL tHANGUP 


BR- IF DETFTTFn 


D2 00 F 8A5 F 003 


1021 




MVC 


RTSAVi 1 ) . SECND-H 




92 40 F 9FB 


1022 




MV I 


LDAR . X • 40 • 


PI PAD 1 nAD AD P A 


D2 EF F 9FC F 9FB 


1023 




MVC 


1 DAR+ 1 f 740 1 • 1 DAR 




D2 83 F 821 F 9FB 


1024 




MVC 


PAAR (1^71.1 DAR 


PI PAD POT KIT AD P A 
ULCAn rHAi>ll AULA 


07 F4 


1025 




BCR 


IIKIf _ R4 


RPTIIDN U1A DCr A 


02 00 F 003 F 8A5 


1026 


HANGUP 


MVC 


SFrNin+^f 1 ) . RT^AV 


MDX/P DTM Nil THAT UAIUP UAC CflllKin 

nuvc k 1 1> nUm imai maino mao rUUlNU 


94 7F F 0E4 


1027 




N I 


T Qu_ Y 'IF • 
* on? a i i 




96 01 F 0E5 


1028 




0 I 


I <\W+ 1 - X • 0 1 • 

lon~ X. ,A *J i. 




98 AB F 4F8 


1029 




LM 


D1 n.DI 1 . T CI AUC 


KfcoluKt Ktbb lU AND 11 


OA 00 


1030 




SVC 


X ' 00 ' 


DD T KIT 


64 


1031 




DC 


X ' 64 ' 


— ddcutdiic UAKirno ncTcncn 


1A 


1032 




DC 


X • 1 A • 




F7FE 


1033 




DC 


AL2 ( HUNG-SECNO+REG ) 




OA 00 


1034 




SVC 


X*DO* 




A019 


1035 




DC 


X*A019* 




F5F5 


1036 




DC 


AL2(CLUIN-SECN0+REG) 




45 50 F 238 


1037 




BAL 


R5, IDOSNS 


BR. TO OUTPUT AVAILABLE INFO 


92 01 F 003 


1038 




MVI 


SECN0+3,X»01« 


RESTORE TO ROUTINE 01 


94 FE F 0E5 


1039 




NI 


ISW+1,X*FE* 




92 00 F 0E4 


1040 




MVI 


ISW,X*00* 


RESET HANGUP SWITCH 


47 FO F 780 


1041 




BC 


UNCBLOOP 




OA 00 


1042 


SCAT 


SVC 


X*DO* 




04 


1043 




DC 


X*04* 




IF 


1044 




DC 


X*1F* 




F7DA 


1045 




DC 


AL2( SCATEL-SECNO+REG ) 




OA 05 


1046 




SVC 


X*D5* 




40C4C5E5C9C3C540 


1047 


SCAT EL 


DC 


C* DEVICE BYPASSED* 




C2E8D7C1E2E2C5C4 












60D5D640E4C3E240 


1048 




DC 


C'-NO UCS DEFINED* 





C4C5C6C9D5C5C4 
00 

07 00 
FFFF 

40D7D9C5E5C9D6E4 
E240C8C1D5C740E4 
D740C4C5E3C5C3E3 
C5C4 

00000000 
00003FFF 
40 

00 



D2 OF 
D2 DF 
02 01 
41 55 
AO 
BO 



9FB F C15 
AOB F 9FB 
8C6 5 000 
002 
800 
0E6 



41 
45 
3E00 
0000 
F000 
F8E8 
07 F5 
00 00 

£800182140000001 
7B00182140000001 
FB0019FB000000F0 
000018 E8 



1049 
1050 
1051 

1052 

1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 

1073 
1074 
1075 
1076 



CNOP 0,4 
SAVDEV DC X • FFFF • 
HUNG DC C* PREVIOUS HANG U* 



DC 



CP DETECTED* 



CNOP 0,4 
DC XL4'0* 
DC X*00003FFF* 
DC X*40* 
DS 132C 
DC X*00* 

*********************************************************************** 

* LOAD UCS SUB-ROUTINE 

A******************************************************************:**** 



SAV10 
M0D50 



PRAR 
RTSAV 



ECONMY MVC 
MVC 

LOADIT MVC 
LA 
LA 
BAL 
DC 

MUMB DC 
DC 
DC 
BCR 

PRELD CCW 

ccw 

LOAD CCW 
LDCSW DC 



LDAR(16),CHAR16 

LDAR+16<224) ,L0AR 

MUMB(2) ,0(R5) 

R5,2(R5) 

RIO, PRELD 

Rll,ISIO 

X*3E00* 

X'OOOO* 

X*F000* 

AL2CLDCSW-SECN0+RE6) 
UNCR5 

X*EB*,PRAR,X*40*,1 
X*7B*,PRAR,X*40*,1 
X*FB*,LDAR,X«00*,240 
A (LDCSW) 



LOAD CHARACTERS INTO BUFFER 
FILL BUFFER WITH 16 CHAR SETS 
MOVE TEST NUMBER 
UPDATE RETURN REG 
LOAD CCW ADDRESS 
BR. TO ISSUE SIO 
CTRL SWITCHES 
TEST NUMBER 

EXP COND CODE AND SENSE 
EXP CSW ADDRESS 
RETURN VIA R5 
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01 8EC 


uOUUUUUU 




1077 




DC 


X*08000000* 






01 8F0 


nnnnnnnn 




lUlo 




DC 


XL4*0* 






01 8F4 


UHUUUU UU 




1079 




DC 


X*04000000* 






Uioro 






1080 




CNOP 


0,4 












108 1 


*********************************************************************** 








1082 


* ROUTINE 01 


- THIS ROUTINE RUNS ON UCS PRINTERS ONLY. ISSUE A 


PRE - 








1083 


* 




CONDITION LOAD COMMAND -EB-, COMMAND CHAINED TO 


A LOAD 








1084 


* 




THE UCS BUFFER -FB- 


COMMAND. REPEAT WITH LOAD WITH 








1085 


* 




FOLDING -F3-. ISSUE 


LOAD WITH SHORT COUNT. ISSUE 


LOAD 








1086 






WITH LONG COUNT. 












1087 


*********************************************************************** 


01 8F8 


0 1 




1088 


R0UT01 


DC 


X*01* 


ROUTINE NUMBER 




01 8F9 


UUU7DO 




1089 




DC 


AL3(ROUT02-SECN0) 


ADDRESS OF NEXT ROUTINE 




01 8 FC 


45 40 F 


720 


1090 




BAL 


R4,INIT 


BR. TO INITIALIZE 




01900 


45 50 F 


8 B2 


1091 




BAL 


R5, LOADIT 


BR. TO LOAD UCS 




01 904 


0010 




1092 




DC 


X*0010* 


TEST NUMBE 


R 


01906 


92 F3 F 


8 EO 


1093 




MVI 


LOAD, X • F3 • 


SET UP FOR FOLDING COMMAND 




0190 A 


45 50 F 


8B2 


1094 




BAL 


R5, LOADIT 


BR. TO LOAD UCS 




01 90E 


0020 




1095 




DC 


X*0020» 


TEST NUMBE 


R 


01910 


92 FB F 


8E0 


1096 




MVI 


LOAD, X • FB • 


RESTORE LOAD COMMAND 




01914 


92 EF F 


957 


1097 




MVI 


LDINC+7,X*EF* 


SET UP SHORT COUNT 




01918 


92 00 F 


95F 


1098 




MVI 


INCCSW+7,X*00* 


SET UP 0 RESIDUAL COUNT 




ni ai r 


41 AO F 


948 


1099 




LA 


RIO^PREINC 


LOAD CCW ADDRESS 




01920 


45 BO F 


0E6 


1 100 




BAL 


RUtlSIO 


BR. TO ISSUE SIO 






3E00 




1101 




DC 


X*3E00» 


CTRL SWITCHES 




01926 


0030 




1 102 




DC 


X*0030* 


TEST NUMBE 


R 


01928 


F000 




1 103 




DC 


X'FOOO* 


EXP COND. CODE AND SENSE 




0192 A 


F958 




1 104 




DC 


AL2( INCCSW- SECNO+REG) 


EXP CSW ADDR 






92 Fl F 


957 


1 105 




MVI 


LDINC+7,X*F1* 


SET UP LONG COUNT 




01 930 


92 01 F 


95F 


1 1 r»A 
1 luo 




MVI 


INCCSW+7,X*01* 


SET UP 1 RESIDUAL COUNT 




01934 


41 AO F 


948 


1 LU 1 




LA 


RIO, PREINC 


PLACE ADDR OF CCW IN REG 10 




01938 


45 BO F 


0E6 


1 108 




BAL 


R11,ISI0 


BR. TO ISSUE SIO 






3E00 




1 109 




DC 


X»3E00* 


CONTROL SWITCHES 




0193E 


0040 




1 110 




DC 


X*0040* 


TEST N UMBE 


R 


01940 


F000 




1111 




DC 


X'FOOO* 


EXP COND CODE AND SENSE 




ni a ao 


F958 




1112 




DC 


AL2UNCCSW-SECN0+REG) 


EXP CSW ADDRESS 




Ul 7**:*f 


OA 06 




1113 


EXIT01 


SVC 


X'D6' 


ROUTINE EXIT 




01946 


00 00 
















01948 


EB0019FB40000001 


1 114 


PREINC 


CCW 


X*EB%LDAR,X*40*,1 








FB0O19FB00OO0OF0 


1115 


LDINC 


CCW 


X'FB' , LDAR, X*00», 240 






01958 


00001958 




1116 


INCCSW 


DC 


A( INCCSW) 






0195C 


08400000 




1 117 




DC 


X*08400000* 






01960 


00000000 




1118 




DC 


XL4*0* 






01964 


04000000 




1119 




DC 


X* 04000000* 






01968 






1 120 




CNOP 


0,4 












1121 


*********************************************************************** 








1 122 


* ROUTINE 02 


- LOAD UCS BUFFER WITH BLANKS. COMMAND CHAIN A PRE - 








1123 






CONDITION LOAD -EB- 


, TO A WRITE NO SPACE -01- COMMAND. 








1124 


* 




EXPECT UNIT CHECK AND EQUIPMENT CHECK. ISSUE DIAGNOSTIC 








1125 


* 




CHECK READ. EXPECT 


PRINT CHECK IN EVERY POSITION. 








1126 


*********************************************************************** 


01968 


02 




1127 


R0UT02 


DC 


X*02* 


ROUTINE NUMBER 




UI707 


000B48 




1128 




DC 


AL3(R0UT03-SECN0) 


ADDRESS OF NEXT ROUTINE 




0196C 


45 40 F* 


720 


1 129 




BAL 


R4,INIT 


BR. TO INITIALIZE 




01970 


45 50 F 


8B2 


1130 




BAL 


R5, LOADIT 


GO TO UCS LOAD ROUTINE 




01974 


0050 




1131 




DC 


X*0050* 


T EST NUMBE 


R 


01976 


41 AO F 


AFO 


1132 




LA 


R10,PCL0AD 


PLACE CCW ADDRESS IN REG 10 




0197A 


45 80 F 


0E6 


1133 




BAL 


Rll.tlSIO 


GO DO SIO 




0197E 


3C00 




1134 




DC 


XL2*3C00* 


CONTROL SWITCHES 




01980 


0060 




1135 




DC 


X*0060* 


TEST NUMBE 


R 


01982 


F010 




1136 




DC 


X'FOIO' 


EXP COND CODE - EXP SENSE 




01984 


FBOO 




1137 




DC 


AL2 < PCLCSW-SECN04REG) 


ADDRESS OF CSW 




01986 


41 AO F 


BIO 


1138 




LA 


R10,DOCKRO 


LOAD ADDRESS OF CCW 




0198A 


45 BO F 


0E6 


1139 




BAL 


RlltlSIO 


GO DO SIO 




0198E 


3800 




1140 




DC 


X*3800* 


CONTROL SWITCHES 
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01990 


0070 


1 141 






A uu * u 


TCCT" fcf 1 1 M D C n 

ltol NUMB, c R 


01992 


F010 


1 142 




DC 


X' F010* 


CAr vUlMU UUUc CAr otNoC 


01994 


FB18 


1 143 




DC 


ai o I run ph— cpnunj-DCfi i 

Hut I bnnKU jCwIiUtKCu 1 


auukcoo Ur tow 


01996 


92 00 F CIO 


1 144 




MVI 


<;KnR.rH . x • nn • 

DI\U!\Un, A UU 


1 UKN Urr I1ILC OH 


0199A 


41 70 0 OR4 


1 145 




1 A 

L A 


B7 111 
n f t WOc. 


lNllIALlcc LUUN 1 Or PKT POS 


0199E 


41 50 F 691 

t A. *J \9 i U 7 1 


1 146 




LA 




imccdt Anno nc rucrv ocAr\ idci 
INicKI AUUK Ur IncLK READ AREA 


019A2 


91 02 5 000 


1 147 


AGA IN 


TM 


u I r\ -J 1 , A Uc 


TPCT cnD DDT KIT CUCflf 

icdi rUK rKlNl L»ncl*l\ 


019A6 


47 80 F 9CA 


1 148 




BC 


NflNF . MnPTPK 

INUrMC t «MUr 1 V*I\ 


DO TC lin DDI KIT CliCCu 


019AA 


4A "50 F QAF 


1 149 


CYCLE 


BCT 


R 5 f * + 4 


UtuKcntiMI LncClV KcAU PUS IT ION 


019AE 


46 70 F 9A2 


1 150 




BCT 


D7. AH A IN 


nFrDPMcfciT DnciTrnM rni imtcd 


019B2 


91 01 F CIO 


1151 




TM 


dMJKV>n f A 111 


CCC TC TTTI C DDTKlTCn 


019B6 


47 80 F 9C8 


1152 




BC 


NONF .FXITO? 


OD tc Kin TTTI F PRINTED 
D l\ • 1 r njU 111 L.C rKIN 1 CU 


019BA 


41 AO F AFO 


1153 




LA 


RlOt PCLOAD 


<tFT UP Tfl RFPFAT URTTF f ru 


019BE 


45 60 F 4A2 


1154 




BAL 


Rll, IOPOUT 


BR- TD PRINT 1 flflP flPTTflM AND MAI T 
orv« iu mini Luur ur i lun Anu hal I 


019C2 


000000000000 


1155 




DC 


XL6'0' 




019C8 


OA D6 


1156 


EXIT02 


SVC 


X , D6 I 


EXIT 


019CA 


91 01 F CIO 


1157 


NOPTCK 


TM 


SKORCH, X'01' 


CHFCK FflR TIT! F PRINTER 


019CE 


47 10 F 9E2 


1158 




BC 


ALL tDIDTLE 


BR. IF TITLF PRINTFD. 


01902 


96 01 F CIO 


1159 




01 


SKORCH»X'01 • 


TURN ON TITLF 


01906 


OA 00 


1160 




SVC 


X'DO' 




01908 


64 


1161 




DC 


X*64* 




01909 


09 


1162 




DC 


X* 09* 




0190A 


FB20 


1163 




DC 


AL2 (BLAB-SECNO+REGl 




019DC 


OA 00 


1164 




SVC 


X 'DO* 




019DE 


AO 


1165 




DC 


X 'AO* 




019DF 


IF 


1166 




DC 


X ' IF • 




019E0 


FB29 


1167 




DC 


AI 7<RI AR 1 — ^FPiyn-fRFfi 1 




019E2 


4E 70 F 408 


1168 


DIDTLE 


CVD 


R 7. UDRK 


rnMWPDT Tn ncriMAi 
bunivcn i iu ucuinAL 


019E6 


F3 21 F C12 F 40E 1169 




UNPK 


Pn^+i I 3 \ • wnRk+A f 7 1 




019EC 


96 FO F C14 


1170 




01 


POS+3.X»FO« 




019F0 


OA 00 


1171 




SVC 


X 'DO* 




019F2 


AO 


1172 




DC 


X' AO' 




019F3 


04 


1173 




DC 


X'04' 




019F4 


FCli 


1174 




DC 


ai ? c pn^~ ^Friun+RFK i 




019F6 


47 FO F 9AA 


1175 




BC 


UNr •€ YrLF 


no _ cno MfiRF 
on. run nunc 


019FA 


40 


1176 


BLANK 


DC 


X' 40* 


BLANK 


019FB 




1177 


LOAR 


DS 


240C 


lire miFFFR t riAn arfa 


01AEB 


0000000000 












01AF0 


EB0019FB40000001 


1178 


PC LOAD 


CCW 


X 'FR ' .1 HAR • X '40* . 1 


PRF-rflNiniTIflN 1 DAfi 
• nc u uiyu x nun luhu 


01AF8 


0100182100000084 


1179 


PRINTA 


CCH 


X'01',PRAR,X'00',132 


WRITE 


01B00 


00OO1BO0 


1180 


PCLCSW 


DC 


A(PCLCSW) 


ADDRESS OF CSW 


01B04 


08000000 


1181 




DC 


X'08000000' 


CSW 


01B08 


00000000 


1182 




DC 


XL4'0' 




01B0C 


06000000 


1183 




DC 


X'06000000' 




01B10 


0600160E20000084 


1184 


DOCKRD 


CCW 


X'06«,CKAR,X'20',132 


DI AG CHECK READ CCW 


01B18 


0000 IB 18 


1185 


CHKRD 


DC 


A ( CHKRD ) 




01B1C 


OEOOOOOO 


1186 




DC 


X'OEOOOOOO' 




01B20 


40E3E2E340F0F0F8 


1187 


BLAB 


DC 


C TST 0080' 


TES T NUM BER 


01B28 


FO 












01B29 


40C6C1C903C5C440 


1188 


BLAB1 


DC 


C FAILED TO SET P' 




01B31 


E30640E2C5E34007 












01B39 


09E340C3C8C5C302 


1189 




DC 


CRT CHECK IN POS' 




01B41 


40C90540D7D6E2 












01B48 




1190 




CNOP 


0,4 








1191 








1192 


* ROUTINE 03 


- LOAD UCS BUFFER WITH 16 CHARACTER SETS. PRINT 132 






1193 


* 




CHARACTERS WHICH ARE NOT IN THE UCS BUFFER. EXPECT 






1194 






UNIT CHECK AND DATA 


CHECK. ISSUE CHECK READ. EXPECT NO 






1195 






PLC BITS TO BE SET 


ON. 






1196 




01B48 


03 


1197 


R0UT03 


DC 


X'03' 


ROUTINE NUMBER 


01B49 


000C28 


1198 




DC 


AL3<R0UT04-SECN0) 


ADDRESS OF NEXT ROUTINE 


01B4C 


45 40 F 720 


1199 




BAL 


R4,INIT 


BR. TO INITIALIZE 


01B50 


45 50 F 8A6 


1200 




BAL 


RStECONMY 


GO TO LOAD UCS ROUTINE 


01B54 


0090 


1201 




DC 


X'0090' 


TEST NUMBER 


DATE 


15MAR66 15N0V66 


120CT67 








ID F 8 32- 


EC'S 


125632 125655 


131812 








PAGE 10 



01B56 


92 CI 


F 821 


1202 




MVI 


01B5A 


D2 82 


F 822 F 821 


1203 




MVC 


01B60 


41 AO 


F AF8 


1204 




LA 


01B64 


45 BO 


F 0E6 


1205 




BAL 


01B68 


3C00 




1206 




DC 


01B6A 


0100 




1207 




DC 


01B6C 


F008 




1208 




DC 


01B6E 


FBOO 




1209 




DC 


01B70 


41 AO 


F BIO 


1210 




LA 


01B74 


45 BO 


F 0E6 


1211 




BAL 


01B78 


3800 




1212 




DC 


01B7A 


0110 




1213 




DC 


01B7C 


F010 




1214 




DC 


01B7E 


FB18 




1215 




DC 


01B80 


92 00 


F CIO 


1216 




MVI 


01B84 


41 70 


0 084 


1217 




LA 


01B88 


41 80 


F 691 


1218 




LA 


01B8C 


91 04 


8 000 


1219 


TECT 


TM 


01B90 


47 10 


F BB4 


1220 




BC 


01B94 


46 80 


F B98 


1221 


TIC 


BCT 


01B98 


46 70 


F B8C 


1222 




BCT 


01B9C 


91 01 


F CIO 


1223 




TM 


O1BA0 


47 80 


F BB2 


1224 




BC 


01BA4 


41 AO 


F AF8 


1225 




LA 


01BA8 


45 BO 


F 4A2 


1226 




BAL 


01BAC 


000000000000 


1227 




DC 


01BB2 


OA 06 




1228 


EXIT03 


SVC 


01BB4 


91 01 


F CIO 


1229 


ERED 


TM 


01BB8 


47 10 


F BCC 


1230 




BC 


01 BBC 


96 01 


F CIO 


1231 




01 


01BC0 


OA DO 




1232 




SVC 


01BC2 


64 




1233 




DC 


01BC3 


09 




1234 




DC 


01BC4 


FC07 




1235 




DC 


01BC6 


OA DO 




1236 




SVC 


01BC8 


AO 




1237 




DC 


01BC9 


23 




1238 




DC 


01BCA 


FBE4 




1239 




DC 


01BCC 


4E 70 


F 4D8 


1240 


NOHDR 


CVD 


01BD0 


F3 21 


F C12 F 4DE 


1241 




UNPK 


01BD6 


96 FO 


F C14 


1242 




01 


01BDA 


OA DO 




1243 




SVC 


01BDC 


AO 




1244 




DC 


01BDD 


04 




1245 




DC 


01BDE 


FC11 




1246 




DC 


01BE0 


47 FO 


F B94 


1247 




BC 


01BE4 


40D7D3C340C2C9E3 


1248 


MITHED 


DC 


01BEC 


40C5D9D9D6D5C5D6 








01BF4 


E4E2D3E84006D540 


1249 




DC 


01BFC 


C9D540D7D6E2C9E3 








01C04 


C9D6D5 




1250 




DC 


01C07 


40E3E2E340F0F1F2 


1251 


TSTELL 


DC 


01C0F 


FO 










01C10 


00 




1252 


SKORCH 


DC 


01C11 


40E7E7E7 


1253 


POS 


DC 


01C15 


F0F1F2F3F4F5F6F7 


1254 


CHAR16 


DC 


01C1D 


F8F9FAFBFCFDFEFF 








01C25 


00 










Q1C26 


07 00 




1255 




CNOP 



PRAR,X'C1' 

PRAR+1(131),PRAR 

RIO, PRINTA 

R1UISI0 

XL2'3C00' 

X'0100' 

X'FOOB" 

AL2 f PCLCSW- SECNO+REG ) 

RIO, DOCKRD 

R11,ISI0 

X'3800' 

X'0110' * 

X'FOIO' 

AL2 (CHKRD— SECNO+REG I 

SKORCH, X '00' 

R7 f 132 

R8,CKAR+131 

0CR8),X'04' 

ALLyERED 

R8,*+4 

R7,TECT 

SKORCH, X'01* 

NONE,EXIT03 

RIO, PRINTA 

Rll, IOPOUT 

XL6'0' 

X'D6' 

SKORCH, X'01' 
ALL, NOHDR 
SKORCH, X'01' 
X'DO' 
X'64' 
X'09' 

AL2( TSTELL- SECNO+REG) 

X'DO' 

X'AO' 

X'23' 

A L 2 ( M I THEO- SEC NO+R EG ) 
R 7, WORK 

P0S+l(3),W0RK+6(2) 

POS+3,X'F0' 

X'DO' 

X'AO' 

X'04' 

AL2 C POS-SECNO+REG ) 
UNCTIC 

C PLC BIT ERRONEO' 
C'USLY ON IN POSIT' 
CION' 

C TST 0120' 



MOVE -A- INTO PRINT AREA 

LOAO PRINT AREA WITH -A- 

SET ADDRESS OF CCW IN REG 10 

GO DO SIO 

CONTROL SWITCHES 

TEST NUMB ER 

EXP COND CODE - EXP SENSE 

ADDRESS OF EXP CSW 

LOAO ADDRESS OF CCW 

GO DO SIO 

CONTROL SWITCHES 

TEST NUMBER 

EXP COND CODE - EXP SENSE 

ADDRESS OF CSW 

RESET SWITCH 

SETUP TO CHECK 132 POS 

LOAD A DDR POS 132 

CHECK FOR PLC BIT 

BR. IF IF ON 

DECREMENT ADDRESS 

BR UNTIL 132 CHECKED 

SEE IF PRINTED HEADING 

SET UP LOOP CCW 

GO PRINT LOOP MESSAGE 

ROUTINE EXIT 

CHECK FOR HEADING PRINTED 
BR IF HEADING WAS PRINTED 
INDICATE HEADING PRINTED 



CORRECT PRINT POS TO DECIMAL 



EST 



N U 



E R 



DATE 
EC'S 



1256 
1257 
1258 
1259 
1260 
1261 



15MAR66 15N0V66 120CT67 
125632 125655 131812 



X'OO' 
C* XXX' 

X'F0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF' 



0,4 



* ROUTINE 04 - LOAD UCS BUFFER WITH A 16 CHARACTER SET. ISSUE BLOCK 

* DATA CHECK COMMAND -73-. PRINT A LINE OF CHARACTERS 

* WHICH WILL NOT COMPARE. EXPECT NO DATA CHECK. ISSUE 

* ALLOW DATA CHECK COMMAND -7B-. PRINT LINE AGAIN. EXPECT 

* DATA CHECK. 



ID 

PAGE 



F832-5 
10A 



G O 



o oooooooooooooooooooooooooo. o 



occcccccoccccccccccccccc 



ccccccoco* 
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1262 


*********************************************************************** 


01C28 


04 




1263 


R0UT04 DC 


X»04» 


ROUTINE NUMBER 






01C29 


OOOCBO 




1264 


DC 


AL3(R0UT05-SECN0) 


ADDRESS OF NEXT ROUTINE 






01C2C 


45 40 F 


720 


1265 


BAL 


R4, INIT 


BR. TO INITIALIZE 






01C30 


45 50 F 


8A6 


1266 


BAL 


R5, ECONMY 


GO TO LOAD UCS ROUTINE 






01C34 


0130 




1267 


DC 


X"0130« 


TEST NUMB 


E 


R 


01C36 


41 AO F 


C88 


1268 


LA 


RIO, BLOCK 


LOAD CCW ADDRESS 






01C3A 


45 BO F 


0E6 


1269 


BAL 


R11,ISI0 


BR. TO ISSUE SIO 






01C3E 


4A00 




1270 


DC 


XL2»4A00» 


CONTROL SWITCHES 






01C40 


0140 




1271 


DC 


X»0140« 


TEST NUMB 


E 


R 


01C42 


F100 




1272 


DC 


X«F100« 


EXP COND CODE AND SENSE 






01C44 


FCA8 




1273 


DC 


AL2 (NORM-SECNO+REG) 


EXP CSW ADDRESS 






01C46 


92 CI F 


821 


1274 


MVI 


PRAR,C»A« 


FILL PRINT AREA WITH -A- 






01C4A 


D2 82 F 


822 F 821 


1275 


MVC 


PRAR+H131) ,PRAR 








01C50 


41 AO F 


AF8 


1276 


LA 


R10,PR INTA 


LOAD PRINT CCW ADDRESS 






01C54 


45 BO F 


0E6 


1277 


BAL 


RlltlSIO 


BR. TO ISSUE SIO 






01C58 


3C00 




1278 


DC 


XL2«3C00» 


CONTROL SWITCHES 






01C5A 


0150 




1279 


DC 


X»0150« 


TEST NUMB 


E 


R 


01C5C 


FOOO 




1280 


DC 


X^FOOO* 


EXP COND. CODE AND SENSE 






01C5E 


FC98 




1281 


DC 


AL2 (ZEIDER-SECNO+REG) 


EXP CSW ADDRESS 






01C60 


41 AO F 


C90 


1282 


LA 


RIO, ALLOW 


LOAD CCW ADDR. 






01C64 


45 BO F 


0E6 


1283 


BAL 


RU,ISIO 


BR. TO ISSUE SIO 






01C68 


4A00 




1284 


DC 


XL2»4A00» 


CONTROL SWITCHES 






01C6A 


0160 




1285 


DC 


X»0160» 


TEST NUMB 


E 


R 


01C6C 


F100 




1286 


DC 


X«F100« 


EXP COND. CODE AND SENSE 






01C6E 


FCA8 




1287 


DC 


AL2 (NORM-SECNO+REG ) 


EXP CSW ADDRESS 






01C70 


41 AO F 


AF8 


1288 


LA 


RIOtPRINTA 


LOAD CCW ADDRESS 






01C74 


45 BO F 


0E6 


1289 


BAL 


R11,ISI0 


BR. TO ISSUE SIO 






01C78 


3C00 




1290 


DC 


XL2«3C00 t 


CONTROL SWITCHES 






01C7A 


0170 




1291 


DC 


X'OITO* 


TEST NUMB 


E 


R 


01C7C 


F008 




1292 


DC 


X»F008» 


EXP COND CODE AND SENSE 






01C7E 


FBOO 




1293 


DC 


AL2(PCLCSW-SECN0+REG) 


EXP ADDR OF CSW 






01C80 


OA 06 




1294 


EXIT04 SVC 


X»D6' 


ROUTINE EXIT 






01C82 


000000000000 














01C88 


7300182100000001 


1295 


BLOCK CCW 


X , 73»,PRAR,X , 00*,1 








01C90 


7B00182100000001 


1296 


ALLOW CCW 


X«7B« ,PRAR, X»00» ,1 








01C98 


00001800 




1297 


ZEIOER DC 


A(PCLCSW) 








01C9C 


08000000 




1298 


DC 


X'OBOOOOOO' 








01CA0 


00000000 




1299 


DC 


XL4 , 0« 








01CA4 


04000000 




1300 


DC 


X»04000000« 








01CA8 


00000000 




1301 


NORM DC 


XL4»0> 








01CAC 


ocoooooo 




1302 


DC 


X'OCOOOOOO 1 








01CB0 






1303 


CNOP 


0,4 














1304 


***^*******************************^^ 








1305 


* ROUTINE 05 


- LOAD ENTIRE UCS BUFFER WITH A 16 CHARACTER SET. 


PRINT 








1306 


* 


ONE OF THESE CHARACTERS. ISSUE A LOAD WITH COUNT OF 1. 








1307 


* 


PRINT CHARACTER AGAIN. 












1308 


*********** 


01CB0 


05 




1309 


ROUT05 DC 


X'05« 


ROUTINE NUMBER 






01CB1 


000004 




1310 


DC 


AL3(R0UT06-SECN0) 


ADDRESS OF NEXT ROUTINE 






01CB4 


45 40 F 


720 


1311 


BAL 


R4, INIT 


BR. TO INITIALIZE 






01CB8 


92 FO F 


8E7 


1312 


MVI 


LOAO+T^'FO* 


INSURE COUNT OF 240 






01CBC 


45 50 F 


8A6 


1313 


BAL 


R5 , ECONMY 


GO TO LOAD UCS ROUTINE 






01CC0 


0180 




1314 


DC 


X»0180» 


TEST NUMB 


E 


R 


01CC2 


92 Fl F 


821 


1315 


MVI 


PRAR,X»F1 • 


PUT -1- IN POSITION ONE OF 


PRT BFR 


01CC6 


41 AO F 


AF8 


1316 


LA 


R10,PRINTA 


PLACE ADDR OF PRINT CCW IN 


REG. 10 


01CCA 


45 BO F 


0E6 


1317 


BAL 


R11,ISI0 


BR. TO PRINT ONE POSITION 




1- 


01CCE 


3E00 




1318 


DC 


XL2»3E00« 


CONTROL SWITCHES 






01CD0 


0190 




1319 


DC 


X»0190« 


TEST NUMB 


E 


R 


01C02 


FOOO 




1320 


DC 


X'FOQO* 


EXP COND CODE - EXP SENSE 






01C04 


FC98 




1321 


DC 


AL 2 (ZEIDER-SECNO+REG ) 


ADDRESS OF EXPECTED CSW 






01CD6 


92 40 F 


9FB 


1322 


MVI 


LDAR.X^O* 


PLACE BLANK IN 1ST POS OF 


BUFFER LDR 


01C0A 


92 01 F 


8E7 


1323 


t MVI 


L0AD+7,X«01« 


SET LOADER CCW FOR COUNT OF 


-1- 


01CDE 


92 20 F 


8E4 


1324 


, MVI 


L0A0+4,X»20« 


SUPPRESS INCORRECT LENGTH 


RECORD 


01CE2 


45 50 F 


8B2 


1325 


BAL 


R5»L0ADIT 


BR. TO LOAD UCS 
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01CE6 


0200 










1326 




DC 


x'o?oo« 


TEST NUMBER 


01CE8 


41 AO 


F 


AF8 






1327 




LA 


Ri0 r PRINTA 


PLACE ADDR OF PRINT CCW IN REG. 10 


01CEC 


45 BO 


F 


0E6 






1328 




BAL 


R11,ISI0 


BR. TO PRINT ONE POSITION -1- 


01CF0 


3E00 










1329 




DC 


XL2»3E00« 


CONTROL SWITCHES 


01CF2 


0210 










1330 




DC 


X , 0210» 


TEST NUMBER 


01CF4 


FOOO 










1331 




DC 


X'FOOO' 


EXP COND COOE - EXP SENSE 


01CF6 


FC98 










1332 




DC 


AL2 (ZEIDER-SECNO+REG) 


ADDRESS OF EXPECTED CSW 


01CF8 


92 FO 


F 


8E7 






1333 




MVI 


L0AD+7»X *F0 ' 


RESTORE CCW COUNT OF 240 


01CFC 


92 00 


F 


8E4 






1334 




MVI 


L0AD+4,X , 00« 


RESTORE INCORRECT LENGTH CHECK 


01000 


OA 06 










1335 


EXIT05 


SVC 


X»D6» 


ROUTINE EXIT 


01D02 


07 00 










1336 




CNOP 


0,4 
















1337 


*********************************************************************** 














1338 


* ROUTINE 06 


- LOAD UCS BUFFER WITH 5 SETS OF 48 CHARACTERS. PRINT 














1339 


* 




A LINE. ISSUE DIAGNOSTIC READ. COMPARE FOR CORRECT 














1340 






READ BACK. LOAD FOURTH QUADRANT CHARACTERS (WITH 














1341 


* 




FOLDING) INTO UCS BUFFER. PRINT AREA CONTAINS FIRST 














1342 


* 




QUADRANT CHARACTERS. IF FOLDING IS OPERATING PROPERLY, 














1343 






EXPECT N 0 DATA CHECK ON THE PRINT COMMAND. 














1344 


************************************** ******4****^ 


01D04 


06 










1345 




DC 


X ' 0 6 -* 


DDI ITT KIP MIIMPCD 
r\UU 1 1 INC iMUrlDCK 


01D05 


000E34 










1346 






Al_ 3 < l\UU 1 U « — oCl»nIUI 


AUUKC jj Ur iMtA 1 KUU 1 INC 


01D08 


45 40 


F 


720 






1347 




BAL 


DA f Ml T 


op Tn TWTTTA1 T7P 


OlDOC 


41 80 


0 


030 


„ 




1348 




LA 


R 8 , 4 8 


Di ATC milMT TWTfl DCf O 


01D10 


41 70 


0 


OFO 






1349 




LA 


R7, 240 


PUT 1 <IT PHAD _cfl- iMTfl Dcr 7 
rUI Xol v*n«f\ TU 1 nl 1 U KCU f 


01D14 


42 78 


F 


9FA 






1350 


nunucii 


STC 


D7.I n AO — 1 f Dft) 
R I J LU At\ 1 (KO 1 


CTnpp r MAO T MTfl nl ICC l n A ft AD P A 
J IUKC UnAK 1 nl 1 U DUrr LUAU AKCA 


01D18 


46 70 


F 


D1C 






1351 




BCT 


R7 f *+4 


PIUUI rl LnHnflt 1 CK OCX 1Mb 0 1 UKCL> 


01D1C 


46 80 


F 


014 






1352 




BCT 




d pm ir £ r m i wt a Kin CTno one nc wcvt ru 

KcUULC LUun 1 ArMU 0 1 UK rU5 Ur IX C A 1 %,rf 


01D20 


D2 BF 


F 


A2B 


F 


9FB 


1353 




MVC 


LDAR+48C 192) , LDAR 


GEnj -5- 48 CHAR SETS IN BUFF LOAD AR 


01026 


45 50 


F 


8B2 






1354 




BAL 


R5, LOADIT 


BR. TO LOAD BUFFER 


0102A 


0220 










1355 




DC 


X«0220« 


TEST NUMBER 


01D2C 


D2 2F 


F 


821 


F 


9FB 


1356 




MVC 


PRAR(48),LDAR 


MOVE CHARACTERS INTO PRINT AREA 


01D32 


02 53 


F 


851 


F 


821 


1357 




MVC 


PRAR+48C84) ,PRAR 


FILL PRINT AREA WITH CHARACTERS 


01D38 


41 AO 


F 


AF8 






1358 




LA 


R10,PRINTA 


PLACE ADDR OF PRINT CCW IN REG 10 


01D3C 


45 BO 


F 


0E6 






1359 




BAL 


R11,ISI0 


BR. TO PRINT A LINE 


01D40 


3E00 










1360 




DC 


XL2«3E00» 


CONTROL SWITCHES 


01D42 


0230 










1361 




DC 


X»0230« 


TEST NUMBER 


01D44 


FOOO 










1362 




DC 


X'FOOO* 


EXP COND CODE - EXP SENSE 


01D46 


FC98 










1363 




DC 


AL2( ZEIDER-SECNO+REG) 


ADDRESS OF EXP CSW 


01D48 


41 AO 


F 


718 






1364 




LA 


R10,RDCCW 


PLACE ADDR OF OIAG READ CCW IN RIO 


01D4C 


45 BO 


F 


0E6 






1365 




BAL 


R11,ISI0 


BR. TO DO OIAG READ 


01D50 


3A00 










1366 




DC 


X^AOO* 


CONTROL SWITCHES 


01D52 


0240 










1367 




OC 


X»0240 t 


TEST NUMBER 


01D54 


FOOO 










1368 




DC 


X , FOOO« 


EXP COND CODE - EXP SENSE 


01D56 


FOFO 










1369 




DC 


AL2 (DIDRED-SECNO+REG ) 


ADDRESS OF EXP CSW 


01D58 


92 00 


F 


CIO 


• 




1370 




MVI 


SKORCH,X , 00« 




0105C • 


D5 83 


F 


821 


F 


692 


1371 




CLC 


PRAR(132),0RAR 




01D62 


47 60 


F 


D94 






1372 




BC 


UNEQ, BADONE 




01D66 


92 F3 


F 


8E0 






1373 




MVI 


LOAD.X^ 1 


INSURE LOAD WITH FOLDING 


01D6A 


45 50 


F 


8B2 






1374 




BAL 


R5, LOADIT 


BR. TO LOAD UCS BUFFER 


01D6E 


0260 










1375 




DC 


X t 0260 l 


T EST NUMBER 


01D70 


41 80 


0 


030 






1376 




LA 


R8,48 


INSERT FIRST CHAR TO BE LOADED 


01D74 


42 88 


F 


820 






1377 


FOLDES 


STC 


R8,PRAR-1(R8) 


GENERATE FIRST QUADRANT CHARACTERS 


01D78 


46 80 


F 


074 






1378 




BCT 


R8, FOLDES 




01D7C 


D2 53 


F 


851 


F 


821 


1379 




MVC 


PRAR+48(84) »PRAR 




01D82 


41 AO 


F 


AF8 






1380 




LA 


R10,PRINTA 




01D86 


45 BO 


F 


0E6 






1381 




BAL 


R11,ISI0 


BR. TO ISSUE SIO 


01D8A 


3E00 










1382 




DC 


X'SEOO* 


CONTROL SWITCHES 


01D8C 


0270 










1383 




DC 


X , 0270» 


TEST NUMBER 


01D8E 


FOOO 










1384 




DC 


X^FOOO* 


EXP COND. CODE AND SENSE 


01D90 


FC98 










1385 




DC 


AL2 (ZEIDER-SECNO+REG) 


EXP CSW ADDRESS 


01092 


OA 06 










1386 


EXIT06 


SVC 


X»D6« 


ROUTINE EXIT 


01D94 


IB 88 










1387 


BADONE 


SR 


R8,R8 




01D96 


IB 77 










1388 




SR 


R7»R7 




01D98 


41 50 


0 


084 






1389 




LA 


R5,132 




0109C 


43 75 


F 


820 






1390 


ANYMOR 


IC 


R7,PRAR-1(R5) 





DATE 
EC'S 



15MAR66 15N0V66 120CT67 
125632 125655 131812 



ID 

PAGE 



F832-5 
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DATE 
EC'S 



15MAR66 15N0V66 120CT67 
125632 125655 131812 



ID 

PAGE 



F832-5 
11A 
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01DA0 
01DA4 
Q1DA6 
01DAA 
01DAE 
01DB2 
010B6 
01DBC 
01DC0 
01DC4 
01DC8 
01DCC 
01DCE 
01DCF 
010D0 
01002 
01DD4 
01DD5 
01DD6 
01008 
01DDC 
01DE2 
01DE6 
01DE8 
01DE9 
01DEA 
01DEC 
010F0 
010FO 
01DF4 
01DF8 
01E00 
01E08 
01E10 
01E18 
01E20 
01E28 
01E2A 
01E32 
01E33 
01E34 



43 85 
19 78 
4? 60 
46 50 
41 AO 
45 BO 



F 691 



F DCO 
F D9C 
F AF8 
F 4A2 
000000000000 
47 FO F D92 



91 01 
47 10 
96 01 
OA DO 
64 
09 

FE2A 
OA DO 
AO 
32 

FDF8 
4E 50 
F3 21 
96 FO 
OA 00 
AO 
04 
FC11 
47 FO 



F CIO 
F DD8 
F CIO 



F 408 
F C12 
F C14 



F DAA 



F 4DE 



00001720 
OCOOOOOO 

40E3D9C1D5E2D3C1 
E306094006D940C2 
E4C60940D607C5D9 
C1E3C5C440C905C3 
D6D9D9C5C3E340C9 
054007 D6E2C9E3C9 
D6D5 

40E3E2E340F0F2F5 

FO 

00 



01E34 


07 






01E35 


OOOEFO 






01E38 


45 40 


F 


720 


01E3C 


91 80 


F 


007 


01E40 


47 10 


F 


E4E 


01E44 


OA DO 






01E46 


04 






01E47 


00 






01E48 


FFE2 






01E4A 


47 FO 


F 


EA6 


01E4E 


02 03 


F 


9FB 


01E54 


02 BF 


F 


A2B 


01E5A 


45 50 


F 


8B2 


01E5E 


0280 






01E60 


02 03 


F 


821 



FA4 
9FB 



1391 




IC 


R8,DRAR-1(R5) 


1392 




CR 


R7,R8 


1393 




BC 


UNEQt INFRM 


1394 


CKMORE 


BCT 


R5f ANYMOR 


1395 




LA 


R 10, PRINTA 


1396 




BAL 


RlltlOPOUT 


1397 




DC 


XL6»0« 


1398 




BC 


UNCEXIT06 


1399 


INFRM 


TM 


SKORCHtX'Ol* 


1400 




BC 


ALLtDIDDO 


1401 




01 


SKORCHf X"01' 


1402 




SVC 


X»D0» 


1403 




DC 


X • 64 • 


1404 




DC 


X , 09 t 


1405 




DC 


AL2 ( BLAB2-SECN0+REG) 


1406 




SVC 


X'DO* 


1407 




DC 


X'AO* 


1408 




DC 


X»32» 


1409 




DC 


AL2t SAYIT-SECNO+REG) 


1410 


OIDDO 


CVD 


R5»W0RK 


1411 




UNPK 


P0S+l(3),W0RK+6<2) 


1412 




01 


P0S+3 f X^FO* 


1413 




SVC 


X'DO* 


1414 




DC 


X«AO« 


1415 




DC 


X»04» 


1416 




DC 


AL2 ( POS-SECNO+REG ) 


1417 




BC 


UNC tCKMORE 


1418 




CNOP 


0,4 


1419 


DIDRED 


DC 


A(INIT) 


1420 




DC 


X'OCOOOOOO* 


1421 


SAYIT 


DC 


C 1 TRANSLATOR OR B« 


1422 




DC 


C'UFR OPERATED INC • 


1423 




DC 


CORRECT IN POSITI* 


1424 




DC 


C'ON* 


1425 


BLAB2 


DC 


C« TST 0250' 



F FAO 



1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 



SET UP TO LOOP 



N U 



CNOP 0,4 

*************************************************** ************** ****** 

* ROUTINE 07 - SECTION SENSE SWITCH 24 MUST BE ON TO INDICATE DUALING 

* MODE, OR THIS ROUTINE WILL BE BYPASSED. THE UCS BUFFER 

* IS LOADED WITH 5 SETS OF CHARACTERS. EACH SET CONSISTS 

* OF 4 DUALING CHARACTERS AND 44 BLANKS. PRINT THE FOUR 

* DUALING CHARACTERS TO CHECK PRINT BUFFER TRANSLATE. THEN 

* PRINT 4 DUALING CHARACTERS TO CHECK DATA BUFFER 

* TRANSLATE. ISSUE DIAGNOSTIC READ TO CHECK RESULTS 
*********************************************************************** 



R0UT07 


DC 


X»07» 


ROUTINE NUMBERS 






DC 


AL3(R0UT08-SECN0) 


ADDRESS OF NEXT ROUTINE 






BAL 


R4,INIT 


BR. TO INITIALIZE 






TM 


SNSW+S.X^O 1 


TEST FOR NO DUALING MODE 






BC 


ALL, GOMAN 


HAVE DUALING, GO TEST IT 






SVC 


X'DO* 


PRINT OUT BYPASS MESSAGE 






DC 


X'04« 


, , 






DC 


X^OD* 








DC 


AL2CBYPS-SECN0+REG) 








BC 


UNCEXIT07 


GO TO NEXT DEVICE 




GOMAN 


MVC 


LDAR(4),REGDUL 


PUT DUAL CHARS INTO 1ST BUFFER 


SET 




MVC 


LDAR+48(192),LDAR 


FILL BUFFER, 4 DUAL ♦ BLANKS, 


5 SETS 




BAL 


R5, LOADIT 


BR. TO LOAD BUFFER 






DC 


X'0280« 


TEST NUMBER 






MVC 


PRAR(4),XLTDUL 


PLACE TRANSLATED DUAL CHARS IN 


PRT 



1403 


PRINTPR 


FUNCTION 


3 












01 E66 


41 AO 


p 


F88 






1 AC1 

X *»3 i. 




1 A 
LA 


Din DDT MTD 
K 1U , r K 1 IM 1 D 


Anno nn r*f*u TMTn xs ti f* \ t\ 
AUUK Or tCW INTU RfcG 10 


01E6A 


45 BO 


p 


0E6 






1452 




BAL 




DK. IU looUC o 1 U 


01E6E 


3C00 










1453 




nr 
uu 


Alt JLUU * 


rniuTDni CUITTUCC 
lUri 1 KUL onl 1 Unto 


01E70 


0290 










1454 




DC 


X * 0290 1 


T C C T K1IIUDCD 


01E72 


FOOO 










1455 




DC 


X * F 000 * 


cvo rnhin rnnc — cvo cckic c 
CAr UUINU UUUt — Cat OCNoC 


01 E74 


FF90 










1456 




nr 
uu 


AL£ \ OAHE— OCUlNU+KCb 1 


Anno nc cvo rcu 
AUUR Ur tXr Low 


01 E76 


D2 03 


F 


821 


F 


FA4 


1457 




Mv/r 


dd ad t a i Dcrnm 


Dl KC ZL 1 IKITn *HIC 1 AT Cf\ (Mill f>|ilDC *M nn T 

PLAUt UNlKANoLAIbD DUAL CHARS IN PRT 




** 1 AU 


F 


F88 






1458 




LA 


Di/\ r» r> t m t n 
R 10, PR INTB 


ADDR OF CCW INTO REG 10 


01 E80 


45 BO 


F 


0E6 






1459 




BAL 


Rll , I SIO 


BR. TO ISSUE SIO 


UlcoH 


3UUU 










1460 




DC 


XL2 ■ 3C00 ■ 


CONTROL SWITCHES 


01 E 86 


nann 










146 1 




DC 


X'UiUU" 


TEST N UMBER 


01 E 8 8 


FOOO 










1462 




DC 


v ■ n tt\ r\ n t 

X'FOOO" 


EXP COND CODE - EXP SENSE 


01 E8 A 


peon 










1463 




DC 


ALZ I SAME— 5cCN0+Rcb » 


ADDR OF EXP CSW 




a i An 


F 


718 






1464 




LA 


Din nnrru 

R 10,RDCCW 


ADDR OF DIAG READ INTO REG 10 


m con 




F 


0E6 






1465 




BAL 


R 1 1 , I SIO 


BR. TO ISSUE SIO 


01 E94 


3800 










1466 




DC 


X •3800' 


CONTROL SWITCHES 


ni pqa 
U L cvo 












1467 




DC 


X " 0310 ' 


T EST NUMBER 


m con 


FOOO 










1468 




DC 


v i r* t\ t\ r% ft 

X • FOOO ■ 


EXP COND CODE - EXP SENSE 


01E9A 


FDFO 










1469 




DC 


AL2( DIDRED-SECNO+REG) 


ADDR OF EXP CSW 


01 E9C 


D5 03 


F 


692 


' F 


FAO 


1470 




CLC 


DRAR (4) ,XLTDUL 


COMPARE FOR XLATED DUALING CHARACTER 


01EA2 


47 60 


F 


EA8 






1471 




BC 


UNEO, XLTERR 


BR. IF NO COMPARE 


01 E A6 


- OA 06 










1472 


EXIT07 


SVC 


X , D6 I 


ROUTINE EXIT 


01 EA8 


OA DO 










1473 


XLTERR 


SVC 


X'DO' 




01 E A A 


64 










1474 




DC 


X • 64 • 




ni c a n 


09 










1475 




DC 


X • 09 • 




ni CAT 


F FD9 










1476 




DC 


AL2 \ BLAB3— SECNO+REG 1 




m CAE 
UitAt 


OA 00 










1477 




SVC 


X*D0' 




ni Pan 


An 

AU 










1478 




DC 


X • AO * 




m cm 

UltOl 


n c 
u r 










1479 




DC 


X«OF« 




m EDO 


rr<cu 










1480 




DC 


AL2(SAYIT1-SECN0+REG) 




Ul Co*t 


n a nn 
U A uu 










148 1 




SVC 


X'DD 1 




UJ. C DO 


nnnA 
uuui- 










1482 




DC 


AL2(4) 




01 EB8 


OFAO 










1483 




DC 


AL2(XLTDUL-SECN0) 




01EBA 


0F7B 










1 Afii 




nr 


AL2(SHUDRD+5-SECN0) 




01 EBC 


D2 02 • 


F 


F6F 


F 


F A8 


1485 




MVC 


SAYIT2+25C3) , INSERT 




01EC2 


OA DO 










1 ADA 
1HOO 




cur 
o vt 


X«D0« 




01 EC4 


AO 










1 AA"7 
1 HO f 




nr 


X'AO* 




01EC5 


2D 










1488 




DC 


X^D* 




01EC6 


FF56 










1489 




DC 


AL2 ( SAYIT2-SECN0+REG ) 




01EC8 


OA DD 










1490 




SVC 


X«DD« 




01ECA 


0004 










1491 




DC 


AL2(4) 




01ECC 


0692 










1492 




DC 


AL2 ( DRAR-SECNO ) 




01ECE 


0F7B 










1493 




DC 


AL2(SHUDRD+5-SECN0> 




01ED0 


D2 02 


F 


F6F 


F 


F6E 


1494 




MVC 


SAYIT2+25(3) ,SAYIT2+24 


01ED6 


OA DO 










1495 




SVC 


X'DO 1 




01ED8 


AO 










1496 




DC 


X»A0« 




01ED9 


2D 










1497 




DC 


X^D 1 




01EDA 


FF56 










1498 




DC 


AL2(SAYIT2-SECN0+R£G) 




01EDC 


41 AO 


F 


F88 






1499 




LA 


R10,PRINTB 


SET UP TO LOOP 


01EE0 


45 BO 


F 


4A2 






1500 




BAL 


R11,I0P0UT 




01EE4 


000000000000 






1501 




DC 


XL6»0» 


» t 


01EEA 


47 FO 


F 


EA6 






1502 




BC 


UNCEXIT07 




01EEE 


07 00 










1503 




CNOP 


0,4 





01EF0 
01EF1 
01EF4 
01EF8 
01EFC 
01F00 



08 

OOFFFF 
45 40 
92 F3 
45 50 
0330 



F 720 
F 8EO 
F 8A6 



1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 



4^**4^********************^^ 

* ROUTINE 08 - LOAD THE UCS BUFFER WITH A 16 CHAR. SET WITH FOLDING. 

* PRINT A LINE OF HEX CHARACTERS -80-, AND -CO-. THESE 

* CHARACTERS SHOULO BE CONSIDERED VALID UNPRINTABLES IN 

* FOLDING MODE. NO DATA CHECK SHOULD BE SET. 
************ 



R0UT08 DC 
DC 
BAL 
MVI 
BAL 
DC 



X»08» 

X'OOFFFF* 

R4,INIT 

L0AD,X"F3 f 

R5,EC0NMY 

X*0330« 



ROUTINE NUMBER 

ADDRESS OF NEXT ROUTINE 

BR. TO INITIALIZE. 

SET UP FOR FOLDING MODE 

GO TO LOAD UCS ROUTINE 

TEST NUMB 



DATE 
EC'S 



15MAR66 15N0V66 120CT67 
125632 125655 131812 



ID 

PAGE 



F832-5 
12 



DATE 
EC'S 



15MAR66 15N0V66 120CT67 
125632 125655 131812 



ID 

PAGE 



F832*5 
12A 



0000-0 000000000000000000000000000 0 



ooooocccccoccoococooccoccooo c c c c c © 
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01F02 


92 80 F 821 


1516 




MVI 


PRAR f X ? 80 • 




01F06 


9% CO F 822 


1517 




My | 


PRAR+1,X'C0' 


FILL PRINT AREA WITH -80 


OlpOA 


D2 40 F 823 F 821 


1518 




MVC 


PRAR+2 ( 65 ) t PRAR 




01F10 


41 AO F AF8 


1519 




LA 


RIOtPRINTA 


LOAD CCW ADDRESS 


01F14 


45 BO F 0E6 


1520 




BAL 


R11,ISI0 


BR. TO ISSUE SIO 


01F18 


3C00 


1521 




DC 


X'3C00' 


CONTROL SWITCHES 


01F1 A 


0340 


1522 




DC 


X'0340' 


TEST NUMB 


01FIC 


FOOO 


1523 




DC 


X'FOOO' 


EXP COND. CODE AND SENSE 


01F1E 


FC98 


1524 




DC 


AL2 (ZEIDER-SECNO+REG) 


WXP CSW ADDRESS 


01F20 


92 FB F 8E0 


1525 




MVI 


LOAD? X 'FB • 


RESTORE LOAD NO FOLD 


01F24 


OA DO 


1526 




SVC 


X'DO' 


PRINT RESTORE MSG 


01F26 


04 


1527 




DC 


X'04' 




01F27 


IB 


1528 




DC 


X'lB' 




01F28 


FF3B 


1529 




DC 


AL2 < BASHED-SECNO+REG ) 




01F2A 


OA 06 


1530 




SVC 


X'D6' 


ROUTINE EXIT 


01F2C 


40C4E4C1D3C9D5C7 


1531 


SAYIT1 


DC 


C DUALING FAILED' 




01F34 


40C6C1C9D3C5C4 












01F3B 


40D9C5E2E3D6D9C5 


1532 


BASHED 


DC 


C RESTORE UCS BUFR WITH F837' 


01F43 


40E4C3E240C2E4C6 












01F4B 


D940E6C9E3C840C6 












01F53 


F8F3J-7 












01F56 


40C4C1E3C140C2E4 


1533 


SAYIT2 


DC 


C DATA BUFR POSIT* 




01F5E 


C6D94007D6E2C9E3 












01F66 


C9D6D5E240F160F4 


1534 




DC 


CIONS 1-4 CON* 




01F6E 


4040404040 C3D6D5 












01F76 


E3C1C9D540E7E7E7 


1535 


SHUDRD 


DC 


C'TAIN XXXXXXXX' 




01F7E 


E7E7E7E7E7 












01F83 


D5D6E3 


1536 


NOT 


DC 


C'NOT' 




01F86 


0000 












01F88 


0100182120000004 


1537 


PRINTB 


CCW 


X'01',PRAR,X'20',4 




01F90 


00001F90 


1538 


SAME 


DC 


A ( SAME ) 




01F94 


08000000 


1539 




DC 


x'oeoooooo* 




01F98 


00000000 


1540 




DC 


XL4'0' 




01F9C 


04000000 


1541 




DC 


X'04000000' 




01FA0 


6C4C7B7C 


1542 


XLTDUL 


DC 


X'6C4C7B7C 




01FA4 


405D7E7D 


1543 


REGDUL 


DC 


X'4D5D7E7D' 




01FA8 


E2C8C4 


1544 


INSERT 


DC 


C'SHD' 




01FAB 


40E2C5C340E2E240 


1545 


FERRO 


DC 


C SEC SS 24 IS OF' 




01FB3 


F2H440C9E240D6C6 













AND -CO- 



LOC 



OBJECT CODE 



STMT 



SOURCE STATEMENT 



DOS CL2-4 



DATE 
EC'S 



15MAR66 15N0V66 120CT67 
125632 125655 131812 



ID 

PAGE 



F832-5 
13 



01FBB 


C640E2C5E340C9E3 


1546 




DC 


C'F SET IT OFF IF • 


01FC3 


40D6C6C640C9C640 










01FCB 


D5D6E340C4E4C1D3 


1547 




DC 


C'NOT DUALING 1 


01FD3 


C9D5C7 










01FD6 


D6C6C6 


1548 


OFF 


DC 


C'OFF' 


01FD9 


40E3E2E340F0F3F2 


1549 


BLAB3 


DC 


C TST 0320' 


01FE1 


FO 










01FE2 


40D9E3D540C2E8D7 


1550 


BYPS 


DC 


C RTN BYPASSED' 


01FEA 


C1E2E2C5C4 











00000 
00007 
OOOOF 
00008 
00004 
00001 
00005 
00008 
00004 
00002 
00001 
00008 
00004 
00002 
00006 
OOOOC 
OOOOA 
00080 
00181 
OFOOO 
0005A 
00000 
00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
OOOOA 
OOOOB 
OOOOC 
0000 D 
OOOOE 
OOOOF 
00198 
0005A 
00040 
00048 
00009 
00008 
OOOOD 
00004 
OOOOC 
OOOOB 



00078 



DATE 
EC'S 



TEST 



N U 



1551 *****************************«****************^ 



1552 


♦ 


EQUATES 


* 


1553 




1554 


NEVER 


EQU 


0 




1555 


NCCO 


EQU 


7 




1556 


UNC 


EQU 


15 




1557 


NONE 


EQU 


8 




1558 


SOME 


EQU 


4 




1559 


ALL 


EQU 


1 




1560 


ANY 


EQU 


5 




1561 


CCO 


EQU 


8 




1562 


CC1 


EQU 






1563 


CC2 


EQU 


2 




1564 


CC3 


EQU 


I 




1565 


EQ 


EQU 


3 




1566 


LO 


EQU 






1567 


HI 


EQU 


2 




1568 


UNEQ 


EQU 


5 




1569 


EQLO 


EQU 


12 




1570 


EQHI 


EQU 


10 




1571 


LUV7UU ! 


EQU 


X'80» 




1572 


SYSMOD 


EQU 


X'181» 




1573 


REG 


EQU 


X'FOOO' 




1574 


WHAT 


EQU 


90 




1575 


RO 


EQU 


0 




1576 


Rl 


EQU 


1 




1577 


R2 


EQU 


2 




1578 


R3 


EQU 


3 




1579 


R4 


EQU 


4 




1580 


R5 


EQU 


5 




1581 


R6 


EQU 


6 




1582 


R7 


EQU 


7 




1583 


R8 


EQU 


8 




1584 


R9 


EQU 


9 




1585 


RIO 


EQU 


10 




1586 


Rll 


EQU 


11 




1587 


R12 


EQU 


12 




1588 


R13 


EQU 


13 




1589 


R14 


EQU 


14 




1590 


R15 


EQU 


15 




1591 


WT 


EQU 


"408 




1592 


WAHT 


EQU 


90 




1593 


HCSW 


EQU 


64 




1594 


HCAW 


EQU 


72 




1595 


NMIXED 


EQU 


9 


NOT MIXED 0 3 


1596 


Z 


EQU 


8 


ZERO 0 


1597 


NCC2 


EQU 


13 


NOT BUSY 0 1 3 


1598 


NOTZRO 


EQU 


4 


NOT ZERO - AND - 1 


1599 


MIXNON 


EQU 


12 


MIXED OR NONE 0 1 


1600 


NCC1 


EQU 


11 


CSW NOT STORED 0 2 3 


1601 


* 








1602 


* 


GENERAL EQUATES 




1603 










1604 


HI ON 


EQU 


120 


HARDWARE I/O NEW PSW LOCATION 



15MAR66 15N0V66 120CT67 
125632 125655 131812 



ID 

PAGE 



F832-5 
13A I 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



P/N 840108 
PAGE 14 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



P/N 840108 
PAGE 14A 



1403 PRINTER FUNCTION 3 



1403 PRINTER FUNCTION 3 



001BC 
001 AO 



1605 
1606 
1607 



DMIO EQU 
DMSSW EQU 
END 



444 
416 



DMIO TABLE 



POST ASSEMBLY DATA 

RELOCATION DICTIONARY 
LOCATION LENGTH 



01015 
0107C 
015E9 
015F0 
01719 
01801 
01809 
018E1 
01868 
01949 
01951 
01958 
01AF1 
01AF9 
01B00 
01B11 
01B18 
01C89 
01C91 
01C98 
01DF0 
01F89 
01F90 
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LABEL CROSS-REFERENCE BY STATEMENT NUMBERS 



LABEL 


LEN 


VALUE 


DEFN 


REFERENCES 


AGAIN 


4 


0019A2 


1147 


1150 




ALL 


1 


000001 


1559 


0668 


0710 










1220 


1230 


ALLOW 


8 


001C90 


1296 


1282 




ANY 


1 


000005 


1560 


0941 




ANYMOR 


4 


001D9C 


1390 


1394 




BADONE 


2 


001D94 


1387 


1372 




BASHED 


27 


001F3B 


1532 


1529 




BLAB 


9 


001B20 


1187 


1163 




BLAB1 


16 


001B29 


1188 


1167 




BLAB2 


9 


001E2A 


1425 


1405 




BLAB3 


9 


001FD9 


1549 


1476 




BLANK 


1 


0019FA 


1176 






BLOCK 


8 


001C88 


1295 


1268 




BLQOP 


4 


001780 


1019 


1002 


1041 


BYPS 


13 


001FE2 


1550 


1444 




CAW 


4 


001048 


0519 






CCO 


1 


000008 


1561 


0690 


0696 


CC1 


1 


000004 


1562 


0697 


0754 


CC2 


1 


000002 


1563 


0698 




CC3 


1 


000001 


1564 






CHAR16 


16 


001C15 


1254 


1062 




CHKRO 


4 


001B18 


1185 


1 143 


1185 


CKAR 


1 


00166E 


0988 


1 146 


1184 


CKMORE 


4 


001DAA 


1394 


1417 




CLUIN 


16 


0015F5 


0986 


1036 




CSW 


8 


001040 


0518 






CYCLE 


4 


0019AA 


1149 


1175 




DARIO 


2 


001778 


1014 


1010 




DIDDO 


4 


001DD8 


1410 


1400 




DIORED 


4 


001DF0 


1419 


1369 


1469 


OIDTLE 


4 


00 19 £2 


1168 


1158 




OMIO 


1 


0001BC 


1605 






DMSSW 


1 


0001A0 


1606 






DOCKRD 


8 


001B10 


1184 


1138 


1210 


DRAR 


1 


001692 


0989 


0990 


1371 


ECONMY 


6 


0018A6 


1062 


1200 


1266 


EQ 


1 


000008 


1565 


0785 


1002 


EQHI 


1 


OOOOOA 


1570 






EQLO 


1 


OOOOOC 


1569 






ERED 


4 


001BB4 


1229 


1220 




EXIT01 


2 


001944 


1113 






EXIT02 


2 


0019C8 


1156 


1152 




EXIT03 


2 


001BB2 


1228 


1224 




EXIT04 


2 


001C80 


1294 






EXIT05 


2 


001D0O 


1335 






EXIT06 


2 


001D92 


1386 


1398 




EX I TOT 


2 


001EA6 


1472 


1445 


1502 


EXNPSW 


5 


001058 


0521 






EXOPSW 


8 


001018 


0513 






FERRO 


16 


001FAB 


1545 


1006 


1007 


FLAG1 


1 


00100E 


0509 






FLAG2 


1 


00100F 


0510 






FOLDES 


4 


001D74 


1377 


1378 




GOMAN 


6 


001E4E 


1446 


1440 




GREG 


4 


001154 


0689 


0691 




HANGUP 


6 


00 17 AO 


1026 


1020 




HCAW 


1 


000048 


1594 


0662 


0750 


HCSW 


I 


000040 


1593 


0663 


0663 


HI 


1 


000002 


1567 






HION 


1 


000078 


1604 







0725 
1400 



0734 
1440 



0742 0758 0761 0790 0817 0943 1010 1020 1158 



1215 
1218 



1391 
1313 



1470 
1514 



1492 



1008 1011 1012 1013 1013 1017 



0704 0726 0729 0763 



HUNG 


16 


0017FE 


1051 


1033 










IACSNS 


11 


001570 


0972 


0766 


0906 


0907 


0911 


0982 


IACT 


3 


00155F 


0969 


0880 


0890 






IACTCC 


10 


00150A 


0955 


0694 


0699 


0701 


0703 


0707 


IBLAH 


16 


001545 


0967 


0837 


0850 


0851 


0855 


0867 


IBSN 


6 


00128E 


0768 


0740 


0744 


0746 


0756 




ICAW 


12 


001533 


0964 


0828 


0831 


0832 


0836 




ICCOUT 


6 


0013A4 


0857 


0827 


0843 








ICCSW1 


6 


0012B0 


0776 


0775 










ICCSW2 


6 


0012D2 


0784 


0783 










ICCW 


3 


001542 


0966 


0837 










ICHNG1 


6 


0013E2 


0876 


0873 










ICHNG2 


6 


001412 


0886 


0875 










ICM 


2 


00100A 


0506 












ICNT 


1 


00139F 


0854 


0838 


0868 








ICOUT 


2 


001388 


0846 


0841 


0877 


0882 


0887 


0892 


ICSW 


3 


00153F 


0965 


0867 










ICSW1 


8 


0015D2 


0980 


0704 


0726 


0741 


0776 


0776 


1CSW2 


8 


0015DA 


0981 


0729 


0745 


0784 


0784 


0891 


1CW0UT 


6 


00136E 


0840 


0845 










IDID 


4 


00141C 


0888 


0884 










IDIDI 


4 


0013EC 


0878 


0870 










IDOSNS 


4 


001238 


0747 


0738 


0742 


1037 






IDUNCK 


4 


0012E0 


0787 


0759 


0762 


0785 






1EXP 


3 


001562 


0970 


0871 


0885 








IEXPCC 


10 


001500 


0954 


0857 


0862 








IEXSNS 


11 


001565 


0971 


0893 


0898 


0899 


0903 




IFLAG1 


1 


001310 


0801 


0787 


0793 








IFLAG2 


1 


0014A4 


0932 


0788 


0794 








I HANG 


4 


001134 


0680 


0685 










IHI 


4 


00114C 


0687 


0679 


0683 








ILEAVE 


4 


0014C0 


0944 


0792 










ILINK 


16 


001523 


0960 


0806 


0809 


0810 


0814 


0938 


ILOKE 


4 


001278 


0763 


0754 










ILOOP 


4 


001124 


0676 












IMORST 


4 


001404 


0883 


0879 










INCCSW 


4 


001958 


1116 


1098 


1104 


1106 


1112 


1116 


INDER 


4 


0012DC 


0786 


0752 


0758 


0761 


0767 


0769 


INFRM 


4 


001DC0 


1399 


1393 










INIT 


2 


001720 


0994 


1090 


1129 


1199 


1265 


1311 


IN0EX1 


4 


001260 


0757 


0771 










IN0EX2 


4 


00126C 


0760 


0779 










INOW 


4 


0011A4 


0708 


0668 


0700 


0702 


0706 




INPSW 


5 


001010 


0511 












INSERT 


3 


001FA8 


1544 


1485 










INT3 


4 


0011F8 


0731 


0728 










IOADDR 


15 


001514 


0956 


0821 


0825 








10 ADR 


3 


0015FO 


0983 


0820 










IOCSW 


6 


0013BA 


0B67 


0817 










IOLOG 


16 


00157B 


0973 


0919 


0920 


0921 


0922 


0926 


I ONE 


4 


00118E 


0703 


0697 










IONPSW 


4 


001078 


0526 












I 00 PS W 


8 


001038 


0517 












IOPOUT 


2 


00 14 A 2 


0931 


0913 


0928 


1154 


*1226 


1396 


I0PT1 


16 


0015A0 


0976 


0934 


1006 


1012 






I OUT IT 


6 


001300 


0795 


0790 










IPAS 


6 


001434 


0893 


0889 










IPASS 


4 


00145E 


0912 


0895 










IRETRN 


4 


001104 


0723 


0527 










ISAVE 


8 


0014F0 


0952 


0661 


0948 








ISEN 


4 


001210 


0737 


0710 


0719 


0732 


0734 




ISENSE 


8 


0015E8 


0982 


0749 










ISIO 


6 


0010E6 


0659 


1067 


1100 


1108 


1133 


1139 










1359 


1365 


1381 


1452 


1459 


ISLAVE 


8 


0014F8 


0953 


0660 


0858 


1029 







0866 



0773 
1347 



0777 
1419 



0781 
1438 



1512 



1205 
1465 



1211 
1520 



1269 1277 1283 1289 1317 1328 
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ISSUE 


4 


00116E 


0695 


0826 


0983 
























ISV2 


6 


0Q11EE 


0729 


0725 


























ISW 


2 


0010E4 


0655 


0692 


0692 


0693 


0705 


0708 


0711 


0714 


0718 


0723 


0724 


0727 


0730 


0733 










0735 


0739 


0743 


0757 


0760 


0765 


0772 


0780 


0786 


0789 


0878 


0888 


0894 










0894 


0927 


0929 


0942 


1019 


1027 


1028 


1039 


1040 










ITIC 


4 


001258 


0755 


0764 


























ITIOLP 


4 


001250 


0753 


0755 


























ITRY1 


4 


00111C 


0674 


0677 


0681 


0941 






















1TRY2 


4 


00112C 


0678 


0675 


























ITSTNO 


9 


001597 


0975 


0659 


0795 


0798 


0799 


0803 


















ITWO 


4 


001186 


0701 


0698 


























IUP 


4 


0014CC 


0947 


0945 


























1WAIT 


4 


0011B4 


0712 


0736 


0930 
























UERO 


4 


0011A0 


0707 


0696 


























JOHN 


6 


001160 


0692 


0670 


0690 
























LDAR 


1 


0019FB 


1177 


1022 


1023 


1023 


1024 


1062 


1063 


1063 


1075 


1114 


1115 


1178 


1322 


1350 










1353 


1353 


1356 


1446 


1447 


1447 
















LDCSW 


4 


0018E8 


1076 


1071 


1076 
























LDINC 


8 


001950 


1115 


1097 


1105 
























LO 


1 


000004 


1566 




























LOAD 


8 


0018E0 


1075 


0998 


1093 


1096 


1312 


1323 


1324 


1333 


1334 


1373 


1513 


1525 






LOAD IT 


6 


0018B2 


1064 


1091 


1094 


1130 


1325 


1354 


1374 


1448 














LOGOUT 


1 


000080 


1571 


0666 


0666 


0914 






















MCNPSW 


8 


001070 


0525 




























MCOPSW 


8 


001030 


0516 




























MITHED 


16 


001BE4 


1248 


1239 


























MIXNON 


1 


OOOOOC 


1599 




























M0D44 


4 


00110C 


0667 


0665 


























M0D50 


4 


00181C 


1055 


1000 


























MORGEN 


4 


001D14 


1350 


1352 


























MSK1 


1 


0015F3 


0984 


0715 


























MSK2 


1 


0015F4 


0985 


0717 


























MUMB 


2 


0018C6 


1069 


1064 


























NCCO 


1 


000007 


1555 


0681 


0752 


0764 






















NCC1 


1 


OOOOOB 


1600 




























NCC2 


1 


OOOOOD 


1597 




























NEVER 


1 


000000 


1554 




























NIOU 


1 


00100D 


0508 




























NITWIT 


4 


001730 


0999 


0996 


























NMIXED 


1 


000009 


1595 




























NOHDR 


4 


001BCC 


1240 


1230 


























NONE 


1 


000008 


1557 


0670 


0675 


0679 


0683 


0732 


0738 


0740 


0744 


0746 


0771 


0773 


0779 


0781 










0792 


0843 


0870 


0879 


0884 


0889 


0895 


0928 


0945 


0996 


1005 


1148 


1152 










1152 


1224 
























NOPTCK 


4 


0019CA 


1157 


1148 


























NORM 


4 


001CA8 


1301 


1273 


1287 
























NOT 


3 


001F83 


1536 


1008 


























NOTZRO 


1 


000004 


1598 




























OFF 


3 


001FD6 


1548 


1007 


1011 
























PCLCSW 


4 


001B00 


1180 


1137 


1180 


1209 


1293 


1297 


















PCLOAD 


8 


001AF0 


1178 


1132 


1153 
























PGNPSW 


8 


001068 


0524 




























PGOPSW 


8 


001028 


0515 




























POS 


4 


001C11 


1253 


1169 


1170 


1174 


1241 


1242 


1246 


1411 


1412 


1416 










PRAR 


1 


001821 


1057 


1024 


1073 


1074 


1179 


1202 


1203 


1203 


1274 


1275 


1275 


1295 


1296 


1315 










1356 


1357 


1357 


1371 


1377 


1379 


1379 


1390 


1450 


1457 


1516 


1517 


1518 










1518 


1518 


1537 






















PRE INC 


8 


001948 


1114 


1099 


1107 
























PRELD 


8 


0018D0 


1073 


1066 


























PRINTA 


8 


001AF8 


1179 


1204 


1225 


1276 


1288 


1316 


1327 


1358 


1380 


1395 


1519 








PRINTB 


8 


001F88 


1537 


1451 


1458 


1499 






















RDCCH 


8 


001718 


0990 


1364 


1464 
























REG 


1 


OOFOOO 


1573 


0803 


0814 


0825 


0836 


0855 


0862 


0866 


0903 


0911 


0926 


0934 


0938 


1017 










1033 


1036 


1045 


1071 


1104 


1112 


1137 


1143 


1163 


1167 


1174 


1209 


1215 










1215 


1235 


1239 


1246 


1273 


1281 


1287 


1293 


1321 


1332 


1363 


1369 


1385 











1385 


1405 


1409 


1416 


1444 


1456 


1463 


1469 


1476 


1480 


1489 


1498 


1524 










1524 


1529 
























REGDUL 


4 


001FA4 


1543 


1446 


1457 
























R0UT01 


1 


0018F8 


1088 


0512 


























R0UT02 


1 


001968 


1127 


1089 


























R0UT03 


1 


001B48 


1197 


1128 


























R0UT04 


1 


001C28 


1263 


1198 


























R0UT05 


1 


001CB0 


1309 


1264 


























R0UT06 


1 


001D04 


1345 


1310 


























R0UT07 


1 


001E34 


1436 


1346 


























R0UT08 


1 


001EFO 


1510 


1437 


























RTSAV 


1 


0018A5 


1058 


1021 


1026 
























RO 


1 


000000 


1575 




























Rl 


1 


000001 


1576 


0687 


0688 


0691 






















RIO 


1 


OOOOOA 


1585 


0660 


0662 


0828 


0839 


0840 


0842 


0844 


0844 


0858 


0939 


1029 


1066 


1099 










1107 


1132 


1138 


1153 


1204 


1210 


1225 


1268 


1276 


1282 


1288 


1316 


1327 










1327 


1358 


1364 


1380 


1395 


1451 


1458 


1464 


1499 


1519 








Rll 


1 


OOOOOB 


1586 


0659 


0660 


0667 


0709 


0731 


0737 


0766 


0768 


0770 


0774 


0778 


0795 


0805 










0806 


0815 


0815 


0816 


0857 


0869 


0872 


0883 


0893 


0944 


0946 


0946 


0947 










0947 


0947 


0949 


1029 


1067 


1100 


1108 


1133 


1139 


1154 


1205 


1211 


1226 










1226 


1269 


1277 


1283 


1289 


1317 


1328 


1359 


1365 


1381 


1396 


1452 


1459 










1459 


1465 


1500 


1520 




















R12 


1 


OOOOOC 


1587 


0676 


0680 


0684 


0689 


0695 


0751 


0753 


0999 


1000 


1001 


1003 






R13 


1 


OOOOOD 


1588 


0662 


0663 


0663 


0704 


0750 


0763 


0939 


0994 


0994 


0997 








R14 


1 


OOOOOE 


1589 


0664 


0712 


0747 


0912 


0995 


















R15 


1 


OOOOOF 


1590 


0726 


0729 


0997 






















R2 


1 


000002 


1577 




























R3 


1 


000003 


1578 




























R4 


1 


000004 


1579 


1025 


1090 


1129 


1199 


1265 


1311 


1347 


1438 


1512 










R5 


1 


000005 


1580 


0943 


1037 


1064 


1065 


1065 


1072 


1091 


1094 


1130 


1146 


1147 


1149 


1200 










1266 


1313 


1325 


1354 


1374 


1389 


1390 


1391 


1394 


1410 


1448 


1514 




R6 


1 


000006 


1581 




























R7 


1 


000007 


1582 


1145 


1150 


1168 


1217 


1222 


1240 


1349 


1350 


1351 


1388 


1388 


1390 


1392 


R8 


1 


000008 


1583 


0661 


0749 


0750 


0774 


0775 


0782 


0782 


0783 


0804 


0805 


0872 


0873 


0874 










0874 


0875 


0948 


1218 


1219 


1221 


1348 


1350 


1352 


1376 


1377 


1377 


1378 










1378 


1387 


1387 


1391 


1392 


















R9 


1 


000009 


1584 


0661 
0948 


0712 


0713 


0716 


0747 


0748 


0755 


0841 


0856 


0877 


0882 


0887 


0892 


SAME 


4 


001F90 


1538 


1456 


1463 


1538 






















SAVDEV 


2 


0017FC 


1050 


1001 


1003 
























SAV10 


4 


001818 


1054 


0839 


























SAY IT 


16 


001DF8 


1421 


1409 


























SAYIT1 


15 


001F2C 


1531 


1480 


























SAYIT2 


16 


001F56 


1533 


1485 


1489 


1494 


1494 


1498 


















SCAT 


2 


0017D2 


1042 


1005 


























SCATEL 


16 


0017DA 


1047 


1045 


























SDMF 


1 


00100C 


0507 




























SECNO 


4 


001000 


0503 


0798 


0799 


0803 


0809 


0810 


0814 


0820 


0821 


0825 


0831 


0832 


0836 


0848 










0849 


0855 


0862 


0866 


0898 


0899 


0903 


0906 


0907 


0911 


0917 


0918 


0926 










0926 


0934 


0938 


1017 


1021 


1026 


1033 


1036 


1038 


1045 


1071 


1089 


1104 










1104 


1112 


1128 


1137 


1143 


1163 


1167 


1174 


1198 


1209 


1215 


1235 


1239 










1239 


1246 


1264 


1273 


1281 


1287 


1293 


1310 


1321 


1332 


1346 


1363 


1369 










1369 


1385 


1405 


1409 


1416 


1437 


1444 


1456 


1463 


1469 


1476 


1480 


1483 


SHUDRD 


13 


001F76 


1535 


1484 


1493 
























SKORCH 


1 


001C10 


1252 


1144 


1151 


1157 


1159 


1216 


1223 


1229 


1231 


1370 


1399 


1401 






SNSW 


4 


001004 


0504 


0669 


0674 


0678 


0682 


0791 


0940 


1009 


1439 












SOME 


1 


000004 


1558 




























SRET 


3 


00105D 


0522 




























STAY 


2 


00177E 


1018 




























SVNPSW 


8 


001060 


0523 




























SVOPSW 


8 


001020 


0514 




























SYSMOD 


1 


000181 


1572 


0664 


0912 
























TECT 


4 


001B8C 


1219 


1222 


























TIC 


4 


001B94 


1221 


1247 


























TSTELL 


9 


001C07 


1251 


1235 
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UNC 


1 


OOOOOF 


1556 


0677 


0685 


0700 


0702 


0706 


0719 


0728 


0736 


0756 


0759 


0762 










0930 


0949 


1025 


1041 


1072 


1175 


1247 


1398 


1417 


1445 


1502 


UNEQ 


1 


000006 


1568 


0665 


0767 


0769 


0777 


0827 


0913 


1372 


1393 


1471 






UNIT1 


1 


0010E0 


0529 


0999 


1004 




















U1ADDR 


2 


0010E2 


0531 
























U10P 


1 


0010E1 


0530 
























WAHT 


1 


00005A 


1592 
























WHAT 


1 


00005A 


1574 
























WORK 


1 


0014D8 


0951 


0840 


0848 


0849 


0850 


0851 


0876 


0876 


0881 


0886 


0886 


0891 










0918 


0919 


0920 


0921 


0922 


1168 


1169 


1240 


1241 


1410 


1411 


WT 


1 


000198 


1591 


0687 


0712 


0747 


















XF8325 


1 


001000 


0003 
























XLTDUL 


4 


001FA0 


1542 


1450 


1470 


1483 


















XLTERR 


2 


001EA8 


1473 


1471 






















Z 


1 


000008 


1596 
























ZEIDER 


4 


001C98 


1297 


1281 


1321 


1332 


1363 


1385 


1524 













OBJECT DECK LIST, PERIODS CORRESPOND TO BLANK COLUMNS* 



0914 0917 



NO STATEMENTS FLAGGED IN THIS ASSEMBLY 



COLS. 



BESD. 
9 



1 THROUGH 20 

, • • AA. • AAXF83 
YQ Y9 
99 9 



COLS. 



21 THROUGH 40 



COLS. 



BTXT. AAA.. A8. • AA82&A 
9 YQY Y9 Y9 9 Y 
999 9 9 9 

BTXT. AA8..A8.. AAA AAA 
9 YQ9 Y9 Y9YYYY 
99 9 9 9999 

BTXT.AA&..AA. .AAA AAA 
9 YQ- YQ Y9YYYY 
990 99 9 9999 

BTXT. AAS..A8..AAC AAA 

9 YQ8 Y9 Y90YYY 
99 9 9 9 9 



BTXT. A JQ. 
9 Y99 
9 

BTXT. A J&. 
9 Y9 
9 



, A8. • AAGA1- 
Y9 Y9ZY 
9 9 

> A8. • AAHAAC 
Y9 Y90QY9 
9 9 99 



BTXT. AJH..A8. 
9 Y90 Y9 
9 9 

BTXT. AJ&..A8. 
9 Y9- Y9 
9 9 

BTXT.AJ8..A8. 
9 Y9 Y9 
9 9 

BTXT.AKA..A8. 
9 Y9Q Y9 
9 Z 9 

BTXT.AKQ..A8. 
9 Y9Z Y9 
9 9 

BTXT.AKJ..A8. 
9 Y9Y Y9 
9 9 

BTXT. AKQ..A8. 
9 Y9 Y9 
9 9 



• AA5GG0 
Y9 8Z 
9 9 

• AAAA53 
Y9YY 
9 9 

•AAAAAA 
Y9-QQY 
9 909 

• AAAB5F 
Y9-9 Q 
9 9 

•AAG02S 
Y9Z 8 
9 

•AAA.OU 
Y9- 
9 

•AAGA2S 
Y9ZY 8 
9 



25..AAAA.AGP 

YYQY Y8Y 
9999 999 

AAAAAAAAAA&AADAAAAQ8 
YYYYYYYYY9-Y99YYYY9 
999999999 9 9999 

AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 



AAAAADAAAAJM 

YYYY99YYYY9 
9999 9999 

AAKA5DABAL48A I40&NAH 
YY 9 QQ9QY QO YYZ 
99 0 9 

AA0DGA1UDA&AG01MA.0D 
-Y 9ZY 8QY-YZ 8- 9 
9 9 9 9 

EA6AGA1-FA1DPA0U0UFA 
QY-YZY ZQ R 9 -Y 
9 9 9 

1MB15GKG5K-.F.0UG01M 
0- 8 9 0 - Z 0 
9 

FA1DAA54D70UG02AD70U 
ZQ YY -8 Z Q-8 
9 9 

GA2AAHOUGA2AFHOUG01D 
ZY Q-9 ZQ Q-9 Z - 
9 9 9 0 

GA2FHFAHHAA0AA5YCEAH 
ZY YRQ9— 0QY9ZY YYZ 
9 9 

AJ0UGA2DG02SED-DGS2H 
-Y ZQ QZ 8-80ZZ- R 
9 9 9 9 0 

GA2DHCAF. A2DNG5K5KG- 
ZY QZYY9 Y - 9 Z 
9 9 0 

FAOUBM3AB&4MAA0UGA3A 
-9 -Z Q — 0-9 ZQ Y 
9 9 9 



41 THROUGH 60 
840 



AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

AAAAAAAAADA AAA AAAAAA 
YYYYYYYYY9YYYYYYYYYY 
999999999 9999999999 



PG-.-.EAJAG-1DPCAAAA 
90 0 -QZOZ 8 8YYYY 
Z 9 99 9 

GA 1DEA£AG£1 MA.00GA1D 
ZY 8QY-YZ- 8- 9ZY 8 
9 9 0 9 

OUBX5G0ACAGA1JG.1FGJ 
- 8QY-YZY YZ YZY 
9 9 9 9 

B05G070UA. AAGA2AFA0U 
- 8-8 - QYZQ Q-Q 
9 09 9 9 9 

A.OUGA10KG5KO.F.OUGO 
ZQ Y 9 - Z 
9 9 

ABAAGA28A.0UGA2FAB50 
-9QYZY 9- ZY Y-9 
09 

DA&AG&2DEA&AG.2HFA2& 
QY-YZ- QQY-YZ RZQ 
9 9 0 9 9 9 0 

FD0UNA5EAEG-2DNA5GAO 
-9 Y RQ9Z Q Y 8Q9 
9 00 9 9 90 

2DADAAGA2UA J0UGA2DAH 
Q-9QYZY 8-Y ZY QZO 
9 09 9 9 

AA0DGA4CBU3ABA4MKA5D 
-9 9ZY — 9 Q-Y 0 9 Q 
9 



COLS. 61 THROUGH 80 
109. 131812. .83250001 



AAAAAA AAA A AA83250002 

YYYYYYYYYYYY 

999999999999 

AAAAAAAAAAAA83250003 

YYYYYYYYYYYY 

999999999999 



•83250004 



AAAAGA1MACOD83250005 
-YQYZQ 0 — 9 
09 9 

DAGAG014H0AH83250006 
QY-YZ 9R89- 
9 9 9 

1FB35GG01MB283250007 
0- 8Z 0- 
9 

HFAHHAACFA0U8 3 250008 
RQ9-0QY9-Y 
9 

18KG5B0.FJ0U83250009 
9 Q -Y 
9 9 

GA28AJ0UGA2F83250010 
ZQ 9-Y ZY Y 
9 9 

G02FA.OUGA2D83250011 
Z Y- ZQ Q 
9 9 

G-2DAHAAGA2-83250012 
Z Q-9QYZY 
9 09 

AH. A20NG5B5B832500 13 
Y9 Y 9 Q Q 
9 9 9 

ABBE ABEDEDB-832500 14 

Q98QY99Q9Q80 

0 999 9 
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BTXT. ALA.. A8. .AAMA5G 
9 Y9Q Y9 Y9Z8 - 
9 9 9 9 9 



AAADLH£A5YBEACE/EYB- 
ZYY98- Q 98QY9989980 
9 90 0 999 9 9 



SA5TACADAAAAGA3BBEAC 
8Q 9ZQY9-YQYZQ Q8QY9 
9 09 09 9 0999 



E0EJB-SG5MED83250015 
9 988088 9-Q 
99 9 



BTXT. APF.. A8. .AAG 150 

9 Y98 Y9 Y9Q- 0 
9 9 9 ZO 



KBGDG0KBGCGCAA0GGA7H 
9Q Q 9QYQ0-Y 9ZQ R 
Z Z Z9Z 9 0 



KBGIG0KBGD50KBGCGBB- 
9Q-Q 9Q 0 9QYQY80 
ZOZ Z Z9Z99 



DTGLBBAA0UGA83250031 
98QY8Q-Y ZQ 
9Z 99 9 



BTXT.ALH..A8. • AA1WG- 
9 Y9Z Y9 Y9 8Z 
9 9 9 



3M£J58BEACE1E8B-SC53 
0 Y 98QY998998088 9 
999 9 9 9 



KB5F5BB03G£ J8QKG4QJA 
9 Z Z-9 Q Y 9 9 YY 
9 



EA3HA£JDGA3M83250016 
ZQ 0 — Y9ZY 0 



BTXT. APF.. A8. .AA7JKA 
9 Y90 Y9 Y9 Y Y 
9 9 9 9 



8N0CB.9CKP9D9CKC8/9C 
0 9- QYQQ09Q 
Z 9 Z Z Z 



G4KA0C8ND70UFA0VHL48 
9 Y 9 0-8 -9 -Y 
9 



B-MK7FB-JJ 55832500 32 
80Z8 Q80Y8 
9 9 Z9 9 



BTXT. ALA.. A8..AAAKAH 
9 Y9Y Y9 Y9ZYY9 
9 9 9 9 



G03WBEAHDQDQKG5B4QKG 
Z 88QY99 9 9 8 9 
999 



5C4SB-SK5EG9KA5EADHJ 
R 88088 Z9 Y 9Q9RY 
9 9 9 0 



48B-SB5AB-SB83250017 
8088 Y8088 
9 9 99 9 



BTXT.APF..A8. .AAE£28 
9 Y9Q Y9 Y9Z 9 
9 0 9 9 



BA0CDF0VBA0UG07AB-DP 
-9 9-Q -Y Z Y8098 
Z 9 9 9 



7BBN. DEVICE. BYPASSED 
Q8 
99 



-N0.UCS.DEFI83250033 



BTXT. ALH.. A8. • AA5BKB 
9 Y9- Y9 Y9 8 9 
9 0 9 9 9 



5F57BK3GAHAAGA3MKB5M 
Z 8-8 Q-9QYZY Y 9 8 
9 9 09 9 



5KHCAF. A3WAHAH. A40KG 
ZZYY9 Y Z0Y9 Y 9 9 
9 9 



4Q4QEA3HA.0U83250018 
ZQ 0- 



BTXT. AP6. • AT. • A AN EDA 
9 Y9 Y8 Y9 Y 
9 99 9 9 



GAGG. PREVIOUS. HANG. U 
9YQQ 
9ZZ 



P .DETECTED A AAA A A7G. 

YYYYYY8Q 
9999999Z 



.83250034 



BTXT. AL0..A8. .AAGA4D 
9 Y9 Y9 Y9ZY 9 
9 9 9 



KB5M5PKG4Q5KEA3HADAA 
9 8 8 9 ZQ 0-9QY 
09 



GA4MKB5M5KKG4Q4QEA3H 
ZY 8 9 8 Z 9 ZQ 0 
9 



AJ0UGA44KB5M83250019 
-Y ZY 9 9 8 
9 



BTXT.AQN..A8. .AAAKG9 
9 Y90 Y9 Y9Y 8 
9 9 9 9 9 



CDNKGBC9CKA8F&AAEABA 
QQ9 QQ8 Q 9 YZRY9Z 
ZZ 9Z9 Z 9 9 



J8-EA0W6AAA0A8YG5AAL 
Y OZQ 8YYY Y 9 YYY 
0 9999 9 999 



AQ/.AAA3AQ/. 83250035 
Y99 YY98Y99 
9 99 9 



BTXT. AMY. .A8..AA5PKG 
9 Y99 Y9 Y9 8 9 
9 9 9 



4Q5BEA3HKA5&AEAD0UGA 
QZQ 0 Y -Q9-9 ZY 
9 9 0 



40BEAAE£EEB-SC5NBEAA 
88QY99-9-8088 Z8QY9 
999 9 9 999 



EEEEB-SC56EA83250020 
9R9R8088 — Q 
0 09 9 0 Z 



BTXT. AQE..A8. • AAAAAC 
9 Y9Q Y9 Y9YY9Q 
9 9 9 9 99 Z 



AJCAAAOAAQYHAAAAAAAD 
Y8QYYY YY9 9YYYYYYY9 
99Z999 99 9999999 



AAAAAAQE.7JEE8BAAB38 
YYY9Y8ZZ YZ -YQ- 
999 99 9 099 



SE68BAJBC8SB83250036 
8Z -YY-Q 8- 
099 Z 



BTXT.AM-..A8..AAJAG- 
9 Y9 Y9 Y9Z0Z 
9 9 9 



4KKC4QAABEADDQDQKA5A 
0 8 YY8QY89 9 9 Y 
9 9 9999 



4QKE5C4BKE5B4SKE5A4K 
90Q9Y 9-Y 
9 9 



B-SM53AB0UGA83250021 
8088 8-9 ZY 
9 9 



BTXT. AJN.. A8. .AAP9GB 
9 Y89 Y9 Y9Y R- 
99 9 9 9 



A9PAJ9HEA0W6AAA0A9HB 
Y 8ZY ZZQ 8YYQ Y R- 
9 0 999Z 9 



19GBA9PAJ9HEA0W6 AA. 0 
R-9 8ZY ZZQ 8YY 
0 999 



A9HB0AALAJC. 83250037 
Y R8 YYYY8C 
9 9 99999Z 



BTXT.AMH..A8. .AA4KDE 
9 Y9- Y9 Y9 0-Q 
9 9 9 Z 



0UG01DB-£25JB-JA5T£N 
Z -80-9 Y80Y9 9 Y 
09 9 



AHA&0DG&1MAA0VGNAHAA 
YZ — 9Z 8-9 99-9QY 
9 9 09 



GA4DACABACAF83250022 
ZY YZQY9ZQY9 
9 09 09 



BTXT. A JE..A8.. AAAAAC 
9 Y88 Y9 Y9YY9Q 
99 9 9 99 Z 



AJCAAAOAAJHH. AAAAAAD 
Y8QYYY YY8R9 YYYYYY9 
99Z999 999 999999 



AAABACHE.7JE£8BA£AJ8 
YYY9Y8ZZ YZ -Y ZYQ 
999 99 9 09 Z 



OEA0W4AA-0AC83250038 
ZQ 8YY OQ 
0 999 9Z 



BTXT. AM-. • AH. .A AH 140 GCGA. 
9 Y90 Y9 Y9-0 9Q9Y 
9 9 9 Z 9 



.83250023 



BTXT. A JE • • A8. .AAAAJC AEA0W8AA£0ACQBADAA£ A 

9 Y80 Y9 Y9YZYQ QZQ 9YY- QQ9-YQQZ-Y 

99 9 9 9 Z 9 0 990 9Z 9Z9 09 



DA£6AA8£AGA9BFE90FE9 
OZ — 9 YZY YZ YZ- 
9 9 0 



KAADAGA9HA JB83250039 
0-9QQZY ZYQ 
Z9 Z 



BTXT. AMO.. A4. .AAAAAA 
9 Y9 Y9 Y9YYYY 
9 9 9 9999 



AAAAAAAAAAAA.CC. X.E 

YYYYYYYYYYYY 

999999999999 



XP.CC. .X. ACT. ADR. XXX 



XXX. SIOA. ...83250024 
Y 
9 



BTXT. A JE. . A8. . AA0EA4 KAAAAAAB0AADAGA9SFAD 
9 Y8Q Y9 Y9 ZQ 0YYYYYY8 -9QQZQ -9Q 

990 9 9 0 9999999 Z9 9 Z 



AB-MAC JB- JPC/FK4Q3/D 
Q80Z8QY80Y8Q88- 9Q 
99 9Z99 9Z9 0 Z 



K4FF0DMB-JDD83250040 
9 Q- Q980Y9Q 
9 Z 9 Z 



BTXT* ANT. .A J. .A A. ADR 

9 Y99 Y9 Y9 
9 9 9 



BTXT. AN3..A8. 
9 Y99 Y9 
9 9 

BTXT. ANT. • A8. 
9 Y98 Y9 
9 9 



.AA.CAW 

Y9 
9 

.AAX.EX 
Y9 
9 



.XXXXXX.LINKA 

Y 
9 

.XXXXXX.CSWCCW.CSW.X 



P. SNS.XX.ACT.LOG. XX. 



.83250025 



XXXXXXX.XXXXXXXX.EXP ACTEXP.SNS.X83250026 



XXXXXX.XXXXXX.XXXXXX .TST.XXXX.SS83250027 



BTXT. AJ5.. AF. 
9 Y8 Y9 
99 9 

BTXT.AKL..A8. 

9 Y8Y Y9 
999 9 

BTXT. ALT. .A8. 
9 Y89 Y9 
99 9 



i AAJG09 
Y99Z 
9 

» AAAAAA 
Y9YYYY 
9 9999 

.AAT.00 
Y9 
9 



ALAJC.AAAAAQ/AAADAAL 
YYY8Q YY99Y99YYY0YY8 
9999Z 99 9 999 999 

80. FAILED. TO. SET. PRT 



AHAAAAAAAFA AAFAOF JAA 
Y9YYYYYYY9YYY9Y98YYY 
9 9999999 999 9 9999 

•CHECK. IN. POSC AD YE .7 
9Y89Z 
99 



.83250041 



DAALQFAAA.TS83250042 
0YY898YYY 
999 9999 

JEE80AABA8/K83250043 
YZ OYQ- 9 
9 9 



BTXT.ANL..A8. 

9 Y90 Y9 
9 9 



.AA.O. 

Y9 
9 



N.FOR.LOOP.ON.SIOT.S 

8 



S.l.ON.FOR.TIO.SIO.L 



00PAAAAAAAAA83250028 
YYYYYYYYY 
999999999 



BTXT. ALL.. A8..AAB8S8 / AJB8EA0W4AAA0HCAAJC 

9 Y88 Y9 Y90 9 9ZYQ ZQ 8Y9Y 9QYZYQ 

99 9 9 Z 0 99 9 Z9 Z 



AEA0W8AAA0ACQBADAAEA 
QZQ 9Y9Q QQ9-YQQZ-Y 
9 0 9 9 9Z 9Z9 09 



DAA6A ADAAGAC83250044 
OZY — 9YYZQQ 
9 9Z 



BTXT. ANC. A3. .AAAAAA A AAA AAAAADANEAAAAAJ W 

9 Y9Q Y9 Y9YYYY YYYYYYYYY9Y9RYYY9Y98 

9 9 9 9 9999 999999999 9 0999 9 

BTXT.AP0..A8. .AAAABA OBA AADLEA. JFGA7AQGBC 

9 Y99 Y9 Y9YY9Y 9-YYY08Q- Z-ZY Q9Q-Q 
9 9 9 99 9 999 99 Z 9 Z 



FA.SEE.DESCRIPTION-C 

Q9 

Z 

8SH£0SD£8MAE7DGA7A. £ 
8R- 8R- 88- QZY Y - 
9 Z 



OMMENTS 83250029 



7DAA0JGA7KKB83250030 
Q-Q ZZY 9 
Z 9 



BTXT. ALC. A8. • AADFAC HFECDAADAGACBAJB8EA4 

9 Y8- Y9 Y9-ZYQ -Z-QY-9QQZYQ-ZYQ ZQ 

99 9 9 0 Z OZ Z9 ZO Z 0 

BTXT. ALC. .A8. .AAUF£4 Q3/DK4FF0DMB-JDDJG0C 

9 Y8Y Y9 Y9 8- 9Q9 Q- Q980Y9Q9Z Q 

999 9 90 Z9Z9ZZ 



KAAAAAABOAADAGACDFAD 
0YYYYYY8 -9QQZQQY-9Q 
9999999 Z9 9Z9 Z 

O.PLC.BIT.ERRONEOUSL 



AB-MADGB-JTC83250045 

Q80Z8Q980Y9Q 

99 9Z 9 Z 

Y.0N.IN.P0SI83250046 
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30000 0 0000000000 0 0000000000000000' J 
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BTXT.AMC..A8..AATI0N 
9 Y89 Y9 Y9 
99 9 9 

BTXT. AM3«. A8. ■ AAAOWB 
9 Y88 Y9 Y9Q 8 
999 9 9 0 

BTXT. AMC-. A8. .AA8EA0 
9 Y8R Y9 Y9 ZQ 
990 9 9 0 

BTXT.AML..A8..AAADAA 
9 Y8Y Y9 Y9Y8YY 
99 9 9 9999 

BTXT. AMT..A8. .AAG8BB 
9 Y8 Y9 Y9 -9 
99 9 9 0 

BTXT.ANL..A8..AAMFAE 
9 Y88 Y9 Y98ZYQ 
999 9 9 9 Z 

BTXT.ANC..A8. .AA.OAE 
9 Y8R Y9 Y9 YQ 
99 9 9 9Z 

BTXT. ANC». A8. • AAAB&O 
9 Y8Y Y9 Y9Y9- 
99 9 9 9 0 

BTXT.ANC..A8..AAAGAE 
9 Y8 Y9 Y9QZQQ 
99 9 9 9 9Z 

BTXT.ANC..A8..AAANSL 
9 Y8Q Y9 Y9 
99Z 9 9 

BTXT.A03..A8..AAAGAF 
9 Y89 Y9 Y9Y9Y8 
99 9 9 9 99 

BTXT.A0T..A8..AAA0W4 
9 Y88 Y9 Y9Q 8 
99 9 9 0 9 

BTXT. AOL. .A8..AA-FQB 
9 Y80 Y9 Y9 Q08 
99 9 9 Z 9 

BTXT.A0C..A8..AAFAJG 
9 Y8Q Y9 Y9RZYQ 
999 9 9 Z 

BTXT.APL.. A8. .AA8EA0 
9 Y89 Y9 Y9 ZQ 
99 9 9 0 

BTXT.APC..A8. .AAR.WI 
9 Y88 Y9 Y9 
99 9 9 



.TST.0120A.XXX012345 
Y 
9 

AA. 1A0QBA8/KB8S8/AJB 
Y9 YQO- 9 0 9 9ZYQ 
9 9Z Z 

W4AA&0HCAB0AAAAAACAQ 
8Y9- 9QY8 YYYYYYRY9 
99 0 Z99 99999909 

AEAEDE.7JB08XE680AAB 
Y9Y89Z Y- Z 09Y- 
9 99 9 

AAJB8EA0W6ABA0ADHB08 
YZYQ ZQ 8Y9Q YQ— 
9 Z 0 99 9 9Z 

MKGBT9CE&8BBJKX8/9CK 
9 QQ8 QZ -9Y 8 9 Q 
0Z9 Z 0 9 9 Z 

0BADANC8/6BG-E0B38SE 
-YQQ 0 9 -Z Q — 8Z 
9Z9 Z 

ADHBOLHLGAd ADCE8JCE6 
YQ-8 808RZ YOZR YZO 
9Z 9 9 90 9 0 9 

QFADAB-MAFSB-J2E8FS4 
-9QQ80Z8Q880Y9Q 8 
Z99 9Z99 Z 

ATOR. OR. BUFR. OPERATE 



0E.7JAA0GGAFFB-DEGSG 
Z Y-Y 9ZQQ88098Q Z 
9 9Z 9 9Z 

ABA0AGAKC8/GMAJGHEA0 
Y9Q YQQ 9 9Q0ZYQ0ZQ 
9 9Z Z Z 0 

OB-MAGRB-JGGUBEADGJG 
80Z8Q 80Y8Q88QY98Y8 
9 9Z 9 9Z9999 9 9 

HEA4KAAAAAAG0F0GAHAG 
OZQ OYYYYYYZ Q09Y9YQ 
0 999999 Z 9 9Z 

W4AC.0ADHBC8SB-DLG3B 
8Y9 YQ — Q 88098Q88 
99 9Z Z 9 9Z99 

TH.F837. DATA. BUFR. PO 



6789BCDEFGAGA0ADAE.7 
QQQQQQY9Y9Y8QZ 
ZZZZZZ9 9 990 

8EA0W4AA GOADHA JDAEAO 
ZQ 8Y9 YQ-ZYQQZQ 
0 99 9Z Z 0 

/AAAA3AQ/AAAAAALAHAA 
9YYY98Y99YYY9YY8 Y9YY 
999 9 999 9999 99 

18/A JB8EA0W6AAA0ADHB 
9ZYQ ZQ 8Y9Q YQ— 
Z 0 99 9Z 

XBA8UBQGAFAF4E. 7 JAAA 
-Y 8 9Y9Y89Z YZYY 
9 9 9 99 9 9 

C8A8/A JB8EA0W6 ABAOAD 
R R 9ZYQ ZQ 8Y9Q YQ 
Z 0 99 Z 9Z 

€8BB— AAAABH8JFAEDKC8 
-9 ZYYQZO YZYQR R 
0 9Z 9 ZO 

A JHG-EEFCEDA JB8EA4KA 
-8RZ Q-Z QQZYQ ZQ OY 
90 Z Z Z 0 9 

Q3/DK4FF0DMB- JDD JGOE 
9Q9 Q- Q980Y9Q9Z Q 
Z 9 Z 9 Z Z 

0. INCORRECT. IN. POSIT 



0F0KC9CGMKGBT9CEC8BB 
QO 9 QQO QQ8 QZ -9 
Z ZZ 0Z9 Z 0 

W4ACA0AGAAJ7QEA0W8AC 
8Y9Y YQQZY 9ZQ 9Y9 
99 9 9Z 0 9 

3KBGXGQB-JVGFBEADFBG 
8 9Q8Q080Y8QR8QY99-8 
Z Z 9 9Z 999 9 

GE.7JB38SEC80CABA8/B 
QZ Y- 8Z 09Q-Y 9- 
Z 9 Z 

0. DUAL I NG. FA I LED. RES 



SITIONS.1-4 CONT 



JEG80AAAJDHE83250047 
YZ 09QZYQ0Z 
9 Z Z 

WBAA-1ADQAJB83250048 
8Y9 YQOZYQ 
9 9Z Z 

AAA AAD AAA A A A8 3250049 

YYYYY9YYYYYY 

99999 999999 

.9CBA8XBJ8UE83250050 
Q-9 -Y Z 
Z 9 

AASA0BH9BFEE83250051 
QZ-Y ZR QZ-Q 
Z 09 0 Z OZ 

HAJ7QEA0W2AB83250052 
-ZY 9ZQ 8Y9 
0 99 

A8/AJB8EA0W683250053 
R 9ZYQ ZQ 8 
Z 0 9 

AAAAAG0EBAAD83250054 
YYYYYZ Q— 9Q 
99999 Z Z 

KAAP JDAAA. TR832500 55 
YYY9Y8YYY 
99 99999 

ION. TST. 025083250056 



AKC8/GJAJGHE83 250057 
Y 9 9QYZYQ0Z 
Z Z 

A0AE0NC6BGJG83250058 
Q YQ 9 -QYZ 
9 9Z Z 

3KBGXGWB-JVG83250O59 
8 9Q8Q880Y8Q 
Z Z 9 9Z 

68SK.8T8/AJB83250060 
-9 9 9ZYQ 
Z 

TORE.UCS. BUF83250061 



AIN.XXXXXXXX83250062 
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BTXT. APC. • A8. • AANOTA 
9 Y80 Y9 Y9 Y 
99 9 9 9 



AAAQ/JAADAAPAHAAAAAA 
Y9Y99YYY9YY8Q9YYYYYY 
9 9 999 999 999999 



ADAAAUD34EN65SHD.SEC 

Y9YYY88888888 

9 999 



. SS. 24. IS. 0F83 250063 



BTXT. APC. A4. . AAF.SE 
9 Y8Q Y9 Y9 
990 9 9 



T. IT. OFF. IF. NOT. DUAL 



INGOFF. TST. 0320. RTN. 



BYPASSED... .83250064 



BRLD A4. ... AAAA 

9 Y9 Y9Y9 

9 9 9 



AAANEAA4AANZAAN0AAP J 
8YQ98YQ88Y9 8Y9 8Y98 
999 999 99 99 99 9 



AAQJAAQRAAQJEAQYAAJA 
8Y9 8Y9 8Y9Z8Y9 8Y88 
99 99 99 99 999 



AAJADAJH. . . .83250065 

8Y8R8Y8R 

999 999 



BRLD AA. ... AAAA 

9 YQ Y9Y9 

9Z 9 9 



AAK 1AAK9EAL AAAL JEALQ 
8Y8 8Y8 8Y8Y8Y898Y89 
999 999 9999999 999 



AAMI AAMAEAMHEANOAAPI 
8Y808Y8-8Y8-8Y8 8Y80 
999 999 999 999 999 



DAPA 83250066 

BY8Q 
999 



BEND. 



.83250067 



BLDT 83250068 

9 



DATE 
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1403 RIPPLE PRINT TEST 

1403 RIPPLE PRINT TEST 
DESCRIPTION 

TABLE OF CONTENTS 

1. PURPOSE \ 1 

2. REQUIREMENTS 1 

3. OPERATING PROCEDURE . . 1 

4. PRINTOUTS . 1 

5 COMMENTS ....... 3 

1. PURPOSE 
l.l INTENT, 

TO PRINT ALL CHARACTERS IN EVERY PRINT POSITION BY MEANS OF A RIPPLE 
PAT FERN. TO INDICATE BY PRINT POSITION, ALL DETECTED FAILURES. 

2. PREREQUISITES 

2.1 PROGRAM REQUIREMENTS. 

THE SECTION IS RELOCATABLE. 
THE EXCLUSIVE CPU FLAG IS ON. 

A DIAGNOSTIC MONITOR MUST BE USED TO CONTROL THIS PROGRAM. 
THE UNIT DEFINITION T ABLE-UOT-ENTR Y MUST BE PUNCHED AS FOLLOWS. 



* UNI T CODE * * * 

* OPTIONAL FEATURE DIGIT 1* OPTIONAL FEATURE DIGIT 2 * 

* * * * 

... — , — . — _ , , — ^. — — 

* UNIT *ZZ*BIT 0* BIT 1* BIT 2* BIT 3* BIT 4* BIT 5* BIT 6* BIT 7 * 

* * *HEX 8* HEX 4* HEX 2* HEX 1* HEX 6* HEX 4* HEX 2* HEX I * 

* 1403 PRINTER*83*ASCII*SEL * *UNIV. * HI- * 120 * * 2821 * 

* OR * * *TAPE * *CHAR. *SPEED *PRINT * *2 CHNL * 

* 1404 PRINTER* * *L ISTER* *BUFF. *PTR. *POS. * ♦SWITCH * 

* CONTINUOUS * * * * * * * * * * 

* FORMS * * * * * * * * * * 



2-2 EQUIPMENT REQUIREMENTS. 

INPUT DEVICE FOR PROGRAM LOADING. 
OUTPUT DEVICE OTHER THAN TEST DEVICE. 
4K OF STORAGE FOR THIS PROGRAM. 

CPU 

CHANNEL 
OPERATING PROCEDURE 

3.1 PROGRAM LOADING. 

STANDARD AS DESCRIBED IN USERS GUIDE. 

3.2 PROGRAM OPERATE. 



**************************** NOTE ***************************** 

* IF 2 CHANNEL SWITCH FEATURE INSTALLED, DISABLE THE UNUSED * 

* INTERFACE TO PREVENT NOT READY TO READY STATUS FROM BEING * 

* PRESENTED TO THE OTHER CHANNEL. ♦ 
*********** ******************************************** + , M , |t * <l<t+ 
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3.2.1 SENSE SWITCH USAGE. 



ISENSEI 








I 


SECTION 


I 


BYTE 


I SW. I 




FUNCTION 




I 


OR 


I 


AND 


I * I 








I 


ROUTINE 


I 


BIT 


I 0 I 


OFF 


-PROCEED NORMALLY. 




I 


F836 


I 


X0Q4 


I I 


ON- 


-GO INTQ TIO $10 LOOP ON 


CURRENT COMMAND. 


I 


ALL 


I 


0 


I 24 I 


OFF 


-PROGRAM WILL ASSUME THE 


PRINTER DOES 


I 


F836 


I 


X007 


I I 




HAVE A PCS EMITTER CHAIN 


, AND IS THEREFORE 




01 


I 


0 


I I 




NOT IN DUAL ING MODE 




I 




I 




I I 


ON- 


-PROGRAM WILL ASSUME THE 


PRINTER DOES NOT 


I 




I 




I I 




HAVE PCS EMITTER AND IS 


IN DUAL ING MODE 


I 




I 




I 1- 








BI- 









3.2.2 PROGRAM HALTS. 



THE PROGRAM WILL HALT ONCE FOR EACH UCS PRINTER TO 8E TESTED, AFTER 
INSTRUCTING THE OPERATOR TO CHECK SECTION SENSE SWITCH 24. 

3.2.3 PROGRAM OUTPUT ON TEST DEVICE. 

ROUTINE 01 - UCS PRINTERS 

16 GROUPS OF 16 LINES EACH, WITH A TRIPLE SPACE BETWEEN EACH GROUP 
WILL BE PRINTED ON THE DEVICE UNDER TEST. THE FIRST 15 GROUPS 
SHOULD APPEAR AS A TRUE RIPPLE PATTERN. THE 16TH GROUP MAY NOT 
APPEAR AS A TRUE RIPPLE PATTERN. THIS SHOULD BE EXPECTED A NO NOT 
CONSIDERED AN ERROR. 

THE 16 GROUPS WILL BE REPEATED IN FOLDING MODE. 
ROUTINE 02 - BASIC PRINTERS 

4 GROUPS OF 64 LINES EACH, WITH A TRIPLE SPACE BETWEEN EACH GROUP 
WILL BE PRINTED ON THE DEVICE UNDER TEST. EACH GROUP SHOULD APPEAR 
AS A TRUE RIPPLE PATTERN. 

4. PRINTOUTS 

4*1 OPERATOR INSTRUCTIONS 

-SEC SS 24 IS OFF SET IT ON FOR DUAL ING MODE- 
LS EC SS 24 IS ON SET IT OFF IF NOT DUAL ING MODE- 
ONE OF THE ABOVE MESSAGES WILL APPEAR ONCE FOR EACH UCS PRINTER PRIOR 
TO A HALT. THE OPERATOR SHOULD CHECK FOR THE PROPER SETTING OF THIS 
SWITCH BEFORE EACH DEVICE IS TESTED. IMPROPER SETTING OF THIS SWITCH 
COULD CAUSE FALSE ERRORS. 

- RESTORE UCS BUFR WITH F83T- 

THE ABOVE MESSAGE WILL OCCUR AT TERMINATION OF THE TEST ON EACH 
DEVICE. THIS IS TO REMIND THE OPERATOR THE ORIGINAL CONTENTS 
OF THE UCS BUFFER HAS BEEN DESTROYED, AND THAT SECTION F837 IS 
A MEANS OF RESTORING IT. 



DATE 15MAR66 15N0V66 120CT67 ID F836-* 

EC 125632 125655 131812 PAGE 1A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



1403 RIPPLE PRINT TEST 



4.2 STATUS MESSAGES 

4.2.1 SAMPLE ERROR PRINTOUT FOR UCS POINTER 

LINE MESSAGE 

01 -*SDO F8363 01 001400 OOE- 

02! - TST 0020- 

03 - ADR 001052 LINK- 

04 - ADR 001142 SIO- 

05 - CAW 001E10- 

06 - CCW E 800 J A 50 00000001- 

07 - CCW 09001A50 00000084- 

08 - CC 0 EXP- 

09 - CC 0 ACT- 
IO - CSW 00001E20 08000000 EXP- 

11 ~ CSW 00001E20 08000000 ACT- 

12 - CSW 00000000 04000000 EXP- 

13 - CSW 00000000 06000000 ACT- 

14 - SNS 00 EXP- 

15 - SNS 10 ACT— 

16 - LOG 00 000000 000000 000000- 

17 - UCS ADDR 001 TO 016 CONTAIN 00 THRU OF REST 8LANKS- 

18 - PRINT SHD PRT PAR- 

19 - POS WR RD RD PLC CHK CHK— 

20 - 132 03 03 03 1 1 0 - 

21 - 131 02 02 02 1 1 0 - 

22 ~ 130 01 01 01 1 1 0 - 

23 SS 0 ON FOR LOOP ON SIO- 

24 - HLT 

- IN FOLDING MODE- 

THfc ABOVE MESSAGE WILL OCCUR IF THE UCS BUFFER WAS LOADED WITH 
FOLDING, AND A PRINT ERROR IS DETECTED. THE MESSAGE WILL APPEAR 
BETWEEN LINES 17 AND 18 OF THE SAMPLE PRINTOUT. 



4.2.2 AN&LYSIS OF SAMPLE PRINTOUT 
LINE EXPLANATION 

01 THIS IS THE HEADER LINE PRINTED BY DM. IF AN ASTERISK 
PRFCEEDS THE -SDO- AN ERROR HAS CAUSEO THE MESSAGE 
PRINTOUT. IF NO ASTERISK IS PRINTED, THE MESSAGE 

IS A RESULT OF EITHER HAVING THE CORRECT PRINTOUT 

SWITCH ON OR AN OPERATOR MESSAGE I S TO FOLLOW. 

ALL LINES THAT FOLLOW THE -SDO- ARE PART OF THAT SAME 

MESSAGE. THE START OF A NEW MESSAGE IS INDICATED 

8Y ANOTHER -SDO- PRINTOUT. THE -F830R- IS THE SECTION 

ID NUMBER WHERE -R- REPRESENTS THE REVISION LEVEL OF 

THE PROGRAM • THE -08- IS THE PROGRAM ROUTINE NUMBER 

WHILE THE -OOE- IS THE ADDRESS OF THE OEVICE UNDER 

TEST. 

02 THIS IS THE TEST NUMBER ASSOCIATED WITH THE MESSAGE. AT THE 
BEGINNING OF THE PROGRAM LISTING, THERE IS A LIST OF TEST 
NUMBERS. WITH THE TEST NUMBER IS A SHORT EXPLANATION OF 
WHAT WAS BEING DONE, AND WHAT SHOULD OCCUR. 

03 THIS LINE SHOWS THE ADDRESS FROM WHICH THE 1-0 HANDLER 
SUB-ROUTINE WAS ENTERED. ALL 1-0 COMMANDS ARE ISSUED 
FROM THIS SUB-ROUTINE, SO IT IS ENTERED MANY TIMES FROM 
MANY PLACES. TO INSURE THE SPECIFIC 1-0 OPERATION 

WILL BE THE NEXT ONE PERFORMED, RESTART THE PROGRAM WITH A 
SYSTEM RESET, PSW RESTART, AMD ADDRESS STOP AT THE GIVEN 
ADDRESS. 
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04 THIS LINE SHOWS THE ADDRESS OF THE START 1-0, TEST 1-0, 

OR HALT 1-0 THAT WAS ISSUED IN THE 1-0 HANDLER SUB-ROUTINE* 

05 THIS LINE SHOWS THE ADDRESS OF THE CCW TO BE ISSUED BY 
A START 1-0 COMMAND. IF CCWS ARE CHAINED, THE ADDRESS 
GIVEN REFERS TO THE FIRST CCW IN THE CHAIN. 

06 THIS LINE DISPLAYS THE FIRST CCW. THE FIRST BYTE CONTAINS 
THE COMMAND CODE. THE NEXT 3 BYTES CONTAIN AN ADDRESS IN 
STORAGE, WHICH WILL BE USED IF DATA TRANSFER IS PERFORMED. 
THE NEXT BYTE CONTAINS FLAGS USED BY THE CHANNEL. THE LAST 
3 BYTES ARE THE COUNT FIELD. IF CHAINING IS INDICATED IN 
BYTE 4, ADDITIONAL CCWS WILL BE SHOWN BELOW THIS LINE. 

07 THIS LINE SHOWS THE CONDITION CODE EXPECTED, BY THE 
PROGRAM, IN RESPONSE TO ISSUING THE I-C COMMAND. 

08 THIS LINE SHOWS THE ACTUAL CONDITION CODE SET IN RESPONSE 
TO THE 1-0 COMMAND. 

09 THIS LINE DISPLAYS THE FIRST CSW EXPECTED BY THE PROGRAM. 
A BIT BY BIT DESCRIPTION OF THE OEVICE STATUS BYTE PORTION 
OF THE CSW, APPEARS IN THE PROGRAM LISTING, FOLLOWING 

THE TEST NUMBER DESCRIPTIONS. 

10 THIS LINE DISPLAYS THE ACTUAL CSW RECIEVED BY THE PROGRAM. 
NOTE... FOR EVERY EXPECTED -EXP- CSW PRINTED OUT THERE 

SHOULD BE A CORRESPONDING ACTUAL -ACT- CSW 
PRINTED OUT ON THE NEXT LINE. THE ABSENCE 
OF A -ACT- CSW PRINTOUT INDICATES A MACHINE 
FAILURE. A MACHINE FAILURE IS ALSO INDICATED 
IF THERE ARE -ACT- CSW PRINTOUTS WHEN THERE 
ARE NONE EXPECTED. 

11 THIS LINE WILL APPEAR IF THE PROGRAM EXPECTS MORE THAN 
ONE CSW. 

12 THIS LINE WILL APPEAR IF THE PROGRAM RECIEVED A SECOND CSW. 

13 THIS LINE SHOWS THE SENSE BYTE EXPECTED BY THE PROGRAM. 
A BIT BY BIT DESCRIPTION OF THE 1403 SENSE BYTE APPEARS 
IN THE PROGRAM LISTING, AFTER THE SECTION PREFACE. 

14 THIS LINE SHOWS THE ACTUAL SENSE BYTE RECIEVED BY THE PROGRAM. 

15 THIS LINE DISPLAYS THE CPU AND CHANNEL LOGOUT AREA ON 
MODEL 30 SYSTEMS. IT WILL NOT APPEAR ON ANY OTHER SYSTEM. 

16 THIS LINE SHOWS THE SECTION SENSE SWITCH LOOP OPTIONS. 
IF AN ERROR HAD OCCURRED, AND DM SENSE SWITCH 25 WAS ON, 
A HALT WOULD NOW OCCUR, TO ALLOW SETTING OF THE SECTION 
SENSE SWITCHES. TO INSURE THAT YOU WILL LOOP ON THE 
COMMAND THAT FAILED, YOU SHOULD REQUEST A HALT ON ERROR. 
SET THE PROPER SENSE SWITCH ON, AND PRESS THE EXTERNAL 
INTERRUPT KEY TO LOOP. 

17 THIS LINE DESCRIBES THE PATTERN OF CHARACTERS IN THE UCS 
BUFFER. 

18 COLUMN HEADINGS READ VERTICALLY. THE FIRST COLUMN IS THE 
AND PRINT POSITION, NEXT DATA WRITTEN* DATA SHOULD READ BACK, 

19 DATA READ BACK, THEN THE STATE OF THE PRINT LINE COMPLETE 
BIT, THE PRINT CHECK BIT AND PARITY CHECK BIT. 
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20 THESE LINES INDICATE IN WHICH PRINT POSITIONS AN ERROR WAS 

21 DETECTED* WHAT WAS WRITTEN IN THAT POSITION, WHAT SHOULD BE 
AND READ BACK, WHAT WAS READ BACK, AND IF THE PRINT LINE COMPLETE 

22 8IT, THE PRINT CHECK BIT, OR PARITY CHECK BIT WAS SET ON* 
A 1 INDICATES THE BIT IS ON, A ZERO, THAT IT IS OFF. 

23 THIS LINE SHOWS THE SECTION SENSE SWITCH LOOP OPTIONS. 

FURTHER ANALYSIS OF THE ABOVE PRINTOUT INDICATES A PRINT 
CHECK PROBLEM IN POSITIONS 130, 131, AND 132. A 
LOOK AT THE LOGIC, SHOWS ONE COMMON INPUT TO THE INDICATED 
HAMMER DRIVERS — TENS DRIVE 13 IN THE HAMMER FIRE SELECT 
MATRIX. THIS COULD BE THE FAILING AREA. 



- PREVIOUS HANGUP DETECTED- 

- SEE DESCRIPTION-COMMENTS - 

COMMENTS 

THE ABOVE MESSAGE WILL APPEAR IF A SYSTEM RESET PSW RESTART IS 
PERFORMED AFTER A HANGUP CONDITION ON AN 1-0 COMMAND. FOLLOWING 
THIS LINE WILL BE A PRINTOUT SIMILAR TO THE ABOVE SAMPLE MESSAGE 
ALL THE INFORMATION THAT CAN BE COLLECTED ABOUT THE ERROR, WILL BE 
PRINTED. NOTE - SYSTEM RESET WILL RESET THE SENSE INFORMATION. 



A FALSE HANG UP MESSAGE PRINTOUT CAN OCCUR IF THE OPERATOR PERFORMS 
A SYSTEM RESET-PSW RESTART WHILE THE PROGRAM IS RUNNING. THE PROGRAM 
WILL RESTART AFTER PRINTING THE MULTI-LINE ERROR MESSAGE t OR ANOTHER 
SYSTEM RESET PSW RESTART MAY BE PERFORMED TO BYPASS THE ERROR MESSAGE* 
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1403 RIPPLE PRINT 



PROGRAM LENGTH * 4073 (DECIMAL) 







2 




PRINT ON, GEN, DATA 


01000 




3 


XF8364 


START 4096 


01000 




4 


<* 


USING *,15 






5 
6 


*********************************************************************** 






7 


* REVISION LEVEL 4. THIS REVISION DIFFERS FROM VERSION 3 AS FOLLOWS... 






8 


* 


1. 


THE PROGRAM HAS BEEN MODIFIED TO INCLUDE RIPPLE OF ALL 






9 


4c 




CHARACTERS IN FOLDING MODE ON UCS PRINTERS. 






10 




2. 


THE PROGRAM HAS BEEN MODIFIED TO CONSIDER HEX CHARACTERS 






11 


* 




-80- AND -CO-, AS VALID UNPRINTABLE CHARACTERS, ON UCS 






12 


* 




PRINTERS IN FOLDING MODE. 






13 


* 


3. 


INCLUDES CHANGES TO ENABLE PROGRAM TO RUN WITH DM-44. 






14 


* E.C. 


PREREQUISITES 






15 


* 


MACHINE . . . 2821 MUST BE AT EC 125673 






16 


* 


PROGRAM . . . NONE 






17 


*********************************************************************** 






18 


* MODIFICATIONS 






19 


* REVISION LEVEL 3. THIS REVISION DIFFERS FROM VERSION 2 AS FOLLOWS... 






20 


* 


1. 


THIS PROGRAM NO LONGER RESTORES THE UCS BUFFER. USE PROGRAM 






21 


* 




ID F837 TO RESTORE THE UCS BUFFER. 






22 


4c 


2. 


THE PROGRAM HAS BEEN MODIFIED TO INCLUDE -TEST NUMBERS- 






23 


4c 


3. 


ON UCS PRINTERS, THE RIPPLE PATTERN OUTPUT HAS BEEN MODIFIED 






24 


4t 




TO INSURE USING ALL AVAILABLE UCB ADDRESSES. 






25 


4c 


4. 


THE REQUIRED NUMBER OF LINES PRINTED BY THIS TEST HAS BEEN 






26 






REDUCED TO CUT RUNNING TIME. 






27 


* E.C. 


PREREQUISITES 






28 




MACHINE . . . 2821 MUST BE AT E.C. 125655. 






29 




PROGRAM . . . NONE 






30 


* USE 


DESCRIPTION F836* AT EC 125655, DATED NOV 15, 1966 OR LATER. 






31 


*********************************************************************** 






32 


* REVISION LEVEL 2. THIS REVISION DIFFERS FROM VERSION 1 AS FOLLOWS... 






33 


4c 


1. 


THE PROGRAM HAS BEEN MODIFIED TO RESET THE BLOCK DATA CHECK 






34 


4c 




LATCH, ON UCS PRINTERS, DURING INITIALIZATION OF THE SECTION. 






35 


* E.C. 


PREREQUISITES 






36 


4c 


MACHINE . . . 2821 MUST BE AT MINIMUM E.C. LEVEL 124265. 






37 


4c 


PROGRAM • • • NONE 






38 


*********************************************************************** 






39 


******************* ******************* 






40 


* SECTION 


PREFACE 4c4c4c4c4c4c*4c*4c**4t4c4c4c******************* SECTION PREFACE * 






41 


******************* ******************* 


01000 


F8364000 


42 


SECNO 


DC 


XL4»F8364000« PROGRAM , SECTION AND REVISION NOS. * 


01004 


00000000 


43 


SNSW 


DC 


XL4'00' SECTION SENSE SWITCHES * 


ni fin ft 


0000 


HH 




DC 


XL2 , 00« * 


0100A 


0000 


45 


ICM 


OC 


XL2 , 00« INTERRUPTION CONDITION MASK * 


OiOOC 


00 


46 


SDMF 


DC 


XLl'OO* SECTION DM FLAGS * 


0100D 


01 


47 


NIOU 


DC 


XL1«01« NUMBER OF UNIT TABLE ENTRYS * 


0100E 


CO 


48 


FLAG1 


DC 


X'CO* EXCLUSIVE CPU * 


0100F 


00 


49 


FLAG2 


DC 


X»00» I/O INT ARE ERR, EXT INT TO PROG * 


01010 


0104000000 


50 


1NPSW 


DC 


X , 0104000000» DISABLED, SPVSR STATE, NO PGM MASK 4c 


01015 


001D38 


51 




DC 


AL3(R0UT01» ADR OF 1ST ROUTINE PREFIX * 


01018 


0000000000000000 


52 


EXOPSW 


DC 


XL8»0« SECTION OLD EXTERNAL PSW * 


01020 


0000000000000000 


53 


SVOPSW 


DC 


XL8«00« CLEAR ALL OLD PSWS * 


01028 


0000000000000000 


54 


PGOPSW 


DC 


XL8«00« PROGRAM OLD PSW 4c 


01030 


0000000000000000 


55 


MCOPSH 


DC 


XL8 , 00 t MACHINE CHECK OLD PSW * 


01038 


0000000000000000 


56 


IOOPSV, 


DC 


XL8»00« I/O OLD PSW * 


01040 


0000000000000000 


57 


CSW 


DC 


XL8«00« CHANNEL STATUS WORD * 


01048 


00000000 


58 


CAW 


DC 


XL4 , 00« CAW 4c 


0104C 


0000000000000000 


59 




DC 


XL12 , 00« RESERVED FOR DM USE * 


01054 


00000000 










01058 


0004000000 


60 


EXNPSW DC 


X'0004000000« EXTERNAL, NEW PSW * 


0105D 


000000 


61 


SRET 


DC 


XL3«0« ADR OF EXT INTRPT ROUTINE * 


01060 


0000000000000000 


62 


SVNPSW DC 


XLe^OO* SUPERVISOR NEW PSW * 


DATE 


15MAR66 15N0V66 


120CT67 






ID F836- 


EC'S 
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01068 
01070 
01078 
0107C 
01080 
010E0 
010E1 
010E2 



0000000000000000 
0000000000000000 
01040000 
00001168 

83 
00 

8000 



63 
64 
65 
66 
67 
68 
69 
70 
71 

73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
IV 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 



PGNPSW DC 
MCNPSW DC 
IONPSW DC 
DC 
DS 

UNIT1 DC 
U10P DC 
U1ADDR DC 



XL8«00« 

XLe'OO* 

XL4«01040000» 

AL4( IRETRN) 

96C 

X'83« 

X»00« 

X'sooo* 



PROGRAM NEW PSW * 

MACHINE CHECK NEW PSW * 

I/O NEW PSW * 

ADDRESS OF I/O INTRPT ROUTINE * 
96 BYTE REG DUMP AREA FOR DM USE * 

UNIT TYPE - 1419 MICR * 

OPTIONAL FEATURES BYTE * 

FLAGS AND CHAN/UNIT ADDRESS * 



*********************************************************************** 

*********************************************************************** 

4« 1403 SENSE BYTE 

*********************************************************************** 

* BIT MEANING 

* 0 COMMAND REJECT 

* 1 INTERVENTION REQUIRED 

* 2 BUS OUT CHECK 

* 3 EQUIPMENT CHECK - HAMMER FIRE CHECK 

* 4 DATA CHECK - UCS PRINTERS ONLY - UNCOMPARABLE CHARACTER 

* 5 BUFFER PARITY CHECK - REFERS TO UCS BUFFER 

* 6 NOT USED 

* 7 CHANNEL 9 

*********************************************************************** 
*********************************************************************** 

4= 1403 DEVICE STATUS 

*********************************************************************** 



* 


BIT 


MEANING 


4c 


0 


ATTENTION - NOT USED 


4c 


1 


STATUS MODIFIER - 2 CHANNEL SWITCH FEATURE ONLY 


4c 


2 


CONTROL UNIT END - 2 CHANNEL SWITCH FEATURE ONLY 


4c 


3 


DEVICE BUSY 


* 


4 


CHANNEL END 


* 


5 


DEVICE END 


4c 


6 


UNIT CHECK 


* 


7 


UNIT EXCEPTION - CHANNEL 12 



*********************************************************************** 

* 1403 DIAGNOSTIC CHECK READ DATA 

*********************************************************************** 

* BIT MEANING 

* 5 ON - 
* 

* OFF - 
* 
* 
* 

4c 
* 
* 

4c 

* 6 ON - 

* 



THE PRINT LINE COMPLETE BIT HAS BEEN SET FOR THIS 
POSITION. 

ON BASIC PRINTERS, A COMPARE BETWEEN THE DATA BEING 
PRINTED, AND THE PRINT CHARACTER GENERATOR DID NOT 
OCCUR IN THIS POSITION, AND THE CHARACTER WAS NOT 
CONSIDERED A VALID UNPRINTABLE. 

ON UCS PRINTERS, A COMPARE BETWEEN THE DATA BUFFER 
AND THE UNIVERSAL CHARACTER SET BUFFER DID NOT OCCUR 
AND THE CHARACTER WAS NOT CONSIDERED A NULL OR BLANK 

THE PRINT CHECK PLANE FOR THIS POSITION WAS SET ON. 
THIS PLANE IS SET BY 

1. A HAMMER FIRE AND AN EQUAL CHECK. 

2. NO HAMMER FIRE AND NO EQUAL CHECK. 

3. LINE FULL, NOT VALID UNCOMPARABLE CHARACTER, AND 
NOT A PRINT LINE COMPLETE BIT IN THIS POSITION. 

OFF - THE PRINT CHECK PLANE FOR THIS POSITION IS NOT SET. 

ON - A PARITY CHECK IN THE DATA BUFFER WAS DETECTED IN 
THIS POSITION. 



OFF - THIS POSITION OF THE DATA BUFFER HAS CORRECT PARITY. 

*********************************************************************** 
*********************************************************************** 

* PARAME i ERS USED TO ENTER 



DATE 
EC'S 



15MAR66 15N0V66 120CT67 
125632 125655 131812 



ID 

PAGE 



F836-4 
1A 
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128 
129 



* THE 1-0 HANDLER ROUTINE 

*********************************************************************** 



130 


* 


BAL 


R11,ISI0 


LINK TO 1-0 HANDLER 


131 


* 


DC 


XL2«0000 t 


CONTROL SWITCHES 


132 


* 


DC 


X»0014« 


TEST NO* IN DEC EXPRESSED IN HEX 


133 


* 


DC 


X»FO» 


EXPECTED COND. CODE 


134 


* 


DC 


X»00» 


EXPECTED SENSE DATA 


135 




DC 


AL2 ( ADR-BASE+REG ) 


ADDR. OF EXPECTED CSW IF NEEDED 



136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 



*********************************************************************** 
*********************************************************************** 

* 1-0 HANDLER CONTROL SWITCHES 

* 2 BYTE PARAMETER FOLLOWING BAL 

*********************************************************************** 



SWITCH 

0 



3 



5 < 



DESCRIPTION 



* 

* 
* 

* 

* 

* 
* 
* 
* 

* 

*********************************************************************** 

* SWITCHES USED BY 1-0 HANDLER 

*********************************************************************** 



OFF 
ON 
OFF 
ON 
OFF 
ON 
OFF 
ON 
OFF 
ON 
OFF 
ON 
OFF 
ON 
OFF - 
ON - 

OFF - 
ON - 



9 OFF 

ON 



10 



OFF 
ON 



- ISSUE AN 1-0 COMMAND 

- DO NOT ISSUE AN 1-0 COMMAND 

- ENABLE 

- DO NOT ENABLE 

- EXPECT NO INTERRUPT 

- EXPECT AN INTERRUPT 

- DO NOT EXPECT 2 INTERRUPTS 

- EXPECT 2 INTERRUPTS 

- EXPECT NO CSWS 

- EXPECT A CSW 

- DO NOT EXPECT 2 CSWS 

- EXPECT 2 CSWS 

- ALWAYS TRY TO ISSUE SENSE 

- SENSE ON UNIT CHECK ONLY 

GIVE HALT OPTION ON DETECTED ERROR 
RETURN WITHOUT HALT OPTION 

DO NOT ISSUE DIAGNOSTIC READ. 

ISSUE DIAGNOSTIC READ IF UNIT CHECK. 

DO NOT ISSUE DIAGNOSTIC CHECK READ. 

ISSUE DIAGNOSTIC CHECK READ IF UNIT CHECK. 

PRINT HEADER 

DO NOT PRINT HEADER 



* 


SWITCH 


DESCRIPTION 




0 




OFF 


- NO HANGUP ON INTERFACE 








ON 


- HANGUP OCCURRED 




1 




OFF 


- NO CSWS STORED 


* 






ON 


- ONE CSW STORED 


* 


2 




OFF 


- SECOND CSW NOT RECIEVED 


* 






ON 


- SECOND CSW RECIEVED 


* 


3 




OFF 


- DID NOT ENABLE 


* 






ON 


- ENABLED ONCE 




4 




OFF 


- DID NOT ENABLE TWICE 








ON 


- ENABLED TWICE 




5 




OFF 


- NO SENSE DATA RECIEVED 








ON 


- SENSE DATA RECIEVED 




6 




OFF 


- NO UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 


* 






ON 


- UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 




7 




OFF 


- NO ERROR DETECTED 


* 






ON 


- AN ERROR WAS DETECTED 




8 




OFF - NO DATA RECIEVED 








ON - DATA RECIEVED 




9 




OFF - NO DIAGNOSTIC CHECK READ DATA RECIEVED 


* 






ON - DIAGNOSTIC CHECK READ DATA RECIEVED 



OATE 
EC*S 



15MAR66 15N0V66 120CT67 
125632 125655 131812 



ID 

PAGE 



F836-4 
2 
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193 


* 




















194 


* 10 




OFF - NO DIAGNOSTIC READ DATA RECIEVED 
















195 






ON - DIAGNOSTIC READ OATA RECIEVED 
















196 






















197 


* 11 




OFF - HEADINGS NOT PREVIOUSLY PRINTED 
















i on 


* 




ON - HEADINGS PREVIOUSLY PRINTED 
















1 QQ 






















onn 


******************************************** 
















201 


* 




REGISTERS USED IN 1-0 HANDLER 
















on o 


*********************************************************************** 
















onn 


* 


REG 


COMMENTS 
















204 


* 


5 


USED AS LINK TO ERROR OUTPUT FROM INITIALIZE ROUTINE IF 
















on*% 


* 




PREVIOUS HANGUP ON INTERFACE DETECTED. 
















on a 


* 




















om 


* 


8 


USED AS WORK REGISTER. WILL BE RESTORED UPON RETURN. 
















208 


* 




















onQ 


* ' 


9 


USED AS WORK REGISTER. WILL BE RESTORED UPON RETURN. 
















210 


* 




















211 

O 1 o 


* 
* 


10 


MUST CONTAIN CCW ADDRESS UPON ROUTINE ENTRY 
















cic. 

O 1 "X 


* 


11 


MUST BE USED AS LINK REG TO THIS ROUTINE 
















214 


* 




















215 


* 


12 


MUST CONTAIN DEVICE ADDRESS 
















ii / 

C.LO 


* 






010E4 


0000 










217 


ISW 


DC 


XL2'0» 
















218 


*********************************************************************** 
















0 1 o 


* 




* 1-0 HANDLER SUB-ROUTINE * 
















oon 


*********************************************************************** 


UiUCO 


D2 


01 


F 


7C8 


B 


002 


001 


ISIO 


MVC 


ITSTN0+5(2) ,2<R11) SAVE TEST NUMBER 


01 OEC 


90 


79 


p 


830 






070 




STM 


R7,R9,ISAVE 


010F0 


92 


00 


p 


796 






223 




MVI 


IEXSNS+StX^OO 1 


ni net 


50 


AD 


o 


048 






o o t*. 

£.£.1 




ST 


R10,HCAW(R13) STORE COMMAND ADDRESS 


010F8 


D7 


07 


n 
u 


040 


n 
u 


u*t u 


225 




XC 


HCSW(8 f R13) ,HCSW(R13) 


010FE 


90 


AB 


p 


B9C 






226 




STM 


R10,R11,ISLAVE SAVE REGS 10 AND 11 


01 102 


95 


30 


£ 


181 






227 




CLI 


SYSM0D(R14) ,X«30» CHECK FOR MODEL 30 


01106 


47 


60 


r 


i in 
L 1U 






228 




BC 


UNEQt M0D44 BR. IF NOT 


01 10 A 


D7 


OB 


o 


080 


u 


080 


229 




XC 


LOGOUT! 12) , LOGOUT CLEAR MOD 30 LOGOUT AREA 


01 110 


91 


80 


Q 


000 






230 


M0D44 


TM 


0(R11),X"80« CHECK CONTROL SWITCH FOR NO 1-0 


01 114: 


47 


10 


p 


194 






231 




BC 


ALL t INOW BR. IF ON 


01 118 


91 


80 


p 


004 






o~ao 




TM 


SNSW,X«80» 


01 11C 


47 


80 


C 

r 


JL DU 






233 




BC 


NONE, JOHN 
















234 ' 


*********************************************************************** 
















235 


♦ 




SENSE SWITCH LOOPS 
















236 


*********************************************************************** 


m i on 


50 


AD 


0 


048 






cot 


ITRY1 


ST 


R10,HCAW(R13) 


01124 


91 


80 


F 


004 






238 




TM 


SNSW,X*80* CHECK SECTION SENSE SWITCH 0 


01128 


47 


80 


F 


13C 






239 




BC 


NONE f IHI BR. IF OFF 




9D 


00 


C 


000 






oL.n 


IHANG 


TIO 


0(R12) TEST 1-0 


01130 


47 


70 


F 


120 






241 




BC 


NCC0,ITRY1 BR. IF NOT COND. CODE 0 


01134 


9C 


00 


C 


000 






242 




SIO 


0(R12) START 1-0 


01 1 38 


47 


FO 


F 


120 






243 




BC 


UNCITRYl BR. UNCONDITIONAL 
















244 


*********************************************************************** 


0113C 


58 


IE 


0 


198 






245 


I HI 


L 


R1,WT(14) 


01140 


88 


10 


0 


003 






246 




SRL 


Rlt3 


01144 


90 


00 


C 


000 






247 


GREG 


TIO 


0(R12) 


01148 


47 


80 


F 


150 






248 




BC 


CCOtJOHN 


0114C 


46 


10 


F 


144 






249 




BCT 


Rl t GREG 


01150 


D7 


01 


F 


0E4 


F 


0E4 


250 


JOHN 


XC 


ISW<2),ISW 


01156 


96 


80 


F 


0E4 






251 




01 


ISW,X»80« 


0115A 


92 


E7 


F 


739 






252 




MVI 


IACTCC+5.C»X« MOVE IN A -X- 


0115E 


9C 


00 


C 


000 






253 


ISSUE 


SIO 


0(R12) 1-0 COMMAND- SIO, TIO* OR HIO 


01162 


47 


80 


F 


190 






254 




BC 


CCOylZERO BR. IF COND. CODE 0 


01166 


47 


40 


F 


17E 






255 




BC 


CCltlONE BR. IF COND. CODE 1 


0116A 


47 


20 


F 


176 






256 




BC 


CC2.ITW0 BR. IF COND. CODE 2 


0116E 


92 


F3 


F 


739 






257 




MVI 


IACTCC+S.X^^ INDICATE COND. CODE 3 


DATE 


15MAR66 


15N0V66 120CT67 






ID F836-4 


EC'S 


125632 


125655 


131812 
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01172 


47 


FO 


F 


194 






258 




BC 


UNC , 1 NOW 


BR. UNCONDITIONAL 


01264 


91 


80 


F 


0E5 






323 




TM 


isw+ux'so 1 


CHK FOR DATA RECIEVED 


01176 


92 


F2 


F 


739 






259 


ITWO 


MVI 


I ACTCC + 5,X'F2 • 


INDICATE COND. CODE 2 


01268 


47 


80 


F 


2 AC 






324 




BC 


NONE , I FUR 


BR. IF NOT 


0117A 


47 


FO 


F 


194 






260 




BC 


UNC * INOW 


BR. UNCONDITIONAL 


0126C 


96 


04 


F 


0L4 






325 




01 


I SW,X , 04« 


INDICATE SENSE RECIEVED 


01 17E 


92 


F I 


F 


739 






261 


IONE 


MVI 


I ACTCC+5, X *F1 • 


INDICATE COND. CODE 1 


01270 


94 


7F 


F 


0t5 






326 




NI 


I SW+1 , X*7F 1 


RESET DATA RECIEVED SWITCH 


01 182 


D2 


07 


F 


71.6 


0 


040 


262 




M VC 


I CSK 1 ( 8 ) tHCSW ( R 1 3 ) 


SAVE CSW 


01274 


D2 


00 


F 


796 


B 


005 


327 




MVC 


I EXSNS+5C 1 ) ,5(R11 ) 


MOVE IN EXPECTED SENSE 


01188 


96 


40 


F 


0fc4 






263 




0 I 


I SW t X • 40* 


INDICATE 1 CSW 


0127A 


91 


01 


F 


7A1 






328 




TM 


I ACSNS+5 , X ' 01 • 


CHECK FOR CHANNEL 9 


01 18C 


47 


FO 


F 


194 






264 




BC 


UNC » I NOW 


BR. UNCONDITIONAL 


0127E 


47 


80 


F 


286 






329 




BC 


NONE, ILKSEN 


BR. IF NONE 


01190 


92 


FO 


F 


739 






265 


IZERO 


MVI 


I ACTCC + 5 t X 'FO • 


INDICATE COND. CODE 0 


01282 


96 


01 


F 


796 






330 




01 


IEXSNS+5,X'01 • 


SET UP 9 AS EXPECTED 


01 194 


94 


7F 


F 


0E4 






266 


INOW 


N I 


I SW , X • 7F • 


TURN OFF HANG UP SWIfCH 


01286 


D5 


00 


F 


7A1 


F 


796 


331 


ILKSEN 


CLC 


I ACSNS+5 ( 1) , IEXSNS+5 




01198 


91 


40 


B 


000 






267 




TM 


0 l K 1 1 1 f X ■ 40 ■ 


CHECK CONTROL SWITCH FOR NC ENABLE 


0128C 


47 


80 


F 


2 AC 






332 




BC 


EQ, I FUR 


BR. IF EQUAL 


01 19C 


47 


10 


F 


224 






268 




BC 


ALL t I SEN 


BR. IF ON 


01290 


96 


01 


F 


0E4 






333 




01 


I SWjX'Ol • 


INDICATE AN ERROR 


01 1 AO 


96 


10 


F 


0E4 






269 




0 I 


1 5 W , X 1 1 0 ' 


INDICATE ENABLED CNCE 


01294 


91 


40 


F 


7A1 






334 




TM 


I ACSNS+5, X , 40* 


CHECK FOR INTERVENTION REQUIRED 


01 1 A4 


58 


96 


0 


198 






270 


IWAIT 


L 


O O LIT f r> 1 A % 

K9 » WT 1 K 14 1 


LOAD DM WAIT FACTOR 


01298 


47 


80 


F 


2 AC 






335 




BC 


NONE , I FUR 


BR. IF NOT 


01 1 A8 


88 


90 


0 


003 






271 




SRL 


R9 , 3 


ADJUST 


0129C 


OA 


DO 










336 




SVC 


X • DO • 


PRI NT 


01 1 AC 


96 


80 


F 


0E4 






272 




0 1 


I oW t X * 80 1 


TURN ON HANG UP SWITCH 


0129E 


64 












337 




DC 


X 1 64 ■ 


-READY DEVICE 


011B0 


80 


00 


F 


803 






273 




SSM 


M SK I 


ENABLE 


0129F 


OD 












338 




DC 


X * OD • 




01 1B4 


46 


90 


F 


1B4 






274 




BCT 


R9 , * 


WAIT 


012A0 


FA81 










339 




DC 


AL2 < READY- SECNO+REG ) 




01 1B8 


80 


00 


F 


804 






275 




SSM 


MSK2 


DI SABLE 


012A2 


OA 


DA 










340 




SVC 


X'DA" 


HALT TO PERFORM INTERVENTION 


01 1BC 


94 


7F 


F 


0E4 






276 




N I 


T r LI V t TP C • 

IbWtX' ( r " 


TURN OFF HANG UP SWITCH 


012A4 


90 


00 


C 


000 






341 


HOPE 


T 10 


0 ( R I ?. ) 


TEST 1-0 


O11C0 


95 


FO 


F 


739 






277 


TRUBL 


CLI 


I ACTCC+5 , X • FO' 


CHECK FOR COND. CODE 0 


012A8 


47 


70 


F 


2A4 






342 




BC 


NCC 0, HOPE 




011C4 


47 


60 


F 


22C 






278 




BC 


UNEQ , I SPED 


BR. IF NOT 


012AC 


91 


40 


8 


001 






343 


I FUR 


TM 


1 ( R 1 1 ) , X »40» 


CHK CTRL SWITCH FOR D I AG CHECK READ 


011C8 


9D 


00 


C 


000 






279 




Tit) 


0(R12) 


TEST 1-0 


O12B0 


47 


80 


F 


2 CC 






344 




BC 


NONE, I SEA 


BR. IF NOT 


01 ICC 


47 


BO 


F 


22C 






280 




BC 


NCC 1 * I SPED 


BR. IF NOT COND. CODE 1 


012B4 


41 


80 


F 


808 






345 




LA 


R8 » DCKRD 


LOAD CHECK READ CCW ADDRESS 


01100 


91 


10 


D 


044 






281 




TM 


HCSW+4(R13> ,X«10» 


CHECK FOR DEVICE BUSY 


012B8 


45 


70 


F 


2F0 






346 




BAL 


R7, IOEXRA 


BR. TO ISSUE CHECK READ 


011D4 


47 


80 


F 


22C 






282 




BC 


NONE , 1 SPED 


BR. IF NOT 


012BC 


91 


80 


F 


0E5 






347 




TM 


I SW+ltX*80 9 


CHECK FOR DATA RECIEVED 


011D8 


OA 


00 










283 




SVC 


X»DO» 




012C0 


47 


80 


F 


2CC 






348 




BC 


NONE, ISEA 


BR. IF NOT 


011DA 


64 












284 




DC 


X»64« 


PRINT BUSY MESSAGE 


Q12C4 


96 


40 


F 


0t5 






349 




01 


I SW+ltX^O 1 


INDICATE CHECK READ DATA RECIEVED 


011DB 


24 












285 




DC 


X»24» 




012C8 


94 


7F 


F 


0E5 






350 




NI 


ISW+^X^F' 


RESET DATA RECIEVED 


011DC 


FA5D 










286 




DC 


AL2 ( NODEV-SECNO+REG ) 




012CC 


91 


80 


B 


001 






351 


ISEA 


TM 


KR11 ) ,X«80' 


CHK CTRL SWITCH FOR DI AG READ 


011DE 


96 


80 


F 


0E4 






287 




01 


ISW,X«80» 


INDICATE HANG UP 


O12D0 


47 


80 


F 


33A 






352 




BC 


NONE, IBSN 


BR. IF NOT 


011E2 


OA 


OA 










288 




SVC 


X'DA* 


HALT 


012D4 


41 


80 


F 


948 






353 




LA 


R8,RDCCW, 


LOAD DIAGNOSTIC READ CCW ADDRESS 


011E4 


47 


FO 


F 


ICO 






289 




BC 


UNC f TRUBL 




012D8 


45 


70 


F 


2F0 






354 




BAL 


R7, IOEXRA 


BR. TO ISSUE DIAGNOSTIC READ 
















290 


*****************************************-****************************** 


012DC 


91 


80 


F 


0E5 






355 




TM 


ISW+1,X'80« 


CHECK FOR DATA RECIEVED 
















291 


* 




ALL 1-0 


INTERRUPTS RETURN HERE 


012E0 


47 


80 


F 


33A 






356 




BC 


NONE, IBSN 


BR. IF NONE 
















292 


************************************** ***^- **************************** 


012E4 


96 


20 


F 


0E5 






357 




01 


ISW+1,X*20» 


INDICATE READ DATA RECIEVED 


011E8 


94 


7F 


F 


0E4 






293 


IRETRN 


NI 


ISW,X»7F» 


RESET HANGUP SWITCH 


012E8 


94 


7F 


F 


0E5 






358 




NI 


ISW+1,X , 7F» 


RESET DATA RECIEVED SWITCH 


011EC 


91 


40 


F 


0E4 






294 




TM 


ISW,X«40' 




012EC 


47 


FO 


f 


33A 






359 




BC 


UNC t IBSN 


BR. UNCONDITIONAL 


011F0 


47 


10 


F 


202 






295 




BC 


ALL,ISV2 


BR. IF 1 CSW ALREADY STORED 


012F0 


58 


9E 


0 


198 






360 


IOEXRA 


L 


R9,WT(R14) 


LOAD OM WAIT FACTOR 


011F4 


D2 


07 


F 


7E6 


F 


040 


296 




MVC 


ICSW1C8),HCSW(R15) 


SAVE CSW 1 


012F4 


88 


90 


0 


004 






361 




SRL 


R9,4 


ADJUST 


011FA 


96 


40 


F 


0E4 






297 




01 


ISW,X«40' 


INDICATE 1 CSW STORED 


012F8 


50 


8D 


0 


048 






362 




ST 


R8,HCAW(R13) 


STORE CAW 


011FE 


47 


FO 


F 


20C 






298 




BC 


UNCINT3 


BR. UNCONDITIONAL 


012FC 


9C 


00 


C 


000 






363 




SIO 


0CR12) 


START 1-0 


01202 


D2 


07 


F 


7EE 


F 


040 


299 


ISV2 


MVC 


ICSW218) ,HCSW(R15) 


SAVE CSW 2 


| 01300 


47 


70 


F 


310 






364 




BC 


NCCO, IBACK 


BR. IF NOT ACCEPTED 


01208 


96 


20 


F 


0E4 






300 




01 


ISW,X»20» 


INDICATE 2 CSWS STORED 


01304 


9D 


00 


C 


000 






365 


ICLEAR 


TIO 


0(R12) 


TEST 1-0 


0120C 


91 


10 


B 


000 






301 


INT3 


TM 


O(Rll) ,X»10» 


CHECK CTRL SW FOR 2 1NTR EXPECTED 


01308 


47 


40 


F 


312 






366 




BC 


CC1, ILOKE 


BR. IF CSW STORED 


01210 


47 


80 


F 


224 






302 




BC 


NONE, ISEN 


BR. IF NOT 


0130C 


46 


90 


F 


304 






367 


ITICK 


BCT 


R9, ICLEAR 




01214 


91 


08 


F 


0E4 






303 




TM 


ISWtX«08» 




01310 


07 


F7 










368 


IBACK 


BCR 


UNCR7 


RETURN VIA REG 7 


01218 


47 


10 


c 
r 


224 






304 




BC 


ALL, ISEN 


BR. IF ALREADY ENABLED TWICE 


01312 


91 


04 


D 


044 






369 


ILOKE 


TM 


HCSW+4CR13) ,X«04» 


CHECK FOR DEVICE END 


0121C 


96 


08 


F 


0E4 






305 




01 


I SW,X»08» 


INDICATE ENABLED TWICE 


01316 


47 


80 


F 


30C 






370 




BC 


NONE, ITICK 


BR. IF NOT 


01220 


47 


FO 


F 


1A4 






306 




BC 


UNC, IWAIT 




0131A 


96 


80 


F 


0E5 






371 




01 


I SW+1 ,X , 80 t 


INDICATE OATA RECIEVED 


01224 


91 


20 


F 


0E4 






307 


ISEN 


TM 


ISW,X'20« 


CHECK FOR SECOND INTERRUPT 


0131E 


47 


FO 


F 


310 






372 




BC 


UNC , IBACK 




Ul ceo 


47 


80 


F 


ICO 






308 




BC 


NONE , TRUBL 


BR. IF NOT 


01322 


91 


40 


F 


0fc"4 






373 


IN0EX1 


TM 


ISW,X , 40 t 




0122C 


91 


20 


B 


000 






309 


ISPED 


TM 


0(R11 ) ,X«20' 


CHK CTRL SW FOR SNS ON UC ONLY 


01326 


47 


10 


F 


3B4 






374 




or 


All T Kin C D 

ALL 9 x iMUtK 




01230 


47 


10 


F 


23C 






310 




BC 


ALL, IDECI 


BR. IF ON 


0132A 


47 


FO 


F 


3B8 






375 




BC 


UNC,IDUNCK 




01234 


91 


CO 


B 


001 






311 




TM 


l(Rll) ,X»CO« 


CHK CTRL SW FOR DI AG ON UNIT CHECK 


0132E 


91 


20 


F 


0E4 






376 


IN0EX2 


TM 


ISWtX^O* 




01238 


47 


80 


F 


33A 






312 




BC 


NONE, IBSN 


BR. IF NONE 


01332 


47 


10 


F 


3B4 






377 




BC 


ALLtlNDER 




0123C 


91 


40 


F 


0E4 






313 


IDECI 


TM 


I SW V X f 40* 


CHECK FOR CSW STORED 


01336 


47 


FO 


F 


3B8 






378 




BC 


UNCtlDUNCK 




01240 


47 


80 


F 


33A 






314 




BC 


NONE, IBSN 


BR. IF NONE 


0133A 


D5 


00 


F 


739 


B 


004 


379 


IBSN 


CLC 


IACTCC+5< 1) ,4<Ril) 


COMPARE FOR EXPECTED COND. CODE 


01244 


91 


02 


F 


7EA 






315 




TM 


ICSW1+4,X»02» 


CHECK FOR UNIT CHECK 


01340 


47 


60 


F 


3B4 






380 




BC 


UNEQ, INDER 


BR. IF UNEQUAL 


01248 


47 


10 


F 


25C 






316 




BC 


ALL,ID0SNS 


BR. IF YES 


01344 


91 


08 


B 


000 






381 




TM 


0(R11), X»08« 




0124C 


91 


20 


F 


0E4 






317 




TM 


ISW,X«20« 


CHECK FOR SECOND CSW 


01348 


47 


80 


F 


322 






382 




BC 


NONE, IN0EX1 


BR. IF NO CSW EXPECTED 


01250 


47 


80 


F 


33A 






318 




BC 


NONE, IBSN 


BR. IF NONE 


0134C 


91 


40 


F 


0E4 






383 




TM 


ISW t X»40» 




01254 


91 


02 


F 


7F2 






319 




TM 


ICSW2+4,X«02» 


CHECK FOR UNIT CHECK 


01350 


47 


80 


F 


3B4 






384 




BC 


NONE* INDER 


BR. IF NO CSW RECIEVED 


01258 


47 


80 


F 


33A 






320 




BC 


NONE, IBSN 


BR. IF NONE 


01354 


48 


8B 


0 


006 






385 




LH 


R8,6(R11) 


LOAD CSW ADDR 


0125C 


41 


80 


F 


7F8 






321 


1D0SNS 


LA 


R8t I SENSE 


LOAD SENSE CCW ADDRESS 


01358 


40 


60 


F 


360 






386 




STH 


R8, ICCSW1+4 


STORE IN COMPARE INSTR. 


01260 


45 


70 


F 


2F0 






322 




BAL 


R7, IOEXRA 


BR. TO ISSUE SENSE 


0135C 


05 


07 


F 


7E6 


F 


7E6 


387 


ICCSW1 


CLC 


ICSWK8), ICSW1 


COMPARE FOR EXPECTED CSW 



DATE 
EC'S 



15MAR66 15N0V66 120CT67 
125632 125655 131812 



IC 

PAGE 



F836-4 
3 



DATE 
EC'S 



15MAR66 15N0V66 120CT67 
125632 125655 131812 



ID 

PAGE 



F836-4 
3A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 
1403 RIPPLE PRINT 



P/N 840210 
PAGE 4 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



1403 RIPPLE PRINT 



P/N 840210 
PAGE 4A 



01362 


47 


60 


F 


3B4 






388 




BC 




ap i c i imc ni I A I 


01366 


91 


04 


B 


000 






389 




TM 






0136A 


47 


80 


F 


32E 






390 




BC 




op tc fciri rr Li o cvDcCTcn 


0136E 


91 


20 


F 


0E4 






391 




TM 


t ^ w - v • ?n • 




01372 


47 


80 


F 


3B4 






392 




BC 


NONE, INDER 


RR- if hid r^u o QPn Fucn 


01376 


41 


88 


0 


008 






393 




LA 


R8 * 8 ( R8 ) 




0137A 


40 


80 


F 


3AE 






394 




STH 


R8. If CSW2+4 




0137E 


41 


88 


o 


004 






395 




LA 


l\U f "I \ i\o 1 




01382 


40 


80 


F 


388 






396 




STH 


dr. i r i nnT+? 




01386 


94 


EC 


F 


8 18 






397 


ICLRDT 


N I 


uhqk _ y • cr t 




0138A 


40 


80 


p 


39C 






398 




STH 


PR. let vqj. 5 




0138E 


40 


80 


p 


3 A8 






399 




STH 


l\0| Ir 1 Al£T^ 




01392 


91 


01 


p 


796 






Ann 

nUU 




TM 


ICVCMCiC vim ( 




01396 


47 


80 


p 


39E 






401 




fKC 
Dv* 


KIOMC TCI 5 




0139A 


96 


02 


p 


8 18 






402 


ICT YQ 
lrlA7 


n t 

U 1 


WUK!\ , A " UZ " 




0139E 


91 


01 


p 


7F2 








TCI 5 


TM 


lloWtTHjA'Ul * 


LHcUK FOR CHANNEL 12 


01 3A2 


47 


80 


p 


Tt A A 
Z> AA 






404 




BC 


NUIMb 9 1 CC oWZ 




013A6 


96 


01 


p 


ft i a 






405 




0 1 


WUKK f X 0 1 




013 AA 


D5 


07 


p 


7 EE 


p 


r cc 


ADA. 




r i r 


1L bWZ (olf 11 5>WZ 


COMPARE FOR EXPECTED CSW 2 


013B0 


47 


80 


p 


3B8 






407 




BC 


en _ Tnnwr if 


DD IE cnilAI 

DK* lr cvUAL 


01 3B4 


96 


01 


c 
r 


0E4 






408 


INDER 


0 1 


1 5W ,X ' 01 * 


INDICATE AN ERROR 


013B8 


92 


64 


F 


3 CO 






ADO 
nU 7 


i m ikir a 
1 UUIMUIs 


MV I 


I rL Abl f a 64 " 


SET UP FOR ERROR PRINTOUT 


013BC 


92 


CO 


p 








410 




M V I 


TCI »fi v ■ /* r» • 

1 rl_ AGZ t X "CO ■ 




01 3C0 


91 


01 


c 
r 


A PA 






411 




TM 


I SWtX'01 • 


CHECK FOR A DETECTED ERROR 


01 3C4 


47 


10 


p 


inn 






412 




BC 


ALL » IDUTI T 


BR. IF ERROR DETECTED 


013C8 


91 


01 


c 
r 


UUH- 






413 




TM 


5N5W, X ' 01 ' 


CHECK SECTION SENSE SWITCH 7 


01 3CC 


47 


80 


p 


J OA 






414 




BC 


NONE » I LEA VE 


BR. IF OFF 


01 3D0 


92 


24 


r 


3 E8 






415 




MVI 


IFLAG1»X , 24* 


SET UP FOR CORRECT PRINTOUT 


01 304 


92 


80 


r 


K AC 






416 




MV I 


I FLAGZ, X '80 * 




01 308 


02 


01 


p 


7C8 


o 




417 
Hi 1 


IOUT I T 


MVC 


I 1 i>TNO+5l Z J , Z I R 1 1 ) 


MOVE TEST NUMBER TO PRINT 


01 3DE 


OA 


DO 










418 




SVC 


X • DD • 


CONVERT TEST NUMBER 


01 3E0 


0002 










419 




DC 


AL2 ( 2 ) 




013E2 


07C8 










Htu 




nr 
UU 


Al_£ll 1 o 1 IMU"r D-itLNU 1 




01 3E4 


07C8 










ATI 
**<C 1 






ai 9 1 TTCTMnxR ecrwni 
ALZl 1 1 b lIMU+D— ofcCNUl 




01 3E6 


OA 


DO 










n<I<c 




5 VI* 


X * DO • 


PRINT TEST NUMBER 


013E8 


64 












423 


TCI *P1 
1 rLAul 


nr 






01 3E9 


09 












424 






y * no t 




013EA 


F7C3 










425 




nr 


AI 9f TTC TWfl- CCf MDxDCr 1 




01 3EC 


41 


80 


A 
U 


UUn 






426 




LA 


R8 , 4 


ADJUST, LINK ADDRESS FOR PRINTOUT 


013F0 


IB 


B8 










n£ » 




co 
oK 


R 1 1 » R 8 




013F2 


50 


BO 


p 


754 






428 




ST 


Oil T 1 I Mlf* -4- «» 
K11,IL1INK+D 




013F6 


OA 


DD 










429 






X ' DD * 


uUNVcKI LINK ADDRESS 


013F8 


0003 










430 




DC 


AL2 C 3 ) 




013FA 


0755 










431 




nr 


AI 7111 T Mif 4. A-.ccr wn 1 




01 3FC 


0754 










Hit 




DC 


ai o n i r kii/ * c~ ccrun 1 
ALZI I LlNr\-r5~5tCN0 I 




013FE 


OA 


DO 










433 




SVC 


X 1 DO • 


DD T KIT 1 T Klfcf AnnDCCC 


01400 


EO 












434 




DC 


x'eo* 




01401 


10 












435 




DC 


X'10* 




01402 


F74F 










436 




DC 


AL2 ( I LI NK-SECNQ+REG ) 




01404 


41 


BB 


0 


004 






437 




LA 


R11,4(R11 ) 




01408 


91 


80 


B 


000 






438 




TM 


OtRlDtX'eO* 




0140C 


47 


10 


F 


492 






439 




BC 


ALL,I0CSW 


BR. IF NO 1-0 COMMAND ISSUED 


01410 


OA 


DD 










440 




SVC 


X»DD» 


CONVERT 1-0 ADDRESS 


01412 


0003 










441 




DC 


AL2(3) 




01414 


0800 










442 




DC 


AL2 <I0ADR-SECN0) 




01416 


0743 










443 




DC 


AL2U0ADDR+5-SECN0) 




01418 


OA 


DO 










444 




SVC 


X^DO* 


PRINT 1-0 ADDRESS 


01 41 A 


EO 












445 




DC 


X«E0« 




0141B 


OF 












446 




DC 


X»0F» 




0141C 


F73E 










447 




DC 


AL2 ( I0ADDR-SECN0+REG ) 




0141 E 


95 


9C 


F 


15E 






448 




CLI 


ISSUE, X«9C« 


COMPARE FOR SI0 COMMAND 


01422 


47 


60 


F 


47C 






449 




BC 


UNECICC0UT 


BR. IF NOT 


01426 


50 


AO 


F 


764 






450 




ST 


R10, ICAW+5 


STORE CCW ADDR. 


0142A 


OA 


DO 










451 




SVC 


X»DD' 


CONVERT CAW 


0142C 


0003 










452 




DC 


AL2C3) 





0142E 


0765 










453 




DC 


AL2UCAW+6-SECN0) 




01430 


0764 










454 




DC 


AL2UCAW+5-SECN0) 




01432 


OA 


DO 










455 




SVC 


X'DO* 


PRINT CAW 


01434 


E0 












456 




DC 


X»E0» 




01435 


0B 












457 




DC 


X'OB' 




01436 


F75F 










458 




DC 


AL2 ( I CAW-SECNO+REG ) 




01438 


D2 


02 


F 


772 


F 


76E 


459 




MVC 


IBLAH+1 ( 3 ) , ICCW 


MOVE -CCW- TO MESSAGE 


0143E 


92 


16 


F 


477 






460 




MVI 


ICNT,X»16» 


ADJUST COUNT 


01442 


50 


AO 


F 


B98 






461 




ST 


R10,SAV10 


MOVE CONTENTS OF REG 10 TO SAVE 


01446 


D2 


07 


F 


818 


A 


000 


462 


ICW0UT 


MVC 


W0RK(8),0(R10) 


MOVE CCW TO WORK AREA 


0144C 


45 


90 


F 


460 






463 




BAL 


R9 f ICOUT 


BR. TO OUTPUT CCW 


01450 


91 


CO 


A 


004 






464 




TM 


4(R10) ,X , C0» 


CHECK FOR ANY CHAIN FLAGS 


01454 


47 


80 


F 


47C 






465 




BC 


NONE, ICCOUT 


BR. IF NONE 


01458 


41 


AA 


0 


008 






466 




LA 


R10,8(R10) 


UPDATE TO NEXT CCW 


0145C 


47 


F0 


F 


446 






467 




BC 


UNCICWOUT 


BR. UNCONDITIONAL 


01460 


OA 


DD 










468 


IC0UT 


SVC 


X'DD* 


CONVERT 


01462 


0008 










469 




DC 


AL2(8) 




01464 


0818 










470 




DC 


AL2 ( WORK-SECNO ) 




01466 


0818 










471 




DC 


AL2( WORK-SECNO) 




01468 


D2 


07 


F 


776 


F 


818 


472 




MVC 


IBLAH+5(8),W0RK 


MOVE TO MESSAGE 


0146E 


D2 


07 


F 


77F 


F 


820 


473 




MVC 


IBLAH+14(8) ,W0RK+8 




01474 


OA 


00 










474 




SVC 


X«D0» 


PRINT 


01476 


E0 












475 




DC 


X»E0« 




01477 


1A 












476 


ICNT 


DC 


X'1A« 




01478 


F771 










477 




DC 


A L 2 ( I BLAH-SECNO+REG ) 




0147A 


07 


F9 










478 




BCR 


UNCR9 


RETURN VIA REG 9 


0147C 


02 


00 


F 


72F 


B 


004 


479 


ICC0UT 


MVC 


IEXPCC+5U),4(R11) 


MOVE EXP CC TO MESSAGE 


01482 


58 


AO 


F 


B9C 






480 




L 


R10,ISLAVE 




01486 


OA 


DO 










481 




SVC 


X»D0» ' 


PRINT EXPECTED COND. CODE 


01488 


E0 












482 




DC 


X»E0» 




01489 


OA 












483 




DC 


X«0A» 




0148A 


F72A 










484 




DC 


AL2 ( I EXPCC-SECNO+REG ) 




0148C 


OA 


DO 










485 




SVC 


X»D0» 


PRINT ACTUAL COND. CODE 


0148E 


E0 












486 




DC 


X'EO 8 




0148F 


OA 












487 




DC 


X*0A« 




01490 


F734 










488 




DC 


AL2UACTCC-SECN0+REG) 




01492 


D2 


02 


F 


772 


F 


76B 


489 


I0CSW 


MVC 


IBLAH+K 3 ) , ICSW 


MOVE -CSW- TO MESSAGE 


01498 


92 


1A 


F 


477 






490 




MVI 


ICNT^'IA* 


ADJUST COUNT 


0149C 


91 


08 


B 


000 






491 




TM 


0(R11) ,X«08» 




014A0 


47 


80 


F 


4C4 






492 




BC 


NONE, IDIDI 


BR. IF NO CSW EXPECTED 


014A4 


D2 


02 


F 


788 


F 


78E 


493 




MVC 


IBLAH+23(3) ,IEXP 


MOVE -EXP- TO MESSAGE 


014AA 


48 


8B 


0 


006 






494 




LH 


R8,6(R11) 




014AE 


40 


80 


F 


4BE 






495 




STH 


R8, ICHNG1+4 




014B2 


41 


88 


0 


008 






496 




LA 


R8,8(R8) 




014B6 


40 


80 


F 


4EE 






497 




STH 


R8,ICHNG2+4 




014BA 


D2 


07 


F 


818 


F 


818 


498 


ICHNG1 


MVC 


W0RK(8) ,W0RK 


MOVE EXPECTED CSW TO WORK AREA 


014C0 


45 


90 


F 


460 






499 




BAL 


R9, ICOUT 


BR. TO OUTPUT EXPECTED CSW 


014C4 


91 


40 


F 


0E4 






500 


IDIDI 


TM 


ISWtX^O 1 




014C8 


47 


60 


F 


4 DC 






501 




BC 


NONE, IMORST 


BR. IF NO CSW STORED 


014CC 


02 


02 


F 


788 


F 


78B 


502 




MVC 


IBLAH+23C3) ,IACT 


MOVE -ACT- TO MESSAGE 


014D2 


D2 


07 


F 


818 


F 


7E6 


503 




MVC 


W0RK(8) ,ICSW1 


MOVE ACTUAL CSW TO WORK AREA 


014D8 


45 


90 


F 


460 






504 




BAL 


R9, ICOUT 


BR. TO OUTPUT ACTUAL CSW 


014DC 


91 


04 


B 


000 






505 


IMORST 


TM 


0(R11) ,X , 04« 




014E0 


47 


80 


F 


4F4 






506 




BC 


NONE, IDID 


BR. IF NOT EXPECTING 2 CSWS 


014E4 


D2 


02 


F 


788 


F 


78E 


507 




MVC 


IBLAH+23(3) ,IEXP 


MOVE -EXP- TO MESSAGE 


014EA 


02 


07 


F 


818 


F 


818 


508 


ICHNG2 


MVC 


WORM 8) ,W0RK 


MOVE EXPECTED CSW TO WORK AREA 


014F0 


45 


90 


F 


460 






509 




BAL 


R9, ICOUT 


BR. TO OUTPUT EXPECTED CSW 2 


014F4 


91 


20 


F 


0E4 






510 


IDID 


TM 


ISW,X»20« 




014F8 


47 


80 


F 


50C 






511 




BC 


NONE, IPAS 


BR. IF NO SECOND CSW STORED 


014FC 


D2 


02 


F 


788 


F 


78B 


512 




MVC 


IBLAH+23C3) ,IACT 


MOVE -ACT- TO MESSAGE 


01502 


02 


07 


F 


818 


F 


7EE 


513 




MVC 


W0RM8) ,ICSW2 


MOVE CSW TO WORK AREA 


01508 


45 


90 


F 


460 






514 




BAL 


R9, ICOUT 




0150C 


91 


04 


F 


0E4 






515 


IPAS 


TM 


ISW f X , 04' 




01510 


47 


80 


F 


530 






516 




BC 


NONE,IPASS 


BR. IF NO SENSE DATA RECIEVED 


01514 


OA 


0D 










517 




SVC 


X'DO 1 


CONVERT EXPECTED SENSE 
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01516 


0001 










518 




DC 


AL2( 1) 




01318 


0796 










519 




DC 


AL2( I EXSNS+5-SECN0) 




0151A 


0796 










520 




DC 


AL2< IEXSNS+5-SECN0) 




0151C 


OA 


DO 










521 




SVC 


X'DO* 


PRINT EXPECTED SENSE 


0151E 


EO 












522 




DC 


X'EO 1 




0151F 


OB 












523 




DC 


X«OB« 




01520 


F791 










524 




DC 


AL2UEXSNS-SECN0+REG) 




01522 


OA 


DD 










525 




SVC 


X»DD« 




01524 


0001 










526 




DC 


AL2U) 




01526 


07A1 










527 




DC 


AL2UACSNS+5-SECN0) 




01528 


07A1 










528 




DC 


AL2UACSNS+5-SECN0) 




0152A 


OA 


DO 










529 




SVC 


X»DO» 


PRINT ACTUAL SENSE DATA 


0152C 


EO 












530 




DC 


X«E0» 




0152D 


OB 












531 




DC 


X«OB» 




0152E 


F79C 










532 




DC 


AL2 < I ACSNS-SECNO+REG ) 




01530 


95 


30 


E 


181 






533 


IPASS 


CLI 


SYSM0D(R14) ,X«30« 


CHECK FOR MODEL 30 


01534 


47 


60 


F 


564 






534 




BC 


UNEQ, IOPOUT 


BR. IF NOT 


01538 


D2 


OB 


F 


818 


0 


080 


535 




MVC 


WORK ( 12 ) t LOGOUT 


MOVE LOGOUT TO WORK AREA 


0153E 


OA 


DD 










536 




SVC 


X»DD« 


CONVERT 


01540 


OOOC 










537 




DC 


AL2(12) 




01542 


0818 










538 




DC 


AL2(W0RK-SECN0) 




01544 


0818 










539 




DC 


AL2(W0RK-SECN0) 




01546 


D2 


01 


F 


7 AC 


F 


818 


540 




MVC 


I0LnG+5<2) ,WORK 


MOVE LOG OUT TO MESSAGE 


0154C 


D2 


05 


F 


7AF 


F 


81A 


541 




MVC 


I0L0G*8(6) ,W0RK+2 




01552 


D2 


05 


F 


7B6 


F 


822 


542 




MVC 


I0L0G+15(6) ,W0RK+10 




01558 


D2 


05 


F 


7BD 


F 


B2A 


543 




MVC 


I0L0G+22(6) ,W0RK+18 




0155E 


OA 


DO 










544 




SVC 


X'DO 1 


PRINT LOG OUT 


01560 


EO 












545 




DC 


X»EO» 




01561 


1C 












546 




DC 


X»1C» 




01562 


F7A7 










547 




DC 


AL2 < I OLOG-SECNO+REG ) 




01564 


91 


60 


F 


0E5 






548 


IOPOUT 


TM 


ISW+1,X«60« 


CHECK FOR DIAGNOSTIC DATA 


01568 


47 


50 


F 


5 AO 






549 




BC 


ANYtlOUT 


BR. IF ANY 


0156C 


OA 


DO 










550 


IPRLOP 


SVC 


X«DO« 


PRINT LOOP OPTIONS 


0156E 


CO 












551 


IFLAG2 


DC 


X»CO« 




0156F 


18 












552 




DC 


X'18« 




01570 


F7CC 










553 




DC 


AL2( IQPT1-SECN0+REG) 




01572 


OA 


DO 










554 




SVC 


X'DO' 


SPACE A LINE 


01574 


AO 












555 




DC 


X»AO" 




01575 


01 












556 




DC 


X'Ol' 




01576 


F74F 










557 




DC 


AL2( I LINK-SECNQ+REG ) 




01578 


50 


AD 


0 


048 






558 




ST 


R10,HCAW(R13) 


STORE CAW 


0157C 


91 


80 


F 


004 






559 




TM 


SNSW, X^O 1 


CHECK SECTION SENSE SWITCH 0 


01580 


47 


50 


F 


120 






560 




BC 


ANY* I TRY1 


BR. IF ANY ON 


01584 


91 


01 


F 


0E5 






561 




TM 


ISW+ltX'Ol • 




01588 


07 


15 










562 




BCR 


ALL »R5 


RETURN VIA REG 5 IF HANG UP 


0158A 


91 


08 


B 


000 






563 


ILEAVE 


TM 


0(R11) ,X , 08 t 




0158E 


47 


80 


F 


596 






564 




BC 


NONE, IUP 


BR. IF NO CSW EXPECTED 


01592 


41 


BB 


0 


002 






565 




LA 


R11,2(R11) 


UPDATE LINK ADDRESS FOR RETURN 


01596 


41 


BB 


0 


006 






566 


IUP 


LA 


R11,6(R11) 




0159A 


98 


79 


F 


830 






567 




LM 


R7,R9, ISAVE 




0159E 


07 


FB 










568 




BCR 


UNCtRll 


RETURN VIA REG 11 


015AO 


90 


27 


F 


B80 






569 


I OUT 


STM 


R2,R7, LARGE 




015A4 


IB 


77 










570 




SR 


R7,R7 




015A6 


IB 


33 










571 




SR 


R3,R3 




015A8 


41 


20 


0 


084 






572 




LA 


R2,132 


SET UP FOR 132 POSITIONS 


015AC 


41 


60 


F 


AA8 






573 




LA 


R6.PRAR-1 




015B0 


91 


10 


F 


0E1 






574 




TM 


UNITl + lfXHO* 


CHECK FOR UCS FEATURE 


015B4 


47 


10 


F 


5BC 






575 




BC 


ALLtNIXT-2 


BR. IF DEFINED 


015B8 


41 


60 


F 


BFC 






576 




LA 


R6, LDAR— 1 




015BC 


IB 


55 










577 




SR 


R5,R5 




015BE 


43 


32 


F 


AA8 






578 


NIXT 


IC 


R3,PRAR-MR2) 


PICK UP CHAR WRITTEN 


015C2 


43 


42 


F 


83B 






579 




IC 


R4,CKAR-1 (R2) 


PICK UP CHECK BYTE 


015C6 


43 


52 


F 


8BF 






580 




IC 


R5,0RAR-1(R2) 


PICK UP CHAR READ 


015CA 


43 


76 


2 


000 






581 




IC 


R7,0{R6,R2) 


PICK UP CHAR SHD READ 


015CE 


42 


40 


F 


BEC 






582 




STC 


R4,INF0+16 


STORE CHECK BYTE 



015D2 


19 


57 










583 




CR 


R5,R7 


COMPARE FOR CORRECT READ BACK 


015D4 


47 


60 


F 


6F4 






584 




BC 


UNEQ, RANK 


BR. IF UNEQUAL 


015D8 


95 


04 


F 


BEC 






585 


HOKAY 


CLI 


INFO+^tX^' 


COMPARE FOR PLC ONLY 


015DC 


47 


60 


F 


5 EC 






586 




BC 


UNEQ» HONK 


BR. IF UNEQUAL 


015E0 


46 


20 


F 


5BE 






587 


CRUDE 


BCT 


R2,NIXT 


BR. UNTIL 132 POSITIONS CHECKED 


015E4 


98 


27 


F 


B80 






588 




LM 


R2,R7, LARGE 




015E8 


47 


FO 


F 


56C 






589 




BC 


UNCtlPRLOP 




015EC 


91 


10 


F 


0E5 






590 


HONK 


TM 


ISW+1,X»10« 


CHECK FOR PREVIOUS HEADING PRINT 


015F0 


47 


10 


F 


680 






591 




BC 


ALL t SZABO 


BR. IF THERE WAS 


015F4 


91 


10 


F 


0E1 






592 




TM 


UNITl+ltX^lO* 




015F8 


47 


80 


F 


670 






593 




BC 


NONE , CHIRP 


BR. IF NOT 


015FC 


95 


FO 


F 


BFD 






594 




CLI 


LDAR , X • FO • 


CHECK FOR LAST GROUP 


01600 


47 


60 


F 


60E 






595 




BC 


UNEQt HARDER 


BR. IF NOT 


01604 


OA 


DO 










596 




SVC 


X'DO 1 


PRINT 


01606 


EO 












597 




DC 


X^O' 




01607 


IF 












598 




DC 


X» 1F» 




01608 


FB2D 










599 




DC 


AL2 (LSTGRP-SECNO+REG) 




0160A 


47 


FO 


F 


670 






600 




BC 


UNC, CHIRP 




0160E 


58 


90 


F 


B90 






601 


HARDER 


L 


R9,LARGE+16 


PICK UP LDAR ADDRESS BEING FILLED 


01612 


41 


80 


F 


BFC 






602 




LA 


R8tLDAR-l 


PICK UP LDAR ADDRESS 


01616 


41 


99 


0 


001 






603 




LA 


R9, 1 ( R9) 




0161A 


IB 


98 










604 




SR 


R9 V R8 


SUBTRACT 


0161C 


43 


89 


F 


BFC 






605 




IC 


R8 » LDAR-1 ( R9 ) 


PICK UP FIRST CHAR 


01620 


42 


60 


F 


B69 






606 




STC 


R8,TUFF+29 




01624 


46 


90 


F 


818 






607 




CVD 


R9 , WORK 


CONVERT UCB ADDRESS TO DECIMAL 


01628 


F3 


21 


F 


B56 


F 


81E 


608 




UNPK 


TUFF+10( 3 ) ,W0RK+6(R2 ) 




0162E 


96 


FO 


F 


B58 






609 




01 


TUFF+12tX , F0 l 




01632 


41 


99 


0 


OOF 






610 




LA 


R9, 15(R9) 


UP TO LAST CHAR IN FIELD 


01636 


4E 


90 


F 


818 






611 




CVD 


R9, WORK 


CONVERT HIGH ADDR TO DECIMAL 


0163A 


F3 


21 


F 


B5D 


F 


81E 


612 




UNPK 


TUFF+17( 3 ) ,W0RK+6(2 ) 




01640 


96 


FO 


F 


B5F 






613 




01 


TUFF+^jX'FO 1 




01644 


43 


89 


F 


BFC 






614 




IC 


R8 tLDAR-1 (R9) 


PICK UP LAST CHAR 


01648 


42 


80 


F 


B71 






615 




STC 


R8,TUFF+37 




0164C 


OA 


DD 










616 




SVC 


X^D* 




0164E 


0001 










617 




DC 


AL2( 1 ) 




01650 


0B69 










618 




DC 


AL2 ( TUFF+29-SECN0) 




01652 


0B69 










619 




DC 


AL2 ( TUFF+29— SECNO) 




01654 


OA 


DD 










620 




SVC 


X^DD' 




01656 


0001 










621 




DC 


AL2( 1 ) 




01658 


0B71 










622 




DC 


AL2C TUFF+37-SECN0) 




0165A 


0B71 










623 




DC 


AL2 ( TUFF+37— SECNO) 




0165C 


OA 


DO 










624 




SVC 


X •DO" 


PRINT UCB ADDR AND DATA RANGE 


0165E 


EO 












625 




DC 


X»EO* 




0165F 


33 












626 




DC 


X » 33« 




01660 


FB4C 










627 




DC 


AL2 (TUFF-SECNO+REG) 




01662 


95 


FB 


F 


D20 






628 




CLI 


LOAOf X , FB* 


COMPARE FOR FOLDING MODE 


01666 


47 


80 


F 


670 






629 




BC 


EQ, CHIRP 


BR. IF NOT FOLDING 


0166A 


OA 


DO 










630 




SVC 


X'DO* 


PRINT FOLDING MSG 


0166C 


EO 












631 




DC 


X'EO* 




0166D 


10 












632 




DC 


X»10» » 




0166E 


FEB7 










633 




DC 


AL2 ( FOLDNG-SECNO+REG ) 




01670 


OA 


DO 










634 


CHIRP 


SVC 


X^DO* 


PRINT HEADINGS 


01672 


EO 












635 




DC 


X'EO* 




01673 


1A 












636 




DC 


X»1A» 




01674 


FBA8 










637 




DC 


AL2(HED1-SECN0+REG ) 




01676 


OA 


DO 










638 




SVC 


X^O' 




01678 


EO 












639 




DC 


X'EO* 




01679 


1A 












640 




DC 


X»1A« 




0167A 


FBC2 










641 




DC 


AL2 < HE02- SECNO+REG ) 




0167C 


96 


10 


F 


0E5 






642 




01 


ISW+1,X»10« 


INDICATE HEADINGS PRINTED 


01680 


42 


30 


F 


BE2 






643 


SZABO 


STC 


R3,INF0*6 


STORE DATA 


01684 


42 


50 


F 


BE8 






644 




STC 


R5,INF0-H2 




01688 


42 


70 


F 


BE5 






645 




STC 


R7, INFO+9 




0168C 


OA 


DD 










646 




SVC 


X»DD» 


CONVERT DATA 


0168E 


0001 










647 




DC 


AL2(1) 
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01690 


QBE2 


648 




DC 


AL2 ( INF0+6-SECN0) 




01771 


/. nracici/. ncTCTCT 
400 3 fc640fc ftfer 


708 


IBL AH 


DC 


ft r c li wvvwvv wt 

C CbH AAAAAAAA A*' 






0BE2 


649 




DC 


AL2( INF0+6-SECN0I 




01 779 


C7CTCT CTCTAnCTCT 
tftft/tffcf 40 t ftl 












01 694 


OA 00 


650 




SVC 


X • DO • 




01781 


c7c7fcf c7c7E740C5 


709 




DC 


r- m \J \j \s \/ \j \J rung 

C'XXXXXX EXP" 




01696 


0001 


651 




DC 


AL2( 1 ) 




01789 


E7D7 












01698 


0BE5 


652 




DC 


AL2( INFO+9— SECN0I 




01 78B 


C 1C3E3 


710 


I ACT 


DC 


C ' ACT • 




0169A 


0BE5 


653 




DC 


AL2( INF0+9-SECN0) 




0178E 


C5E707 


711 


IEXP 


DC 


C • EXP • 




01 69C 


OA OD 


654 




SVC 


X • DD • 




01 791 


# nc one o/.acict/ r\ 

40E2D5 tZ40c7c740 


712 


IEXSNS 


DC 


C SNS XX EXP* 




U107C 


nnn i 

UUU 1 


655 




DC 


AL2 ( 1 ) 




01799 


C5E7D7 












m a ah 

UIO AU 


Unco 


656 




DC 


ai i / t urn * i o rerun \ 

AL2 ( INFO+12— SECNO) 




01 79C 


AnconccTAncTCTAn 
H-Ofc CUD C^40 C f t f40 


713 


I ACSNS 


DC 


r 4 CMC W ATTt 

C oNo aa AL 1 ' 




01 6 A2 


0BE8 


657 




DC 


AL2( I NF0+ 12— SECNO) 




01 7 A4 


C IC 3E3 












016A4 


a c ->n e a i a 
4fc 20 r olo 


658 




CVD 


R2t WORK 


CONVERT PRINT POSITION TO DECIMAL 


01 7 A7 


4003U6 C740 c7t740 


714 


I0L0G 


DC 


C* LUG XX XXXXXX X* 




016 A8 


ci oi c n r>r\ «r i 
ri cl r BUD r > 


51E 659 




UNPK 


INF0+K 3) , W0RK+6(2i 




01 7 AF 


CTCTCT CTCTcrTAnCT 

Cf E7t(tfc f E740E7 












01 6AE 


o a cn c one 
Vo rO r our 


660 




01 


INF0+3tX , F0 t 




01 7B7 


fcffcftftftf 40 1 f t f 


715 




DC 


r § v v v v v vvwvvt 

K, 'AAAAA AAAAAA * 




01 6B2 


AT Art C D Cf 


661 




STC 


R4t INF0+ 16 


STORE CK RD BYTE 


01 7BF 


E7E7E7 E7 












0 1 6 B 6 


V<c rO r BrO 


662 




MVI 


INFO+20, X *F0 • 




01 7C3 


A ncOCO COAnCTCTCT 

HUtJfct t340 tftfCf 


716 


I TSTNO 


DC 


ft TC T WVWt 
C * lb 1 XX AA * 




Ul OO A 


o i n 5 c n 
VI Vic r Del 


663 




TM 


INF0+16,X '02' 


CHECK FOR PRINT CHECK BIT 


01 7CB 


E7 












016BE 


at fin C ATA 
h ( ou r o uo 


664 




BC 


MrtMC no cn i 


BR« IF OFF 


ni ~icc 
U 1 I u U 


Anc 5C9Ancn/,nrtAn<i 
HUtttc'fUrUHUUoU3 


T 1 T 

f 1 f 


IOPT 1 


DC 


r i cc n nui tno i nni 
v* oo U UN rUK LUU* 




ui ou<c 


no ci c Den 

74 rl r oru 


665 




MVI 


INF0+20»X'F1 ■ 




01 7D4 


40C6UoU94uu3U6U6 












01 6C6 


n "7 c n C OCA 

9<£ rO r Br4 


666 


0BER 1 


MVI 


INFO+24 1 X 'F0' 




01 7DC 


n t /. n nA nc s ncirnni 

074006 D540cZC9D6 


718 




DC 


C ■ P ON 510* 




Ul OLA 


o i ni c n cr 
vi Ul r Del* 


667 




TM 


INF0+16,X '01 • 


CHECK FOR PARITY CHECK BIT 


017E4 


D6D7 


719 




DC 


C ' OP • 




016CE 


a 7 on r~ a n a 

4 f 80 r 6D6 


668 




BC 


NONE , 0BER2 


BR. IF OFF 


01 7E6 


OOOOUU 0000000000 


720 


IC SW 1 


DC 


XL8 1 0 9 




01 6D2 


m c i c ac a 
9Z rl r Br4 


669 




MVI 


INF0+24»X •Fl • 




017EE 


0000000000000000 


721 


ICSW2 


DC 


XL8'0» 




01 606 


(11 n A C D r-#~ 

VI 04 r BfcC 


670 


0BER2 


TM 


INF0+16fX '04' 


CHECK FOR PLC 


01 7F6 


0000 












016DA 


47 80 F 6E6 


671 




BC 


NONE »0BER3 


BR. IF OFF 


017F8 


040017 A 100000001 


722 


ISENSE 


CCW 


X»04« ,IACSNS+5,X»00«, 


1 


016DE 


9Z 1-1 F BfcC 


672 




MVI 


INFO+16* X *Fl » 




01 800 


00 1 15E 


723 


IOADR 


DC 


AL3(ISSUE) 




016E2 


at cn C A C A 

4f rO r 6fcA 


673 




BC 


UNC,0BER4 




01803 


FE 


724 


MSK1 


DC 


X'FE« 




016E6 


92 F0 F BfcC 


674 


0BER3 


MVI 


INF0+16 t X 'FO 1 




01804 


01 


725 


MSK2 


DC 


X»01« 




01 6E A 


OA 00 


675 


0BER4 


SVC 


X 'DO* 


PRINT FAILING POSITION 


01 805 


000000 












016EC 


E0 


676 




DC 


X'EO* 




01808 


0600 18 3C 00000084 


726 


DCKRD 


CCW 


X»06«,CKAR,X«00S132 




01 6E0 


19 


677 




DC 


X" 19* 




01810 


000018 10 


727 


CRDCSW 


DC 


A(CRDCSW) 




016EE 


FBDC 


678 




DC 


AL2( INF0-SECN0+REG) 




01814 


OuOOuU 00 


728 




DC 


X»0C000000» 




01 6F0 


Ai cn c ccn 
«f r ru r ->tU 


679 




BC 


UNC »CRUDE 




01818 




729 




CNOP 


0,8 




016F4 


91 10 r Otl 


680 


RANK 


TM 


UNIT1+1 9 X'10* 


CHECK FOR UCS FEATURE 


01818 




730 


WORK 


DS 


24C 




01 6F8 


at on c cc/* 

4f 80 r 5tC 


681 




BC 


NONE »H0NK 


BR. IF NOT 


01830 


0000000000000000 


731 


ISAVE 


DC 


XL12 , 0 I 




01 6FC 


ni on c nnT 
VI 80 F 007 


682 




TM 


SNSW+3t X , 80 t 


CHECK SENSE SWITCH 24 FOR DUAL ING 


01838 


00000000 












01700 


47 80 F 5 EC 


683 




BC 


NONE » HONK 


BR. IF OFF - NOT DUAL ING 


01 83C 




732 


CK AR 


DS 


132C 




01 704 


1 B 88 


684 




SR 


R8»R8 


CLEAR REG 8 


01 8C0 




733 


DRAR 


DS 


132C 




01706 


a i An n n n a 
41 40 0 004 


685 




LA 


R4» 4 


SET UP FOR 4 DUALABLE CHARACTERS 


01 944 


00000000 












0170A 


AO OA r* n r/ 

43 84 F BF4 


686 


SWING 


IC 


R8t DUABLE-1 (R4 ) 




01948 


02001 8 C000 000084 


734 


RDCCW 


CCW 


X *02 ' ,DRAR ,X • 00 • , 132 




01 70E 


19 83 


687 




CR 


R8f R3 


COMPARE FOR DUALABLE CHAR 






735 


********** ******** *********^********* ************ ********************* 


Ul f 1 u 


at an c 7ir 
«» f oO r flu 


688 




BC 


E0» SWUNG 


BR. IF IT IS 






736 


* 




INITIALIZE ROUTINE 


ftl 71 A 

Ul f 1H 


a a An c fn* - 
*H> HKi r fuA 


689 




BCT 


R4t SWING 


BR. UNTIL 4 CHECKED 






737 


************ *******************^ 


ni 7i o 
Ul f 1 o 


at cn C CCP 


690 




BC 


UNC t HONK 




01 950 


1 B OD 


738 


INIT 


SR 


R13,R13 


ZERO REG 13 


ui r it 


A "3 7jL C Q CO 


691 


SWUNG 


IC 


R7t DUALED— 1 (R4) 


INSERT DUALED IN SHD READ 


01952 


n i y n l nA 

91 40 c 196 


739 




TM 


406(R14) ,X»40 8 


CHECK FOR FORCED PROBLEM STATE 


ni ton 

Ul f 4lU 


1 9 57 


692 




CR 


R5tR7 


COMPARE TO READ 


01 956 


47 80 F 95C 


740 




BC 


NONE, NITWIT 


BR. IF NOT 


Ul 1 cc 


A.T An C Kcr 
Hi OU r DCU 


693 




BC 


UNty t HONK 


BR. IF UNEQUAL 


0195A 


1 8 OF 


741 




LR 


R13,R15 


SET UP FOR PROBLEM STATE 


01726 


47 F0 F 5D8 


694 




BC 


UNCH0KAY 




0195C 


58 CO F 0E0 


742 


NITWIT 


L 


R12,UNIT1 


LOAD REG 12 WITH UNIT TABLE ENTRY 


0172A 


40C3C34040E740C5 


695 


IEXPCC 


DC 


C» CC X EXP« 




01960 


54 CO F BA4 


743 




N 


R12,M0D50 


AND OUT UNUSED BITS 


Ul I J<G 














01964 


AO t* t\ C A i n 

4V CO r A10 


744 




CH 


R12,SAVDEV 


COMPARE FOR CURRENT DEVICE ADDRESS 


01734 


40C3C34040E740C1 


696 


IACTCC 


DC 


C« CC X ACT* 




01968 


47 80 F 9BC 


745 




BC 


EQ,RL00P 


BR. IF EQUAL 


0173C 


C3E3 












0196C 


40 CO F A10 


746 




STH 


R12,SAVDEV 


SAVE CURRENT DEVICE ADDRESS 


01 73E 


4nn cu, no An P7F7F7 


-Q7 
D7 f 


in Anno 

1UAUUK 




pi a no www ctni 
L AUK aAaaaa oIU* 




01970 


91 10 F 0E1 


747 




TM 


UNIT1+1,X»10« 


CHECK FOR UCS FEATURE 


01746 


E7E7E740E2C9D6 












01974 


47 80 F 9BC 


748 




BC 


N0NE,BL00P 


BR. IF NOT DEFINED 


01740 


00 


698 




DC 


X * 00 * 




01978 


D2 02 F A3A F 702 


T49 




MVC 


FERR0+14O) ,I0PTl + 6 


MOVE WORD -ON - TO MSG 


0174E 


07 00 


699 




CN0P 


0,4 




0197E 


D2 02 F A45 F A57 


750 




MVC 


FERR0+25(3) ,0FF 


MOVE WORD -OFF- TO MSG 


0174F 




700 




ORG 


*-l 




01984 


D2 02 F A4C F ASA 


751 




MVC 


FERR0+32(3) ,N0T 


MOVE WORD -NOT- TO MSG 


0174F 


40C1C4D940E7E7E7 


701 


ILINK 


DC 


C« ADR XXXXXX LINK * 




0198A 


91 80 F 007 


752 




TM 


SNSW+3,X'80« 


TEST FOR DUALING MODE 


01757 


E7E7E740D3C9D5D2 












0198E 


47 10 F 9A4 


753 




BC 


ALL, DARIO 


BR. IF DUALING MODE 


0175F 


00 


702 




DC 


X»00» 




01992 


02 02 F A3A F A57 


754 




MVC 


FERR0+14C3) ,0FF 


MOVE WORD -OFF- TO MSG 


01760 




703 




CN0P 


0,4 




01998 


D2 02 F A45 F 7D2 


755 




MVC 


FERR0+25C3) ,I0PTl+6 


MOVE WORD -ON - TO MSG 


0175F 




704 




ORG 


*-l 




0199E 


D2 02 F A4C F A4B 


756 




MVC 


FERR0+32(3),FERR0+31 


BLANK OUT WORD -NOT- 


0175F 


40C3C1E640E7E7E7 


705 


ICAW 


DC 


C« CAW XXXXXX • 




019A4 


OA 00 


757 


DARIO 


SVC 


X'DO* 


PRINT SS 24 MSG 


01767 


E7E7E740 












019A6 


04 


758 




DC 


X»04» 




0176B 


C3E2E6 


706 


ICSW 


0C 


C«CSW» 




019A7 


2B 


759 




DC 


X«2B' 




0176E 


C3C3E6 


707 


ICCW 


DC 


C"CCW» 




019A8 


FA2C 


760 




DC 


AL2 ( FERRO-SECNO+REG * 




OATE 


15MAR66 15N0V66 


120CT67 








ID F836-4 


DATE 


15MAR66 15N0V66 120CT67 








ID F836-' 


EC'S 


125632 125655 


131812 
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EC'S 


125632 125655 131812 
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019AA 


OA DA 


761 


STAY 


SVC 


X *DA 9 


HALT FOR SS ALTERATION 


019AC 


41 AO F F28 


762 




LA 


RlOtPRINTl 




019B0 


45 BO F 0E6 


763 




BAL 


Rll 9 I SIO 


GO DO SPACE 


019B4 


2CC0 


764 




DC 


X»2CC0' 


CONTROL SWITCHES 


019B6 


0005 


765 




DC 


X 9 0005* 




019B8 


F100 


766 




DC 


X 9 F100 9 




019BA 


FF30 


767 




DC 


AL2(PRT1-SECN0+REG) 




019BC 


91 BO F 0E4 


768 


BLOOP 


TM 


I SW,X 9 80 9 


CHECK FOR HANG UP 


019C0 


47 10 F 9 DC 


769 




BC 


ALL , HANGUP 


BR. IF DETECTED 


019C4 


D2 00 F A12 F 003 


770 




MVC 


RTSAV( 1 ) 9 SECNO+3 


SAVE ROUTINE NUMBER 


019CA 


92 40 F BFD 


771 




MVI 


LDAR, X 9 40 9 


CLEAR LOAD AREA 


019CE 


D2 EF F BFE F BFD 


772 




MVC 


LDAR+ 1 ( 240 ) , LDAR 




019D4 


D2 83 F AA9 F BFD 


773 




MVC 


PRARU32) vLDAR 


CLEAR PRINT AREA 


019DA 


07 F4 


774 




BCR 


UNCt R4 


RETURN VIA REG 4 


019DC 


D2 00 F 003 F A12 


775 


HANGUP 


MVC 


SECN0+3( 1) yRTSAV 


MOVE RTN NO. THAT HANG HAS FOUND 


019E2 


94 7F F 0E4 


776 




NI 


ISW,X 9 7F 9 




019E6 


96 01 F 0E5 


777 




01 


ISW+1,X 9 01 9 




019EA 


98 AB F B9C 


778 




LM 


RIO, Rll, I SLAVE 


RESTORE REGS 10 AND 11 


019EE 


OA DO 


779 




SVC 


X»D0 9 


PRINT 


019F0 


64 


780 




DC 


X»64« 


-PREVIOUS HANGUP DETECTED- 


019F1 


1A 


781 




DC 


X 9 1A 9 




019F2 


FA8E 


782 




DC 


AL2(HUNG-SECN0+REG) 




019F4 


OA DO 


783 




SVC 


X 9 D0 9 




019F6 


A019 


784 




DC 


X 9 A019 9 




019F8 


FA13 


785 




DC 


AL2 (CLUIN- SECNO+REG ) 




019FA 


45 50 F 25C 


786 




BAL 


R5t IDOSNS 


BR. TO OUTPUT AVAILABLE INFO 


019FE 


92 00 F 0E4 


787 




MVI 


ISW,X 9 00 9 


RESET HANGUP SWITCH 


01A02 


94 F£ F 0E5 


788 




NI 


ISW+1,X 9 FE 9 




01A06 


92 01 F 003 


789 




MVI 


SECNO+3,X'Oi 9 


RESTORE TO ROUTINE 01 


01AOA 


47 FO F 9BC 


790 




BC 


UNC, BLOOP 




01A0E 


07 00 


791 




CNOP 


0,4 




01A10 


FFFF 


792 


SAVDEV 


DC 


X 'FFFF • 




01A12 


00 


793 


RTSAV 


DC 


X 9 00 9 




01A13 


40E2C5C540C4C5E2 


794 


CLUIN 


DC 


C 9 SEE DESCRIPTION* 




01A1B 


C3D9C9D7E3C9D6D5 












01A23 


60C3D6D4D4C5D5E3 


795 




DC 


C '-COMMENTS' 




01A2B 


E2 












01A2C 


40E2C5C340E2E240 


796 


FERRO 


DC 


C 9 SEC SS 24 IS OF 9 




01A34 


F2F440C9E240D6C6 












01A3C 


C640E2C5E340C9E3 


797 




DC 


C 9 F SET IT OFF IF • 




01A44 


40D6C6C640C9C640 












01A4C 


D5D6E340C4E4C1D3 


798 




DC 


C 9 NOT DUALING* 




01 A54 


C9D5C7 












01 A57 


D6C6C6 


799 


OFF 


DC 


Q • QFP • 




01 ASA 


D5D6E3 


800 


NOT 


DC 


C 9 NOT 9 




01A5D 


40C8E4D5C740E4D7 


801 


NODEV 


DC 


C* HUNG UP BUSY- S 8 




01A65 


40C2E4E2E86040E2 












01A6D 


E8E240D9C5E2C5E3 


802 




DC 


C 9 YS RESET PSW RES 9 




01A75 


40D7E2E640D9C5E2 












01A7D 


E3C1D9E3 


803 




DC 


C 9 TART 9 




01A81 


40D9C5C1C4E840C4 


804 


READY 


DC 


C 9 READY DEVICE 9 




01A89 


C5E5C9C3C5 












01A8E 


40D7D9C5E5C9D6E4 


805 


HUNG 


DC 


C 9 PREVIOUS HANG U 9 




01A96 


E240C8C1D5C740E4 












01A9E 


D740C4C5E3C5C3E3 


806 




DC 


C 9 P DETECTED 9 




01AA6 


C5C4 












01AA8 


40 


807 




DC 


X 9 40 9 




01AA9 




808 


PRAR 


DS 


132C 




001A0 




809 


DMSSW 


EQU 


416 




01B2D 


40E4C3C240C8C1E2 


810 


LSTGRP 


DC 


C UCB HAS 16 CHAR 9 




01B35 


40F1F640C3C8C1D9 












01B3D 


40E2C5E340C6F040 


811 




DC 


C 9 SET FO THRU FF 9 




01B45 


E3C8D9E440C6C6 












01B4C 


40E4C3E240C1C4C4 


812 


TUFF 


DC 


C 9 UCS ADDR XXX TO 9 




01B54 


D940E7E7E740E3D6 
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01B5C 


40E7E7E740C3D6D5 


813 




DC 


C 9 XXX CONTAIN XX 9 


01B64 


E3C1C9D540E7E740 










01B6C 


E3C8D9 E440E7E740 


814 




DC 


C 9 THRU XX REST BLA 9 


01B74 


D9C5E2E340C2D3C1 










01B7C 


D5D2E2 


-815 




DC 


C 9 NKS 9 


01B7F 


00 










01B80 




816 




CNOP 


0,4 


01B80 




817 


LARGE 


DS 


24C 


01B98 


00000000 


818 


SAV10 


DC 


XL4 9 0 9 


01B9C 


0000000000000000 


819 


ISLAVE 


DC 


XL8 9 00 9 


01BA4 


00003FFF 


820 


M0D50 


DC 


X 9 00003FFF 9 


01BA8 


40D7D9C9D5E34040 


821 


HED1 


DC 


C 9 PRINT SHD 9 


01BB0 


E2C8C44040404040 










01BB8 


404040 D7D9E340D7 


822 




DC 


C 9 PRT PAR 9 


01BC0 


C1D9 










01BC2 


4040D7D6E240E6D9 


823 


HED2 


DC 


C 9 POS WR RD RD P 9 


01BCA 


40D9C440D9C440D7 










01BD2 


D3C340C3C8D240C3 


824 




DC 


C 9 LC CHK CHK 9 


01BDA 


C8D2 










01BDC 


40E7E7E74040E7E7 


825 


INFO 


DC 


C 9 XXX XX XX XX 9 


01BE4 


40E7E740E7E74040 










01BEC 


E7404040E7404040 


826 




DC 


C 9 X X X 9 


01BF4 


E7 










01BF5 


4D5D7E7D 


827 


DUABLE 


DC 


X 9 4D5D7E7D 9 


01BF9 


6C4C7B7C 


828 


DUALED 


DC 


X 9 6C4C7B7C 9 


01BFD 




829 


LDAR 


DS 


240C 






830 


************ 


*********************************************************** 






831 


* 




LOAD UCS SUB-ROUTINE 






832 


*********************************************************************** 


01CED 


00 










01CEE 


D2 01 F D02 5 000 833 


LOADIT 


MVC 


MUMB(2),0(R5) MOVE TEST NUMBER 


01CF4 


41 55 0 002 


834 




LA 


R5,2(R5) UPDATE RETURN REG 


01CF8 


41 AO F D10 


835 




LA 


RIO, PRELD LOAD CCW ADDRESS 


01CFC 


45 BO F 0E6 


836 




BAL 


R11,ISI0 BR. TO ISSUE SIO 


01D00 


3E00 


837 




DC 


X 9 3E00 9 CTRL SWITCHES 


01D02 


0000 


838 


MUMB 


DC 


X 9 0000 9 TEST NUMBER 


01D04 


FOOO 


839 




DC 


X 9 F000 9 EXP COND CODE AND SENSE 


01D06 


FD28 


840 




DC 


AL2<LDCSW-SECN0*REG> EXP CSW ADDRESS 


01D08 


07 F5 


841 




BCR 


UNCR5 RETURN VIA R5 


01D0A 


000000000000 










01D10 


EB001AA940000001 


842 


PRELD 


CCW 


X 9 EB 9 ,PRAR,X 9 40 9 ,1 


01D18 


7B001AA940000001 


843 




CCW 


X 9 7B 9 ,PRAR,X 9 40» ,1 


01D20 


FBOOiBFDOOOOOOFO 


844 


LOAD 


CCW 


X'FB 9 , LDAR, X 9 00 9 ,240 


01D28 


00001D28 


845 


LDCSW 


DC 


A1LDCSW) 


01D2C 


08000000 


846 




DC 


X 9 08000000 9 


01D30 


00000000 


847 




DC 


XL4 9 0 9 


01D34 


04000000 


848 




DC 


X 9 04000000 9 


01D38 




849 




CNOP 


0,4 






850 


*********************************************************************** 






851 


*********************************************************************** 






852 


* ROUTINE 01 


- THIS ROUTINE WILL RUN ON 1403 PRINTERS WITH THE UCS 






853 


* 




FEATURE ONLY. ALL 256 POSIBLE CHARACTERS WILL BE PRINTED 






854 


* 




IN EACH PRINT POSITION. THE 256 CHARACTER CODES WILL BE 






855 


♦ 




RIPPLED THROUGH THE PRINT AREA IN GROUPS OF 16 CODES AT 






856 


* 




A TIME. EXCEPT FOR THE LAST GROUP OF 16 CODES, ONLY ONE 






857 


* 




AREA OF THE UCS BUFFER WILL CONTAIN MATCHING CHARACTERS. 






858 


* 




FOR EACH OF THESE GROUPS, A DIFFERENT AREA OF THE UCS 






859 


* 




BUFFER WILL CONTAIN THE MATCHING CODES, THE REST OF THE 






860 


* 




BUFFER CONTAINING BLANKS. FOR THE LAST GROUP OF 16 CODES 






861 


* 




THE ENTIRE UCS BUFFER WILL BE FILLED WITH MATCHING CODES 






862 


* 




EACH GROUP OF 16 LINES WILL BE SEPARATED BY A TRIPLE 






863 


* 




SPACE. THE FIRST 15 GROUPS WILL APPEAR AS A TRUE RIPPLE 






864 


* 




OUTPUT. THE LAST GROUP WILL NOT BECAUSE MANY PRINT SLUGS 






865 


* 




ARE ASSIGNED THE SAME CODE. 






866 


*********************************************************************** 


DATE 
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ID F836- 
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01D38 


01 










867 


R0UT01 


DC 


X'Ol 1 


ROUTINE NUMBER 


01E30 


FED8 


932 




DC 


AL2(PRTCSW-SECN0+REG) EXP CSW ADDRESS 


01D39 


000 F 44 










868 




DC 


AL3(ROUT02-SECNO) 


ADDRESS OF NEXT ROUTINE 


01E32 


D2 83 F AA8 F AA9 


933 




MVC 


PRAR-K132) ,PRAR RIPPLE PRINT AREA 


01D3C 


91 10 


F 


0E1 






869 




TM 


UNITl+ltX'lO 1 


CHECK FOR UCS FEATURE 


01E38 


D2 00 F B2C F AA8 


934 




MVC 


PRAR+131(1),PRAR-1 


01D40 


47 80 


F 


FE6 






870 




BC 


N0NE,EXIT02 


BR. IF NOT DEFINED 


01E3E 


91 10 F EDO 


935 




TM 


PRINT, X* 10* CHECK FOR SPACE 3 AFTER PRINT 


01D44 


45 40 


F 


950 






871 




BAL 


R4 ? INIT 


BR. TO INITIALIZE 


01E42 


47 10 F E52 


936 




BC 


ALL,EXITOl BR. IF IT WAS 


01D48 


92 FB 


F 


D20 






872 




MVI 


L0A0,X»FB 9 


SET UP LOAD NO FOLD 


01E46 


46 70 F E26 


937 




BCT 


R7,WRITE2 BR. UNTIL 15 LINES PRINTED 


01D4C 


41 20 


0 


OOF 






873 


AGAIN 


LA 


R2,15 


SET UP FOR 15 GROUPS 


01E4A 


92 19 F EDO 


938 




MVI 


PRINT, X* 19' SET UP FOR SPACE 3 AFTER PRINT 


01050 


41 40 


0 


OOF 






874 




LA 


R4, 15 


SET UP FOR 00 TO OF 


01E4E 


47 FO F E26 


939 




BC 


UNCWRITE2 


01D54 


41 60 


F 


BFC 






875 




LA 


R6t LDAR-1 


SET UP FOR UCS ADDR 1 TO 16 


01E52 


95 F3 F D20 


940 


EXIT01 


CLI 


L0AD,X«F3» COMPARE FOR FOLDING MODE 


01D58 


92 40 


F 


BFD 






876 


KLEER 


MVI 


LDAR,X»40» 




01E56 


47 80 F E94 


941 




BC 


EQ,EXIT1 BR. IF DONE 


01D5C 


D2 EE 


F 


BFE 


F 


BFD 


877 




MVC 


LDAR+1 ( 239) ,LDAR 




01E5A 


92 F3 F D20 


942 




MVI 


LOAD^'FS* SET UP FOR FOLDING MODE 


01D62 


18 54 










878 




LR 


R5,R4 


LOAD STARTING CHARACTER 


01E5E 


47 FO F D4C 


943 




BC 


UNC, AGAIN 


01D64 


41 70 


0 


010 






879 




LA 


R7,16 


SET UP FOR 16 CHARACTERS 


01E62 


95 00 F AA9 


944 


ADJUST 


CLI 


PRAR^'OO* COMPARE FOR A NULL 


01068 


42 56 


7 


000 






860 


STC 


STC 


R5,0(R6,R7) 


STORE CHAR IN UCS LOAD AREA 


01E66 


47 80 F E8A 


945 




BC 


EQ , SWAT BR. IF IT IS 


01D6C 


42 57 


F 


AA8 






881 




STC 


R5,PRAR-1 (R7) 


STORE CHARACTER IN PRINT AREA 


01E6A 


95 40 F AA9 


946 




CLI 


PRAR^^O* COMPARE FOR A BLANK 


01D70 


95 F3 


F 


D20 






882 




CLI 


L0AD,X»F3» 


COMPARE FOR FOLDING MODE 


01E6E 


47 80 F E8A 


947 




BC 


EQ, SWAT BR. IF IT IS 


01D74 


47 60 


F 


D7E 






883 




BC 


UNEQ,*+10 


BR. IF NOT 


01E72 


95 F3 F 020 


948 




CLI 


L0AD,X«F3» COMPARE FOR FOLDING 


01D78 


06 00 


7 


006 


F 


F40 


884 




OC 


R6( 1 f R7 ) f FOLD 


OR IN BITS 0 AND 1 


01E76 


47 60 F D8E 


949 




BC 


UNEQ, MARTY ' BR. IF NOT 


0107E 


46 50 


F 


082 






885 




BCT 


R5,*+4 


DECREMENT CHARACTER 


01E7A 


95 80 F AA9 


950 




CLI 


PRARjX^BO* COMPARE FOR A VALID UNPRINTABLE 


01082 


46 70 


F 


D68 






886 




BCT 


R7.STC 


BR. UNTIL 16 STORED 


01E7E 


47 80 F E8A 


951 




BC 


EQ, SWAT BR. IF IT IS 


01086 


91 80 


F 


007 






887 




TM 


SNSW+3,X»80» 


CHECK SECTION SENSE SWITCH 24 


01E82 


95 CO F AA9 


952 




CLI 


PRAR,X , CO t COMPARE FOR A VALID UNPRINTABLE 


01D8A 


47 10 


F 


E62 






888 




BC 


ALL, ADJUST 


BR. IF ON - DUALING 


01E86 


47 60 F D8E 


953 




BC 


UNEQ, MARTY BR. IF NOT 


01D8E 


D2 73 


F 


AB9 


F 


AA9 


889 


MARTY 


MVC 


PRAR+16( 116*,PRAR 


FILL THE PRINT AREA 


01E8A 


D2 00 F AA9 F AAA 


954 


SWAT 


MVC 


PRARC 1) ,PRAR+1 WIPE OUT CHARACTER 


01D94 


45 50 


F 


CEE 






890 




BAL 


R5, LOADIT 


BR. TO LOAD UCS BUFFER 


01E90 


47 FO F D8E 


955 




BC 


UNC, MARTY 


01D98 


0010 










891 




DC 


X^OOIO* 


TEST NUMBER 


01E94 


OA DO 


956 


EXIT1 


SVC 


X»D0» PRINT RESTORE MSG 


01D9A 


41 70 


0 


OOF 






892 




LA 


R7, 15 


SET UP FOR 15 LINES 


01E96 


04 


957 




DC 


X«04» 


01D9E 


92 09 


F 


EDO 






893 




MVI 


PRINT, X»09« 


SET UP PRINT AND SPACE 


01E97 


IB 


958 




DC 


X«1B« 


01DA2 


41 AO 


F 


ECS 






894 




LA 


RIO, DUAL 


SET UP FOR DUALING MODE 


01E98 


FE9C 


959 




DC 


AL2( BASHEO-SECNO+REG ) 


01DA6 


91 80 


F 


007 






895 




TM 




CHECK SENSE SWITCH 24 FOR DUALING 


01E9A 


OA D6 


960 




SVC 


X«D6« EXIT FROM ROUTINE 01 


01DAA 


47 10 


F 


DB2 






896 




BC 


ALL, WRITE 


BR. IF ON - IN DUALING MODE 


01E9C 


40D9C5E2E3D6D9C5 


961 


BASHED 


DC 


C« RESTORE UCS BUFR WITH F837» 


01DAE 


41 AO 


F 


EDO 






897 




LA 


RIO, PRINT 


LOAD PRINT AND SPACE CCW ADDRESS 


01EA4 


40E4C3E240C2E4C6 










01DB2 


45 BO 


F 


0E6 






898 


WRITE 


BAL 


R11,ISI0 


BR. TO ISSUE START 1-0 


01EAC 


D940E6C9E3C840C6 










01DB6 


3CC0 










899 




DC 


X'3CC0" 


CONTROL SWITCHES 


01EB4 


F8F3F7 










01DB8 


0020 










900 




DC 


X«0020« 


TEST NUMBER 


01EB7 


40C9D540C6D6D3C4 


962 


FOLDNG 


DC 


C« IN FOLDING MODE 1 


01DBA 


FOOO 










901 




DC 


X»FOOO« 


EXP COND. CODE AND SENSE 


01EBF 


C9D5C740D4D6C4C5 










010BC 


FED8 










902 




DC 


AL2(PRTCSW-SECN0+REG> 


EXP CSW ADDRESS 


01EC7 


00 










01DBE 


D2 83 


F 


AA8 


F 


AA9 


903 




MVC 


PRAR-H132) ,PRAR 


RIPPLE THE PRINT AREA 


01EC8 


EB001AA940000001 


963 


DUAL 


CCW 


X»EB« jPRAR^^O 1 ,1 


01DC4 


D2 00 


F 


B2C 


F 


AA8 


904 




MVC 


PRAR+13K 1) ,PRAR-1 




01ED0 


09001AA900000084 


964 


PRINT 


CCW 


X • 09 • ,PRAR , X • 00 ' ,132 


01DCA 


91 10 


F 


EDO 






905 




TM 


PRINT, X'lC 


CHECK FOR SPACE 3 AFTER PRINT 


01ED8 


00001ED8 


965 


PRTCSW 


DC 


A(PRTCSW) 


01DCE 


47 10 


F 


DDE 






906 




BC 


ALL, UPGRUP 


BR. IF IT WAS 


01EDC 


08000000 


966 




DC 


X»08000000 9 


01DD2 


46 70 


F 


DB2 






907 




BCT 


R7, WRITE 


BR. UNTIL 15 LINES PRINTED 


01EE0 


00000000 


967 




DC< 


XL4 , 0« 


01006 


92 19 


F 


EDO 






908 




MVI 


PRINT, X»19» 


SET UP FOR SPACE 3 AFTER PRINT 


01EE4 


04000000 


968 




DC\ 


X»04000000 9 


010DA 


47 FO 


F 


DB2 






909 




BC 


UNC, WRITE 




01EE8 


3132733475763738 


969 


QUAD1 


DC 


X»3132733475763738» 


01 DDE 


41 44 


0 


010 






910 


UPGRUP 


LA 


R4 f 16(R4) 


UPDATE TO NEXT GROUP CHARACTERS 


01EF0 


797A3B7C1C7A7F2A 


970 




DC 


X , 797A3B7C1C7A7F2A« 


01DE2 


41 66 


0 


010 






911 




LA 


R6, 16(R6) 


UPDATE TO NEXT UCS ADDRESS 


01EF8 


6162236425266768 


971 




DC 


X , 6162236425266768« 


01DE6 


46 20 


F 


D58 






912 




BCT 


R2, KLEER 


BR. UNTIL 15 GROUPS RIPPLED 


01F00 


292A6B2C7C6E2F10 


972 




DC 


X'292A6B2C7C6E2F10» 


01DEA 


18 54 










913 




LR 


R5,R4 




01F08 


5 15 2 13 5415165758 


973 




DC 


X'5152135415165758' 


01DEC 


41 70 


0 


010 






914 




LA 


R7, 16 




01F10 


191A5B1C5D5B1F4A 


974 




DC 


X« 191A5B1C5D5B1F4A* 


01DF0 


42 57 


F 


BFC 






915 


STC2 


STC 


R5,LDAR-KR7) 


GENERATE LAST SET FO TO FF 


01F18 


0102430445460708 


975 




DC 


X , 0102430445460708 l 


01DF4 


46 50 


F 


DF8 






916 




BCT 


R5,*+4 




01F20 


494A0B4C4C0B4F70 


976 




DC 


X , 494A0B4C4C0B4F70» 


010F8 


46 70 


F 


DFO 






917 




BCT 


R7,STC2 




01F28 


0B001AA900O00084 


977 


PRINT1 


CCW 


X»OB« , PRAR, X«00« ,132 


01DFC 


D2 DF 


F 


COD 


F 


BFD 


918 




MVC 


LDAR+16(224),LDAR 


FILL UCS LOAD AREA WITH 15 SETS 


01F30 


00000000 


978 


PRT1 


DC 


XL4»0» 


01E02 


D2 83 


F 


AA9 


F 


BFD 


919 




MVC 


PRAR ( 132 ) ,LDAR 


FILL PRINT AREA 


01F34 


08000000 


979 




DC 


X»08000000» 


01E08 


45 50 


F 


CEE 






920 




BAL 


R5, LOADIT 


BR. TO LOAD UCS BUFFER 


01F38 


00000000 


980 




DC 


XL4«0» 


01E0C 


0030 










921 




DC 


X»0030« 


TEST NUMBER 


01F3C 


04000000 


981 




DC 


X , 04000000 t 


01E0E 


41 70 


0 


OOF 






922 




LA 


R7, 15 


SET UP FOR 15 LINES 


01F40 


CO 


982 


FOLD 


DC 


X'CO* 


01E12 


92 09 


F 


EDO 






923 




MVI 


PRINT, X , 09 9 




01F41 


00 










01E16 


41 AO 


F 


EC8 






924 




LA 


RIO, DUAL 


SET UP FOR DUALING MODE 


01F42 


07 00 


983 




CNOP 


0,4 


01E1A 


91 80 


F 


007 






925 




TM 


SNSW+3,X»80» 


CHECK SENSE SWITCH 24 FOR DUALING 






984 




01E1E 


47 10 


F 


E26 






926 




BC 


ALL,WRITE2 


BR. IF ON - IN DUALING MODE 






985 


* ROUTINE 02 


- THIS ROUTINE WILL RUN ON 1403 PRINTERS WITHOUT THE UCS 


01E22 


41 AO 


F 


EDO 






927 




LA 


RIO, PRINT 


SET UP FOR PRINT AND SPACE 






986 


* 




FEATURE ONLY. ALL 256 POSSIBLE CHARACTERS WILL BE 


01E26 


45 BO 


F 


0E6 






928 


WRITE2 


BAL 


RlltlSIO 


BR. TO ISSUE SIO 






987 


* 




PRINTED IN EACH PRINT POSITION. THE 256 CHARACTER CODES 


01E2A 


3CC0 










929 




DC 


X»3CC0» 


CONTROL SWITCHES 






988 


* 




WILL BE RIPPLED THROUGH THE PRINT AREA IN GROUPS OF 64 


01E2C 


0040 










930 




DC 


X , 0040« 


TEST NUMBER 






989 


♦ 




CHARACTERS EACH. EACH GROUP OF 64 LINES WILL BE 


01E2E 


FOOO 










931 




DC 


X'FOOO" 


EXP COND. CODE AND SENSE 






990 


* 




SEPARATED BY A TRIf-cE SPACE. 
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1 01 F** 
01F*5 
01F*8 
01F*C 
01F50 
01F5* 
01F58 
01F5C 
01F60 
01F6* 
01F68 
01F6C 
01F70 
01F76 
01F7C 
01F80 
01F8* 
01F88 
01F8C 
01F90 
01F9* 
01F98 
01F9E 
01FA2 
01FA6 
OIF AA 
01FAE 
01FB0 
01FB2 
01FB* 
01FB6 
01FBC 
01FC2 
01FC8 
01FCE 
01FD2 
01FD6 
01FDA 
01FDE 
01FE2 
01FE6 
01FE8 



00000 
00007 
OOOOF 
00008 
0000* 
00001 
00005 
00008 
0000* 
00002 
0000 1 
00008 
0000* 
00002 

; 00006 
i ooooc 

I 0000A 
! 00080 
i 00181 



02 

OOFFFF 

91 10 
*7 10 
*5 *0 
*1 20 
*1 *0 
*1 30 
*2 *0 
*2 23 
*6 20 
*6 30 
D2 *3 
D2 3F 
95 0* 
*7 80 
95 01 
*7 80 

92 1A 
92 1A 
92 2A 
D2 *3 
*1 30 
92 09 
*1 AO 
*5 BO 
3CC0 
0050 
FOOO 
FED8 
02 83 
D2 00 
02 83 
D2 00 

91 10 
*7 10 
*6 30 

92 19 
*7 FO 
46 *0 
OA D6 
00 



99 i *********************************************************************** 



0E1 
FE6 
950 
100 
00* 
0*0 
FEB 
AA8 
F6C 
F6* 
AE9 
BFD 
FE8 
F98 
FE8 
F90 
C3C 
COC 
C1C 
C3D 
03F 
EDO 
EDO 
0E6 



AA8 
B2C 
BFC 
C80 
EDO 
FE2 
FAA 
EDO 
FAA 
F5C 



F AA9 

F EE8 



F BFD 



F AA9 
F AA8 
F BFD 
F BFC 



992 


R0UT02 


DC 


X'02 1 


ROUTINE NUMBER 


993 




DC 


X • OOFFFF • 


LAST ROUTINE 


99* 




TM 


UN ITl+ltX'lO* 


CHECK FOR UCS FEATURE 


995 




BC 


ALL»EXI TOZ 


BR. IF DEFINED 


996 




BAL 


R*t INI T 


QO -f" 4~\ TMTTTAI T T I - 

BR. TO INITIALIZE 


997 




LA 


R2» 256 


SET UP FOR 256 CHARACTERS 


998 




LA 


R* t * 


SET UP FOR * GROUPS 


999 


FIL 


LA 


R3» 6* 


SET UP FOR 6* CHAR GROUP 


1000 




STC 


R*»GLORY 


SAVE QUADRANT NUMBER 


1001 


STC3 


STC 


R2» PRAR-1 (R3) 


GENERATE CHARACTERS 


1002 




BCT 


R2f*+* 




1003 




BCT 


R3t STC3 




100* 




MVC 


r RAR+6* \ 68 1 tPRAR 


FILL PRINT AREA 


1005 




MVC 


LDAR(6*J tQUADl 




1006 




CL I 


GLORY* X *0* * 


COMPARE FOR QUADRANT * 


1007 




BC 


EQ i MOVE IN 


BR. IF IT IS 


1008 




CL I 


GLORY t X ■ 01 " 


COMPARE FOR QUADRANT 1 


1009 




BC 


hW?CJTHfc:K2 


BR. IF IT IS 


1010 




M V I 


LDAK-f 63 t X 1 A ■ 




1011 


□THeRZ 


MV I 


LDAR+ lDfX'lA' 




1012 


0THER3 


MV I 


LuAR+3ifX , ZA■ 




1013 


MOVE IN 


MVC 


LDAR+6*(68) »LDAR 




101* 




LA 


R3t 63 


SET UP FOR 63 LINES 


1015 




MVI 


PRINT t X • 09 • 


SET UP PRINT AND SPACE 


1016 




LA 


RIOtPRINT 




1017 


WRITE3 


BAL 


Rllf ISIO 


BR. TO ISSUE START 1-0 


1A1Q 

luio 




DC 


X^CCO 9 


CONTROL SWITCHES 


10 19 




DC 


X»0050« 


TEST NUMBER 


1020 




DC 


X'FOOO 1 


EXP COND. CODE AND SENSE 


1021 




DC 


AL2(PRTCSW-SECN0+REG) 


EXP CSW ADDRESS 


1022 




MVC 


PRAR-1 ( 132 ) f PRAR 


RIPPLE THE PRINT AREA 


1023 




MVC 


PRAR+13H 1) , PRAR-1 




102* 




MVC 


LDAR-1 ( 132 ) *LDAR 


RIPPLE COMPARE AREA 


1025 




MVC 


LDAR+131 < 1 ) tLDAR-1 




1026 




TM 


PRINT t X' 10 • 


CHECK FOR SPACE 3 AFTER PRINT 


1U4C. f 




BC 


ALL,UPGP2 


BR. IF IT WAS 


inoo 

luto 




BCT 


R3,WRITE3 


BR. UNTIL 63 LINES 






MVI 


PRINTtX , 19« 


SET UP FOR SPACE 3 AFTER PRINT 


1030 




BC 


UNC t WRITE 3 




1031 


UPGP2 


BCT 


R*,FIL 


BR. UNTIL * GROUPS PRINTED 


1032 


EXIT02 


SVC 


X«D6« 


ROUTINE EXIT 


1033 


GLORY 


DC 


X , 00« 




i niA 

1U JH 


*********************************************************************** 


1035 


* 


EQUATES 


* 


JLU30 


*********************************************************************** 


1037 


NEVER 


EQU 


0 




1038 


NCCO 


EQU 


7 




1039 


UNC 


EQU 


15 




10*0 


NONE 


EQU 


8 




10*1 


SOME 


EQU 


* 




10*2 


ALL 


EQU 


1 




10*3 


ANY 


EQU 


5 




10** 


CCO 


EQU 


8 




10*5 


CC1 


EQU 


* 




10*6 


CC2 


EQU 


2 




10*7 


CC3 


EQU 


1 




10*8 


EQ 


EQU 


8 




10*9 


LO 


EQU 


* 




1050 


HI 


EQU 


2 




1051 


UNEQ 


EQU 


6 




1052 


EQLO 


EQU 


12 




1053 


EOHI 


EQU 


10 




105* 


LOGOUT 


EQU 


X^O* 




1055 


SYSMOD 


EQU 


X«181« 





OFOOO 


1056 


REG 


EQU 


X , FOOO t 


0005A 


1057 


WHAT 


EQU 


90 


00000 


1058 


RO 


EQU 


0 


00001 


1059 


Rl 


EQU 


1 


00002 


1060 


R2 


EQU 


2 


00003 


1061 


R3 


EQU 


3 


0000* 


1062 


R* 


EQU 


* 


00005 


1063 


R5 


EQU 


5 


00006 


106* 


R6 


EQU 


6 


00007 


1065 


R7 


EQU 


7 


00008 


1066 


R8 


EQU 


8 


00009 


1067 


R9 


EQU 


9 


OOOOA 


1068 


RIO 


EQU 


10 


OOOOB 


1069 


Rll 


EQU 


11 


OOOOC 


1070 


R12 


EQU 


12 


OOOOD 


1071 


R13 


EQU 


13 


OOOOE 


1072 


Rl* 


EQU 


1* 


OOOOF 


1073 


R15 


EQU 


15 


00198 


107* 


WT 


EQU 


*08 


0005A 


1075 


WAHT 


EQU 


90 


000*0 


1076 


HCSW 


EQU 


6* 


000*8 


1077 


HCAW 


EQU 


72 


OOOOB 


1078 


NCCi 


EQU 


11 




1079 




END 
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1403 RIPPLE PRINT 



1403 RIPPLE PRINT 



POST ASSEMBLY DATA 



LABEL CROSS-REFERENCE BY STATEMENT NUMBERS 





LABEL 


LEN VALUE 


DEFN 


REFERENCES 








RELOCATION DICTIONARY 


ADJUST 


4 001E62 


0944 


0888 












AG A I N 




0873 


0943 












ALL 


1 000001 


1042 


023 1 


0268 


0295 


UjvJH 


i n 

Uj 1 U 


01015 3 








0753 


0769 


0888 


0896 


0906 


0107C 4 


ANY 


1 000005 

JL \J VJ \J \J \J -J 


1043 


0549 


0560 








0i7p9 3 


BASHED 

U M «J II L* IS 


■ 77 001F9T 


0961 


0959 










01800 3 


BLOOP 




0768 


0745 


0748 


0790 




» 


01809 3 


CAW 


4 001048 


0058 












01810 4 


CCO 


1 000008 


1044 


0248 


0254 








01949 3 


CC1 


1 000004 


1045 


0255 


0366 








01D11 3 


CC2 


1 000002 


1046 


0256 










01D19 3 


CC3 


1 000001 


1047 












01D21 3 


CHI RP 


2 001670 


0634 


0593 


0600 


0629 






01D28 4 


CKAR 


1 00183C 


0732 


0579 


0726 








01EC9 3 


CLUIN 


16 001A13 


0794 


0785 










01ED1 3 


CRDCSW 


4 001810 


0727 


0727 










01ED8 4 


CRUDE 


4 0015E0 


0587 


0679 










01F29 3 


CSW 
DARIO 
DCKRD 
DMSSW 


8 001040 
2 0019A4 
8 001808 
1 OOOIAO 


0057 
0757 
0726 
0809 


0753 
0345 












DRAR 


1 0018C0 


0733 


0580 


0734 










DUABLE 


4 001BF5 


0827 


0686 












DUAL 


8 001EC8 


0963 


0894 












DUALED 


4 001BF9 


0828 


0691 












EQ 


1 000008 


1048 


\J O DC 


nAn7 

U*tu 1 


0629 


0688 


0745 




EQHI 


1 OOOOOA 


1053 














fcQLO 


1 OOOOOC 


1052 














EXITOi 


4 001E52 


0940 














EXIT02 


2 001FE6 


1032 


UO IK) 


U773 










EXI Tl 


2 001E94 


0956 


0941 












EXNPSW 


5 001058 


0060 














EXOPSW 


8 001018 


0052 














FERRO 


16 001A2C 


0796 


0749 


U f ->U 


0751 


0754 


0755 




FI L 


4 001F5C 


0999 


1031 












FLAG1 


1 00100E 


0048 














FLAG2 


1 00100F 


0049 














FOLD 


1 001F40 


0982 


0884 












FOLDNG 


16 001EB7 


0962 


0633 












GLORY 


1 001FE8 


1033 


1000 


1006 


1008 








GREG 


4 001144 


0247 














HANGUP 


6 0019DC 


0775 


0769 












HARDER 


4 00160E 


0601 


0595 












HCAW 


1 000048 


1077 


0224 


0237 


0362 


0558 






.HCSW 


1 000040 


1076 


0225 


0225 


0262 


0281 


0296 




HED1 


16 001BA8 


0821 


0637 












HED2 


16 001BC2 


0823 


0641 












HI 


1 000002 


1050 














HOKAY 


4 001508 


0585 


0694 












HONK 


4 0015EC 


0590 


0586 


0681 


0683 


0690 


0693 




HOPE 


4 0012A4 


0341 


0342 












HUNG 


16 001A8E 


0805 


0782 












IACSNS 


11 00179C 


0713 


0328 


0331 


0334 


0527 


0528 




IACT 


3 00178B 


0710 


0502 


0512 










IACTCC 


10 001734 


0696 


0252 


0257 


0259 


0261 


0265 




IBACK 


2 001310 


0368 


0364 


0372 










IBLAH 


16 001771 


0708 


0459 


0472 


0473 


0477 


0489 




IBSN 


6 00133A 


0379 


0312 


0314 


0318 


0320 


0352 




ICAW 


12 00175F 


0705 


0450 


0453 


0454 


0458 






ICCOUT 


6 00147C 


0479 


0449 


0465 










ICCSW1 


6 00135C 


0387 


0386 











0377 
0995 



0412 0439 
1027 



0562 0575 0591 



0941 0945 0947 0951 1007 1009 



0379 



0502 



0488 
0507 



0512 
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ICCSW2 


6 


nn i n a a 


0406 


0394 


0404 




ICCW 


3 


00 176E 


0707 


0459 










nn i ara 


0498 


0495 








5 


00 14EA 


0508 


0497 






ICLEAft 


4 


00 1304 


0365 


0367 






ICLRDT 


4 


nn 1 Iflfc 


0397 


0396 






ICM 


2 


nn i nn a 

UU AUU H 


0045 








ICNT 




00 1477 


0476 


0460 


0490 




ICOUT 


2 


nn i iAn 

UU 1HOU 


0468 


0463 


nAQQ 


U3Ut 


IC S W 


■x 


nn i 7AR 

UU i 1 OD 


U I uo 


nAQQ 
UH07 






ICSW1 


Q 


0017E6 


n"7 on 

U f £U 


n *> a *> 




mic 


1C S W2 


Q 

o 


nn i7cc 
UU 1 f cc 


U f c 1 


n ?oo 


03 19 


0403 


i r uni it 


o 


nn i aaa 

UU 


U*tOA 


0467 






IDECI 


4 


nn i 7 "xr 


n i a 


nain 
U51U 






lulu 


4 


nn i a c a 


05 10 


0506 






IDI DI 


4 


nn i ata 

UU 


UDUU 


0492 






l UUOPtJ 


4 


nn i our 

UU lc.j\* 


U DC. 1 


nil t 


mot 
u f oo 




i m imp u 


4 


nn t IRQ 
UU 1 Job 


0409 


0375 


0378 


0407 


IEXP 




nn l "7flP 
uu i foe 


n*7 1 i 


0493 


UDU f 




i cyprr 


i n 


nn i 79A 
UU licA 


nine 
UO V J 


0479 


0484 




TEYCMC 
It AoINo 


1 1 


00 1791 


0712 


0223 


0327 


0330 




4 


00 13 A6 


0405 


0399 






1 F I X9 


4 


00 1 39 A 


0402 


0398 






I F L AG 1 


1 


00 13E8 


0423 


0409 


0415 




rci » r o 


1 


00 156E 


0551 


04 10 


04 16 




I FUR 


4 


00 12 AC 


0343 


0324 


0332 


0335 


I HANG 


4 


00 1 12C 


0240 


- 






i M r 
l n l 


4 


00 1 1 3C 


0245 


0239 






I 1 C A UC 
1LCAVC 


4 


00 158 A 


0563 


' 0414 






I L I NK 


1 6 


00 174F 


0701 


0428 


0431 


0432 


I LKSEN 


6 


00 1286 


033 1 


0329 






I LOKE 


4 


00 1312 


0369 


0366 






IMORST 


4 


UU lHUl> 


0505 


0501 








4 


UU 1 O DH 


0408 


0374 


0377 


0380 


I NFO 


1 6 


UU 1BDC 


0825 


0582 


0585 


0643 










066 1 


0662 


0663 


lilt T 

1 IM1 1 


2 


UU 1VDU 


0738 


0871 


0996 




INOEX 1 


4 


00 132/: 


0373 


0382 






1 m r> c v t 


4 


00 132E 


0376 


0390 






I NOW 


4 


UU 1194 


0266 


0231 


0258 


0260 


INPSW 


5 


UU 1U 1U 


0050 








I NT 3 


4 


nn i oftf 
UU 1 aUU 


030 1 


0298 






in* nno 




00 173E 


0697 


0443 


0447 




I OAOR 


3 


UU loUU 


0723 


0442 






IOCSW 


6 


00 1492 


0489 


0439 






10EXRA 


4 


00 12F0 


0360 


Ci'XOO 

KJDC.C 






I0L0G 


16 


0017A7 


0714 


0540 


0541 


0542 


IONE 


4 


00117E 


0261 


0255 






IONPSW 


4 


001078 


0065 








I00PSW 


8 


001038 


0056 








I0P0UT 


4 


001564 


0548 


0534 






I0PT1 


16 


0017CC 


0717 


0553 


0749 


0755 


IOUT 


4 


0015A0 


0569 


0549 






IOUTIT 


6 


0013D8 


0417 


0412 






IPAS 


4 


00150C 


0515 


0511 






IPASS 


4 


001530 


0533 


0516 






IPRLOP 


2 


00156C 


0550 


0589 






IRETRN 


4 


0011E8 


0293 


0066 






ISAVE 


12 


001830 


0731 


0222 


0567 




ISEA 


4 


0012CC 


0351 


0344 


0348 




ISEN 


4 


001224 


0307 


0268 


0302 


0304 


ISENSE 


8 


0017F8 


0722 


0321 






ISIO 


6 


0010E6 


0221 


0763 


0836 


0898 


ISLAVE 


8 


001B9C 


0819 


0226 


0480 


0778 


ISPED 


4 


00122C 


0309 


0278 


0280 


0282 



0432 0436 0557 



0384 0388 0392 



0649 0652 
0669 0670 



0653 
0672 



0656 
0674 



0657 
0678 



0659 0660 



0928 1017 



ISSUE 


4 


00115E 


0253 


I S V2 


6 


nn l ono 

UU ICKJC. 


0299 


I SW 


2 


00 10 14 


0217 


IS12 


4 


00 139E 


0403 


ITICK 


4 


00130C 


0367 


ITRY1 


4 


001120 


0237 


ITSTN0 


9 


0017C3 


0716 


ITW0 


4 


00 1176 


0259 


IUP 


4 


001596 


0566 


IWAIT 


4 


0011A4 


0270 


IZER0 


4 


001190 


0265 


JOHN 


6 


001150 


0250 


KLEER 


4 


001D58 


0876 


LARGE 


1 


001B80 


0817 


LDAR 


1 


001BFD 


0829 


LDCSW 


4 


001D28 


0845 


L0 


1 


000004 


1049 


LOAD 


8 


001D20 


0844 


L0ADI T 


6 


001CEE 


0833 


LOGOUT 


1 


000080 


1054 


LSTGRP 


16 


001B2D 


0810 


MARTY 


6 


001D8E 


0889 


MCNPSW 


8 


001070 


0064 


MC0PSW 


8 


001030 


0055 


M0D44 


4 


001110 


0230 


M0D50 


4 


001BA4 


0820 


MOVE I N 


6 


001F98 


1013 


MSK1 


1 


001803 


0724 


MSK2 


1 


001804 


0725 


MUMB 


2 


001D02 


0838 


NCC0 


1 


000007 


1038 


NCC1 


1 


O0OOOB 


1078 


NEVER 


1 


000000 


1037 


NI0U 


1 


00100D 


0047 


NITWIT 


4 


00195C 


0742 


NIXT 


4 


0015BE 


0578 


N0DEV 


16 


001A5D 


0801 


NONE 


1 


000008 


1040 


NOT 


3 


001A5A 


0800 


0BER1 


4 


0016C6 


0666 


0BER2 


4 


0016D6 


0670 


0BER3 


4 


0016E6 


0674 


0BER4 


2 


0016EA 


0675 


OFF 


3 


001A57 


0799 


0THER2 


4 


001F90 


1011 


0THER3 


4 


001F94 


1012 


PGNPSW 


8 


001068 


0063 


PG0PSW 


8 


001028 


0054 


PRAR 


1 


001AA9 


0808 


PRELD 


8 


001D10 


0842 


PRINT 


8 


00 IE DO 


0964 


PRINTl 


8 


001F28 


0977 


PRTCSW 


4 


001ED8 


0965 


PRT1 


4 


001F30 


0978 


QUAD1 


8 


001EE8 


0969 



0448 
0295 
0250 
0303 
0355 
0515 
0401 
0370 
0241 
0221 
0256 
0564 
0306 
0254 
0233 
0912 
0569 
0576 
0877 
1024 
0840 

0628 
0890 
0229 
0599 
0949 



0228 
0743 
1007 
0273 
0275 
0833 
0241 
0280 



0740 
0575 
0286 
0233 
0348 
0492 
0740 
0751 
0664 
0668 
0671 
0673 
0750 
1009 



0573 
0933 
0977 
0835 
0893 
0762 
0902 
0767 
1005 



0723 



0250 


0251 


0263 


0266 


0269 


0272 


0276 


0287 


0293 


0294 


0297 


0300 


0305 


0307 


0313 


0317 


0323 


0325 


0326 


0333 


0347 


0349 


0350 


0355 


0357 


0358 


0371 


0373 


0376 


0383 


0391 


0408 


0411 


0500 


0510 


051 5 


0548 


0561 


0590 


0642 


0768 


0776 


0777 


0787 


0788 








0243 


0560 






















n a i 7 

UH 1 f 


0420 


0421 


0425 


















0248 
























0588 


0601 






















0594 


0602 


0605 


0614 


0771 


0772 


0772 


0773 


0844 


0875 


0876 


0877 


0915 


0918 


0918 


0919 


1005 


1010 


1011 


1012 


1013 


1013 


1024 


1024 


1025 


1025 






















0845 
























0872 


0882 


0940 


0942 


094 8 
















0920 
























0229 


0535 






















0953 


0955 






















n a ao 


cm AA 
U 30H 






















0587 
























0239 


0282 


0302 


0308 


0312 


0314 


0318 


0320 


0324 


0329 


0335 


0344 


0352 


0356 


0370 


0382 


0384 


0390 


0392 


0401 


0404 


0414 


0465 


0492 


0501 


0506 


0511 


0516 


0564 


0593 


0664 


0668 


0671 


0681 


0683 


0740 


0748 


0870 






















0754 
























0578 


0773 


0842 


0843 


0881 


0889 


0889 


0903 


0903 


0904 


0904 


0919 


0933 


0934 


0934 


0944 


0946 


0950 


0952 


0954 


0954 


0963 


0964 


0977 


1001 


1004 


1004 


1022 


1022 


1023 


1023 












0897 


0905 


0908 


0923 


0927 


0935 


0938 


1015 


1016 


1026 


1029 




0932 


0965 


1021 
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RANK 


4 


0016F4 


0680 


0584 


























RDCCW 


8 


001948 


0734 


0353 


























READY 


13 


001A81 


0804 


0339 


























REG 


1 


OOFOOO 


1056 


0286 


0339 


0425 


0436 


04 A 7 


0458 


0477 


04 84 


0488 


0524 


0532 


0547 


0553 










0557 


0599 


0627 


0633 


0637 


0641 


0678 


0760 


0767 


0782 


0785 


0840 


0902 










0902 


0932 


0959 


1021 




















ROUTOl 


1 


001D38 


0867 


0051 


























R0UT02 


1 


001F44 


0992 


0868 


























RTSAV 


1 


001A12 


0793 


0770 


0775 
























RO 


1 


000000 


1058 


0245' 


























Rl 


1 


000001 


1059 


0246 


0249 






















RIO 


1 


OOOOOA 


1068 


0224 


0226 


0237 


0450 


0461 


0462 


0464 


0466 


0466 


0480 


0558 


0762 


0778 










0835 


0894 


0897 


0924 


0927 


1016 
















Rll 


1 


OOOOOB 


1069 


0221 


0226 


0230 


0267 


0301 


0309 


0311 


0327 


0343 


0351 


0379 


0381 


0385 










0389 


0417 


0427 


0428 


0437 


0437 


0438 


0479 


0491 


0494 


0505 


0563 


0565 










0565 


0565 


0566 


0566 


0568 


0763 


0778 


0836 


0898 


0928 


1017 






R12 


1 


OOOOOC 


1070 


0240 


0242 


0247 


0253 


0279 


0341 


0363 


0365 


0742 


0743 


0744 


0746 




R13 


1 


OOOOOD 


1071 


0224 


0225 


0225 


0237 


0262 


0281 


0362 


0369 


0558 


0738 


0738 


0741 




R14 


1 


OOOOOE 


1072 


0227 


0270 


0360 


0533 


0739 


















R15 


1 


OOOOOF 


1073 


0296 


0299 


0741 






















R2 


1 


000002 


1060 


0569 


0572 


0578 


0579 


0580 


0581 


0587 


0588 


0608 


0658 


0873 


0912 


0997 










1001 


1002 
























R3 


1 


000003 


1061 


0571 


0571 


0578 


0643 


0687 


0999 


1001 


1003 


1014 


1028 








R4 


1 


000004 


1062 


0579 


0582 


0661 


0685 


0686 


0689 


0691 


0774 


0871 


0874 


0878 


0910 


0910 










0913 


0996 


0998 


1000 


1031 


















R5 


1 


000005 


1063 


0562 


0577 


0577 


0580 


0583 


0644 


0692 


0786 


0833 


0834 


0834 


0841 


0878 










0880 


0881 


0885 


0890 


0913 


0915 


0916 


0920 












R6 


1 


000006 


1064 


0573 


0576 


0581 


0875 


0880 


0884 


0911 


0911 












R7 


1 


000007 


1065 


0222 


0322 


0346 


0354 


0368 


0567 


0569 


0570 


0570 


0581 


0583 


0588 


0645 










0691 


0692 


0879 


0880 


0881 


0884 


0886 


0892 


0907 


0914 


0915 


0917 


0922 










0922 


0*937 
























R8 


1 


000008 


1066 


0321 


0345 


0353 


0362 


0385 


0386 


0393 


0393 


0394 


0395 


0395 


0396 


0398 










0399 


0426 


0427 


0494 


0495 


0496 


0496 


0497 


0602 


0604 


0605 


0606 


0614 










0614 


0615 


0684 


0684 


0686 


0687 
















R9 


1 


000009 


1067 


0222 


0270 


0271 


0274 


0360 


0361 


0367 


0463 


0478 


0499 


0504 


0509 


0514 










0567 


0601 


0603 


0603 


0604 


0605 


0607 


0610 


0610 


0611 


0614 






SAVDEV 


2 


001A10 


0792 


0744 


0746 
























SAV10 


4 


001B98 


0818 


0461 


























SDMF 


1 


00100C 


0046 




























SECNO 


4 


001000 


0042 


0286 


0339 


0420 


0421 


0425 


0431 


0432 


0436 


0442 


0443 


0447 


0453 


0454 










0458 


0470 


0471 


0477 


0484 


0488 


0519 


0520 


0524 


0527 


0528 


0532 


0538 










0538 


0539 


0547 


0553 


0557 


0599 


0618 


0619 


0622 


0623 


0627 


0633 


0637 










0637 


0641 


0648 


0649 


0652 


0653 


0656 


0657 


0678 


0760 


0767 


0770 


0775 










0775 


0782 


0785 


0789 


0840 


0868 


0902 


0932 


0959 


1021 








SNSW 


4 


001004 


0043 


0232 


0238 


0413 


0559 


0682 


0752 


0887 


0895 


0925 










SOME 


1 


000004 


1041 




























SRET 


3 


00105D 


0061 




























STAY 


2 


0019AA 


0761 




























STC 


4 


001D68 


0880 


0886 


























STC2 


4 


001DF0 


0915 


0917 


























STC3 


4 


001F64 


1001 


1003 


























SVNPSW 


8 


001060 


0062 




























SVOPSW 


8 


001020 


0053 




























SWAT 


6 


001E8A 


0954 


0945 


0947 


0951 






















SWING 


4 


00170A 


0686 


0689 


























SWUNG 


4 


00171C 


0691 


0688 


























SYSMOD 


1 


000181 


1055 


0227 


0533 
























SZABO 


4 


001680 


0643 


0591 


























TRUBL 


4 


001 ICO 


0277 


0289 


0308 
























TUFF 


16 


001B4C 


0812 


0606 


0608 


0609 


0612 


0613 


0615 


0618 


0619 


0622 


0623 


0627 






UNC 


1 


OOOOOF 


1039 


0243 


0258 


0260 


0264 


0289 


0298 


0306 


0359 


0368 


0372 


037 5 


0378 


0467 










0478 


0568 


0589 


0600 


0673 


0679 


0690 


0694 


0774 


0790 


0841 


0909 


0939 










0939 


0943 


0955 


1030 




















UNEQ 


1 


000006 


1051 


0228 


0278 


0380 


0388 


0449 


0534 


0584 


0586 


0595 


0693 


0883 


0949 


0953 


UNIT1 


1 


0010E0 


0068 


0574 


0592 


0680 


0742 


0747 


0869 


0994 















UPGP2 

UPGRUP 

U1ADDR 

U10P 

WAHT 

WHAT 

WORK 



WRITE 
WRITE2 
WRITE3 
WT 

XF8364 



4 001FE2 1031 
4 001DDE 0910 
2 0010E2 0070 
1 0010E1 0069 
1 00005A 1075 
1 00005A 1057 



1027 
0906 



1 


001818 


0730 


0397 


0402 


0405 


0462 








0513 


0535 


0538 


0539 








0658 


0659 






4 


001DB2 


0898 


0896 


0907 


0909 




4 


001E26 


0928 


0926 


0937 


0939 




4 


001FAA 


1017 


1028 


1030 






1 


000198 


1074 


0245 


0270 


0360 




1 


001000 


0003 











0470 
0540 



0471 
0541 



0472 
0542 



0473 
0543 



0498 
0607 



0498 
0608 



0503 
0611 



0508 
0612 



0508 
0658 
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OBJECT DECK LIST. PERIODS CORRESPOND TO BLANK COLUMNS. 



COLS. 



1 THROUGH 20 



BESD AA. • AAXF83 

9 YQ Y9 

99 9 

BTXT. AAA.. A8. .AA86.A 

9 YQY Y9 Y9 9 Y 
999 9 9 9 



BTXT. AA8. 
9 YQ9 
99 

BTXT. AAC. 
9 YQ- 
990 

BTXT. AAS. 

9 YQ8 
99 

BTXT. AJQ. 
9 Y99 
9 

BTXT.AJ6. 

9 Y9 
9 

BTXT.AJH. 
9 Y90 
9 

BTXT.AJfi. 

9 Y9- 
9 

BTXT.AJ8. 

9 Y9 
9 

BTXT. AKA. 

9 Y9Q 
9 Z 

BTXT.AKQ. 
9 Y9Z 
9 

BTXT.AKJ. 
9 Y9Y 
9 

BTXT.AKQ. 
9 Y9 
9 



• A8. • AAAAAA 
Y9 Y9YYYY 
9 9 9999 

.AA. .AAAAAA 
YQ Y9YYYY 
99 9 9999 

.A8..AACAAA 
Y9 Y90YYY 
9 9 9 9 

• A8. • AAAAOD 
Y9 Y9-Y 9 
9 9 

» A8. • AAPAOU 
Y9 Y9 9 
9 9 

»A8..AAF.0U 

Y9 Y9- 
9 9 

i AS. • AAE071 
Y9 Y9- 8 
9 9 9 

.A8..AA0.F. 

Y9 Y9 - 
9 9 

» A8. • AAGA24 
Y9 Y9ZQ 8 
9 9 9 9 

>A8. .AAGA2M 
Y9 Y9ZY Y 
9 9 

. A8. • AABABB 
Y9 Y9Q08Q 
9 9 Z 99 

.A8..AAEG20 
Y9 Y9Z- 
9 9 0 



COLS. 21 THROUGH 40 



64..AAAA.AGZ. 

YYQY Y8 
9999 99 



A AAA AAAAAAC AADAAAAN8 
YYYYYYYYY9-Y99YYYY89 
999999999 9 99999 

AAAAAAAAAAAAAAAAAAA A 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 



AAAAADAAAAJY 

YYYY99YYYY9 
9999 9999 

AAKA7HABA18ABA7FGNAH 
YY 9 Q9Q8 Q-Y - YYZ 
99 0 Z 9 9 

GA1GGNAHAA0DGA 14EAGA 
ZY YYZ-Y 9ZY 8QY-Y 
9 9 9 9 

0UFA0UBX7 1DAGAGA 1AG. 
-Y - 8QY-YZY QZ 
9 9 9 

G01DB07 1D70UA. AAGA2U 
Z — 8-8 - QYZQ 9 
9 09 9 

G-2UEA6AGA2UAA-DGA2U 
Z 8QY-YZQ 8-QOZZY 8 
9 9 9 0 9 9 9 

0UG02DKG700 . FJOUAAA A 
Z 8 9 Y — Y -QQY 
9 9 9 909 

AGAAGA32A.0UGA32AB7K 
— Q9ZY 8- ZY 8-9 Y 
0 9 9 9 

FD0UD70VKA7FAEAA7JGA 
-9 -8 Y -Q9-9 OZY 
9 0 

EAGAGG2MA. AAGA2DAA8H 
QY-YZ- 0- Q9ZY YZY 9 
9 9 0 0 9 

AA0VGA32FJ0VD70VG032 
-Y ZY 8-Y -8 Z 8 
9 9 9 



COLS. 41 THROUGH 60 
840 



AAAAAAAA AAAAAAAA AAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

AAAAAAAA ADA AAA AAAAAA 
YYYYYYYYY9YYYYYYYYYY 
999999999 9999999999 



PG-.-.ALCDEAJAG-iAPC 
90 0 CYQQ-QZOZ Q 8 
Z Z 9 9 

GG 1JDAGAG01JH0AHHAAC 
Z- YQY-YZ YR89-0QY9 
0 9 9 9 9 9 99 

16GJ1FB371G01DB271G0 
8ZY R- 8Z — 8Z 
9 0 9 9 

FA0UHFAHHAACFA0UAA8C 
-Q RQ9-0QY9-Y YY 9 
9 9 9 

B-MUBNFA0UBBG01SD70U 
80Z9Q8-Y 8QZ — 8 
9 Z 99 

GA2UAH0UGA2UFH0UG01M 
ZY 9-9 ZQ 9-9 Z 0 
9 

GA2MAJ0UGA32AB72GA32 
ZQ 8-Y ZY 8-9 ZY 8 
9 9 9 9 

2FFA7FNA7 J7FGA2MFA0U 
0-9 - Y 0 -ZY Y-9 
9 

E620AA0VGA2DF.0VD70V 
Z- -Y ZY Y- -8 
0 9 

HFAHHAADGEAHDAGAGG3A 
RQ9-0QY9 YYZQY-YZ- Q 
9 9 9 9 0 9 



COLS. 61 THROUGH 80 
211. 131812. .83640001 



AAAAAAAAAAAA83640002 

YYYYYYYYYYYY 

999999999999 

AAAAAA AAAA AA83 6400 03 

YYYYYYYYYYYY 

999999999999 



.83640004 



AAAAAAAAGA 1D83640005 
YYYY-YQYZQ - 
9 9 09 9 

EAGAG A1G FA 1D8 3640006 
QY-YZY ZQ Z 
9 9 9 

10B171KG7W-. 83640007 
— 8 9 0 
9 

FA1DAA8DD70U8 3640008 
ZQ -YY 9-8 
0 9 

A.0UGA2BKG7W83640009 
ZQ 9 9 
9 

AJ0UGA16AJAA83640010 
-Y ZY —YQY 
9 909 

AA78EG20AA0V83640011 
ZY Z- -Y 

0 

A.7JGA2MB-ME83640012 
- OZY Y80Z8 
9 9 

AAAAGA32AA9H836400 13 
-YQ9ZY 8ZY Z 
0 9 

EAGAG. 3KFA3D836400 14 
QY-YZ 9ZQ 9 
9 9 
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BTXT. ALA. 

9 Y9Q 
9 9 

BTXT. ALH. 

9 Y9Z 

9 



» A8. • AAG7AD 
Y9 Y99 -9 
9 9 

. A8. . AAGA3S 
Y9 Y9ZY 9 
9 9 



-DGA3DFA0VG03AA.0UGA 
OZZY 8-Y Z Q- ZQ 
9 9 9 

A.0UGA3DHCAF • A3-NG7W 
ZY -ZYY9 Y 9 
0 9 



3DG03HA J0UGA3DG03HNA 
-Z — Y ZQ -Z - Y 
0 0 9 9 0 0 9 

7WG-3DADAAGA3WA JOUGA 
Z — 9QYZY 8-Y ZY 
0 09 9 9 



71ADG-3DAHAA83640015 
8Q9Z — 9QY 
90 0 09 

3DAHAH.A30AH83640016 
-Z0Y9 Y YZO 
0 9 



BTXT. ALA. 

9 Y9Y 

9 

BTXT. ALH. 

9 Y9- 
9 0 

BTXT. ALO. 

9 Y9 
9 

BTXT. AMY. 

9 Y99 
9 

BTXT. AM-. 
9 Y9 
9 

BTXT. AMH. 
9 Y9- 
9 

BTXT. AM-. 
9 Y90 
9 

BTXT. ANH. 
9 Y99 
9 

BTXT. AN.. 
9 Y9 
9 

BTXT. ANH. 
9 Y9R 
9 0 

BTXT. ANA. 

9 Y9Q 
9 0 

BTXT. ANY. 
9 Y9 
9 

BTXT. AOJ. 
9 Y9Y 
9 9 

BTXT.AOH. 
9 Y9R 
9 



. A8. .AAAD.A 

Y9 Y9Y9 Y 
9 9 9 

• A8. • AABM3Y 
Y9 Y9-Z 
9 9 

• AS. • AALHGA 
Y9 Y98- Q 
9 9 90 0 

• A8. • AA7MBE 
Y9 Y9 Z8Q 
9 9 99 

. A8. .AABEAH 
Y9 Y98QY9 
9 9 999 

• A8. • AABK4G 
Y9 Y9-8 R 
9 9 9 0 

. A8. • AA7CKG 
Y9 Y9 Y 9 
9 9 

• A8. • AAE A4- 

Y9 Y9ZQ 
9 9 

• Ad. • AAADHQ 
Y9 Y9Y899 
9 9 99 

• A8. • AAGNAH 
Y9 Y9 YYZ 
9 9 9 

•A8..AAAA0J 

Y9 Y9-Q Z 
9 9 9 

•A8..AAG05U 
Y9 Y9Z 8 
9 9 

• A8. • AABAC/ 
Y9 • Y9ZYQ8 
9 9 Z 

• A8. • AACACA 
Y9 Y98R8R 
9 9 9090 



3HDD8Q. A3D. A3QAA7FGA 
0-Q 9 Y Q Y 0-9 -ZY 
Z 

BG5WAA0UGA3QAA0DGA5B 
— 8-9 ZQ -9 9ZY Y 
9 

7DBEACGEGDB-SA7GACAD 
R8QY99R9R808Q 8ZQY9 
999 9 9 09 

ACGNGMB-SC7PKB7B7WB0 
Y99Z9Z8088 8 9 R 8-9 
9 9 9 0 

HQHQKG7F8QKG778JB-SK 
9999 9 R 9 9 8 Y8088 
0 99 9 

AHAAGA4DKB7H7FHCAF.A 
-9QYZY 9 0 YZYY9 Y 
09 9 

8Q7WEA4-ADAAGA44KB7H 
9 ZQ -9QYZY 9 0 
09 

AD0UGA5ABEAAGFGFB-SC 
-9 ZY Q8QY99-9-8088 
Z999 9 9 

HQKA7M8QKE7P8KKE7F8S 
99 9Y99Y89-9 
9 0 

AA0DGG1J AAOVGNAHAAGA 
-Y 9Z Y-9 99-9QYZY 
9 09 

GA5DA-CDLEC2BQCB83CB 
ZQ QZ QQ8RZ9Q0ZZ 8ZR 
9 0 ZZ9 Z 9 

AAOVGA6AAAOJGA6GE0CE 
-Q ZQ Y-Q ZZY — QQ 
9 9 9 0 ZZ 

FA8Q3/CF80F0CHAI AGFA 
8Q 9 9QR 8- QRZ-Y88Q 
Z 9 Z 99 

B-S3CDECEJGA6GB-SAFG 
8089Q8-QQYZY -808QQ- 
9 Z ZZ9 09 9Z0 



3FFB8QAA72GA3KFA8QNG 
Q-9 9-9 ZY Y-9 9 9 



BU3YBA*>WKA7HABBEABGH 
-9 -Y 8 9 Q98QY99 
0 999 

AAAAGA4BBEACHAGCB-SG 
-YQYZQ -8QY99Y9Z8088 
09 9 999 9 9 9 

4GGJCHKG8Q JAEA4-AG JD 
R YQ- 9 9YYZQ — Y9 
0 Z 9 

7AG9KA7XADH JCDB-SB7S 
R9 Y 8Q9RYQQ8088 8 
0 9 90 Z 9 9 9 

4FAHAH.A40KG8Q8QEA4- 
QZ0Y9 Y Y 9 9 9ZQ 
0 9 9 

7FKG8Q8QEA4-AJ0UGA5D 
Y 9 9 9ZQ -Y ZY 8 

9 9 

7ABEAAGJGJB-SC7DEAJA 
-8QY990908088 Q-QZO 
999 9 9 Z 

KE7E8SB-SM7PA-0VGG5 J 
9 Q 88088 0- Z Y 
0 99 9 

5FACABACAFH18AGCAXCA 
-ZQY9ZQY9-8 Q9QQ9QY 
09 09 III 

8GCF JAB.CMJGG-64EDCM 
QZRYYZ QY8RZ -9QY 
0 099 Z99 Z9 

G-6FB-SPCVG06GHACAAA 
Z 88088Q8Z -RQQQZY 
99 9Z9 0 Z 

8Q3/CN80F0CPCICDBACA 
9 9Q8 8- Q8Z0QQZYQR 
Z 9 Z ZZ ZO 

B-SKCQB-SKCBFAOVBACS 
8088Q08088Q -Q ZQQ 
9 9Z 9 9Z 9 ZZ 



7070GA3HFAOU83640017 
Y YZY —9 
9 9 0 

GHB-MA7CAAAD83640018 
9 80Z8 ZYY9 
9 9 9 

76ED10G-44GJ83640019 
8-Q 8Z 8 Y 
9 

GA44AKAHG04F83640020 
ZY 8ZYY9Z Z 
9 

B-SB74KB7B7T83640021 
8088 9 9 R 8 
9 9 0 

A.0UGA4DKB7H83640022 
ZY Q 9 0 
9 

KB7H7CKG8Q7083640023 
9 0 Y 9 9 Y 

9 

G-5MKC8QAABE83640024 
Z Z 8 9YY8Q 
9 9 99 

B-GQ7DB-JA7G83640025 
80-9 Y80Y9 8 
9 99 

LGL3AJADA-BQ83640026 
8R89ZYY0Z QO 
909 99 Z 

G-5MFJ5FHXCA83640027 
Z YZY Q-9QY 
9 9 0 Z 

CDAIAALHCICD83640028 

QQZ-Y98-Z0CQ 

ZZ 9 9 ZZ 

BEAAC/C/BEAA83640029 

8QY988888QY9 

999 9 9 999 

BGCYBGCVBEAA8 3640030 
Z Q Z-Q 8QY9 
Z OZ 999 
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BTXT. A0A..A8. .AACSCS 
9 Y9Q Y9 Y98 8 
9 9 9 9 9 



BEAACVCVBEAACYCYFJ8Q 
8QY98 8 8QY98 8 8Y 9 
999 9 9 999 9 9 9 



3/CE80F0CGB.CMB0C0AB 
9QQ 8- QQZ QY- Q -9 
Z9 9 Z9 Z9 Z 



CMGA6FB1C0B083640031 
QYZY - Q - 
Z9 Z 



BTXT.AOH. 
9 Y9 

9 



, A8. • AAC4AA 
Y9 Y9Q -9 
9 9 Z 



CMGA60B1C4ADCMGA6WBI 
QYZY - Q -9QYZY - 
Z9 Z Z9 



CMG06KB0CMB-SJCDG05S 
QYZ Y- QY8088QQZ 8 
Z9 9 Z99 9Z9 



AA0JGA5MAAOG83640032 
-Q ZZY Y-Y 9 
9 9 



BTXT. APA. 
9 Y9Y 
9 9 



, A8. • AAGA5M 
Y9 Y9ZY Y 
9 9 9 



LHA.ADCDC4JCGA7MF.7B 
80Z Y9Z0Q 80ZY 8Z 8 
9 9 Z 9 9 9 



G05MCDC8JGG-5MG05Q.C 
Z YZRQ 8RZ YZ 
9 OZ 9 9 



C..X. EXP. CC. 83640033 



BTXT.AP8. 

9 Y99 
9 



.AQ..AA.X.A 

Y9 Y9 
9 9 



CT.ADR.XXXXXX.SIOAGA 
Y9Y 
9 9 



•83640034 



BTXT.APG. 
9 Y98 
9 



►AJ..AA.ADR 

Y9 Y9 
9 9 



.XXXXXX.LINKA. 

Y 

9 



.83640035 



BTXT.APP..A8. 

9 Y98 Y9 
9 9 

BTXT.APG..A8. 

9 Y9- Y9 
9 9 



.A A. CAW 

Y9 
9 

•AAX.EX 

Y9 
9 



.xxxxxx.cswccw.csw.x 



P.SNS.XX.ACT.LOG. XX. 



XXXXXXX.XXXXXXXX.EXP 



XXXXXX.XXXXXX.XXXXXX 



ACTEXP.SNS.X83640036 



.TST.XXXX.SS83640037 



BTXT.APG..A8. 

9 Y9Y Y9 
9 9 9 



.AA.0.0 N.FOR.LOOP.ON.SIOOPA 
Y9 Y 
9 9 



AAAAAAAAAAAAAAA A ADAP 
YYYYYYYYYYYYYYYYY9Y9 
99999999999999999 9 



JAAAAAJOFA AA83640038 
0YYY9Y98Q9YY 
999 9 Z 99 



BTXT.AQG..AJ. 

9 Y99 Y9 
9 9 



» AAAFAQ 
Y9Y9Y9 
9 9 9 



4AAA0AAQA0AAA. 
8YYY0YY9Q8YYY 
9999 99 99999 



.83640039 



BTXT.AQA..AO. 

9 Y9Q Y8 
9 Z 99 



.AAA AAA 
Y9YYYY 
9 9999 



AAAAAAAA. 

YYYYYYYY 

99999999 



.83640040 



BTXT. A JO.. A8. .AAAAAA BAQSAAADLEA. JFGA9MQG 

9 Y8Z Y9 Y9YYYY 9Y9-YYY08Q- Z-ZY 89Q 

99 9 9 9999 9 999 99 9 



HGOSDGCM ACBAGA9D. 6BA 
R- 8R-Q08-QQZ Y Q -QQ 
Z Z9 0 Z9 



AA0JGA9DKBB283640041 
-Q ZZY Q 9Q8 
9 0 Z9 



i BTXT.AJ4..A8..AA7KKB BEBGKBBDBK A A0GGA9MKB 

9 Y88 Y9 Y9 9 QZQR 9Q8Q8-Y 9ZQ 0 9 

99 99 ZZZZ 9 



B2BGKBBE7KKBBDBCB-DT 
Q8QR 9QZ 9Q8Q88098 
Z9Z Z Z Z 9 9 



BUBBA JGYE A0W83640042 

Q88QZYQ9ZQ 

Z999 Z 0 



BTXT.AJD..A8. .AAU&AE 1AGAAA0UGA90KABK0CB. 
9 Y8- Y9 Y98-Y9 YQQ-Y ZQ Q YQ9 9- 

990 9 9 9 9 9ZZ 9 9 9Z 



CEKPCFCEKCBRCEG4KA0C 
QQ YQQQQ 0Q0QQ9 Y 9 
ZZ 9ZZZZ Z ZZ 9 



BKD70UFA0VHL83640043 

Q9-8 -9 -Y 

Z 



BTXT. A JM. . A8. . AACDB- MKBFB-J JBLE6 2MBA0UDF 

9 Y8Y Y9 Y9QQ80 Z8QY80Y8Q9Z 8-Y -Q 

999 9 9Z9 9Z9 9Z 9 Z 



0VBA0CG09DGAGGA. SEE. 
-9 9Z Q9YQQY 
0 9ZZ9 



DESCRIPTI0N-83640044 



BTXT.AKU..A8, 

9 Y89 Y9 
99 9 



•AACOMM 
Y9 
9 



ENTS.SEC.SS.24. I S.OF 



F.SET.IT.OFF.IF.NOT. 



DUALING0FFN083640O45 



BTXT.AKM..A8. 
9 Y88 Y9 
99 9 



. AAT.HU 
Y9 
9 



NG.UP.BUSY-.SYS.RESE 



T.PSW. RESTART. READY. 



DEVICE. PREVI83640046 
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BTXT.AKD.. AN..AA0US. 

9 Y8- Y9 Y9 
99 9 9 

BTXT.ALV..A8..AA.UCB 

9 Y88 Y9 Y9 
999 9 9 

BTXT.ALN..AL..AAAIN. 

9 Y8Z Y8 Y9 
99 99 9 

BTXT. ALH.. A8. .AAAAAA 

9 Y8- Y9 Y9YYYY 
99 9 9 9999 



BTXT. AL-..AV. 

9 Y80 Y8 
99 99 

BTXT.AMN..A8. 

9 Y8Y Y9 
999 9 

BTXT. ANV..A8. 
9 Y89 Y9 
99 9 

BTXT. ANN.. A8. 
9 Y88 Y9 
99 9 

BTXT. ANE..A8. 
9 Y8- Y9 
99 9 

BTXT. ANE..A8. 
9 Y8Y Y9 
999 9 

BTXT. AOE.. A8. 
9 Y89 Y9 
99 9 

BTXT. A05 • • A8. 

9 Y88 Y9 
999 9 

BTXT. AOE.. A8. 
9 Y8R Y9 
990 9 

BTXT. AON.. A8. 
9 Y8Y Y9 
99 9 

BTXT.A0V..A8. 

9 Y8 Y9 
99 9 

BTXT. APN.. A8. 
9 Y88 Y9 
999 9 



.AA.PLC 

Y9 
9 

• AAAKAE 
Y9Y 9Q 
9 9 Z 

• AAAAOA 
Y9YY Y 
9 99 9 

.AAOCFC 
Y9YQQQ 
9 9ZZZ 

• AA&DOA 
Y9 QYY 
9 Z99 

•AA-GAE 
Y90ZQQ 
9 9Z 

•AARCEE 
Y90QQZ 
9 ZZ 

• AAQAAF 
Y90-QQ 
9 9Z 

• AAJG-E 
Y9YZ Q 
9 9 I 

.AA.WIT 

Y9 
9 

• AAAAA1 
Y9YYY9 
9 999 

• AAFGHA 
Y9Z998 
9 



H ANG .UP. DETECTED ... . 



• HAS .16. CHAR. SET .FO. 



XX. THRU. XX. REST. BLAN 



AAAAAAAAAA7G. PRINT. . 

YYYYYYYYYY8Q 

99999999999Z 

•CHK.CHK.XXX..XX.XX. 



B&AAEABAJEAEA0H6AAA0 
9 YZRY9ZYQQZQ 8YYY 
9 9 Z9 0 9999 

ANYHAAAAAAADAAAAAGDA 
Y899YYYYYYY9YYY9Y8Z- 
99 9999999 999 99 

EQDA&AABF&ABGBQE3EJG 
Q9RZ-YQZR-YZRQ0- QYZ 
Z 099 09 Z Z9 

AA6AGBAF-AJFHAA0GGAE 
QZ-Y8-8Q0ZYQ -Y 9ZQQ 
9 099 9Z Z 9Z 

FF&EBBJF-GOEBADAAAOA 
QZ-Q— 8Q0Z Q-ZZYQZZY 
9 OZO 9Z ZO 99 9 

£DOAAA£ AGBAF-AJFHAAO 
QYYQZ-Y8-8Q0ZYQ -Y 
Z99Z 099 9Z Z 

-GAFBF&FWBJF-G0FWE3E 
0ZQQRZrQ9-8Q0Z Q9- Q 
9Z OZ 9Z Z Z 

FEABRGAFBE6BRG-EFKAB 
Y-YQOZYQY — QOZ QY YQ 
Z Z Z Z 9Z 

H.F837. IN. FOLDING. MO 



2C4EF781234M27S/KTMV 
9R9RR9988888888 Z9Z9 
6 00 9 9 9 

BCDDCG&CAKRAAADAAAAH 
888888-8Y80YYY0YYYY9 
9 9 0999 999 9999 



THRU. FF.UCS.ADDR. XXX 

KSA 

Y 
9 

SHD PRT. PAR. • 

XX..X...X...XEN65UD3 

8888888 



AEYG5AAAAAALAKR. AAA3 
YQ99 YYYYYYYY80 YY98 
9Z 999999999 99 

A0JGAGWE.9&BCEJAJAGA 
Q ZZYQ Z -QQYZYY8Z 
9 Z ZZ9 999 

-E60AEFG.FGEBFGEQAA0 
Q8 Y-9Q Z QOZ-QZ-Y 
Z 90 Z Z OZ 

BAJF-EA0W4CAJ0AFQKCB 
-ZYQOZQ 8-YY YQ OQ 
0 Z 0 9 99 9Z Z 

AF JEHQ0A6AABGCDFCE8F 
QZYQR9RZ-YQZRQQZ Q Z 
9 9Z 099 ZZ Z 

GGAFWA JF-EA0W46A.0AF 
9ZQQ9ZYQ0ZQ 8-Y YQ 
9Z Z 0 9 9 9Z 

JGAFDB3EJG0EDEABRGAF 
YZYQ — QYZ Q8-YQ0ZYQ 
9 Z Z9 Z 9Z Z 

RBKGOEFB-DLFDBO.REST 
OQYZ QY8098QQ8 
Z Z 9 9Z 9 

DEALAKR. AAAAAKRAAADA 
YYY80 YY98Y80YYY0Y 
9999 99 999 999 9 

WPQ/STU4WXAABLDN0GH J 
9ZZ8888888QRR9R99RR8 
99 9 99 9 

AAAAAAADAAAGAGABAGGA 
YYYYYYY9YYY-Y9Y9YQQ- 
9999999 999 9 9 9ZZ 



.83640047 



.T0.XXX.C0NT83640048 



.83640049 



P0S.WR.RD.RD83640050 



4 83640051 



AKR.AAACALEA83640052 
Y80 YY9QY8QY 
99 99 Z99Z9 

.AGA-CDB.CEK83640053 
Y8Z QQ- QQ 
99 ZZ ZZ 

GGAFKKCBI BRE83640054 
9ZQQZ RQ-QOZ 
9Z OZOZ 

QBRKACUBQAAF83640055 
OQO YQ8Q0-CQ 
Z 9Z9Z 9Z 

eE0KG0ECEKCB83640056 
-Q QQ8QQ OQ 
OZ 9Z9ZZ Z 

QKCBQBRKACUB8 3640057 
OQOQO YQ8Q 
Z Z 9Z9Z 

BE.BRGAFBE3E83640058 
Y- QOZYQY- Q 
Z Z Z 

ORE.UCS.BUFR83640059 



A0QHAAAAAAAD83640060 
Y8 9YYYYYYY9 
99 9999999 

KLMNLPBABCDE83640061 

888888899Z9Z 

9 9 9 

A0JGAGWE.9GA83640062 
Q ZZQQ Z Z 
9 9Z 
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BTXT. APE. .A8..AAJAAA . ADAAA. B.GYBTBQFJGUF 

9 Y8R Y9 Y9Y9YZ Y9ZQY Z Q Z9Q0ZYQ8Z 

99 9 9 9 9 9 Z9 Z Z 9Z 

BTXT. APE..A8. .AAKD4B KDDBSDMKCD5CE AAA7BAF 

9 Y8Y Y9 Y98Q8- 8Q8-8Q8 ZQ8QQZQY8-8Q 

99 9 9 9Z9 9Z9 9Z9 Z9ZZ Z99 9Z 

BTXT. APE.. AU. . AADCEK ADACDAAF-GAGSFAGKBJF 

9 Y8 Y9 Y9QQQ YQYQQ-QQOZQQ ZQQY-8Q 

99 9 9 ZZZ 9Z ZZ 9Z 9Z ZZ 9Z 

BRLD A4. ...A AAA AAANEAA4AAP9AAQAAAQA 

9 Y9 Y9Y9 8YQ98YQ88Y9 8Y9Y8Y98 

9 9 9 999 999 99 99 999 9 

BRLD. . .... A A. ... A AAA A AO J EAOQHAP / 

9 YQ Y9Y9 8Y8 8Y8 9Y88 

99 9 9 999 999 999 

BEND 

9 

BLOT 

9 
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AGMKCBZBRK7CEFYEDGYG 
QQZ ZQ QO 8Q0Q -9Q Z 
ZZ Z Z 9ZZZ Z 

-AJF-EA0W4GAE0AFQKCB 
OZYQOZO 8-Y YQ OQ 
Z 0 9 9 9Z Z 

-GOGKF.GMBOA 

OZ QYZ Q88 Y 
Z Z 9 9 

EAQAAAJAAAN JAAN JAAN/ 
8Y9Q8Y888Y898Y888Y89 
99 9999 999 9999999 



AGHEAGYGAG AB83640063 
YQ — 9Q ZYQQ- 
Z Z Z 

QBRKACUBQKCC83640064 
OQO YQ8Q0 OQ 
Z 9Z9Z Z 



•83640065 



EANYHAOI... .83640066 

8Y899Y8 

999 99 



.83640067 



•83640068 



.83640069 
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| F837 1403 BUFFER RESTORE TEST 

| 1403 BUFFER RESTORE TEST 

DESCRIPTION 

! . ! 

l TABLE OF CONTENTS PAGE 

1 1 ■ 1. PURPOSE 1 

i 2. REQUIREMENTS 1 

I 3. OPERATING PROCEDURE . . 1 

4. PRINTOUTS • 2 

5. COMMENTS • •••• 3 
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1. PURPOSE 

1.1 THIS PROGRAM IS USED TO RESTORE UNIVERSAL CHARACTER BUFFERS ON 
1403 PRINTERS WITH THE UCS FEATURE, TO A DESIRED CONFIGURATION. 
THE PROGRAM LOGICALLY FOLLOWS THE DIAGNOSTIC PROGRAMS WHICH 
ALTER THE UCB DURING THE 1403 TESTS. 

2. REQUIREMENTS 

2.1 PROGRAM REQUIREMENTS 

A DIAGNOSTIC MONITOR MUST BE USED TO RUN THIS PROGRAM. 
THE PROGRAM NEEDS DEVICE DEFINITION AND DATA DEFINITION PRIOR 
TO EXECUTION. —SEE COMMENTS AREA FOR DEFINITION FORMATS- 
THE 1403 PRINTERS USED IN THIS PROGRAM MUST HAVE THEIR 
ADDRESSES DEFINED IN THE DM UNIT DEFINITION TABLE -UDT-. 

THE UNIT DEFINITION TABLE-UDT-ENTRY MUST BE PUNCHED AS FOLLOWS. 



* UNIT CODE 



OPTIONAL FEATURE DIGIT 1* 



OPTIONAL FEATURE DIGIT 2 * 

* 

♦""u N IT ♦ZZ+BIT 0* BIT 1* BIT 2* BIT 3* BIT 4* BIT 5* BIT 6* BIT 7 * 

* * *HEX 8* HEX 4* HEX 2* HEX 1* HEX 8* HEX 4* HEX 2* HEX 1 * 
* * — * * * — * * — * — — * 

* 1403 PRINTER*83*ASCII*SEL * *UNIV. * HI- * 120 

* OR * * ♦TAPE * 

* 1404 PRINTER* * *LISTER* 

* CONTINUOUS * * * * 

* FORMS * * * * 



♦CHAR. *SPEEO ♦PRINT * 

♦BUFF. ♦PTR. ♦POS. ♦ 

♦ ♦ * ♦ 

♦ ♦ ♦ ♦ 



♦ 

♦ 2821 ♦ 
♦2 CHNL ♦ 
♦SWITCH ♦ 

♦ ♦ 

♦ ♦ 



2.2 EQUIPMENT REQUIREMENTS 

AN INPUT DEVICE FOR PROGRAM LOADING. 
AN OUTPUT DEVICE FOR MESSAGE OUTPUT.- 

-OTHER THAN DEVICES BEING RESTORED BY THIS PROGRAM- 
4K OF STORAGE FOR THIS PROGRAM. 
CPU, CHANNEL, ANO OEVICE IN WORKING ORDER. 
A MINIMUM OF ONE 1403 UCS PRINTER 
A MAXIMUM OF TEN 1403 UCS PRINTERS 



3. OPERATING PROCEDURE 
3.1 LOADING 

STANDARD LOADING PROCEDURE, AS IS GIVEN IN THE USERS GUIDE, 
MUST BE USED TO LOAD THE PROGRAM. 
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3.2 OPERATION 



************************** WARNING ♦♦♦♦♦♦♦♦*♦♦♦♦♦♦*♦♦*******♦***♦* 

THIS PROGRAM IS RELEASED WITH CTRL CARDS AND DATA CARDS -BOTH 
DEFINED LATER IN THIS DESCRIPTION- WHICH DEFINE THE STANDARD 1403 
ADDRESSES OF OOOE, OOOF, AND 0010, AND THE STANDARD AN CHAIN 
AND TRAIN CONFIGURATIONS USED AS DATA TO LOAD THE UNIVERSAL CHAR- 
ACTER BUFFERS. IF A 1403 WITH THE UCS OPTION EXISTS ON A SYSTEM 
AND HAS ANY OF THE ABOVE ADDRESSES, AN ATTEMPT WILL BE MADE TO LOAD 
THE BUFFER WITH THIS AN DATA. IF THE DEVICE BEING RESTORED 
DOES NOT HAVE THE STANDARD CONFIGURATED CHAIN OR TRAIN, THE PROPER 
DATA FOR THE UCB LOAD INSTRUCTION MUST BE INSERTED INTO THIS DIAG- 
NOSTIC PROGRAM. IF THE DIAGNOSTICS ARE ON TAPE OR DISK, THE DATA 
MUST BE PUT INTO THE PROGRAM WITH THE APPROPRIATE UTILITY PROGRAM. 
HN, PN, QN, AND RN CONFIGURATIONS ARE ALSO RELEASED WITH THIS 
PROGRAM TO ENABLE THE OPERATOR TO EASILY USE ANY OF THESE BY 
A CTRL CARD CHANGE. 



SECTION SENSE SWITCHES 

THE SENSE SWITCHES SHOWN BELOW ARE IN THE SENSE SWITCH BYTES OF THE 
SECTION PREFACE* THE CHARACTER X REPRESENTS THE RELOCATION 
FACTOR CONTAINED IN REGISTER 15 DURING RUN TIME. THE SWITCH BITS ARE 
ZERO WHEN OFF, AND ONE WHEN ON. 



SENSE I I I BYTE 

SW. I FUNCTION I SECTION I AND 

I I I BIT 

6 I ON— PRINT PROGRAM TITLE. I F837 I X004 

I OFF—- BYPASS PROGRAM TITLE. I I 6 

_ j . . ... —I 

29 I ON BYPASS THIS PROGRAM. I F837 I X007 

I OFF — EXECUTE THIS PROGRAM. I I 5 

30 I ON- PRINT CTRL INFORMATION FOR ALTER AND I F837 I X007 

I k HALT. I I 6 

I OFF— BYPASS ALTER PRINTOUT AND HALTING I I 

31 I ON LOGOUT CTRL AND DATA CARDS WHILE I F837 I X007 

I LOADING UCB. I I 7 

I OFF — BYPASS LOGOUT I I 



3.3 PROGRAM HALTS 

A HALT WILL OCCUR IF SECTION SENSE SWITCH 30 IS ON. THIS ALLOWS THE 
OPERATOR TO SCAN THE CONTROL INFORMATION BEING USED AND GIVES THE 
STORAGE ADDRESS OF THE DATA IN THE EVENT THE OPERATOR WANTS TO 
ALTER THIS INFORMATION. SEE COMMENTS AREA FOR CONTROL DEFINITION. 

3.4 PROGRAM TERMINATION 

THE PROGRAM IS TERMINATED IN 2 WAYS 

1. AT NORMAL PROGRAM COMPLETION. 

2. WHEN AN ABNORMAL TERMINATE IS INITIATED THROUGH THE EXTERNAL 
INTERRUPT KEY. 
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4. PRINTOUTS 

THE FOLLOWING IS AN EXPLANATION OF THE DATA CARD REFERENCES MADE 
IN THE OUTPUT MESSAGES. ALL FORMATS ARE DEFINED IN THE COMMENTS 
SECTION OF THIS DESCRIPTION. 



P/N 840540 
PAGE 2 



CARDS MENTIONED AS CTRL CARDS ARE CONTROL CARDS. 

CARDS MENTIONED AS CUSTOMER CARDS ARE IN THE CUSTOMER UNIVERSAL 

CHARACTER UTILITY FORMAT. 
CARDS MENTIONED AS HEX CARDS ARfc IN THE HEX CARD FORMAT. 
CARDS MENTIONED AS DATA CARDS CAN MEAN EITHER CUSTOMER OR HEX CARD 

FORMATS. 



4.1 INSTRUCTIONS TO OPERATOR 



-DEVICE XXXX ASSIGNED BY DM DOES NOT HAVE DATA FOR UCB RESTORE- 
-IF DESIRED TO RESTORE ANY DEVICES THAT DO NOT HAVE THE DATA- 
-CONSULT THE DESCRIPTION FOR THE PROCEDURE- 

THIS MESSAGE IS GIVEN TO BRING TO THE OPERATORS ATTENTION THAT 
THIS PROGRAM IS POSSIBLY NOT BEING UTILIZED FOR HIS SYSTEM AND 
HE SHOULD TAKE STEPS ACCORDINGLY OR SIMPLY IGNORE THIS MESSAGE 
IF THE DEVICE IS NOT DESIRED TO BE RESTORED. 



-NO BUFFERS RESTORED- 

THIS MESSAGE IS GIVEN WHEN NO DEVICES WERE FOUND WITH THE UCB OPTION. 



-MAKE DEVICE READY- 



THIS MESSAGE IS GIVEN WHEN A TEST 1-0 TO A PRINTER FINDS IT NOT 
READY. THE DEVICE ADDRESS IS GIVEN IN THE SDO HEADING THAT PRE- 
CEDES THIS MESSAGE. 



4.2 STATUS MESSAGES 

-UCB RESTORED WITH NO BLOCK DATA CHK AND NO FOLDING USING CHAIN NN- 

THIS MESSAGE IS GIVEN WHEN A UCB IS SUCCESSFULLY RESTORED. THE WORDS 
NO IN THE MESSAGE ARE INSERTED OR DELETED DEPENDING ON THE CTRL CARD 
REQUEST FOR THESE OPTIONS. THE CHAIN NUMBER -NN- IS THE DATA CARD 
SET USED ON THE DEVICE. THE ADDRESS OF THE DEVICE APPEARS IN THE 
SDO HEADER PRECEDING THIS MESSAGE. 



-CTRL DATA AT ADDR XXXXXX FOR ALTER- 

THIS MESSAGE IS GIVEN FOLLOWING THE ASSOCIATED CTRL CARD LOGOUT 
WHEN SECTION SENSE SWITCH 30 IS ON TO INDICATE WHERE THE CONTROL 
INFORMATION IS STORED. THE ADDRESS IN THE MESSAGE POINTS TO THE 
PP INFORMATION AS GIVEN IN THE COMMENTS AREA OF THIS DESCRIPTION, 
THE CHAIN INFORMATION IS LOCATED AT THE NEXT HIGHER STORAGE ADDRESS. 
THE DEVICE ADDRESS ASSOCIATED WITH THIS DATA IS LOCATED IN THE 
2 BYTES BEFORE THE ADDRESS GIVEN IN THE MESSAGE. 



4.3 ERROR MESSAGES 

-CTRL CDS MISSING OR MIXED WITH DATA CDS- 

THIS MESSAGE IS OUTPUT WHEN CONTROL OR DATA CARDS HAVE BEEN MIS- 
POSITIONED IN THE DECK OR WHEN THE CONTROL CARDS ARE MISSING. 
A LOG OUT OF CTRL AND DATA CARDS VIA SENSE SWITCH 31 WILL INDICATE 
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ONLY THE ABOVE MESSAGE IF THE CTRL CARDS ARE MISSING. IF A CTRL 
CARD IS MIXED, THE DATA CARDS WILL BE LOGGED OUT UNTIL THE MISPLACED 
CTRL CARD IS DETECTED. 



-MISSING CTRL AND DATA CDS- 

THIS MESSAGE IS GIVEN WHEN ALL CONTROL AND DATA CARDS ARE MISS- 
ING BUT THE DAT CARDS ARE IN THE DECK. SEE THE COMMENTS AREA FOR 
PROPER SETUP OF CARDS. 



-ALL DATA CDS MISSING- 

THIS MESSAGE IS GIVEN WHEN THE CTRL CARDS ARE IN THE DECK BUT THE 
DATA CARDS ARE ALL MISSING. 



-DATA CARDS MISSING- 

THIS MESSAGE IS GIVEN WHEN SOME OF THE DATA CARDS OF 
A SET ARE MISSING. 



-ANY RESTORED BUFFERS MAY BE IN ERROR- 

THIS MESSAGE IS GIVEN IN ADDITION TO SOME OF THE OTHER MESSAGES 
TO INDICATE THAT BECAUSE A DATA CARD HAS BEEN FOUND MISSING, THE 
POSSIBILITY EXISTS THAT IT MAY BE ONE FROM A DIFFERENT SET DUE TO 
THE DATA CARDS OF DIFFERENT SETS FOLLOWING EACH OTHER. TO 
BE SURE OF PROPER LOADING, THE CARDS MUST BE VISUALLY CHECKED TO 
MAKE SURE OF THE PROPER SEQUENCE FOR THE BUFFER LOAD. 

-EITHER CUSTOMER OR HEX CDS MIXED OR ONE TYPE IS INADEQUATE IN NUMBER- 

THIS MESSAGE IS GIVEN WHEN THE TWO DATA CARD TYPES -DESCRIBED IN THE 
COMMENTS SECTION- HAVE BEEN DETECTED TO BE MIXED OR ONE TYPE HAS TOO 
FEW CARDS. 

A LOG OUT VIA SENSE SWITCH 31 IS RECOMMENDED HERE TO OBSERVE 
SEQUENCE OF DATA CARDS. THE DATA CARDS FOLLOWING DETECTION OF 
THE ERROR WILL NOT BE LOGGED OUT. THE ERRONEOUS DATA MAY NOT BE 
LOCATED AT THE LAST LINE OF DATA. THEREFORE, THE SEQUENCE OF ALL 
THE DATA SHOULD BE CHECKED THOROUGHLY. 

-TIO LOOP RECEIVES SOLID CHANNEL BUSY FROM THIS DEVICE- 

THIS MESSAGE IS GIVEN WHEN THE TEST 1-0 BEFORE THE LOAD BUFFER START 
1-0 RECEIVES A SOLID CHANNEL BUSY CONDITION. 



-DEVICE XXXX UCB NOT RESTORED DUE TO INSUFFICIENT DATA CDS- 
-OR WRONG CTRL DEFIN ITION- 

THIS MESSAGE IS GIVEN AT THE END OF THE PROGRAM WHEN A CHECK OF THE 
CONTROL T*ABLE SHOWS NOT ALL BUFFERS HAVE BEEN RESTORED. MOST PROBABLE 
CAUSE IS A DEVICE HAS BEEN DEFINED TO BE LOADED WITH A DATA CARD 
SET THAT DOES NOT EXIST. FOR EXAMPLE, DEVICE OOE DEFINED FOR CHAIN 04 
AND ONLY DATA CARDS DEFINING 3 CHAINS EXIST. 



DATE 
EC 



-DEVICE NOT OPERATIONAL- 

THIS MESSAGE IS GIVEN IF CONDITION CODE 3 IS RETURNED AFTER A TEST 1-0 
HAS BEEN ISSUED. USUALLY MEANS DM HAS BEEN DEFINED WITH A NON-EX I ST ANT 
DEVICE ADDRESS AND A CONTROL CARD MADE OUT FOR IT ALSO. 



15N0V66 
125655 
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-ERROR ON UCB LOAD SIO- 

THIS MESSAGE IS GIVEN WHEN THE LOAD UCB START 1-0 DOES NOT GET 

AN AVAILABLE CONDITION CODE RETURNED. THE CSW INDICATES THE STATUS 

FOR THE OPERATION, THE PROGRAM GOES ON TO THE NEXT DEVICE IF ANY. 



-SNS $10 AFTER UCB LOAD ATTEMPT- NOT ACCEPTED- 

THIS MESSAGE IS GIVEN WHEN SOMETHING GOES WRONG WITH THE UCB LOAD 
EXECUTION AND A SENSE START 1-0 IS TRIED TO FIND OUT WHAT SENSE 
LATCHES ARE ON IN THE DEVICE. THE SENSE START 1-0 ALSO IS REJECTED 
AND RESULTS IN THIS MESSAGE. THE DEVICE IS OBVIOUSLY FAULTY AND THE 
1403 DIAGNOSTICS SHOULD HAVE INDICATED TROUBLE WHEN WERE EXECUTED. 



-SNS SIO AFTER UCB LOAD ATTEMPT DID NOT RECEIVE AVAILABLE FROM DEVICE- 

THIS MESSAGE IS GIVEN IF THE TIO AFTER THE SENSE START 1-0 NEVER 
RECEIVES AVAILABLE. A TIME OUT FROM THIS CONDITION ALLOWS THIS MESSAGE. 



4.4 MESSAGE ABBREVIATIONS 

ABBREVIATIONS FULL MEANING 



ADDR ADDRESS 

CDS CARDS 

CSW CHANNEL STATUS WORD 

CTRL CONTROL 

DM DIAGNOSTIC MONITOR 

ROY READY 

RTN ROUTINE 

SIO START 1-0 

TIO TEST 1-0 

UCB UNIVERSAL CHARACTER BUFFER 



5. COMMENTS 

THIS PROGRAM WAS WRITTEN TO ENABLE RESTORATION OF THE UNIVERSAL 
CHARACTER BUFFERS OF ALL 1403 UCB PRINTERS TESTED WITH THE 1403 
AND 2821 DIAGNOSTICS. IT HAS THE CAPABILITY TO HANDLE TEN PRINTERS 
AT ONE TIME IF NEEDED. 

*** NOTE *** CAUTION SHOULD BE OBSERVED TO KEEP FROM REPEATING ANY 
CHARACTER WITHIN 16 POSITIONS IN THE BUFFER TO PREVENT 
ANY DAMAGE TO THE PRINT CHAIN OR PRINT TRAIN. 

THE PROGRAM OPERATES AS FOLLOWS- 

AFTER BEING LOADED IN* THE PROGRAM READS CTRL AND DATA CARDS WHICH 
HAVE BEEN PREPARED FOR THE SYSTEM BY THE OPERATOR AND PLACED IN THE 
DECK. -THE FORMAT AND SEQUENCE OF THIS INFORMATION IS GIVEN IN OTHER 
PARAGRAPHS OF THIS COMMENT AREA- 

THE PROGRAM EXPECTS ALL THE CTRL CARDS TO BE READ IN BEFORE 
ANY OF THE DATA CARDS DEFINING THE BUFFER IN ORDER TO ESTABLISH 
THE TABLE OF DEVICES TO BE USED IN THIS PROGRAM. 

THE PROGRAM CHECKS TO SEE IF THE DEVICES INDICATED IN THE CTRL INFOR- 
MATION ARE ASSIGNED BY DM. IF THEY ARE NOT, THIS CTRL INFORMATION IS 
THROWN AWAY. 

THE DEFINITION OF SETS OF DATA CARDS AS DISCUSSED IN THE NEXT 
FEW ITEMS IS EITHER 4 CUSTOMER UCS UTILITY CARDS OR 15 HEX CARDS. 
EACH OF THESE CARD TYPES ARE DEFINED IN LATER PARAGRAPHS OF THIS 
COMMENT SECTION. 
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THE PROGRAM THEN READS ONE FULL SET OF DATA CARDS HEREBY BEING CALLED 
CHAIN 01 BY THE PROGRAM BECAUSE IT IS THE FIRST SET READ, OTHER SETS 
READ THEREAFTER BEING CALLED CHAIN 02, 03, ETC. UP TO CHAIN FF IF 
THAT MANY SETS OF CARDS EXIST. THESE CHAIN SETS ARE NUMBERED IN HEX 
BY THE PROGRAM AND SHOULD BE PUNCHED IN HEX BY THE OPERATOR ON THE 
CTRL CDS. -CTRL CARDS DEFINED IN LATER PARAGRAPHS OF THIS AREA- 
AFTER CHAIN 01 IS READ INTO STORAGE, A CHECK OF THE DEVICE TABLE 
IS MADE TO DETERMINE IF ANY DEVICES ARE TO USE THIS DATA. ALL DEVICES 
DEFINED TO USE THE DATA WILL HAVE THEIR BUFFERS RESTORED AT THIS TIME. 
IF ANY MORE CHAIN DEFINITION CARDS ARE IN THE DECK, THE PROGRAM GOES 
THROUGH THE SAME PROCEDURE AS JUST DESCRIBED. IF NO MORE EXIST, THE 
PROGRAM READS AN LDT CARD WHICH SIGNALS FOR AN ENDING PROCEDURE AND 
INSTITUTES SOME FINAL CHECKING IN THE PROGRAM BEFORE TERMINATION. 

ANY NUMBER OF SETS OF CHAIN DEFINITION CARDS MAY BE PUT INTO THE 
PROGRAM, WHETHER THEY ARE USED TO RESTORE BUFFERS SOLELY DEPENDS 
ON THEIR BEING DEFINED IN THE CTRL CARDS. 
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CONTROL AND DATA CARD FORMATS. 



THREE CTRL CARDS WITH STANDARD ADDRESSES ARE RELEASED WITH THIS 
PROGRAM AND ARE LISTED IN THE APPENDIX OF THIS DESCRIPTION. 

CONTROL CARD LAYOUT 

CARD Oil 

COLS 12345678901234 COLUMNS 15-80 NOT USED. 
CTRL DDDD PPCC 

WHERE- CTRL IS THE CARD IDENTIFICATION. 

DDDD IS TWO HEX BYTES INDICATING THE DEVICE ADDRESS. 
E.G. OOOE IS MULTIPLEX CHANNEL DEVICE E. 
010E IS SELECTOR CHANNEL 1 DEVICE E. 

PP IS A HEX BYTE DENOTING OPTIONS TO BE USED WHEN 
LOADING THE UCB AND IS DEFINED AS FOLLOWS- 
00 MEANS LOAD UCB WITHOUT SETTING THE BLOCK DATA CHECK 

LATCH OR ALLOWING FOLDING. 
80 MEANS SET BLOCK DATA CHECK WHEN LOADING UCB. 
40 MEANS ALLOW FOLDING WHEN LOADING UCB. 
CO MEANS SET BLOCK DATA CHECK AND ALLOW FOLDING WHEN 

LOADING THE UCB. 

CC IS A HEX BYTE DENOTING WHICH SET OF DATA CARDS THAT 

FOLLOW THE CTRL CARDS SHOULD BE USED TO LOAD THE BUFFER 
ON THE DEVICE DEFINED ON THIS CARD. THE BYTE IS A HEX 
NUMBER THAT CAN RANGE FROM 01 TO FF, WHERE AN 01 WOULD 
MEAN THE FIRST SET OF DATA CARDS READ, 02 THE SECOND, 
OA THE TENTH, ETC. 

IF SEVERAL CTRL CARDS ARE USED FOR THE SAME DEVICE ONLY THE LAST 
CARD FOR THAT DEVICE WILL BE USED. 



DATA CARD LAYOUTS 

FIVE SETS OF CHAIN CONFIGURATIONS ARE RELEASED WITH THIS PROGRAM 
AND ARE LISTED IN THE UNIVERSAL CHARACTER SET UTILITY PROGRAM 
SRL. A CARD IMAGE OF THE DATA RELEASED WITH THIS PROGRAM IS GIVEN 
FOLLOWING THE PROGRAM LISTING. THE CHAIN CONFIGURATIONS ARE AN, HN, 
PN, QN, AND RN. 

THIS PROGRAM USES 2 TYPES OF DATA CARDS 
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1. CUSTOMER CARD IMAGE CARDS FROM THE UNIVERSAL CHARACTER SET UTILITY 
PROGRAM. 

2. HEX CARD FORMAT TYPE DATA CARDS. 

IF CUSTOMER CARD IMAGE CARDS ARE USED, ONLY 4 ARE NEEDED TO DEFINE 
THE 240 POSITION BUFFER. IF THE HEX CARD FORMAT TYPE IS USEDt 
THEN 15 CARDS ARE NEEDED TO DEFINE ONE FULL BUFFER CONFIGURATION. 

THE DATA CARDS ARE FORMATTED AS FOLLOWS- 
CUSTOMER UCS UTILITY CARD FORMAT- 
CARD 0 12 8 
COLS 123456789012345678901—0 
// CI XXXX SS DDDD 

WHERE- // ARE 2 SLASHES. 

CI IS AN ABBREVIATION FOR CARD IMAGE. 

XXXX IS THE CHAIN OR TRAIN IDENTIFICATION- E.G. AN, HN, PCHN, 
ETC. -THIS AREA CAN CONSIST OF BLANKS OR ANY DESIRED 
COMBINATION OF 4 CHARACTERS- 

SS IS THE SEQUENCE NUMBER OF THE CARD , RANGING FROM Si TO S4. 

DDDD IS 60 COLUMNS OF THE DATA TO BE LOADED INTO THE UCB. 

THIS DATA IS PUNCHED IN THE EBCDIC CODE FOR EACH DESIRED 
CHARACTER. THE DATA WILL BE PLACED IN THE BUFFER IN THE 
ORDER IT IS FOUND ON THE CARDS. 

I.E. THE 60 CHARACTERS ON THE FIRST CARD GO INTO THE 
FIRST 60 BUFFER POSITIONS, THE 60 CHARACTERS ON THE 
SECOND CARD INTO THE NEXT 60 BUFFER POSITIONSt ETC. 



HEX CARD FORMAT 



THE FOLLOWING IS AN EXAMPLE OF THE HN CHAIN FORMAT RELEASED WITH 
THIS PROGRAM- 

THE DATA IS PUNCHED IN THE CARDS IN THE HEXADECIMAL CODE DESIRED 
TO BE IN THE UCB. E.G. 2 CARD COLUMNS EQUAL ONE BUFFER BYTE. 

CARD 0 1 2 3 4 4 

COLS 678901234567890123456789012345678901234 

F1F2 F3F4 F5F6 F7F8 F9F0 7E7D 61E2 E3E4 
E5E6 E7E8 E950 6B4D D1D2 D3D4 D5D6 D7D8 
D960 5B5C C1C2 C3C4 C5C6 C7C8 C94E 4B5D 
F1F2 F3F4 F5F6 F7F8 F9F0 7E7D 61E2 E3E4 
E5E6 E7E8 E950 6B4D D1D2 D3D4 D5D6 D7D8 
D960 5B5C C1C2 C3C4 C5C6 C7C8 C94E 4B5D 
F1F2 F3F4 F5F6 F7F8 F9F0 7E7D 61E2 E3E4 
E5E6 E7E8 E950 6B4D D1D2 D3D4 D5D6 D7D8 
D960 5B5C C1C2 C3C4 C5C6 C7C8 C94E 4B5D 
F1F2 F3F4 F5F6 F7F8 F9F0 7E7D 61E2 E3E4 
E5E6 E7E8 E950 6B4D D1D2 D3D4 D5D6 D7D8 
D960 5B5C C1C2 C3C4 C5C6 C7C8 C94E 4B5D 
F1F2 F3F4 F5F6 F7F8 F9F0 7E7D 61E2 E3E4 
E5E6 E7E8 E950 6B4D D1D2 D3D4 D5D6 D7D8 
D960 5B5C C1C2 C3C4 C5C6 C7C8 C94E 4B5D 

SEQUENCE NUMBERS OR COMMENTS ARE ALLOWED IN COLUMNS 1-4 AND 51-80. 
COLUMNS 5, 10, 15, 20, 25, 30, 35, AND 40 ARE IGNORED. COLUMNS 
45-50 MUST BE BLANK. 

THE PROGRAM ASSUMES THE OPERATOR HAS PLACED EACH SET OF DATA CARDS 
IN ORDER. I.E. THE FIRST SET OF CUSTOMER OR HEX CARDS IS USED AS 
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CHAIN 01 DATA, IF ANY MORE SETS FOLLOW, THE NEXT SET IS CHAIN 02, 
ETC. 



APPENDIX 

THE FOLLOWING IS A SEQUENCE LIST OF THE DECK STRUCTURE FOR PROPER 
LOADING AND OPERATION OF THE PROGRAM. 

1. PROGRAM F837 OBJECT DECK 

2. DAT CARD 

3. CTRL CARDS- 

THE AMOUNT OF CTRL CARDS IS VARIABLE AND DEPENDENT ON HOW 
MANY THE OPERATOR WISHES TO PUT IN. 

4. DATA CARDS DEFINING BUFFER CONFIGURATION 

THE AMOUNT OF SETS OF THESE CARDS CAN BE ANYWHERE IN THE LIMITS 
OF 1 TO 255 SETS. A SET BEING EITHER 4 CUSTOMER UCS UTILITY 
CARDS OR 15 HEX LOADER CARDS. A PROGRAM CAN USE BOTH SET 
TYPES AS LONG AS ONE TYPE IS NOT FOUND WITHIN ANOTHER. THE 
FIRST SET READ IS CONSIDERED AS CHAIN SET 01, AND ALL SETS 
THEREAFTER SHALL BE PUT IN HEXADECIMAL NUMERIC SEQUENCE BY 
THE PROGRAM. PARTIAL OR INCOMPLETE SETS PLACED IN THE DECK 
WILL CAUSE AN ERROR TO BE DETECTED BY THE PROGRAM. 

5. LDT CARD 



THE FOLLOWING IS A LIST OF THE RELEASED PROGRAM DECK CONTENTS 
AND INFORMATION ABOUT ANY ADDITIONS MADE BY OPERATORS. 



1. PROGRAM F837 OBJECT DECK 

2. DAT CARD 

3. CTRL OOOE 0001 

4. CTRL OOOF 0001 

5. CTRL 0010 0001 

6. 15 HEX DATA CARDS IN THE AN CONFIGURATION. 

7. 15 HEX DATA CARDS IN THE HN CONFIGURATION. 

8. 15 HEX DATA CARDS IN THE PN CONFIGURATION. 

9. 15 HEX DATA CARDS IN THE QN CONFIGURATION. 

10. 15 HEX DATA CARDS IN THE RN CONFIGURATION. 

11. LDT CARD. 



ADDITIONS TO THE PROGRAM SHOULD BE MADE AS FOLLOWS- 

A CTRL CARD OR CARDS SHOULD BE PLACED BETWEEN ITEMS 5 AND 6 ABOVE, 
DEFINING THE PARTICULAR DEVICE . FOR EXAMPLE, IF IT WAS DESIRED 
TO HAVE DEVICE OOOE BLOCK DATA CHECK AND USE ANOTHER SET OF DATA 
NOT RELEASED WITH THIS PROGRAM, THE CTRL CARD WOULD BE— 
CTRL OOOE 8006 

THE DATA DEFINED AS CHAIN 06 SHOULD BE PUNCHED IN ONE OF THE 
FORMAT TYPES EXPLAINED IN THE COMMENTS SECTION OF THIS DESCRIPTION, 
AND PLACED BETWEEN ITEMS 10 AND 11 OF THE ABOVE LIST. 



LAST PAGE 



DATE 15N0V66 
EC 125655 



ID F837-* 
PAGE 4A 



OO00OOOOOO0OOOOOOO 



ccccocccccocc 



IBM MAINTENANCE DIAGNOSTIC PROGRAM p/N 840541 

PAGE 1 

UCB RESTORE PROGRAM 



XF8370 START 4096 
001000 USING *,15 

* MODIFICATIONS 

* REVISION LEVEL 0. THIS IS THE INITIAL RELEASE OF THE PROGRAM* 

* E.C. PREREQUISITES 

* MACHINE . . . 2821 MUST BE AT E.C. 125655 

* PROGRAM • . • NONE 

* USE DESCRIPTION F83T* AT EC 125655, DATED NOV 15, 1966 OR LATER. 
^^♦^♦^^^♦^♦♦♦♦♦^♦♦♦^♦♦^♦♦^♦^♦^♦♦♦^^^♦♦♦^♦^^^♦♦♦♦♦♦^♦♦^♦♦♦^♦^♦^^♦♦♦♦♦^♦^ 

* SECTION PREFACE * 



001000 


F8370000 


SECNO 


DC 


XL4»F8370000« 


PROGRAM IDENTIFICATION 


001004 


00000000 


SNSW 


DC 


X* 00000000* 


SECTION SENSE SWITCHES 


001008 


0000 




DC 


XL2»00« 




00100A 


0000 


ICM 


DC 


XL2»00« 


INTERRUPTION CONDITION MASK 


00100C 


00 




DC 


XL1 •00* 




00100D 


OA 


NUTE 


DC 


XL1«0A» 


NUMBER OF UNIT TABLE ENTRIES 


001006 


80 


FLAG1 


DC 


XL1*80' 


FLAG BITS SET BY SEC— EXCLUSIVE 


00100F 


00 


FLAG2 


DC 


XLl'OO* 


INTRP FLAGS 


001010 


0104000000 


INPSW 


DC 


XL5* 0104000000? 


INITIAL PSW. 


001015 


001108 




DC 


AL31R0UT01) 




001018 


0000000000000000 


EXOPSW 


DC 


XL8«00« 


EXTERNAL OLD PSW 


001020 


0000000000000000 


SVOPSW 


DC 


XL8«00« 


SUPERVISOR CALL OLD PSW 


001028 


0000000000000000 


PGOPSW 


DC 


XL8«00* 


PROGRAM OLD PSW 


001030 


0000000000000000 


MCOPSW 


DC 


XL8»00« 


MACHINE CHECK OLD PSW 


001038 


0000000000000000 


IOOPSW 


DC 


XL8»00* 


I/O OLD PSW 


001040 


0000000000000000 


csw 


DC 


XL8»00« 


CHANNEL STATUS WORD 


001048 


00000000 


CAW 


DC 


XL4»00» 


COMMAND ADDRESS WORD 


00104C 


000000000000000000 




DC 


XL12«00» 


RESERVED FOR DM USE 


001055 


000000 










001058 


0000000000000000 


EXNPSW 


DC 


XL8»00' 


EXTERNAL NEW PSW. 


001060 


0104000000 


SVNPSW 


DC 


XL5« 0104000000 » 


SUPERVISOR CALL NEW PSW. 


001065 


001616 




DC 


AL3(DATINT) 




001068 


0000000000000000 


PGNPSW 


DC 


XL8*00* 


PROGRAM NEW PSW 


001070 


0000000000000000 


MCNPSW 


DC 


XL8«00» 


MACHINE CHECK NEW PSW 


001078 


0000000000000000 


IONPSW 


DC 


XL8«00» 


1-0 NEW PSW. 


001080 




REGDMP 


DS 


24CL4 


SECTION REGISTER SAVE AREA - DM 



* SECTION PREFACE UNIT TABLE * 



0010EO 


83 . 


UNIT1 


DC 


X«83« * 


UNIT TYPE -1403 PRINTER- 


0010E1 


00 


U10P 


DC 


X«00« 


OPTIONAL FEATURE BYTE 


0010E2 


8000 


U1ADDR 
* 


DC 


X^BOOO* 


FLAGS AND CHAN/UNIT ADDRESS 


0010E4 


83 


UNIT2 


DC 


X«83* 


UNIT TYPE -1403 PRINTER- 


0010E5 


00 


U20P 


DC 


X'OO* # 


OPTIONAL FEATURE BYTE 


0010E6 


0000 


U2ADDR 
* 


DC 


X'OOOO* 


FLAGS AND CHAN/UNIT ADDRESS 


0010E8 


83 


UNIT3 


DC 


X , 83 t 


UNIT TYPE -1403 PRINTER- 


0010E9 


00 


U30P 


DC 


X«00» 


OPTIONAL FEATURE BYTE 


0010EA 


0000 


U3ADDR 
* 


DC 


x»oooo« 


FLAGS AND CHAN/UNIT ADDRESS 


0010EC 


83 


UNIT4 


DC 


X^' 


UNIT TYPE -1403 PRINTER- 


0010ED 


00 


U40P 


DC 


X^OO* 


OPTIONAL FEATURE BYTE 


0010EE 


0000 


U4ADDR 

* 


DC 


X'OOOO* 


FLAGS AND CHAN/UNIT ADDRESS 


OOIOFO 


83 


UNITS 


DC 


X»83« 


UNIT TYPE -1403 PRINTER- 


0010F1 


00 


U50P 


DC 


X«00« 


OPTIONAL FEATURE BYTE 


0010F2 


0000 


U5ADDR 
* 


DC 


X«0000» 


FLAGS AND CHAN/UNIT ADDRESS 


0010F4 


83 


UNIT6 


DC 


X»83* 


UNIT TYPE -1403 PRINTER- 


0010F5 


00 


U60P 


DC 


X # 00« 


OPTIONAL FEATURE BYTE 


0010F6 


0000 


U6ADDR 


DC 


X'OOOO* 


FLAGS AND CHAN/UNIT ADORESS 
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UUluro 




UNIT7 


DC X«83« 


UNIT 


TYPE 


-1403 PRINTER- I 


0010F9 


00 


U70P 


DC X'OO 1 


OPTIONAL 


FEATURE BYTE 


0010FA 


0000 


U7ADDR 


DC X , 0000 f 


FLAGS 


AND 


CHAN/UNIT ADDRESS 


0010FC 


83 


* 

UNIT8 


DC X s 83* 


UNIT 


TYPE 


-1403 PRINTER- 


OOIOFD 


00 


U80P 


DC X«00« 


OPTIONAL 


FEATURE BYTE 


0010FE 


0000 


U8ADDR 
* 


DC X*0000« 


FLAGS 


AND 


CHAN/UNIT ADDRESS 


001100 


83 


UNIT9 


DC X s 83* 


UNIT 


TYPE 


-1403 PRINTER- - \ 


001101 


00 


U90P 


DC X'OO* 


OPTIONAL 


FEATURE BYTE 


001102 


0000 


U9ADDR 


DC X«0000« 


FLAGS 


AND 


CHAN/UNIT ADDRESS 


001104 


83 


* 

UNITA 


DC X«83« 


UNIT 


TYPE 


-1403 PRINTER- 


001105 


00 


UAOP 


DC X«00« 


OPTIONAL 


FEATURE BYTE 


001106 


0000 


UAADDR 


DC X'OOOO* 


FLAGS 


AND 


CHAN/UNIT ADDRESS 












* 


CONTROL CARD LAYOUT FOR BUFFER RESTORE PROGRAM 












* 


-CARD COLUMNS- 


-PUNCHES- 




-EXPLANATION- 

i 






* 

* 


1-4 


CTRL 




IDENTIFICATION 






* 


5 


BLANK 












6-9 


DEVICE ADDRESS 




-EXAMPLES- 














OOOE MULTIPLEX DEVICE E. 






* 








010E SELECTOR DEVICE E. 






* 


10 


BLANK 












11-12 


PRINT OPTIONS 




-80 MEANS BLOCK DATA CHECK 














-40 MEANS USE FOLDING 






* 








-CO MEANS DO BOTH 






* 








-00 MEANS NORMAL UCB LOAO 






* 


13-14- 


CHAIN NUMBER 




-01 THROUGH FF 






* 








THIS REFERS TO THE GROUP 






* 








OF 15 BUFFER CARDS IT IS 






* 








DESIRED TO LOAO THE UCB 














WITH. AN 01 MEANS THE 1ST 






* 








GROUP FOLLOWING THE CTRL 






* . 








CDS, 02 THE 2ND, ETC. 






* 

* 


15-80 


BLANKS 
















* 


HEX DATA CARD 


LAYOUT FOR BUFFER RESTORE PROGRAM 












* - 


-CARD COLUMNS- 


-PUNCHES- 




-EXPLANATION- 






* 

* 


1-5 


ANYTHING 




CAN BE USED FOR SEQUENCE 






* 








NUMBER IF DESIRED. 






* 


6-44 


BUFFER DATA 




PUNCHED IN SERIES OF 4 






* 








HEX CHARACTERS -2 BYTES- 






* 








SEPARATED BY 1 COLUMN. 






* 








E.G. F1F2 F3F4 F5F6 ETC. 






♦ 
* 


45-50 


BLANKS 




USED BY PROGRAM TO 






* 








DETERMINE END OF DATA. 






* 
* 


51-74 


ANYTHING 




CAN BE USED FOR SEQUENCE 






* 








OR OPERATOR COMMENT. 






* 
* 


75-80 


NOT USED 




i 



♦ PROGRAM SWITCH DEFINITION \ 
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001108 



001108 
00110A 



001186 
00118A 

00118C 



* 

* 


BIT 


0 




BYPASS ALTER ROUTINE AFTER ALTER MADE* 


* 


BIT 


1 




INDICATES UCS OPTION ON DEVICES THAT ARE NOT DEFINED 


* 


BIT 


2 




INDICATES CTRL CARD WAS READ BEFORE DATA CONFIGURATION 


* 








CARD. 


* 

* 


BIT 


3 




INDICATE STARTING TO READ NEW SET OF DATA CARDS 


* 


BIT 


4 




INDICATES IN PROCESS OF READING HEX OR CUSTOMER 


* 








CONFIGURATION CARDS. 


* 


BIT 


5 




INDICATES REAOING DATA CARDS. 


* 
* 


BIT 


6 




INDICATES CHAIN HEADING PRINTED 


* 


BIT 


7 




INDICATES READING CUSTOMER CARDS. 



0100 
FFFF 



*$********************************************************************4< 

CNOP 0,4 FULL WORD ALIGNMENT 

*********$******$*********************************************4t***^ 

R0UTG1 DC X»0100« ROUTINE 1 -NO OPERANDS- 

DC X 'FFFF • LAST ROUTINE IN THIS SECTION. 

************ *************************************************4^*4c4t*4t*** 

* START LOAD UCB 

*****************************************************************^ 



00110C 


IB DO 












SR 


R13,R13 


ZERO REG 13. 


00110E 


91 40 


E 


196 








TM 


406(R14) ,X*40 f 


SEE IF IN PROB PROG STATE. 


001112 


47 80 


F 


118, 








BC 


NONE vUCBI 


BR IF NOT. 


001116 


18 DF 












LR 


R13,R15 


LOAD REG 13 WITH CONTENTS OF REG 15. 


001118 


91 04 


F 


007 






UCB1 


TM 


SNSW+3, X»04* 


TEST SSW 29. 


00111C 


47 10 


F 


12E 








BC 


ALL,UCB2 


BYPASS TEST IF ON. 


001120 


91 02 




004 








TM 


SNSW,X 8 02 9 


TEST SSW 6. 


001124 


47 80 


F 


12E 








BC 


NONE , UCB2 


8YPASS TITLE IF OFF. 


001128 


OA DO 












SVC 


X 8 D0« 


PRINT TITLE 


00112A 


80 












DC 


X»80» 


NORMAL MSG 


001126 


14 












DC 


X«14» 


20 CHARACTERS 


00112C 


F81A 












DC 


AL2 ( TI TLE-BASE+REG) 


ADDRESS OF MSG. 


00112E 


94 00 


F 


798 






UCB 2 


NI 


PGSWtX'OO 1 


ZERO ALL PROG SWITCHES 


001132 


94 00 


F 


799 








NI 


CCSWtX'QO* 


ZERO THE CUSTOMER CD ENTRY SW. 


001136 , 


94 00 


F 


79A 








NI 


PRSW,X»00« 


ZERO 2ND SET OF SWS. 


00113A 


92 00 


F 


79B 








MVI 


RESW,X«00» 


ZERO BUFFER PROG SW. 


0Q1136 


D7 27 


F 


C84 


F 


C84 




XC 


CTLSVI40) ,CTLSV 


ZERO CTRL DATA SAVE AREA. 


001144 


58 70 


F 


76C 








L 


R7,0NE 


PUT 1 IN CHN CONFG CARD COUNTER. 


001148 


41 90 


F 


B8A 








LA 


R9,PAREA 


PUT PRINT AREA ADDR INTO REG 9. 




























* . 


READ 


CONTROL AND CHAIN CONFIGURATION CARDS 














************************** **************************************4^***4^ 


00114C 


OA DB 










UCB 3 


SVC 


X«DB» 


READ A CARD 


00114E 


0B3A 












DC 


AL2(RDAR-SECN0> 


READ IN AREA 


001150 


91 04 


F 


007 








TM 


SNSW*3,X«04« 


TEST SSW 29. 


001154 


47 10 


F 


14C 








BC 


ALL,UCB3 


BR IF YES. 


001158 • 


94 EF 


F 


798 








NI 


PGSWtX«EF» 


TURN OFF START RD NEW CHN CD SW. 


00115C 


05 03 


F 


B3A 


F 


788 




CLC 


RDAR(4) «CTRL 


SEE IF CNTRL CARD 


001162 


47 60 


F. 


20C 








BC 


UNEQ,UCBCH 


BR IF NOT 


001166 


91 09 


F 


798 








TM 


PGSW,X«09« 


SEE IF READING DATA CDS. 


00116A 


47 50 


f 


3fC 








BC 


ANY, UCBER1 


BR IF YES. 


00116E 


96 20 


f 


798 








01 


PGSW,X•20• 


TURN ON CNTRL 1ST CARD SWITCH 


001172 


02 03 


f 


774 


F 


B3F 




MVC 


WORK! 41 tRDAR+5 


MOVE DEV ADDR TO CONV AREA. 


001178 


02 03 


F 


778 


F 


B44 




MVC 


W0RK+4C4) »RDAR+10 


MOVE CTRL DATA TO CONV AREA. 


00117E 


OA DC 












SVC 


X'DC 1 


CONV BINARY TO HEX. 


001180 


0008 












DC 


AL2(8) 


EIGHT BYTES 


001182 


0774 












DC 


AL2( WORK-SECNO) 


FROM HERE 


001184 


0774 












DC 


AL2 < WORK-SECNO) 


TO HERE 



41 30 0 OOA 
IB BB 

41 88 F OEO 



****************************************************************#4c*4t*^^ 

* CHECK DM ASSIGNMENT AND STORE CTRL DATA HERE 

***********************************************************^ 



PRC 



CTAB 



LA 
SR 
LA 



R3,10 

R11»R11 

R8»UNIT1(R11) 



PUT 10 IN REG 3. 
ZERO REG 11. 

PICK UP START ADDR OF UNIT TABLE. 
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00 1 190 


D2 


01 


p 


ran ft nn? 




MVC 


AD1 ( 2) »2(R8) 


MOVE UNIT TABLE ADDR TO WORK AREA. 


00 1 195 


94 


07 


F 


C80 




NI 


AD1,X»07» 


AND OUT ALL BUT ADDR. 


001 19A 


D5 


0 1 


F 


roQ p ,774 

v»OV r » f "t 




CLC 


ADK 2 ) t WORK 


SEE IF DEVICE ASSIGNED. 


nn 1 1 AO 


47 


80 


F 


1B0 




BC 


EQ, STDT 


BR IF IT IS. 


00 1 1 A4 


41 


BB 


0 


004 




LA 


Rllt4(Rin 


ADD 4 TO UNIT TABLE ADOR. 


no 1 1 An 

UU X X MO 


46 


30 


p 


18 C 




BCT 


R3 t CTAB 


BR TO SEE IF NEXT DEV IN TABLE. 


00 1 1 AC 


47 


FO 


F 


ire 

X«UC 




BC 


UNCCSU 


BR IF NOT IN TABLE. 


nn 1 1 nn 

uv X X DU 


91 


10 


8 


nn 1 

UU X 


STDT 


TM 


1(R8) ,X»10« 


CHECK FOR UCS FEATURE. 


00 1 1 B4 


47 


80 


F 


ire 

XL>C 




BC 


NONE t CSU 


BR IF UCB NOT ON DEVICE. 


nn 1 1 nn 

UU X X DO 


96 


80 


p 


79A 




01 


PRSWfX'eO* 


TURN ON UCS DEVICE SW. 


00 1 1 at 


41 


BB 


p 


C84 




LA 


R11,CTLSV(R11) 


PICK UP ADDR OF CTRL TABLE. 


no 1 1 ro 

UU X X l»U 


D2 


03 


Q 


ono P 77A 

uuu — • • f C ^ 




MVC 


0(4, Rll) y WORK 


MOVE CTRL DATA TO CTRL TABLE. 


nn 1 1 Cf> 

UU x x v»o 


41 


BB 


0 


002 




LA 


R11,2(R11) 


ADD 2 TO POINT TO CTRL DATA. 


001 1CA 


50 


BO 


p 


C80 




ST 


R11,AD1 


SAVE THE ADDR FOR ALTER MSG. 












*****************************************************************4t**4i^* 












* 


SET 


UP CTRL DATA FOR PRINTOUT 












*********************************************************************** 


001 ICE 


91 


01 


p 


007 


CSU 


TM 


SNSW+3,X«01» 


TEST SSW 31. 


0011D2 


47 


10 


p 


IDE 




BC 


ALL tPCTC 


BR IF ON. 


001106 


91 


02 


p 


007 




TM 


SNSW+3,X»02« 


TEST SSW 30. 


00 11 DA 


47 


80 


p 


14C 




BC 


N0NE,UCB3 


BR IF OFF. 


001 IDE 


OA 


DO 






PCTC 


SVC 


X'DO* 


PRINT CTRL CD 


0011E0 


800F 








DC 


x'soof' 




0011E2 


FB3A 








DC 


AL2 (RDAR*-BASE+REG) 




0011E4 


91 


02 


f 


007 




TM 


SNSW+3f X*02* 


TEST SSW 30* 


00 1 1 E8 


47 


80 


F 


14C 




BC 


NONE t UCB3 


BR IF OFF. 


00 11 EC 


91 


10 


0 


001 




TM 


1(R8) ,X«10» 


SEE IF UCB ON PRINTER. 


0011F0 


47 


80 


F 


202 




BC 


NONE t PBK 


BR IF NOT. 


001 1 F4 


OA 


DD 








SVC 


X»DD» 


CONVERT ADDRESS FOR MSG. 


001 1 F6 


0003 








DC 


AL2C3) 


3 BYTES 


0011F8 


0C81 








DC 


AL21AD2-SECN0) 


FROM HERE 


0011FA 


0840 








DC 


AL2( ADDR-SECNO) 


TO HERE 


0011FC 


OA 


DO 








SVC 


X»00« 


PRINT ALTER ADDRESS 


001 1 FE 


8022 








DC 


X'8022» 




no 1 poo 


F82E 








DC 


AL2 (MSGl-BASE+REG) 




00 1202 


OA 


DO 






PBK 


SVC 


X»DO« 


PRINT A BLANK. 


nn 1 9nA 


8001 








DC 


X»8001» 




nn 1 7nA 

UU X £UO 


F784 








DC 


AL2CBLNK-BASE+REG) 




nn 1 ?ha 

UU X cvO 


47 


FO 


c 

r 


1 a r 




BC 


UNCtUCB3 


BR TO RD NXT CO. 












*********************************************************************** 














POST 


CONTROL CARD HANDLER 














*********************************************************************** 


nn 1 7C\c 

UU X 4L.\J\m 


91 


20 


F 


798 


UCBCH 


TM 


PGSWtX^O* 


WAS 1ST CARD READ A CTRL CD. 


00 1210 


47 


80 


r 


->rw 




BC 


NONE tUCBERl 


BR IF NOT. 


00 1 214 


91 


08 


p 






TM 


CCSW,X"08» 


TEST PASS CD SW. 


nn 191ft 

UU l£lO 


47 


10 


c 
r 


1 A.r 




BC 


ALL t UCB3 


BR IF ON. 


00 1 2 1 C 


91 


80 


p 


798 




TM 


PGSWtX'SO* 


TEST PASS ALTER HALT SW. 


nn 1 3>2>n 

UU X &C.U 


47 


80 


p 


30 E 




BC 


NONEtTHLT 


BR IF NOT ON. 


00 1224 


95 


61 


p 


B3A 


TCCS 


CLI 


RDARf C • / • 


SEE IF CUSTOMER CD. 


00 1228 


47 


80 


F 






BC 


EQ,LCC 


BR IF YES. 


nn 1 95r 

UU X £>C\+ 


96 


04 


F 






01 


PGSW#X»04 t 


TURN ON CHAIN CD SW. 


001230 


91 


01 


F 


798 




TM 


PGSW,X»01 • 


SEE IF SHLD BE READING CUST CDS. 


001234 


47 


10 


F 


598 




BC 


ALLfCDMIX 


BR IF YES. 


001238 


91 


08 


F 


798 


UCB4 


TM 


PGSWtX'OS* 


SEE IF OATA CDS READ. 


00123C 


47 


80 


F 


248 




BC 


NONE v INITE 


BR. IF NOT ON 


001240 


41 


77 


0 


001 




LA 


R7»1(R7) 


ADD 1 TO CHAIN CD COUNTER. 


001244 


47 


FO 


F 


252 




BC 


UNCLCT 


BR TO TEST CHN CARD COUNT 


001248 


96 


08 


F 


798 


INITE 


01 


PGSW»X*08* 


SET CHN CARDS READ SWITCH 


00124C 


D2 


03 


F 


C7C F 76C 




MVC 


CHN0<4) ,ONE 


PUT CHAIN NO. 1 IN COUNTER. 












*********************************************************************** 












* 


SET 


UP CHAIN CONFIGURATION 


PRINTING HERE 












*********************************************************************** 


001252 


OA 


DD 






LCT J 


SVC 


X»DD» 


CONV CHAIN NO. FOR MSG. 


001254 : 


0001 








DC 


AL2C1) 


1 BYTE 


001256 


0C7F 








DC 


AL2CCHIN0-SECN0) 


FROM HERE 


001258 


0892 








DC 


AL2CCHN1-SECN0) 


TO HERE 


00125A 


91 


01 


F 


007 




TM 


SNSW^3 9 X»01* 


TEST SSW 31. 


00125E 


47 80 


F 


28E 




BC 


NONE, PC P 


BR IF NOT ON. 
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001262 


91 02 


F 


798 


TM 


PGSW,X«02» 


TEST CHN HEADING SW. 


001266 


47 10 


F 


280 


BC 


ALL, BHD 


BR IF ON. 


00126A 


OA DO 






SVC 


X»DO» 


PRINT A BLANK 


00126C 


8001 






DC 


x'sooi 1 




00126E 


F784 






DC 


AL2 (BLNK-BASE+REG) 




001270 


OA DO 






SVC 


X'DO 1 


PRINT CHAIN NO* 


001272 


8008 






DC 


X«8008» 


NORMAL MSG -8 BYTES- 


001274 


F88C 






DC 


AL2 (MSG2-BASE+REG) 


MSG A DDR* 


001276 


96 02 


F 


798 


01 


PGSW,X»02« 


TURN ON CHN HD SW* 


00127A 


OA DO 






SVC 


X«D0« 


PRINT A BLANK 


00127C 


8001 






DC 


X«8001« 




00127E 


F784 






DC 


AL2( BLNK-BASE+REG) 




001280 


95 61 


F 


B3A 


BHD CLI 


RDAR,^/' 


SEE IF CUSTOMER CARD* 


001284 


47 80 


F 


5AA 


BC 


EQtPCCD 


BR IF YES. 


001288 


OA DO 






SVC 


X'DO' 


PRINT CHAIN CARD. 


00128A 


804A 






DC 


X»804A« 


-72 BYTES- 


00128C 


FB3A 






DC 


AL2(RDAR-BASE+REGI 


FROM HERE 



* SET UP LOAD UCB HERE 



00128E 


95 


61 


f 


B3A 






PCP 


CLI 


ROARtC •/* 


SEE IF READING CUSTOMER CDS* 


001292 


47 


80 


f 


202 








BC 


EQt CAD 


BR IF YES. 


00 1 296 


41 


20 




B3A 








LA 


R2t ROAR 


PICK UP ADDR OF READ AREA* 


00129A 


41 


10 




B3F 








LA 


Rl,RDAR+5 


PICK UP ADDR OF DATA READ IN. 


00129E 


02 


03 


2 


000 


1 


000 


MDA 


MVC 


0(4, R2) ,0(R1) 


MOVE DATA TO CONTINUOUS LOCATIONS 


0012A4 


41 


22 


o 


004 








LA 


R2,4(R2) 


ADD 4 TO REG 2 


0012A8 


41 


11 


0 


005 








LA 


R1,5(R1) 


ADD 5 TO REG 1* 


0012AC 


D5 


03 


1 


000 


F 


784 




CLC 


0(4, Rl) »BLNK 


SEE IF ANY MORE DATA 


0012B2 


47 


60 


F 


29E 








BC 


UNEQ,MDA 


BR IF YES. 


0012B6 


40 


90 


F 


2C4 








STH 


R9,CVD 


PUT PRINT BUFFER ADDR IN CONV INSTRS 


0012BA 


94 


OF 


F 


2C4 








NI 


CVD.X'OF 1 


AND OUT THE 4K BLOCK. 


00128E 


OA 


DC 












SVC 


X»DC« 


CONV BINARY TO HEX 


0012C0 


0020 












DC 


AL2I32) 


-32 BYTES- 


0012C2 


0B3A 












DC 


AL2 (RDAR-SECNO) 


FROM HERE 


0012C4 


02C4 










CVO 


DC 


AL2(CVD-SECN0) 


TO HERE 


0012C6 


41 


99 


0 


010 








LA 


R9,16(R9) 


ADD 16 TO PRINT AREA ADDRESS* 


0012CA 


55 


70 


F 


768 








CL 


R7,0NE5 


SEE IF 15 CARDS READ* 


0012CE 


47 


60 


F 


14C 








BC 


UNEQt UCB3 


BR IF NOT 


0012D2 


94 


FD 


F 


798 






CAD 


NI 


PGSW,X«FD' 


TURN OFF CHAIN HEAD SW* 


0012D6 


41 


30 


0 


OOA 








LA 


R3,10 


PUT 10 IN REG 3* 


0012DA 


41 


80 


F 


C84 








LA 


R8,CTLSV 


PUT ADDR OF CTRL SAVE AREA IN REG 8* 


0012DE 


D5 


00 


8 


003 


F 


C7F 


CHKD 


CLC 


3(l,R8),CHN0+3 


SEE IF ANY DEVICES WANT THIS CHAIN* 


0012E4 


47 


80 


F 


320 








BC 


EQ,BYCP 


BR IF YES. 


0012E8 


41 


88 


0 


004 






INCR 


LA 


R8,4(R8) 


ADD 4 TO REG 8. 


0012EC 


46 


30 


F 


20E 








BCT 


R3,CHKD 


BR TO CHK NEXT DEV FOR THIS CHAIN* 
































* 


SET 


UP NEXT CHAIN HERE 




















0012F0 


58 


10 


F 


C7C 






SUNC 


L 


Rl.CHNO 


PICK UP CHAIN NO. 


0012F4 


41 


11 


0 


001 








LA 


R1,1(R11 


ADD 1 TO IT. 


0012F8 


50 


10 


F 


C7C 








ST 


R1,CHN0 


SAVE IT 


0012FC 


IB 


77 












SR 


R7,R7 


ZERO CONFG CARD COUNTER. 


0012FE 


41 


90 


F 


B8A 








LA 


R9,PAREA 


RESTORE REG 9 TO PRINT AREA ADDR* 


001302 


94 


BA 


F 


798 








NI 


PGSW,X»BA» 


RESET FORMAT AND DEV FOUND SWS. 


001306 


96 


10 


F 


798 








01 


PGSW,X«10» 


TURN ON RD NEW SET OF CHN CDS SW* 


00130A 


47 


FO 


F 


14C 








BC 


UNCUCB3 


BR TO READ NEXT SET OF CDS. 


00130E 


91 


02 


F 


007 






THLT 


TM 


SNSW+3,X»02« 


TEST SSW 30* 


001312 


47 


80 


F 


224 








BC 


NONEtTCCS 


BR IF OFF. 


001316 


OA 


OA 












SVC 


X«DA« 


-HALT- 


001318 


96 


80 


F 


798 








01 


PGSw^'ao* 


TURN ON 1ST PASS SW. 


00131C 


47 


FO 


F 


224 








BC 


UNCTCCS 


BR TO NXT INSTR. 
































* 


LOAD 


UCB BUFFER HERE 




















001320 


48 


C8 


0 


000 






BVCP 


LH 


R12,0IR8) 


PUT DEV ADDR IN REG 12* 


001324 


92 


78 


F 


748 








MVI 


0CCCWtX»7B § 


MOVE RESET BLOCK DATA CHK CMD TO CCW 


001328 


91 


80 


8 


002 








TM 


2(R8>*X»80» 


SEE IF BLOCK DATA CHK DESIRED* 


00132C 


47 


80 


F 


334 








BC 


NONEtCF 


BR IF NO* 
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001330 


92 


73 


F 


748 








MVI 


DCCCW,X«73 f 


MOVE BLOCK DATA CHK CMD TO CCW* 


001334 


92 


FB 


F 


750 






CF 


MVI 


DCCCW+B^'FB 1 


MOVE LOAD UCB NO FOLD CMD TO CCW. 


001338 


91 


40 


8 


002 








TM 


2(R8) ,X»40« 


SEE IF FOLOING DESIRED. 


00133C 


47 


80 


F 


344 








BC 


NONE ,LS 


BR IF NO. 


001340 


92 


F3 


F 


750 








MVI 


DCCCW+8,X«F3» 


MOVE F3 TO UCB CCW 


001344 


41 


AO 


F 


740 






LS 


LA 


R10.LUBCCW 


LOAD CCW ADDRESS 


001348 


50 


AD 


0 


048 








ST 


R10,HCAW(R13) 


STORE IT IN CAW. 


00134C 


50 


AO 


F 


78C 








ST 


R10,CAWSV 


SAVE THE CAW FOR MSG. 


001350 


45 


BO 


F 


38A 








BAL 


R11,SI0 


BR TO START 1-0 ROUTINE. 


001354 


96 


01 


8 


002 








01 


2(R8),X»01» 


TURN ON BUFFER RESTORE SW* 


001358 


02 


01 


F 


865 


F 


850 




MVC 


BDM( 2 1 ,N0 


MOVE WORD NO TO MSG. 


00135E 


95 


73 


F 


748 








CLI 


DCCCW,X«73« 


SEE IF BLOCK DATA CHK USED* 


001362 


47 


60 


F 


36C 








BC 


UNEQ,CFL 


BR IF NO* 


001366 


D2 


01 


F 


865 


F 


784 




MVC 


BDM(2) , BLNK 


BLANK OUT WORD NO IN MSG* 


00136C 


D2 


01 


F 


87B 


F 


850 


CFL 


MVC 


F0LD(2) ,N0 


MOVE WORD NO TO MSG. 


001372 


95 


F3 


F 


750 








CLI 


DCCCW+8,X«F3« 


SEE IF FOLDING USED* 


001376 


47 


60 


F 


380 








BC 


UNEQ,POK 


BR IF NO. 


00137A 


D2 


01 


F 


87B 


F 


784 




MVC 


F0LD(2) ,BLNK 


BLANK OUT WORD NO IN MSG. 


001380 


OA 


DO 










POK 


SVC 


X«DO» 


PRINT SUCCESSFUL LOAD MSG. 


001382 


0442 












DC 


X , 0442« 




001384 . 


F852 












DC 


AL2 ( CORLD-BASE+REG ) 


MSG ADDR. 


001386 


47 


FO 


F 


2E8 








BC 


UNCI NCR 


BR TO SEE IF ANY MORE DEVICES 
































* - 


COMMON START 1-0 ROUTINE 




















00138A 


58 


AE 


0 


198 






SIO 


L 


R10,WAIT(R14I 


PICK UP TEN SEC WAIT FACTOR 


00138E 


88 


AO 


0 


002 








SRL 


RIO, 2 


DECREASE IT BY A FACTOR OF 4. 


001392 


90 


00 


C 


000 






TIO 


TIO 


0(12) 


-TEST 1-0- 


001396 


47 


80 


F 


3B4 








BC 


CCO, SIOI 


BR IF AVAILABLE 


00139A 


47 


40 


F 


3D8 








BC 


CC1 ,TFER 


BR IF CC 1. 


00139E 


47 


10 


F 


3F0 








BC 


CC3,NT0P 


BR IF NOT OPERATIONAL* 


0013A2 


46 


AO 


F 


392 








BCT 


RIO, TIO 


BR TO TEST 1-0. 


0013A6 


OA 


DO 












SVC 


X«DO» 


INOICATE CANT CLEAR DEVICE. 


0013A8 


4436 












DC 


X«4436« 




0013AA 


F951 












DC 


AL2 ( TI OTO-BASE+REG ) 




Q013AC 


96 


02 


8 


002 








01 


2(R8) ,X'02« 


TURN ON SIO ERR SW* 


0013B0 


47 


FO 


F 


2E8 








BC 


UNCI NCR 


BR TO SEE IF ANY OTHER DEVICES* 


0013B4 : 


D7 


07 


D 


040 


0 


040 


sioi 


XC 


HCSW(8,R13) ,HCSW(R13) 


ZERO THE CSW AREA* 


0013BA 


94 


Fl 


F 


79A 








NI 


PRSW*X«F1« 


RESET SNS PRINT SW AND SNS ERR SWS* 


0013BE 


9C 


00 


C 


000 








SIO 


0(R12) 


-START 1-0- 


0013C2 


47 


20 


F 


38A 








BC 


CC2,SI0 


BR IF COND CODE 2* 


0013C6 


47 


70 


F 


40 E 








BC 


NCC0,SI0ERR 


BR IF NOT CC 0* 


0013CA 


9D 


00 


C 


000 






TI01 


TIO 


0(12) 


-TEST I-Q- 


0013CE 


47 


40 


F 


3FE 








BC 


CC1, CONDI 


BR IF CONO CODE 1 


0013D2 


47 


70 


F 


3CA 








BC 


NCC0,TI01 


BR IF NOT CC 0* 


0013D6 


07 


FB 












BCR 


UNCRll 


RETURN TO MAIN ROUTINE. 



* COME HERE IF CC 1 ON ENTRY TEST 1-0 



0013D8 


95 02 


0 


044 


TFER 


CLI 


HCSW+4(R13) *X«02» 


SEE IF UNIT CHK. ALONE. 


0013DC 


47 80 


F 


3E4 




BC 


EQ,SUS 


BR IF YES. 


0013E0 


47 FO 


F 


392 




BC 


UNCTIO 


BR TO TEST 1-0 


0013E4 


OA DO 






SUS 


SVC 


X«00« 


TELL OPERATOR TO MAKE DEV ROY 


0013E6 


040 F 








DC 


X*040F« 




0013E8 


FA79 








DC 


AL2 ( IR-BASE+REG) 




0013EA 


OA DA 








SVC 


X«DA f 


-HALT- 


0013EC 


47 FO 


F 


344 




BC 


UNCLS 


BR TO TRY AGAIN. 




















* 


COME 


HERE IF DEVICE NOT 


OPERATIONAL 












0013F0 


OA DO 






NTOP 


SVC 


X«DO« 


PRINT DEV NOT OPERATIONAL 


0013F2 


4416 








DC 


X»4416* 




0013F4 


FA88 








DC 


A L2 ( DNT-BASE+REG ) 




0013F6 


96 02 


8 


002 




01 


2(R8),X'02* 


TURN ON SIO ERROR SW* 


0013FA 


47 FO 


F 


2E8 




BC 


UNCI NCR 


BR TO GET NEXT DEVICE. 




















* . 


COME 


HERE IF COND CODE I 


ON TIO AFTER SIO 
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0013FE 


91 02 


D 


044 






CONDI 


TM 


HCSW+4(R13) ,X«02« 


TEST FOR UNIT CHECK. 


f\n lino 
00 IHVii 


47 10 


F 


40 E 








BC 


ALL tSIOERR 


BR IF YES. 


aa i /.nt ■ 


91 FF 


D 


045 








TM 


HCSW+5CR13) ,X«FF» 


SEE IF ANY CHANNEL STATUS. 


AA 1 A A A 

00140A 


47 80 


F 


3CA 








BC 


NONE, TI 01 


BR IF NONE. 




























* 


COME 


HERE SIO NOT ACCEPTED 


















nn t A A tZ 


D6 07 


F 


77C 


D 


040 


SI0ERR 


OC 


CSWSV(8) ,HCSW(R13) 


SAVE THE CSW* 


aa 

001414 


90 00 


C 


000 






TI02 


TI0 


0(R12) 


-TEST 1-0- 


001418 


47 40 


F 


40E 








BC 


CC1 f SI OERR 


BR TO SAVE CSW IF CC 1. 


00141C 


47 70 


F 


414 








BC 


NCC0,TI02 


BR IF NOT CC 0. 


a a l /. ta 
001420 


91 01 


F 


780 








TM 


CSWSV+4,X«01 • 


TEST FOR UNIT EXCEPTION. 


001424 


47 10 


F 


38A 








BC 


ALL* SIO 


RETURN TO EXECUTE SIO AGAIN. 


001428 


91 02 


F 


780 








TM 


CSWSV+4,X«02« 


SEE IF UNIT CHECK. 


0014ZC 


47 10 


F 


4FA 








BC 


ALL,CF12 


BR IF YES. 


a a i a i a 

00 1430 


OA 00 










CNVRST 


SVC 


X'DD 1 


CONVERT THE CSW FOR PRINTIN6. 


001432 


0008 












DC 


AL2<8) 


EIGHT BYTES. 


00 1434 


077C 












DC 


AL2 (CSWSV-SECNO) 




001436 


07E4 












DC 


AL2(CSWAD-SECN0) 


TO HERE 


0014 38 


02 07 


F 


790 


F 


TEC 




MVC 


BIS(8) ,CSWAD+8 


MOVE ACTUAL DATA TO WORK AREA. 


00143E 


02 07 


F 


TED 


F 


T90 




MVC 


CSWAD+9C8) ,BI S 


RETURN THE DATA SHIFTED OVER 1 POS. 


fin i aaa 


92 40 


F 


TEC 








MVI 


CSWAD+8,X«40» 


INSERT A BLANK 


AA 1 A A Q 
00 JLH*fO 


OA DO 












SVC 


X'DD" 


CONV EXP CSW FOR MSG. 


AA 1 A A A 

00144A 


0008 












DC 


AL2(8) 




00144C 


0760 












DC 


AL2(CSWEX-SECN0> 




001*, HC 


07 C 5 












DC 


AL2(CSWED~SECN0I 




A A 1 A Cn 

001450 


02 07 


F 


790 


F 


TCD 




MVC 


BISC8J ,CSWED+8 


MOVE EXP CSW TO WORK AREA 


001456 


02 07 


F 


TCE 


F 


T90 




MVC 


CSWED+9C8) ,B1 S 


MOVE IT BACK SHIFTED OVER ONE. 


00 145C 


92 40 


F 


TCD 








MVI 


CSWED+8 f X»40« 


INSERT A 8LNK. 


nn t A A A 

00X460 


OA DO 












SVC 


X *DD • 


CONV THE CAW FOR MSG. 


00 1462 


0004 












DC 


AL2(4) 




A A t AAA 
00 lHOH 


078C 












DC 


AL2CCAWSV-SECN0) 




00 1466 


07A2 












DC 


AL2CCAWD-SECN0S 




001468 


OA DO 












SVC 


X'DO 1 


PRINT A BLANK. 


00146 A 


8001 












DC 


X»80Q1« 




00146C 


F784 












DC 


AL2(BLNK-BASE+REG> 




00146E 


OA DO 












SVC 


X'DO 1 


PRINT CAW 


00 lH f 0 


640 D 












DC 


X»640D« 




001472 


F79D 












DC 


AL2(CAWP-BASE+REG) 




001474 


45 50 


F 


486 








BAL 


R5,PCCWS 


BR TO PRINT CCWS. 


001478 


OA DO 












SVC 


X»D0» 


PRINT CSW EXP. 


00147 A 


A01 F 












DC 


X*A01F» 




00147C 


F7C0 












DC 


AL2(CSWEP-BASE+REG) 




00147E 


OA DO 












SVC 


X«D0» 


PRINT CSW ACT. 


001480 


A01 D 












DC 


X f A0lD» 




Ant Ann 


F70F 












DC 


AL2(CSWAP-BASE+REG> 




001484 ' 


96 02 


8 


002 








01 


2(R8> ,X«02« 


TURN ON SIO ERROR SW. 


001488 


91 08 


F 


79A 








TM 


PRSWf X '08 ■ 


TEST SENSE PRINT SW. 


AA 1 A £1 #* 

00 l'+BC 


47 80 


F 


49C 








BC 


N0NE,PUCER 


BR IF NOT ON. 


A A 1 A A A 

001490 


OA DO 












SVC 


X^DO' 


PRINT SENSE DATA EXP. 


001492 


A010 












DC 


X»A010» 




001494 


F7FC 












DC 


AL2 ( SNSEP-BASE+REGI 




001496 


OA DO 












SVC 


X»D0« 


PRINT SENS DATA ACT . 


A A * A no 

001498 


A00E 












DC 


X»A00E« 




00 149 A 


F80C 












DC 


AL2(SNSAP~BASE+REG> 




00149C 


OA DO 










PUCER 


SVC 


X'DO' 


PRINT SIO TROUBLE 


00149E 


8016 












DC 


X»8016« 




00 14 AO 


FA9E 












DC 


AL2( TBL-BASE+REG) 




0014A2 


91 02 


F 


79A 








TM 


PRSW,X»02» 


TEST SIO ERR SW. 


0014A6 


47 10 


F 


54A 








BC 


ALL, SER 


BR IF ON. 


0014AA 


91 04 


F 


79A 








TM 


PRSW,X«04» 


TEST SNS TIME OUT SW. 


0014AE 


47 10 


F 


554 








BC 


ALL f TOM 


BR IF ON. 


001482 


47 F0 


F 


2E8 








BC 


UNCI NCR 


BR TO GET NEXT DEVICE IF ANY. 


0014B6 '» 


50 10 


F 


774 






PCCMS 


ST 


R 1 1 WORK 


SAVE REG 1. 


0014BA 


58 10 


F 


78C 








L 


RltCANSV 


PICK UP CCW ADDR. 


0014BE 


40 10 


F 


4CA 






AGAIN 


STH 


Rl,CNV2 


PUT ADDR OF CCW INTO CONV INSTR. 


0014C2 


94 OF 


F 


4CA 








NI 


CNV2,X«0F« 


AND OUT THE BASE REGISTER. 


0014C6 


OA DO 












SVC 


X«DD« 


CONV CCW FOR MSG 
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0014C8 


0008 












DC 


AL2(8) 




0014CA 


04CA 










CNV2 


DC 


AL2(CNV2-SECN0) 




0014CC 


07AF 












DC 


AL2(CCWD-SECN0) 




0014CE 


02 07 


F 


790 


F 


7B7 




MVC 


BIS(8),CCWD+8 


MOVE CCW TO WORK AREA. 


001404 


D2 07 


F 


7B8 


F 


790 




MVC 


CCWD+9(8) tBIS 


MOVE IT BACK SHIFTED OVER 


0014DA 


92 40 


F 


7B7 








MVI 


CCWD+8,X«40» 


INSERT A BLANK. 


0014DE 


OA DO 












SVC 


X«DO« 


PRINT CCW 


0014E0 


A016 












DC 


X«A016» 




0014E2 


F7AA 












DC 


AL2(CCWP~BASE+RE6) 




0014E4 


91 CO 


1 


004 








TM 


4(R1) ,X»CO« 


SEE IF CHAINING 


0014E8 


47 80 


F 


4F4 








BC 


NONE, RRGS 


BR IF NOT. 


0014EC 


41 11 


0 


008 








LA 


R1,8(R1) 


ADD 8 TO CCW ADDR. 


0014F0 


47 FO 


F 


4BE 








BC 


UNC, AGAIN 


BR TO PRINT NEXT CCW. 


0014F4 


58 10 


F 


774 






RRGS 


L 


R1,W0RK 


RESTORE REG 1. 


0014F8 


07 F5 












BCR 


UNCR5 


RETURN TO REST OF MSGS. 



* SENSE SIO 



0014FA 


41 


AO 


F 


758 


CF12 


LA 


RIO, SNS 


PICK UP ADDR OF SENSE CMD. 


0014FE 


50 


AD 


0 


048 




ST 


R10,HCAW(R13t 


PUT IT IN THE CAW. 


001502 


58 


5E 


0 


198 




L 


R5,WAIT<R14J 


PUT WAIT FACTOR IN REG 5. 


001506 


88 


50 


0 


002 




SRL 


R5,2 


DIVIDE IT BY 4. 


00150A 


92 


00 


F 


79C 




MVI 


SNSDAT,X«00* 


ZERO THE SENSE BYTE AREA. 


00150E 


9C 


00 


C 


000 


SI02 


SIO 


0(R12) 


-START 1-0- 


001512 


47 


70 


F 


52A 




BC 


NCC0,TI03 


BR IF SIO NOT ACCEPTED. 


001516 


90 


00 


C 


000 


TI04 


TIO 


0(R12) 


TEST 1-0 


00151A 


47 


80 


F 


532 




BC 


CCO, CHKSNS 


BR IF AVAILABLE. 


00151E 


46 


50 


F 


516 




BCT 


R5,TI04 


BR UNTIL AVAILABLE OR TIMEOUT. 


001522 


96 


04 


F 


79A 




01 


PRSW,X'04 f 


SET TIME OUT SW. 


001526 


47 


FO 


F 


430 




BC 


UNC, CNVRST 


BR TO MSG. 


00152A 


96 


02 


F 


79A 


TI03 


01 


PRSWrX«02« 


TURN ON SNS SIO ERR SW. 


00152E 


47 


FO 


F 


430 




BC 


UNC, CNVRST 


BR TO MSG. 


001532 


91 


01 


F 


79C 


CHKSNS 


TM 


SNSDATtX»Ol« 


SEE IF CHANNEL 9 ON CARRIAGE. 


001536 


47 


10 


F 


344 




BC 


ALL ,LS 


BR TO TRY SIO AGAIN. 


00153A 


96 


08 


F 


79A 




01 


PRSWjX'OB* 


TURN ON THE PRINT SW. 


00153E 


OA 


DD 








SVC 


X«DD« 


CONV SNS DATA FOR PRINTOUT* 


001540 


0001 








DC 


AL2U) 




001542 


079C 








DC 


AL2 1 SNSDAT-SECNO) 




001544 


0811 








DC 


AL2(SNSAD~SECN0) 




001546 


47 


FO 


F 


430 




BC 


UNC, CNVRST 


RETURN FOR REST OF DATA. 


00154A 


OA 


DO 






SER 


SVC 


X«DO« 


PRINT SNS SIO ERR. 


00154C 


8020 








DC 


X»802D« 




00154E 


FAB4 








DC 


AL2(SNER-BASE+REG) 




001550 


47 


FO 


F 


2E8 




BC 


UNC, I NCR 


BR TO GET NEXT DEV. 


001554 


OA 


DO 






TOM 


SVC 


X«DO» 


PRINT SNS SIO TIME OUT. 


001556 


8045 








DC 


X , 8045» 




001558 


FAE1 








DC 


AL2( STO-BASE+REG) 




00155A 


47 


FO 


F 


2E8 




BC 


UNC, I NCR 


BR TO GET NEXT DEV. 



* COME HERE IF CUSTOMER CHAIN CARDS USED 



00155E 


91 


20 


F 


798 


LCC 


TM 


PGSW,X«20* 


SEE IF CTRL CDS READ BEFORE 


001562 


47 


80 


F 


5FC 




BC 


NONE tUCBERl 


BR IF NOT. 


001566 


91 


04 


F 


798 




TM 


PGSWrX , 04 > 


SEE IF SHLD BE READING CHAIN CDS. 


00156A 


47 


10 


F 


598 




BC 


ALL tCDMIX 


BR IF YES. 


00156E 


91 


80 


F 


799 




TM 


CCSW^'BO 1 


SEE IF BYPASS SW ON. 


001572 


47 


lo 


F 


57E 




BC 


ALL,G4 


BR IF ON. 


001576 


96 


80 


F 


799 




01 


CCSWrX«80 # 


TURN ON BYPASS SW. 


00157A 


41 


20 


0 


004 




LA 


R2,4 


PUT 4 IN REG 2. 


00157E 


96 


01 


F 


798 




01 


PGSW,X , 01 t 


TURN ON CUST CD SW. 


001582 


02 


3B 


9 


000 F B4E 


MVC 


0(60,R9) ,RDAR+20 


MOVE DATA TO BUFFER ADDR. 


001588 


41 


99 


0 


03C 




LA 


R9,60(R9) 


ADO 60 TO BUFFER ADDR. 


00158C 


46 


20 


F 


14C. 




BCT 


R2,UCB3 


BR TO READ 4 CUSTOMER CARDS 


001590 


94 


7F 


F 


799 




NI 


CCSWtX^F* 


TURN OFF BYPASS SW. 


001594 


47 


FO 


F 


238 




BC 


UNCUCB4 


BR TO CONTINUE 



♦ COME HERE IF CUSTOMER CARDS AND HEX CARDS MIXED 
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001598 


91 08 


F 


799 


CDMIX TM 


CCSW,X«08« 


SEE IF PASS SW ON. 


00159C 


47 10 


F 


14C 


BC 


ALL,UCB3 


BR IF YES, 


0015A0 


OA DO 






SVC 


X»D0» 


INDICATE MIXED CDS* 


0015A2 


6045 






DC 


X«6045» 




0015A4 


F90C 






DC 


AL2 (CAC-BASE+REG) 


MSG ADDRESS. 


0015A6 


47 FO 


F 


60A 


BC 


UNC , SPC 


BR TO PASS CARDS. 



♦ SET UP CUSTOMER CARD DATA HERE 



0015AA 


41 


90 


F 


B8A 


PCCD 


LA 


R9 V PAREA 


PICK UP ADDR OF CUST DATA. 


0015AE 


41 


40 


0 


OOF 




LA 


R4,15 


PUT 15 IN REG 4. 


0015B2 


D2 


03 


F 


B3A F B40 




MVC 


RDAR (4) f RDAR+6 


PUT CHAIN TYPE IN START OF PRNT LINE 


0015B8 


92 


40 


F 


B3E 




MVI 


RDAR+4,C • • 


MOVE A BLANK TO PRINT AREA. 


0015BC 


D2 


2C 


F 


B3F F B3E 




MVC 


RDAR+5(45) ,RDAR+4 


BLANK REST OF AREA. 


0015C2 


41 


30 


0 


008 


SU3 


LA 


R3t8 


PUT 8 IN REG 3. 


0015C6 


41 


10 


F 


B3F 




LA 


Rl»RDAR+5 


PICK UP ADDR OF CUST CD PRINT AREA. 


0015CA 


40 


90 


F 


5DE 


STIT 


STH 


R9 t Bl 


PUT IT IN CONV INSTR. 


0015CE 


40 


10 


F 


5E0 




STH 


R1«B2 


PUT IT IN CONV INSTR. 


0015D2 


94 


OF 


F 


5DE 




NI 


B1,X«0F» 


AND OUT THE 4K BLOCK 


0015D6 


94 


OF 


F 


5E0 




NI 


B2,X«0F« 


AND OUT THE 4K BLOCK 


0015DA 


OA 


DD 








SVC 


X^DD 1 


CONV HEX TO BINARY 


0015DC 


0002 








DC 


AL2(2) 


2 BYTES TO 4 BYTES. 


0015DE 


05DE 






Bl 


DC 


AL2(B1-SECN0) 


FROM HERE 


0015E0 


05E0 






82 


DC 


AL21B2-SECN0) 


TO HERE 


0015E2 


41 


11 


0 


005 




LA 


Rl,5(Ri) 


ADD 5 TO REG 1. 


0015E6 


41 


99 


0 


002 




LA 


R9,2(R9) 


ADD 2 TO REG 9. 


0015EA 


46 


30 


F 


5CA 




BCT 


R3f STIT 


BR TO SET UP 16 BYTE LOGOUT. 


0015EE 


OA 


DO 








SVC 


X»DO« 


PRINT CUST CARD IN OUR FORMAT. 


0015F0 


802C 








DC 


X«802C t 


44 BYTES 


0015F2 


FB3A 








oc 


AL2 ( RDAR-BASE+REG ) 


FROM HERE 


0015F4 


46 


40 


F 


5C2 




BCT 


R4,SU3 


BR TO REINITIALIZE FOR NXT LOG LINE. 


0015F8 


47 


FO 


F 


2D2 




BC 


UNC 9 CAD 


BR TO CHK LOAD BUFFER 



* CONTROL CARDS MIXED WITH DATA CARDS 



0015FC 


91 08 


F 


799 


UCBER1 


TM 


CCSW,X«08» 


SEE IF PASS SW ON. 


001600 


47 10 


F 


14C 




BC 


ALL,UCB3 


BR IF YES. 


001604 


OA DO 








SVC 


X'DO* 


PRINT CTRL CD ERROR. 


001606 


4027 








DC 


X , 4027« 




001608 


F894 








DC 


AL2 ( MI X-BASE+REG) 


MSG ADDR. 


00160A 


96 08 


F 


799 


SPC 


01 


CCSW,X»08» 


TURN ON PASS CD SW. 


00160E 


96 20 


F 


798 




01 


PGSW«X'20 9 


TURN ON CTRL 1ST CD SW. 


001612 


47 FO 


F 


14C 




BC 


UNC, UCB 3 


RETURN FOR NEXT CD. 



* SUPER VI SOR CALL INTERRUPT HANDLER 



001616 


91 04 


F 


007 


DATINT TM 


SNSW+3,X f 04* 


TEST SSW 29. 


00 161 A 


47 10 


F 


66A 


BC 


ALL t FFEX 


BR IF ON. 


00161E 


91 08 


F 


799 


TM 


CCSW,X»08» 


TEST PASS CD SW. 


001622 


47 10 


F 


66A 


BC 


ALL, FFEX 


BR IF ON. 


001626 


91 20 


F 


798 


TM 


PGSW,X»20« 


TEST CTRL 1ST CD SW. 


00162A 


47 10 


F 


636 


BC 


ALL, CCHN 


BR IF ON. 


00162E 


OA DO 






SVC 


X»DO« 


PRINT NO CTRL OR CHN CDS 


001630 


4019 






DC 


X»4019« 


ERROR -25 BYTES 


001632 


F8BB 






DC 


AL2 ( MCC-BASE+REG) 


MSG. ADDRESS 


001634 


OA 06 






SVC 


X»D6« 


-ROUTINE EXIT- 


001636 


91 80 


F 


79A 


CCHN TM 


PRSW^'BO 9 


SEE IF ANY DEVICES HAVE UCS. 


00163A 


47 80 


F 


66C 


BC 


NONE, TBS 


BR IF NOT. 


00163E 


91 08 


F 


798 


TM 


PGSW,X«08* 


SEE IF DATA CARDS WERE READ. 


001642 


47 10 


F 


64E 


BC 


ALL, TRCC 


BR IF YES. 


001646 


OA DO 






SVC 


X'DO' 


PRINT CHAIN CDS MISSING 


001648 


4014 






DC 


X«4014« 


ERROR MSG -20 BYTES- 


00 164 A 


F8D4 






DC 


AL2 ( MAC— BASE+REG1 


MSG. ADDRESS 


00164C 


OA D6 






SVC 


X«D6« 


-ROUTINE EX IT- 


00164E 


91 10 


F 


798 


TRCC TM 


PGSWrXUO* 


SEE IF START SW ON. 


001652 


47 80 


F 


65E 


BC 


NONE, PCM 


BR IF NOT ON. 


001656 


91 05 


F 


798 


TM 


PGSW,X»05« 


TEST CUSTOMER AND HEX CD SWS. 


00165A 


47 80 


F 


66C 


8C 


NONE t TBS 


BR IF NONE ON. 


DATE 
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EC 
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00165E 


OA DO 


PCM 


SVC 


X«DO» 


PRINT CHAIN CDS MISSING 


001660 


6010 




DC 


X^OIO' 


ERROR MSG -16 BYTES- 


001662 


F8D8 




DC 


AL2(CCM-BASE+REG) 


MSG ADDR. 


001664 


OA DO 




SVC 


X'DO^ 


PRINT ANY RESTORED BUFFERS 


001666 


A024 




DC 


X»A024» 


MAY BE IN ERROR DUE TO 


001668 


F8E8 




DC 


AL2 (RME-BASE+REG) 


MISSING CARDS. j 


00166A 


OA D6 


FFEX 


SVC 


X«D6» 


EXIT I 



* SEE IF BUFFERS RESTORED 



00166C 


41 


80 


F 


C84 


TBS 


LA 


R8,CTLSV 


PICK UP CTRL TABLE ADDRESS* 


001670 


41 


30 


0 


OOA 




LA 


R3,10 


PUT 10 IN REG 3. 


001674 


D5 


03 


8 


000 F 770 


TBRS 


CLC 


0(4, R8) ,ZERO 


SEE IF ANY ENTRY IN TABLE. 


00167A 


47 


80 


F 


692 




BC 


EQ,TUCS 


BR IF NO. 


00167E 


91 


01 


8 


002 




TM 


2(R8),X«01» 


SEE IF BUFFER RESTORED. 


001682 


47 


80 


F 


710 




BC 


NONE ,NRES 


BR IF NOT. 


001686 


96 


80 


F 


79B 




01 


RESW,X»80« 


TURN ON BUFFER RESTORED PROG SW. 


00168A 


41 


88 


0 


004 


CABU 


LA 


R8,4(R8) 


ADD 4 TO CTRL TABLE ADDR. 


00168E 


46 


30 


F 


674 




BCT 


R3,TBRS 


BR TO CHECK WHOLE TABLE. 



* SEE IF ANY UCS DEVICES THAT SHOULD BE CONSIDERED FOR RESTORATION 



001692 


41 


30 


0 


OOA 






TUCS 


LA 


R3,10 


PUT 10 IN REG 3. 


001696 


41 


80 


F 


OEO 








LA 


R8,UNIT1 


PICK UP UNIT TABLE ADDRESS . 


00169A 


91 


10 


8 


001 






TFU 


TM 


KR8) ,X'10 V 


SEE IF UCS OPTION ON PRINTER. 


00169E 


47 


10 


F 


6BC 








BC 


ALL, CHKTB 


BR IF YES. 


0016A2 


41 


88 


0 


004 






BMP 


LA 


R8,4(R8) 


ADD 4 TO UNIT TABLE ADDRESS. 


0016A6 


46 


30 


F 


69A 








BCT 


R3,TFU 


CHECK REST OF UNIT TABLE. 


0016AA 


91 


40 


F 


798 








TM 


PGSW,X»40« 


SEE IF ANY UNITS MENTIONED. 


0016AE 


47 


10 


F 


6FC 








BC 


ALL, WATE 


BR IF YES. 


0016B2 


91 


80 


F 


79B 








TM 


RESW,X a 80« 


SEE IF ANY BUFFERS RESTORED. 


0016B6 


47 


80 


F 


738 








BC 


NONE ,NBRM 


BR IF NOT. 


0016BA 


OA 


D6 












SVC 


X«D6» 


ROUTINE EXIT 


0016BC 


41 


40 


0 


OOA 






CHKTB 


LA 


R4,10 


PUT 10 IN REG 4. 


0016CO 


41 


60 


F 


C84 








LA 


R6.CTLSV 


PICK UP ADDRESS OF CTRL TABLE. 


0016C4 


D2 


01 


F 


C80 


8 


002 




MVC 


ADK2) ,2(R8) 


MOVE DEVICE ADDRESS TO WORK AREA. 


0016CA 


94 


07 


F 


C80 








NI 


ADltX'07* 


ZERO ASSIGNED AND REQ BITS. 


0016CE 


D5 


01 


F 


C80 


6 


000 


CTB 


CLC 


AD1 (2) ,0(R6) 


SEE IF DEVICE ALREADY IN TABLE. 


0016D4 


47 


80 


F 


6A2 








BC 


EQ,BMP 


BR IF IT IS. 


0016D8 


41 


66 


0 


004 








LA 


R6,4(R6) 


ADD 4 TO CTRL ADDR. 


0016DC 


46 


40 


F 


6CE 








BCT 


R4,CTB 


BR TO COMPARE WHOLE TABLE. 


0016E0 


OA 


DD 












SVC 


X»DD« 


CONVERT HEX TO BINARY. 


0016E2 


0002 












DC 


AL2C2S 


2 BYTES 


0016E4 


0C80 












DC 


AL2(AD1-SECN0) 


FROM HERE 


0016E6 


098 E 












DC 


AL2(MES~SECN0> 


TO HERE 


0016E8 


OA 


DO 












SVC 


X»DO« 


PRINT A BLANK 


0016EA 


8001 












DC 


X«8001« 




0016EC 


F784 












DC 


AL2 (BLNK-BASE+REG! 




0016EE 


OA 


DO 












SVC 


X«D0» 


PRINT UNUSED DEVICE FOUND 


0016F0 


203D 












DC 


X«203D« 




0016F2 


F987 












DC 


AL2 ( FND— BASE+REGI 




0016F4 


96 


40 


F 


798 








01 


PGSWrX«40« 


TURN ON DEV FOUND SW. 


0016F8 


47 


FO 


F 


6A2 








BC 


UNC, BMP 


BR TO CHK FULL TABLE. 


0016FC 


OA 


DO 










WATE 


SVC 


X«DO» 


PRINT A BLANK 


0016FE 


8001 












DC 


X»8001« 




001700 


F784 












DC 


AL2 ( BLNK-BASE+REG) 




001702 


OA 


DO 












SVC 


X«D0» 


PRINT INSTRUCTIONS FOR UCB LOADING. 


001704 


A03B 












DC 


X»A03B« 




001706 


F9C4 












DC 


A L2 ( I F-* BASE+REGI 




001708 


OA 


DO 












SVC 


X«DO« 


CONTINUE INSTRUCTIONS. 


00170A 


8029 












DC 


X«8029« 




00170C 


F9FF 












DC 


AL2(IF1-BASE+REG> 




00170E 


OA 


06 












SVC 


X*D6« 


-ROUTINE EXIT- 


001710 


91 


02 


8 


002 






NRES 


TM 


2<R8t,X*02« 


TEST SIO ERROR SW. 


001714 


47 


10 


F 


68A 








BC 


ALL,CABU 


BR IF ON. 


001718 


40 


80 


F 


724 








STH 


R8,CV1 


PUT ADDR IN CONV INSTRUCTION. 


00171C 


94 


OF 


F 


724 








NI 


CVltX»0F« 


AND OUT YHE 4K BLOCK. 


001720 


OA 


DD 












SVC 


X«0D* 


CONV HEX TO BINARY. 
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001722 
001724 
001726 
001728 
00172A 
00172C 
00172E 
001730 
001732 
001734 
001738 
00173A 
00173C 
00173E 



001740 
001748 
001750 
001758 
001759 
00175C 



001760 
001761 
001764 



001798 
001799 
00179A 
00179B 
00179C 



0002 
0724 
0A2F 
OA 00 
AO 39 
FA28 
OA 00 
8018 
FA61 

47 FO F 68A 

OA DO 

8014 

FB26 

OA D6 



EB 001B8A 6000 0001 
7B 001B8A 6000 0001 
FB 001B8A 0000 OOFO 
04 

00179C 
20000001 



2 BYTES. 
FROM HERE* 
TO HERE. 

INDICATE BUFFER NOT RESTORED. 



CONTINUE MSG. 



BR BACK TO CHK WHOLE TABLE. 
INDICATE NO BUFFERS RESTORED. 



00 

001758 
OCOOOOOO 



001768 


OOOOOOOF 


0NE5 


DC 


F*15* 


00176C 


00000001 


ONE 


DC 


F'l' 


001770 


00000000 


ZERO 


DC 


F'O' 


001774 


00000000 


WORK 


DC 


2F'0' 


001778 


00000000 








00177C 


00000000 


CSWSV 


DC 


2F'0« 


001780 


00000000 








001784 


40404040 


BLNK 


DC 


X '40404040' 


001788 


C3E3D9D3 


CTRL 


DC 


X»C3E3D9D3' 


00178C 


00000000 


CAWSV 


DC 


F'O' 


001790 


00000000 


BIS 


DC 


2F'0« 


001794 


00000000 









DC AL2(2) 

CV1 DC AL2(CV1-SECN0> 

DC AL2<DEV1-SECN0> 

SVC X'DO' 

DC X'A039» 

DC AL2 ( BNR-BASE+REG) 

SVC X»D0» 

DC X'8018' 

DC AL2 (BNR2-BASE+REG) 

BC UNCtCABU 

NBRM SVC X'DO' 

DC X'8014' 

DC AL2( NORE-BASE+REG) 

SVC X»D6' ROUTINE EXIT. 

* CCWS USED 

LUBCCW CCW X'EB',PAREA f X'60',l -GATE LOAD CCW. 

DCCCW CCW X'7B',PAREA,X'60'a -DATA CHK CCW 

CCW X'FB',PAREA,X*00*t240 -LOAD UCS BUFFER. 

SNS DC X'04» SENSE CCW. 

DC AL3( SNSDAT) 

DC X '20000001' 

* EXPECTEb CSW 

CSWEX DC X'OO' EXPECTED CSW. 

DC AL3(DCCCW+L6» 

DC X« OCOOOOOO' 

* CONSTANTS 



00 
00 
00 
00 
00 



* PROGRAM SWITCHES 



PGSW DC X'OO' 

CCSW DC X'OO' 

PRSW DC X'OO' 

RESW DC X'OO' 

SNSDAT DC X'OO' 

* LOAD UCB START 1-0 ERROR MSG AREA. 



PROGRAM SWITCHES. 
BYPASS SW. 

PROGRAM SWITCHES 



00179D 


40C3C1E640 


CAWP 


DC 


C» CAW • 




0017A2 


E7E7E7E7E7E7E7E7 


CAWD 


DC 


C'XXXXXXXX 


• 


0017AA 


40C3C3E640 


CCWP 


DC 


C* CCW • 




0017AF 


E7E7E7E7E7E7E7E740 


CCWD 


DC 


C'XXXXXXXX 


• 


0017B8 


E7E7E7E7E7E7E7E7 




DC 


C'XXXXXXXX 




0O17C0 


40C3E2E640 


CSWEP 


DC 


C* CSW • 




0017C5 


E7E7E7E7E7E7E7E740 


CSWED 


DC 


C'XXXXXXXX 


t 


0Q17CE 


E7E7E7E7E7E7E7E740 




DC 


C'XXXXXXXX 


EXPECTE* 


0017D7 


C5E7D7C5C3E3C5 










0017DE 


C4 




DC 


CD 1 




0017DF 


40C3E2E640 


CSWAP 


DC 


C CSW • 




0017E4 


E7E7E7E7E7E7E7E740 


CSWAD 


DC 


C'XXXXXXXX 


* 


0017ED 


E7E7E7E7E7E7E7ET40 




DC 


C'XXXXXXXX 


ACTUAL* 


DATE 
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0017F6 C1C3E3E4C1D3 

0017FC 40E2D5E240 

001801 F0F040C5E7D7C5C3E3 

00180A C5C4 

00180C 40E2D5E240 

001811 E7E740C1C3E3E4C1D3 



SNSEP DC 
SNSED DC 



C * SNS • 

C*00 EXPECTED • 



SNSAP DC C SNS • 
SNSAD DC C'XX ACTUAL' 

* MESSAGES 

****^******************************^^ 



00181A 


F2F8F2F140E4C3C240 


TITLE 


DC 


C 


•2821 UCB RESTORE • 


001823 


D9C5E2E3D6D9C5 










00 182 A 


40D9E3D5 




DC 


C 


• RTN' 


00182E 


C3E3D9D340C4C1E3C1 


MSG1 


DC 


C 


•CTRL DATA AT • 


001837 


40C1E340 










00183B 


C1C4C4D940 




DC 


C 


•ADDR • 


001840 


E7E7E7E7E7E740C6D6 


ADDR 


DC 


C 


•XXXXXX FOR ALTER* 


001849 


D940C1D3E3C5D9 










001850 


D5D6 


NO 


DC 


C 


•NO' 


001852 


40E4C3C240D9C5E2E3 


CORLD 


DC 


C 


• UCB RESTORED WI • 


00185B 


D6D9C5C440E6C9 










001862 


E3C840 




DC 


C 


•TH • 


001865 


D5D640C2D3D6C3D240 


BDM 


DC 


C 


•NO BLOCK DATA CH' 


00186E 


C4C1E3C140C3C8 










001875 


D240C1D5C440 




DC 


C 


•K AND • 


00187B 


D5D640C6D6D3C4C9D5 


FOLD 


DC 


C 


•NO FOLDING • 


001884 


C740 










001886 


E4E2C9D5C740 




DC 


C 


•USING • 


00188C 


C3C8C1C9D540 


MSG2 


DC 


C 


•CHAIN • 


001892 


E7E7 


CHN1 


DC 


C 


•XX' 


001894 


C3E3D9D340C3C4E240 


MIX 


DC 


C 


'CTRL CDS MISSING* 


00189D 


D4C9E2E2C9D5C7 










0018A4 


40D6D940D4C9E7C5C4 




DC 


C 


• OR MIXED* 


0018AD 


40E6C9E3C840C4C1E3 




DC 


C 


• WITH DATA CDS* 


0018B6 


C140C3C4E2 










0018BB 


D4C9E2E2C9D5C740C3 


MCC 


DC 


C 


'MISSING CTRL AND* 


0018C4 : 


E3D9D340C1D5C4 










0018CB 


40C4C1E3C140C3C4E2 




DC 


C 


' DATA CDS* 


0018D4 


C1D3D340 


MAC 


DC 


C 


•ALL • 


0018D8 


C4C 1 E3C 140C3C4E240 


CCM I 


DC 


c 


•DATA CDS MISS* 


0018E1 


D4C9E2E2 










0018E5 


C9D5C7 




DC 


c 


•ING* 


0018E8 


C1D5E840D9C5E2E3D6 


RME 


DC 


c 


•ANY RESTORED BUF • 


0018F1 


D9C5C440C2E4C6 










0018F8 


C6C5D9E240D4C1E840 




DC 


c 


•FERS MAY BE IN E* 


001901 


C2C540C9D540C5 










001908 


D9D9D6D9 




DC 


c 


•RROR* 


00190C 


C5C9E3C8C5D940C3E4 


CAC 


DC 


c 


•EITHER CUSTOMER • 


001915 


E2E3D6D4C5D940 










00191C 


C1D5C440C8C5E740C3 




DC 


c 


•AND HEX CDS MI • 


001925 


C4E240D4C9 










00192A 


E7C5C440D6D940D6D5 




DC 


c 


•XED OR ONE TYPE • 


001933 


C540E3E8D7C540 










00193A 


C9E240C9D5C1C4C5D8 




DC 


c 


•IS INADEQUATE IN* 


001943 


E4C1E3C540C9D5 










00194A 


40D5E4D4C2C5D9 




DC 


c 


• NUMBER* 


001951 


40E3C9D640D3D6D6D7 


TIOTO 


DC 


c 


• TIO LOOP RECEIV* 


00195A 


40D9C5C3C5C9E5 










001961 


C5E240E2D6D3C9C440 




DC 


c 


•ES SOLID CHANNEL* 


00196A 


C3C8C1D5D5C5D3 










001971 


40C2E4E2E840C6D9D6 




DC 


c 


» BUSY FROM THIS • 


00197A 


D440E3C8C9E240 










001981 


C4C5E5C9C3C5 




DC 


c 


•DEVICE • 


001987 


C4C5E5C9C3C540 


FND 


DC 


c 


•DEVICE • 


00198E 


E7E7E7E740 


MES 


DC 


c 


•xxxx * 


001993 


C1E2E2C9C7D5C5C440 




PC 


c 


•ASSIGNED BY DM D* 


00199C 


C2E840C4D440C4 










00 19 A3 


D6C5E240D5D6E340C8 




DC 


c 


•OES NOT HAVE DAT* 


0019AC 


C1E5C540C4C1E3 










DATE 


15 NOV 66 










EC 
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0019B3 


C140C6D6D940E4C3C2 


DC 


CA FOR UCB RESTORE 


0019BC 


40D9C5E2E3D6D9 






0019C3 


C5 


DC 


CE* 


0019C4 


C9C640C4C5E2C9D9C5 


IF DC 


CIF DESIRED TO RE • 


0019CD 


C440E3D64009C5 






0019D4 


E2E3D6D9C540C1D5E8 


DC 


C • STORE ANY DEVICE* 


0019DD 


40C4C5E5C9C3C5 






0019E4 


E240E3C8C1E340C4D6 


DC 


CS THAT DO NOT HA* 


00 19 ED 


40D5D6E340C8CI 






0019F4 


E5C540E3C8C540C4C1 


DC 


CVE THE DATA* 


0019FD 


E3C1 






0019FF 


C3D6D5E2E4D3E340E3 


IF1 DC 


C 'CONSULT THE DESC 


001A08 


C8C540C4C5E2C3 






OOIAOF 


D9C9D7E3C9D6D540C6 


DC 


CRIPTION FOR THE • 


001A18 


06D940E3C8C540 






001A1F 


D7D9D6C3C5C4E4D9C5 


DC 


C 'PROCEDURE • 


001A28 


C4C5E5C9C3C540 


BNR DC 


CDEVICE • 


001A2F 


E7E7E7E740E4C3C240 


DEVI DC 


CXXXX UCB NOT RES' 


001A38 


D5D66340D9C5E2 






001A3F 


E3D6D9C5C440C4E4C5 


DC 


CTORED DUE TO INS 8 


001A48 


40E3D640C9D5E2 






001A4F 


E4C6C6C9C3C9C5D5E3 


DC 


CUFFICIENT DATA C 


001A58 


40C4C1E3C140C3 






001A5F 


C4E2 


DC 


CDS' 


001A61 


D6D940E6D9D6D5C740 


BNR2 DC 


COR WRONG CTRL DE* 


001A6A 


C3E3D9D340C4C5 






001A71 


C6C9D5C9E3C9D6D5 


DC 


CFINITION* 


001A79 


D4C1D2C540C4C5E5C9 


IR DC 


CMAKE DEVICE ROY* 


001A82 


C3C540D9C4E8 






001A88 


C4C5E5C9C3C540D5D6 


DNT DC 


C 'DEVICE NOT OPERA* 


001A91 


E340D6D7C5D9C1 






001A98 


E3C9D6D5C1D3 


DC 


C'TIONAL' 


001A9E 


40C5D9D9D6D940D6D5 


TBL DC 


C ERROR ON UCB LO* 


001AA7 


40E4C3C240D3D6 






001AAE 


C1C440E2C9D6 


DC 


CAD SIO' 


001AB4 


40E2D5E240E2C9D640 


SNER DC 


C SNS SIO AFTER U' 


I 001ABD 


C1C6E3C5D940E4 






001AC4 


C3C240D3D6C1C440C1 


DC 


CCB LOAD ATTEMPT-* 


0Q1ACD 


E3E3C5D407E360 






001AD4 


4005D6E340C1C3C3C5 


DC 


C NOT ACCEPTED* 


001 ADD 


D7E3C5C4 






001AE1 


40E2D5E240E2C9D640 


STO DC 


C SNS SIO AFTER U* 


001AEA 


C1C6E3C5D940E4 






001AF1 


C3C240D3D6C1C440C1 


DC 


CCB LOAD ATTEMPT * 


001 AF A 


E3E3C5D4D7E340 






001B01 


C4C9C440D5D6E340D9 


DC 


CDID NOT RECEIVE • 


001 BOA 


C5C3C5C9E5C540 






001B11 


C1E5C1C9D3C1C2D3C5 


DC 


C AVAILABLE FROM D* 


001B1A 


40C6D9D6D440C4 






001B21 


C5E5C9C3C5 


DC 


C*EVICE* 


001B26 


40D5D640C2E4C6C6C5 


NORE DC 


C* NO BUFFERS REST' 


001B2F 


D9E240D9C5E2E3 






001B36 


D6D9C5C4 


DC 


CORED* 












♦ VARIABLE AREA 








001B3A 


000000000000000000 


RDAR DC 


BXLIO'OO' READ IN AREA 


001B43 


00 






< 001B44 


000000000000000000 






001B4D 


00 






001B4E 


000000000000000000 






001B57 


00 






\ 001B58 


000000000000000000 






001B61 


00 






001B62 


000000000000000000 






001B6B 


00 






001B6C 


000000000000000000 






001B75 


00 
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001B76 
001B7F 
001B80 
001B89 
001B8A 
001C7C 
001C80 
001C84 
001C88 
001C8C 
001C90 
001C94 
001C98 
001C9C 
001CA0 
001CA4 
001CA8 
001CAC 



000000000000000000 
00 

000000000000000000 
00 

00000001 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 



PAREA 
CHNO 
AD1 
CTLSV 



DS 
DC 
DC 
DC 



240C 
F*l* 
F*0* 
10F*0' 



CTRL TABLE 



BUFEND DS C 

* EQUATES * 





* 

* 


GENERAL v REGISTER EQUATES 






000000 


RO 


EQU 


0 






UUUUU 1 


Q 1 


EQU 


1 






000002 


R2 


EQU 


2 






000003 


R3 


EQU 


3 






000004 


R4 


EQU 


4 ; 






000005 


R5 


EQU 


5 






000006 


R6 


EQU 


6 






000007 


R7 


EQU 


7 






000008 


R8 


EQU 


8 






000009 


R9 


EQU 


9 






OOOOOA 


RIO 


EQU 


10 






OOOOOB 


Rll 


EQU 


11 






OOOOOC 


R12 


EQU 


12 






OOOOOD 


R13 


EQU 


13 






OOOOOE 


R14 


EQU 


14 






OOOOOF 


R15 
* 


EQU 


15 








* 


CONDITION CODE EQUATES 






000008 


NONE 


EQU 


8 


ALL OFF 0 




000005 


ANY 


EQU 


5 


ANY ON 


1 3 


000001 


ALL 


EQU 


1 


ALL ON 


3 


000004 


SOME 


EQU 


4 


MIXED 


1 


000009 


NMIXED 


EQU 


9 


NOT MIXED 0 


3 


000008 


EQ 


EQU 


8 


EQUAL 0 




000006 


UNEQ 


EQU 


6 


NOT EQUAL 


1 2 


000004 


LO 


EQU 


4 


LOW 


1 


000002 


HI 


EQU 


2 


HIGH 


2 


000008 


Z 


EQU 


8 


ZERO 0 




000002 


POS 


EQU 


2 


GREATER ZERO 


2 


000008 


CCO 


EQU 


8 


AVAILABLE 0 




000004 


CC1 


EQU 


4 


CSW STORED 


1 


000002 


CC2 


EQU 


2 


BUSY 


2 


000001 


CC3 


EQU 


1 






OOOOOF 


UNC 


EQU 


15 


UNCONDITIONAL 0 


12 3 


000007 


NCCO 


EQU 


7 


NOT CC 0 


12 3 


OOOOOB 


NCC1 


EQU 


11 


CSW NOT STORED 0 


2 3 


OOOOOD 


NCC2 


EQU 


13 


NOT BUSY 0 


1 3 


000004 


NOTZRO 


EQU 


4 


NOT ZERO - AND - 


I 


OOOOOC 


MIXNON 
* 


EQU 


12 


MIXED OR NONE 0 


1 






GENERAL EQUATES 






000040 


HCSM 


EQU 


64 


HARDWARE CSW LOCATION 
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000048 


HCAW 


EQU 


72 


001C7F 


CHINO 


EQU 


CHNO+3 


001C81 


A02 


EQU 


AD1+1 


OOOOOC 


EQLO 


EQU 


12 


OOOOOA 


EQHI 


EQU 


10 


000198 


MA IT 


EQU 


408 


OOFOOO 


REG 


EQU 


X«FOOO« 


001000 


BASE 


EQU 


SEC NO 






END 





HAROMARE CAM LOCATION 



DATE 
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EC 



1 


8 


Z 
















2 


15DE 


Bl 


15CA, 


15D2, 


15DE 










2 


15E0 


B2 


15CEt 


15D6, 


15E0 










4 


1334 


CF 


132C 














1 


8 


EQ 


HAOt 
16D4 


1228, 


1284, 


1292, 


12E4, 


13DC, 


167A 


4 


157E 


G4 


1572 














1 


2 


HI 
















16 


19C4 


IF 


1706 














15 


1A79 


IR 


13E8 














1 


4 


LO 
















4 


1344 


LS 


133C, 


13EC, 


1536 










2 


1850 


NO 


1358* 


136C 












1 


0 


RO 
















1 


1 


Rl 


129A, 


129E, 


12A8, 


12A8, 


12AC, 


12F0, 


12F4 








12F4, 


12F8, 


14B6, 


14BA, 


14BE, 


14£4# 


14EC 








14EC, 


14F4, 


15C6, 


15CE, 


15E2, 


15E2 




1 


2 


R2 


1296, 


129E, 


12A4, 


12A4, 


157A, 


158C 




1 


3 


R3 


1186, 
168E, 


11A8, 
1692, 


12D6, 
16A6 


12EC, 


15C2, 


15EA, 


1670 


1 


4 


R4 


15AE, 


15F4, 


16BC, 


16DC 








1 


5 


R5 


1474, 


14F8, 


1502, 


1506, 


151E V 






1 


6 


R6 


16C0, 


16CE, 


16D8, 


16D8 








1 


7 


R7 


1144, 


1240, 


1240, 


12CA, 


12FC, 


12FC 




1 


8 


R8 


118C, 


1190, 


11B0, 


11EC, 


12DA, 


12DE, 


12E8 








12E8, 


1320, 


1328, 


1338, 


1354, 


13AC, 


13F6 








1484, 


166C, 


1674, 


167E, 


168A, 


168A, 


1696 








169A, 


16A2, 


16A2, 


16C4, 


1710, 


1718 




1 


9 


R9 


1148, 
1588, 


12B6, 
15AA, 


12C6, 
15CA, 


12C6, 
15E6, 


12FE, 
15E6 


1582, 


1588 


4 


1C80 


AD1 


1190, 
16E4, 


1196, 
1CAD 


119A, 


11CA, 


16C4, 


16CA, 


16CE 


4 ; 


1C81 


AD2 


11F8 














1 


1 


ALL 


111C, 


1154, 


11D2, 


1218, 


1234, 


1266 f 


1402 








1424, 


142C, 


14A6, 


14AE, 


1536, 


156A, 


1572 








159C, 


1600, 


161A, 


1622, 


162 A, 


1642 1 


169E 








16AE, 


1714 












1 


5 


ANY 


116A 














16 


1865 


BDM 


1358, 


1366 












4 


1280 


BHD 


1266 














4 


1790 


BIS 


1438, 


143E, 


1450, 


1456, 


14CE, 


14D4 




4 


' 16A2 


BMP 


16D4, 


16F8 












7 


1A28 


BNR 


172C 














16 


190C 


CAC 


15A4 














4 


12D2 


CAD 


1292, 


15F8 












4 


1048 


CAM 
















1 


8 


cdo 


1396, 


151A 












1 


4 


CC1 


139A, 


13CE, 


1418 










1 


2 


CC2 


13C2 














1 


1 


CC3 


139E 














13 


18D8 


CCM 


1662 














6 


136C 


CFL 


1362 














4 
8 


11CE 
1040 


CSU 
CSM 


11AC, 


11B4 












6 


16CE 


CTB 


16DC 














2 


1724 


CV1 


1718, 


171Ct 


1724 










2 


12C4 


CVD 


12B6, 


12BA, 


12C4 










16 


1A88 


DNT 


13F4 














7 


1987 


FND 


16F2 














2 


100A 


ICM! 
















16 


19 FF 


IF1 


170C 
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4 


155E 


LCC 


1228 
















1C7C 


CHN0 


124C, 


2 


1252 


LCT 


1244 














? 


14CA 


CNV2 


14BE, 


4 


18D4 


MAT 

HAL 


164A 














4 


118C 


CT AB 


11A8 


io 


18BB 


urr 


1 ATI *> 














4 


1788 


CTRL 


115C 


6 


129E 


MDA 


12B2 














16 


IA2F 


DEV 1 


1726 




i one 

170C 


ucc 


1 AP A 

loco 














1 


A 


EQHI 




lo 


1894 


U IV 

n lA 


1608 














1 


C 


EQL0 






1 TAT 


UIMC 


1 l*t*r, 


1 a"H# 












2 . 


166A 


FFEX 


161A, 


2 


i ?n? 


PBK ' 


lien 
uru 














ll 


187B 


FOLD 


136C, 


2 


165E 


PCM ' 


1652 














1 


48 


HC AW 


1348, 


A 

*r . 


l&OC 


DTD 

r tr 
















1 


40 '. 


HCSW 


13B4, 


A 


i aAn 


r UIV 


1 a7A 
XD 1 O 














4 1 


12E8 


INCR 


1386, 




2 


P0S 
















13 


182E 


MSG1 


1200 




1186 


PRC 
















6 


188C 


MSG2 


1274 




A 


R 10 


1344, 


1348, 


134C , 


138A , 


138E , 


13A2 , 


14FA 


*> 

A 


1 7 )0 
1 1 DO 


NBRM 


16B6 








14FE 














1 


7 


NCC0 


13C6, 


I 




Rll 


118Af 


1 1 8A , 


118C , 


11A4, 


11A4, 


11BC , 


11BC 


1 


B 


NCC1 










1 1C0, 


1 iv*o, 


1 1 r A. 


1 1 r a . 

1 Al*A , 




1 "an a 




1 


0 


NCC2 




I 




R 12 


1320f 


13BE , 


1 Al A. 




1 11 A 
1 ?iu 






1 


8 


NONE 


1112, 




D 


R 13 


1 10C ? 


HOC , 


1116, 


1348, 


13B4 , 


13B4 , 


13D8 








1220, 








13FEf 


1406, 


140E , 


14FE 














1 a or 
1481*, 






R14 


HOE, 


138A, 


1502 
















16B6 


| 


p 


R15 


1116 














1 A 
IO 


1 ADA 
lDAO 


Kino c 
NURt 


1 *rar 

1 f D\t 




F000 


REG 


H2C t 


11E2, 


1200, 


1206, 


126E , 


1274 # 


127E 


4 


1 1 1U 


KID PC 


1682 








128C, 


1384, 


13AA, 


13E8, 


13F4^ 


146C, 


1472 


A 


13F0 


NT0P 


139E 








147C, 


1482, 


1494 y 


149A , 


14A0, 


14E2 1 


154E 


1 


1UUU 


MI ITP 
NU 1 C 










1558y 


1 3AH , 




1 Ann ^ 

lOUO f 


1 Aa.9 - 
103A , 


1 AAA - 


1 AA? 


4 '. 


1768 


0NE5 


12CA 








1668 9 


16EC, 


1 AC O 

A Or 4b f 


A ivUf 


1 70A . 


1 7nr * 


1T2C 


A ■ 


1 K A A 
13 A A 


PCCD 


1284 








1717 


] far 












2 


1 IDE 


PCTC 


11D2 


1 A 
IO 


1 A PA 

loco 


BMP 


1 AAA 
lOOO 














1 


1798 


PGSW _ 


112E, 






C PD 


1 AA A 




















1230, 




1 aA A 


cm 




1 ar 9. 

13V A, 


1 49 A 
















1306, 


1 

JL 


1 7«»A 


CMC 


1 APA 




















163E, 


A, 


1 AHA 


cor 


1 <\A A 














1 


179A 


PRSW 


1136, 


1 A 


1 A P 1 


C Tn 

O 1 U 


ID-JO 




















152A, 


4 


1 Sf "» 

1!>1»A 


ci la 


15F4, 














10 


1B3A 


RDAR 


114E, 


£ 




cue 


13DC 




















128C, 


t A 


1 toe 


TBL 


14A0 




















15B2, 




i AAr 


T AC 


163A, 


165A 












1 


179B 


RESW 


113A, 


A 


t AO A 
lOYA 


I ru 


16A6 














4 


14F4 


RRGS 


I4E8 


4 




Tin 

I 10 


13A2t 


13E0 












6 


13B4 


SI01 


1396 


2 


1554 


TOM 


14AE 














4 


150E 


SI02 




1 


F 


UNC 


llACt 


1208, 


1244, 


130A, 


131C, 


1386, 


13B0 


16 


1AB4 


SNER 


154E 








13D6, 


13E0, 


13EC, 


13FA, 


14B2, 


14F0, 


14F8 


4 


1004 


SNSW 


1118, 








1526, 


152E, 


1546, 


1550, 


155A, 


1594, 


15A6 








130E, 








15F8, 


1612, 


16F8, 


1734 








1 


4 


SOME 




16 


1840 


ADDR 


UFA 














4 


HBO 


STDT 


11A0 


4 


1000 


BASE 


112C, 


11E2, 


1200, 


1206, 


126E , 


1274, 


127E 


4 


15CA 


ST IT 


15EA 








128C, 


1384, 


13AA, 


13E8, 


13F4, 


146C, 


1472 


4 


12F0 


SUNC 










147C f 


1482, 


1494, 


149A, 


14A0, 


14E2, 


154E 


6 


1674 


TBRS 


168E 








1558, 


15A4, 


15F2, 


1608, 


1632, 


164A, 


1662 


4 


1224 


TCCS 


1312, 








1668, 


16EC, 


16F2, 


1700, 


1706, 


170C, 


172C 


4 


13D8 


TFER 


139 A 








1732, 


173C 












4 


130E 


THLT 


1220 


4 


1784 


BLNK 


1206, 


126E, 


127E, 


12 AC, 


1366, 


137A, 


146C 


4 


13CA 


TI01 


13D2, 








16EC, 


1700 












4 


1414 


TI02 


141C 


16 


1A61 


BNR2 


1732 














4 


152A 


TI03 


1512 


4 


1320 


BYCP 


12E4 














4 


1516 


TI04 


151E 


4 


168A 


CABU 


1714, 


1734 












4 


164E 


TRCC 


1642 


8 


17 A2 


CAWD 


1466 














4 


1692 


TUCS 


167A 


5 


179D 


CAMP 


1472 
















10E1 


U10P 




4 


1636 


CCHN 


162A 
















10E5 


U20P 




1 


1799 


CCSH 


1132, 


1214, 


156E, 


1576, 


1590, 


1598* 


15FC 




10E9 


U30P 










160A, 


161E 














10 ED 


U40P 




9 


17 AF 


CCWD 


14CC, 


14CE, 


1404, 


14DA 










10F1 


U50P 




5 


17 AA 


CCWP 


14E2 
















10F5 


U60P 




4 


14FA 


CF12 


142C 
















10F9 


U70P 




6 


12DE 


CHKD 


12EC 
















10FD 


U80P 




2 


1892 


CHN1 


1258 
















1101 


U90P 
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12DE, 
14C2, 



1622 
137 A 
14FE 
13B4, 
13B0, 



1124, 
123C, 
14E8, 



1616 



131C 
140A 



12F0, 12F8, 1CAD 
14CA 



13D8, 13FE, 1406, 140E 
13FA, 14B2, 1550, 155A 



13D2, 141C, 1512 



11B4, 
125E, 
1562, 



11DA, 
1312, 
163A, 



11E8, 
132C, 
1652, 



11F0, 

IBBCf 
165A, 



1210 
140A 
1682 



1158, 


1166, 


116E, 


120C, 


121C, 


122C 


1238, 


1248, 


1262, 


1276, 


1202, 


1302 


1318, 


155E, 


1566, 


157E, 


160E, 


1626 


164E, 


1656, 


16AA, 


16F4 






11B8, 


13BA, 


1488* 


14A2t 


14AA, 


1522 


153A, 


1636 










115C, 


1172, 


1178, 


11E2, 


1224^ 


1280 


128E, 


1296, 


129A, 


12C2, 


1582, 


15B2 


15B8, 


15BC, 


15BC, 


15C6, 


15F2 




1686, 


16B2 










1120, 


1150, 


I ICE, 


11D6, 


1114, 


125A 



• ID F 837-0 ! 
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DATE 
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I 


1105 


UAOP 














4 


1118 


UCB1 


1112 












4 


112E 


UCB2 


111C, 


1124 










2 


114C 


UCB3 


1154, 
158C, 


11DA, 
159C, 


11E8, 
1600, 


1208, 
1612 


1218, 


12CE 9 


4 


1238 


UCB4 


1594 












1 


6 


UNEQ 


1162, 


12B2, 


12CE, 


1362, 


1376 




1 


198 


WAIT 


138A, 


1502 










2 


16FC 


MATE 


16AE 












4 . 


1774 


WORK 


1172, 

14F4 


1178, 


1182, 


1184, 


119A, 


11C0, 


4 


1770 


ZERO 


1674 












4 


14BE 


AGAIN 


14F0 












4 


178C 


CAWSV 


134C, 


1464, 


14BA 








4 


1598 


COM IX 


1234, 


156A 










4 


1C7F 


CHINO 


1256 












4 


16BC 


CHKTB 


169E 












4 


13FE 


CONDI 


13CE 












16 


1852 


CORLD 


1384 












9 


17E4 


CSWAD 


1436, 


1438, 


143E, 


1444 






5 


17DF 


CSWAP 


1482 












9 


17C5 


CSWEO 


144E, 


1450, 


1456, 


145C 






5 


17C0 


CSWEP 


147C 












1 


1760 


CSWEX 


144C 












4 


177C 


CSWSV 


140E, 


1420, 


1428, 


1434 






4 


1C84 


CTLSV 


113E, 


113E, 


11BC, 


12DA, 


166C* 


16C0 


8 


1748 


DCCCW 


1324, 


1330, 


1334, 


1340, 


135E, 


1372, 


1 


100E 


FLAG1 














1 


100F 


FLAG2 














4 ' 


1248 


INITE 


123C 












5 


1010 


INPSW 














1 


1B8A 


PAREA 


1148, 


12FE, 


15AA, 


1740, 


1748, 


1750 


4 ' 


14B6 


PCCWS 


1474 












2 


149C 


PUCER 


148C 












4 


1000 


SECNO 


114E, 


1182, 


1184, 


11F8, 


UFA, 


1256, 








12C2, 


12C4, 


1434, 


1436, 


144C, 


144E* 








1466, 


14CA# 


14CC, 


1542, 


1544* 


15DE, 








16E4, 


16E6, 


1724, 


1726, 


1CAD 




9 


1811 


SNSAD 


1544 












5 


180C 


SNSAP 


149A 












11 


1801 


SNSED 














5 


17FC 


SNSEP 


1494 












16 


1951 


TIOTO 


13AA 












16 


181A 


TITLE 


112C 












4 


120C 


UCBCH 


1162 












1 


10E0 


UNIT1 


118C, 


1696 










1 


10E4 


UNITS 














1 


10E8 


UNIT3 














1 


10EC 


UNIT4 














1 


10F0 


UNIT5 














1 


10F4 


UNIT6 














1 


10F8 


UN ITT 














1 


10FC 


UNITS 














1 


1100 


UNIT9 














1 


1104 


UNITA 














1 


1CAC 


BUFEND 














4 


1532 


CHKSNS 


151A 












2 


1430 


CNVRST 


1526, 


152E, 


1546 








4 


1616 


DAT I NT 


1065 












8 


1058 


EXNPSW 














8 


1018 


EXOPSW 














8 


1078 


IONPSW 














8 


1038 


IOOPSW 














8 


1740 


LUBCCW 


1344 












8 
8 


1070 
1030 


MCNPSW 
MCOPSW 














1 


C 


MIXNON 














1 


9 


NN1XE0 















1761 



1258 
1464 

15E0 
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15 NOV 66 
125655 



ID F837-0 
PAGE 10 



1 


4 


NOTZRO 


8 


1068 


PGNPSW 


8 


1028 


PGOPSW 


4 


1080 


REGDMP 


2 


1108 


ROUT 01 


6 


140E 


SIOERR 


1 


179C 


SNSDAT 


5 


1060 


SVNPSW 


8 


1020 


SVOPSW 


2 


10E2 


U1ADDR 


2 


10E6 


U2ADDR 


2 


10EA 


U3ADDR 


2 


10EE 


U4ADDR 


2 


10 F2 


U5ADDR 


2 


10F6 


U6AD0R 


2 


10FA 


U7AD0R 


2 


10FE 


U8ADDR 


2 


1102 


U9AD0R 


2 


1106 


UAADOR 


4 


15FC 


UCBER1 


1 


1000 


XF8370 



1015 

13C6, 

150A, 



1402, 
1532, 



1418 
1542, 



1759 



116A, 1210, 1562 



NO ERROR DETECTED IN ABOVE ASSEMBLY 



DATE 
EC 



15N0V66 
125655 



ID F837-0 
PAGE 10A 



<~V) /On 



3 o o o 3 a ooooooooaooooooooooooooo 



o c o o o o o c o o o o c 



IBM MAINTENANCE DIAGNOSTIC PROGRAM P/N 840541 

PAGE 11 

1403 BUFFER RESTORE 



PERIOOS CORRESPOND TO BLANK COLUMNS* 

COLS* I THROUGH 20 COLS. 21 THROUGH 40 



BESD. 
9 



BTXT.AAA. 
9 YQY 
999 

BTXT.AA8* 
9 YQ9 
99 

BTXT.AAO. 
9 YQ+ 

99- 

BTXT.AAS. 
9 YQ8 
99 

BTXT.AJQ. 

9 Y99 
9 

BTXT.AJ+. 
9 Y9 

9 

BTXT.AJH. 

9 Y90 
9 

BTXT. A JO* 

9 Y9+ 
9 

BTXT* AJ8* 
9 Y9 
9 

BTXT. AKA. 
9 Y9Q 
9 Z 

BTXT.AKQ. 

9 Y9Z 
9 

BTXT.AKJ. 
9 Y9Y 
9 

BTXTcAKQ. 
9 Y9 
9 

BTXT* ALA* 

9 Y9Q 

9 9 

BTXT* ALH* 

9 Y9Z 
9 



• AA. • AAXF83 
YQ Y9 
99 9 

.A8..AA8TAA 
Y9 Y9 9YY 
9 9 99 

• A8* • AAAAAA 

Y9 Y9YYYY 
9 9 9999 

• AA* • AAAAAA 

YQ Y9YYYY 
99 9 9999 

• A8* • AACAAA 
Y9 Y90YYY 
9 9 9 9 

• A8* • AAADOG 
Y9 Y9-9 9 
9 9 

*A8** AAADOG 
Y9 Y9-9 9 
9 9 

• A8. • AAABLC 
Y9 Y9Y88Q 
9 9 9990 

.A8..AAKCAA 
Y9 Y9 9QY 
9 9 09 

• A8* • AADAH* 
Y9 Y9809 
9 9 9 

• A8* • AAAA7H 
Y9 Y9-9 - 
9 9 

.A8..AA2AB0 

Y9 Y9 Y8- 
9 9 9 

* A8* • AAJAAA 

Y9 Y9YYQY 
9 9 9999 

« A8*« AAABAA 
Y9 Y9Y8ZY 
9 9 99 

• A8**AA0GGA 

Y9 Y9 9ZY 
9 9 

*A8»*AA+NAH 
Y9 Y9 YYZ 
9 9 9 



70..AAAA.ADN 

YYQY Y8Y 
9999 99 

AAAAAAAAABAAADAAAAJH 
YYYYYYYYY8YY99YYYY99 
9999999999 9 9999 

AAA AAA AAA AAA AA AAAAAA 

YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 



AAAAAAAAAAAA 

YYYYYYYYYYYY 
999999999999 

CAAACAAACAAACAAACAAA 
OYYYOYYYOYYYOYYYOYYY 
999 999 999 999 999 

GA1WAB0DGA1WB0AM8KDA 
ZQ 8-9 9ZY 88- Y9 8-Y 
9 9 99 9 9 

GA1DDP7HNCC27HG-2DAA 
ZQ 8-Y - 9Q8 OZ 8-8 
9 9 Z9 9 9 

AC0SKADAABDGDANADA7D 
ZY 8 9QYY9-9QY 9QY R 
Z Z Z 0 

7DACAB+ADAAA0GGA 1FAB 
RZQY9 QQY-9 9ZQ Q-9 
0 09 OZ 9 9 

BOAS 8WB0AA7DG0 IDA J7H 
8-Y9 88-Y9 OZ 8-Y - 
9 99 9 

GA5HAH7HGA2HAGAAG02B 
ZQ —9 -ZY ZZRY9Z R 
9 09 

AA7DB0AH8DFB7HB0AA7D 
Y9 08- Y9 Y-9 -8-Y 9 0 
9 9 

ASADAJAENCAA7DG-2F.A 
Z9Y9Z9Y9 9QY OZ Q Q 
9 9 99 

DDNAACD7GA3JAHADFA2F 
QO YY9Q8ZY YZ0Y9ZQ Q 
Z 9 Z 9 9 Z 9 

2UBBFA7HG02UHHAAB37H 
98Q-Y -Z 9Z YY-8 Z 
99 99 

♦J7DEA3BFAABKA8N8+EC 
Y YZQ Y-9Y9 9 1 -R 
0 0 



COLS. 41 THROUGH 60 
840 



AAAA AAA AAAAAA AAA AAAA 

YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

AAAA AAA A AAAA A AAA AD A A 

YYYYYYYYYYYYYYYY99YY 
9999999999999999 99 



CAAACAAACAAACAAAAAGG 
0YYY0YYY0YYY0YYY9YQQ 
999 999 999 999 9ZZ 

7HDA7IDA7BBA7CPXDDDD 
— Y — Y Q-Y Q 9Q0Q0 
9 9 9 Z Z 

7HG+ 5D F J7H KC7 DC7 KC7 H 

-Z Q-Y - 9 RQ8 9 R 

Z 9 0Z9 0 

GA1AACADFA1DG01FAAAA 
ZY QZQY9ZQ YZ Y-QY9 

0 09 Z 9 9 

0GGA1DB0AGC2AB0GGA1D 

9ZY 88-Y8Q8-9 9ZY 8 
9 9Z9 

GA5DAH7IGA1DAA7HGA3F 

ZY Q-9 -ZQ 8-Y -ZY 8 
Z 9 9 

FH7HKC D47UBEAAD7HBAA 

-9 - 9Q8 88QY9889 — 9 
Z 999 9 

E/C2GA5KB0ABC2E/C2GA 
- Q8ZY Y8-Y8Q8- Q8ZY 
Z9 9 Z9 Z9 

2DDG2DBDAJC2BDAI AAEO 
-8 8QYY889 Z-YQR+ 
9 999999 99 - 

HAD4AJAA+AD4LGAACBDB 
RQQ8Z9Y9 QQ88RZQQY-Q 
9Z 9 9Z 90 Z 0 

AAABGA34BC7HBC7+ A* AB 

-YY9ZY 9-R Z-Q - Y9 
0 Z 

7HG-3UKA8N7DKA838+E3 

ZZ 8 9 Z 0 9 8 - 



COLS. 61 THROUGH 80 
542. 125655. .83700001 



AAAAAA AAA A AA83700002 

YYYYYYYYYYYY 

999999999999 

AAOOAAAAAAAA83700003 

YY99YYYYYYYY 

99 99999999 



•83700004 



LEA.JFGA1QQG83700005 
8Q- Z-ZY 99Q 
99 9 

H07UAACBBCC283700006 
R+ 8ZQQY8Q88 
Z 9999 

CDB0AHGDGDAA83700007 

QZ8QY99R9RZQ 

Z 999 0 0 Z 

GA1FFA7BACDD83700008 
ZY Y-Y QZQQO 
9 OZ 

AAAAGA2BBEAC83700009 
-QY9ZY 98QY9 
9 999 

E/C2GA50FD7H83700010 

- Q8ZY 8-9 - 
Z9 

0GGA2 FAB7HGA837000 1 1 

9ZY Y-9 -ZQ 
9 

2KAJC2AAC7KC83700012 
ZYQ8ZQQ8 9 
9Z9 9Z9 

7QG-1DDE7HAA83700013 
ZZ 8-Q -ZQ 
Z Z 

7HFA7HG01DAB83700014 
— Q -Z 8-9 
9 

GA3DB37+AJ7.83700015 

ZY Z- ZY 



7+G-3AKA837083700016 
I Y 9 8 0 



DATE 
EC 



15N0V66 

125655 
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cccccccccccccccc c o 
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BTXT.ALA..A8..AAB0DB 
9 Y9Y Y9 Y98^9Z 
9 9 9 9 

BTXT. ALH*. A8*.AA0.D1 

9 Y90 Y9 Y9 

9-9 9 

BTXT* ALO* * A8* • AABODO 
9 Y9 Y9 Y98-Z9 
9 9 9 9 



BTXT. AMY. 
9 Y99 
9 

BTXT. AM-. 
9 Y9 
9 

BTXT.AMH. 

9 Y9- 
9 

BTXT* AMO* 
9 Y9- 
9 

BTXT. ANH* 
9 Y99 
9 

BTXT* AN. • 
9 Y9 

9 



• A8* • AAAB7A 
Y9 Y9-9 Y 
9 9 

.A8..AABEAD 

Y9 Y98QY9 
9 9 999 

*A8**AAJF8D 
Y9 Y9Y8 8 
9 9 9 9 

.A8..AA7A7G 

Y9 Y9 Q 0 
9 9- 

• A8* • AAABBA 
Y9 Y9Y9-Y 
9 9 9 9 

•A8..AAAAGD 

Y9 Y9Y99Q 
9 9 9 



BTXT.ANH.*A8*.AA7IAJ 

9 Y9R Y9 Y9 -ZY 
9 0 9 9 9 

BTXT* ANA** A8. . AAAGKC 
9 Y9Q Y9 Y9Y8 9 
9 0 9 9 99 

BTXT* ANY . . A8 • . AAABFA 
9 Y9 Y9 Y9Y9ZQ 
9 9 9 9 Z 

BTXT . AOJ . • A8 . . A A7 1 GA 

9 Y9Y Y9 Y9 -ZQ 
9 9 9 9 9 

BTXT • AOH. * A8 • • A A7HGA 
9 Y9R Y9 Y9 -ZY 
9 9 9 

BTXT • AOA* . A8 • • AA6 DAA 

9 Y9Q Y9 Y9 RZQ 
9 9 9 0 Z 

BTXT* AOH* • A8* • AAABDG 
9 Y9 Y9 Y9Y9-9 
9 9 9 

BTXT*APA**A8**AA7DB0 
9 Y9Y Y9 Y9 08- 

9 9 9 9 9 



8BG02YHOAHHJABEA0AGA 
RZ RY9-0YY9QY+YZ Y 
9 9 9 

7BDA0AGJ3BG04FEA0AG* 
QQY+YZY YZ+ 8QY+YZ 
9 9 9 - 9 9 9 

BHFBABG02YAB0DGA4FAG 
Q0-9Y9Z -9-ZZQ 8-Q 
Z 9 9 Z 

GA4BBEAHG4GUKG7A 7MKG 
ZQ Q8QY9989 9 Q Y 9 
9 Z999 9 

GDGKB0AA7DB0ME7EE+4F 
9Y908-Y9 08-Z8 QZ 0 
9 9 9 r 

B0A0BFAB7BGA5BAD7BGA 
8-Y9QQ-9 QZQ 8-9 QZQ 
9 Z 9 9 

K G7H7AB • 7GB 0JO7KA0AD 
9 0 Q- 08- Y9 Y-+Q9 
- -9 9 

7DDA0AG05SEA0AGA52F+ 
QQY+YZ+ 8QY+YZY 9Z 

9 9 - 9 9 9 

HJG04AB0AVBDG02YB0AE 
99Z Q8-Y8Q0Z 8-YZ 
Z9 9Z- 9 

ADFA7HK3AACFAI A4FJ1D 
Y9-9 - 8QYQ8Z-Y8ZY 8 
9 9 9Z 99 9 

C2C .B.C6K UC 7C6AAAHAA 
Q8Q - Q8 8Q8Q8ZQY9ZQ 
Z9Z Z9 9Z9Z9 Z9 9 

5BB0AUC2F.5BG02KAH7I 

Y8-Y8Q8Z Z -9 - 
99 9Z9 

6+AJ7HGA66B0.J8CB0AA 
— Y -ZQ 98- 8 Q8 -Y 
9 9 9 9 09 

6UB0-A8QB0JU8YB0AADD 
88- Q 8-Y9 8 ZYQO 
9 9 9 9 Z 

ABAA0SAAAAGA6DAHADFA 
Y8ZY 8-QY9ZQ QZ0Y9ZQ 
99 9 9 0 9 Z 

DANADA-AGA6KA0ADF.6F 
QY 9QY YZY 0ZZY9Z Y 
Z Z 9 9 9 

J 39DB0A/9GB0ABABGA6B 
Y8 8-Y8 Q8 -9Y9ZQ Y 
9 9 9 Z9 9 



3DG*3QGA30F J3BB0D69A 
OZ ZQ ZY -8-Z9 R 
- 9 9 

3FG03BGCEB0DGA3UG03B 
QZ+ Y9Q-9-ZZY Z - 
Z - 9 Z 

0EGA3B0G740. EA0AG.4F 
-ZZY Y 9 8- QY+YZ 8 
9 9 9 9 

7N7AB.7MBEAHG-GEKG7A 

Y Q- Y8QY99 9 9 Q 
9 9999 

B0JP70B0JN7GFBABAH7B 
8-Y8 +8-Y8 Q-9Y9-9 Q 
9 9 9 9 9 

5DG02Y+A7DHA7D* A4BDG 
RZ Q RRQ Y Q Y-8 
9 0 9 9 9 9 

GA44A J AHG04FH A7DG5 A J 
ZY Z9Y9Z QRQ R9 ZY 
9 0 9 0 

50FD7BG04AFB7BG04AAA 
9-9 QZ Q-9 QZ Q-9 
Z Z 

BJG02YAJ7HGA5DAD7HGA 
QZZ -Y -ZY Q-9 -ZQ 
Z 9 Z 9 

D77I G028AH7IGA1 DBO-E 
-8 -Z 9-9 -ZQ 88- Z 
9 9 

C7.A5F* A5SDG5FDG5SBE 
Q8 Q Q Q 8-8 Q-8 88Q 
Z9 9 9 9 9 9 99 

GA1DB0* X8DFH7 I F J7HG0 
ZQ 88- 9 — 9 — Y -Z 
9 9 9 

7BG A6UAH7HG A6 FBO* M8M 

QZY 8-9 -ZQ 88- 9 
9 9 

AAABNCAA70GA6BAAABGA 
ZQY8 9YY +ZY — 9Y9ZY / 
Z99 9 - 

6BA.7HGA6DAA7C6A78B0 
Q- -ZQ Q-Y QZY 98 
9 Z 9 

BEABDAAFB0AA7DB0 J59G 
8QY98Y8Y8-Y9 08-Y8 0 
999 9 9 9 9 99 

•A7UDG7UBEABGUBXB0 Jl 

Y 9-8 98QY999888-Y8 

9 999 999 9 



FBABG02YPG0. 83700017 
-9Y9Z 9- 



BODGB1BBG03D83700018 
8-98Q88QZ Z 
9 9Z 99 

G04MAA7AGA3B83700019 
Z+ 9-9 YZQ Y 
9 

7EKG7F7A8.7E83700020 
Y 9 Y Q- Y 
9 9 9 

GA4DB0JA7DB083700021 
ZY Q8-YQ Q8- 
9 9 Z9 

4BBEAHDBGPKG83700022 
Y8QY99Y9Y 9 
9999 9 

7H+NAHH0AHH+83700023 
R YYZR89^0 
9 

7DGA3DFH7BBE83700024 
QZQ Z-9 Q8Q 
9 99 

5HAA7 IGA56FA83700025 

— Y -ZQ 8-Y 
9 

9DG06BAACBA.83700026 
8Z 8ZQQYZ 
9 9 Z 

ABEFES AJAEAI83700027 
Y99Q98Z9Y9Z- 

9 9 9 

1DADOGGA6+AH83700028 

8-9 9ZQ --9 
9 

BOAA7HGA60AE83700029 

8 -Q -ZY 8-9 

9 9 

7AFA7CAHADFA83700030 
Q-Y QZ0Y9ZQ 
9 9 Z 

A. ABA-DDK ADA83700031 
Z Y8Z QO 9QY 
99 Z Z 

F.7HG06KB0AA83700032 
- -Z 08*Y9 
9 

BYBOAQB/G06B83700033 
Q98-Y9Q Z Y 

Z 9 Z 
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BTXT.AP8«i.A8. 
9 Y99 Y9 
9 9 

8TXT. APO*. A8. 
9 Y9* Y9 

9-9 

BTXT.APQ..A8. 
9 Y90 Y9 
9 9 

BTXT.APS..A8. 
9 Y98 Y9 

9 9 

BTXT.AQQ..A8. 

9 Y99 Y9 
9 9» 

BTXT. AQ+*. A8. 

9 Y9 Y9 
9 9 

BTXT.AQH..A8. 

9 Y90 Y9 
9 9 

BTXT.AQO.. A8. 
9 Y9+ Y9 

9 9 

BTXT.AQ8..A8. 

9 Y9 Y9 

9 9 

BTXT.AJA..A8. 

9 Y8Q Y9 
99Z 9 

BTXT.AJQ..A8. 

9 Y8Z Y9 
99 9 

BTXT. A J J.. A8. 
9 Y8Y Y9 
99 9 

BTXT.AJQ..A8. 

9 Y8 Y9 
99 9 

BTXT.AKA..A8. 

9 Y8Q Y9 
999 9 

BTXT.AKH..A8. 
9 Y8Z Y9 

99 9 

BTXT. AKA. • A8 • 

9 Y8Y Y9 

99 9 

BTXT.AKH..A8. 

9 Y80 Y9 
99- 9 



» AABOAM 
Y98-Y9 

9 9 

• AAAAAA 

Y9YYYY 
9 9999 

.AAXX.C 

Y9 

9 

» AACSM* 

Y9 
9 

•AAAL28 

Y9 
9 

.AANO.U 
Y9 

9 

» AAING. 

Y9 

9 

■ AANG.C 

Y9 
9 

» AAFERS 

Y9 
9 

» AA.ONE 
Y9 

9 

.AAD.CH 

Y9 
9 

» A AM .DO 

Y9 
9 

» AAE.AN 

Y9 
9 

.AAIPTI 
Y9 
9 

•AA.TO. 

Y9 

9 

.AAV ICE 

Y9 
9 

•AA.SIO 

Y9 
9 



CWB0LALB-AAA3ALB-AAA 
Q98 YY8Y YY98Y8Y YY9 
Z 9 999 99 99 99 

AAA AAA AAA A AAAAAA* • » • 

YYYYYYYYYYYYYYYY 

9999999999999999 

CW.XXXXXXXX.XXXXXXXX 



XXXXXXXX.XXXXXXXX.AC 



21.UCB.REST0RE.RTNCT 



CB.RESTOREO.MITH.NO. 



CHAIN. XXCTRL. CDS. MIS 



TRL. AND. DATA. CDSALL. 



.MAY.BE. IN.ERROREITH 



•TYPE. IS. INADEQUATE. 



ANN EL. BUSY. FROM .THIS 



ES.NOT.HA VE .DATA .FOR 



Y. DEVICES.THAT.DO.NO 



ON. FOR .THE .PROCEDURE 



INSUFFICIENT .DATA .CD 



•RDYDEV ICE •NOT.OPERA 



. AFTER «U€B. LOAD. A TTE 



CALBAAAODAPDJAAAAAPH 
QY8YYYY 9Y9QYYY9YY9R 
Z99 999 9 999 99 

CTRL AAAA AAAAAA AAAAAA 
YYYYYYYYYYYYYYYY 
9999999999999999 

•CSW.XXXXXXXX.XXXXXX 



DAAAAAAGAAAA83700034 

8YYYYYY8YYY9 

99999999999 

A.CAM.XXXXXX83700035 

Y 

9 

XX. EXPECTED. 83700036 



TUA L. SNS. 00. EX PECT 60 .SNS.XX.ACTU83700037 



RL. DATA. AT. ADDR. XXXX XX.F0R.ALTER83700038 



BLOCK. DATA. CHK. AND. N 0.F0LDING.US83700039 



SI NG.OR. MIXED. WITH.D ATA.CDSMISS 183700040 



DATA.CDS. MISSINGANY. RESTORED. BUF83700041 



ER. CUSTOMER. AND.HEX. CDS.MIXED.0R83700042 



I N. NUMBER. TI 0. LOOP. R ECEIV ES. SOL 183700043 



•DEVICEDEVICE.XXXX.A SS IGNED.BY.D83700044 



•UCB.RESTOREIF.DESIR ED.T0.REST0R83700045 



Y. HAVE. THE. DAT ACONSU LT.THE.DESCR83700046 



DEVICE. XXXX. UCB. NOT. RESTORED. DUE83700047 



SOR. WRONG. CTRL. DEF I N IT I0NMAKE.DE83700048 



TIQNAL«ERROR. ON.UCB. LOAD.S I0.SNS83700049 



MPT~.N0T.ACCEPT6D.SN S.SIO.AFTER.83700050 



DATE 

EC 



15N0V66 
125655 
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BTXT. AK0..A8..AAUCB. 

9 Y8 Y9 Y9 
99 9 9 

BTXT.ALY..A8. .AAO.BU 

9 Y89 Y9 Y9 
99 9 9 

BTXT.AL-.. AS. .AAAAAA 
9 Y8 Y8 Y9YYYY 
99 99 9 9999 

BTXT. AM2..A2. .AAAAAA 

9 Y88 Y9 Y9YYYY 
99 9 9 9999 

BRLD AJ....AAAA 

9 YY Y9Y9 

99 9 9 

BEND. ......... A A .... 

9 Y9 
9 

BOAT. 

9 

CTRL.000E.0001 

CTRL.000F.0001 

CTRL. 0010. 0001...... 

AN1..F1F2.F3F4.F5F6. 
AN2..E5E6.E7E8.E950. 
AN3..D960.5B5C.C1C2. 
AN4 . . Fl F2. F3F4. F5F6 • 
AN5..E5E6.E7E8.E950. 
AN6..D960.5B5C.C1C2. 
AN7..F1F2.F3F4.F5F6. 
AN8 • • E5E6. E7E8 • E950 . 
AN9..D960.5B5C.C1C2. 
AN10.F1F2.F3F4.F5F6. 
AN11.E5E6.E7E8.E950. 
AN12.D960.5B5C.C1C2. 
AN13.F1F2.F3F4.F5F6. 
AN14.E5E6.E7E8.E950. 
AN15.D960.5B5C.C1C2. 
HN1..F1F2.F3F4.F5F6. 
HN2..E5E6.E7E8.E950. 
HN3..0960.5B5C.C1C2. 

DATE 15N0V66 
EC 125655 



LOAD.ATTEMPT.DID.NOT 



FFERS.RESTOREDAAAAAA 
YYYYYY 
999999 

AAAAAAAAAAAAAA AAAAAA 
YYYY YYYYYYYYYYYYYYYY 
99999999999999999999 

AAA AAA AAAAAAAAAAAAAA 
Y9YYYYYYYYYYYY YYYYYY 
9 999999999999999999 

AAANAAANAAPAAAPAAAPA 
8YQ98YQZ8Y9Z8Y988Y9R 
999 999 99 99 99 



F7F8.F9F0, 
6B6C.D1D2. 
C3C4.C5C6. 
F7F8.F9F0, 
6B6C.D1D2, 
C3C4.C5C6. 
F7F8*F9F0< 
6B6C.D1D2< 
C3C4.C5C6, 
F7F8.F9F0* 
6B6C.D1D2, 
C3C4.C5C6, 
F7F8.F9F0« 
6B6C.D1D2. 
C3C4.C5C6. 
F7F8*F9F0< 
6B4D.D1D2, 
.C3C4.C5C6. 



7B7C.61E2. 
D3D4.D5D6. 
C7C8.C94E. 
7B7C.61E2. 
D3D4.D5D6. 
C7C8.C94E. 
7B7C.61E2. 
D3D4.D5D6. 
C7C8.C94E. 
7B7C.61E2. 
D3D4.D5D6. 
C7C8.C94E. 
7B7C.61E2. 
D3D4.D5D6. 
C7C8.C94E. 
7E7D.61E2. 
D3D4.D5D6. 
C7C8.C94E. 



.RECEI VE. AVAI LABLE.F 

AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

AAAAAA A AAAAAA A AAA A. • 
YYYYYY YYYYYYYYYYYY 
999999999999999999 

AAAAAAAAAAAAAAAAAAAA 

YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

AAPJHAP/. 

8Y989Y9 
99 9 

E3E4...V. 

D7D8..... 

4B4C... 

E3E4.« •••••• •••••••• 

D7D8 •••• 

4B4C. ........ ...... 

E3E4..... 

D7D8.. 

4B4C 

E3E4......... 

D7D8.. 

4B4C...... 

E3E4.... 

07D8... 

4B4C. ••V..VV* ....... 

E3E4......... .. 

D7D8................ 

4B5D*. . » * « « • • * • • •'• • « 



ROM.DEVICE.N83700051 

AAAAAAAAAAAA83700052 

YYYYYYYYYYYY 
999999999999 

••......•••.83700053 

AAAAAA. .....83700054 

YYYYYY 
999999 

•..••.••..••83700055 

• • ••••83700056 

••••••••••••83700057 

• • •••••83700058 

• ••• •••83700059 

• ••••• 63700060 

• • •••83700061 

•••••••83700062 

••••••••••••83700063 

••••••••••••83700064 

••••••••••••83700065 

•••••• .83700066 

• ••••• 83700067 

• •• •••83700068 

• ••• 83700069 

••••••••••••83700070 

••••••••••••83700071 

83700072 

••••••••••••83700073 

••••••••••••83700074 

••••••••••••83700075 

••••••••••••83700076 

••••••••••••83700077 

• • • • • • • • • • ••83700078 
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HN4..F1F2.F3F4.F5F6. 


F7F8.F9F0.7E7D.61E2. 


E3E4. 


HN5..E5E6.E7E8.E950. 


6B40.D1D2.D3D4.D5D6. 




HN6..D960.5B5C.C1C2. 


C3C4.C5C6.C7C8.C94E. 




HN7..F1F2.F3F4.F5F6. 


F7F8.F9F0.7E7D.61E2. 




HN8..E5E6.E7E8.E950. 


6B4D.D1D2.D3D4.D5D6. 


D7D8. 


HN9..D960.585C.C1C2. 


C3C4.C5C6.C7C8.C94E. 




HN10.F1F2.F3F4.F5F6. 


F7F8.F9F0.7E7D.61E2. 




HNll.E5E6.E7E8.E950. 


6B4D.D1D2.D3D4.D5D6. 




HN12.D960.5B5C.C1C2. 


C3C4.C5C6.C7C8.C94E. 


4B5D. 


HN13.F1F2.F3F4.F5F6. 


F7F8.F9F0.7E7D.61E2. 




HN14.E5E6.E7E8.E950. 


6B4D.DID2.D3D4.D5D6. 




HN15.D960.585C.C1C2. 


C3C4.C5C6.C7C8.C94E. 




PN1..F1F2.F3F4.F5F6. 


F7F8.F9F0.E7E8.61E2. 




PN2..E5E6.4F7A.6D7F. 


6B7E.D1D2.03D4.D5D6. 




PN3..D960.E94D.C1C2. 


C3C4.C5C6.C7C8.C94E. 




PN4..6C5B.5C7B.507C. 


4C5E.5F7D.6F6E.F1F2. 




PN5..F5F6.F7F8.F9F0. 


E7E8.61E2.E3E4.E5E6. 




PN6..6D7F.6B7E.D1D2. 


03D4.D5D6.D7D8.D960. 




PN7..CIC2.C3C4.C5C6. 


C7C8.C94E.4B5D.6C5B. 




PN8. .507C«4C5E«5F70* 


6F6E.F1F2.F3F4.F5F6. 




PN9..F9F0.E7E8.61E2. 


E3E4.E5E6.4F7A.6D7F. 




PN10.D1D2.D3D4.D5D6. 


D7D8.D960.E94D.C 1C2. 




PN11.C5C6.C7C8.C94E. 


4B5D.6C5B.5C7B.507C. 




PN12.5F7D.6F6E.F1F2. 


F3F4.F5F6.F7F8.F9F0. 




PN13.61E2.E3E4.E5E6. 


4F7A.6D7F.6B7E.D1D2. 




PN14.D5D6.D7D8.D960. 


E94D.C1C2.C3C4.C5C6. 




PN15.C94E.4B5D.6C5B. 


5C7B . 507C . 4C 5E . 5F 7D . 




QN1..F1F2.F3F4.F5F6, 


F7F8.F9F0.E7E8.61E2. 




QN2..E5E6.6D7F.5B5C. 


6B7E.D1D2.D3D4.D5D6. 




QN3-.D960.E94D.C1C2. 


C3C4.C5C6.C7C8.C94E. 




QN4 . . F1F2. F3F4.F5F6, 


F7F8.F9F0.E7E8.61E2. 




QN5..E5E6.4C5E.7B5C. 


6B7E.D1D2.D304.D5D6. 




QN6..D960.E94D.CIC2. 


C3C4.C5C6.C7C8.C94E. 




QN7 • .F1F2. F3F4«F5F6» 


F7P8.P9F0.E7E8.61E2. 





.83700079 
•83700080 
.83700081 
.83700082 
.83700083 
.83700084 
.83700085 
•83700086 
.83700087 
•83700088 
•83700089 
.83700090 
.83700091 
.83700092 
.83700093 
.83700094 
.83700095 
•83700096 
.83700097 
.83700098 
.83700099 
•83700100 
.83700101 
•83700102 
.83700103 
•83700104 
•83700105 
•83700106 
.83700107 
•83700108 
•83700109 
•83700110 
•83700111 
•83700112 



DATE 

EC 



15N0V66 

125655 
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QN8..E5E6.6F6E.7C5C. 


6B7E.D1D2.D3D4.D5D6. 


D7D8, 


QN9..D960.E94D.C1C2. 


C3C4.C5C6.C7C8.C94E. 


4B5D. 


QN10.F1F2.F3F4.F5F6. 


F7F8.F9F0.E7E8.61E2. 


E3E4. 


QN11.E5E6.5F7D.505C. 


6B7E.D1D2.D3D4.D5D6. 


D7D8. 


QN12.D960.E94D.C1C2. 


C3C4.C5C6.C7C8.C94E. 


4B5D. 


QN13.F1F2.F3F4.F5F6. 


F7F8.F9F0.E7E8.61E2. 


E3E4. 


QN14.E5E6.4F7A.6C5C. 


6B7E.D1D2.D3D4.D5D6. 


D7D8. 


QN15.D960.E94D.C1C2. 


C3C4.C5C6.C7C8.C94E. 


4B5D. 


RN1..F1F2.F3F4.F5F6. 


F7F8.F9F0.E7E8.61E2. 


E3E4. 


RN2..E5E6.7D7C.5B5C. 


6B7E.D1D2.D3D4.D5D6* 


D7D8. 


RN3«.D960.E94D.C1C2. 


C3C4.C5C6.C7C8.C94E. 




RN4..F1F2.F3F4.F5F6. 


F7F8.F9F0.E7E8.61E2. 


E3E4. 


RN5..E5E6.6C7C.5B5C. 


6B7E.D1D2.D3D4.D5D6. 




RN6..D960.E94D.C1C2. 


C3C4.C5C6.C7C8.C94E. 


4B5D. 


RN7..F1F2.F3F4.F5F6. 


F7F8.F9F0.E7E8.61E2. 




RN8..E5E6.7B7C.5B5C. 


r 6B7E.D1D2.D3D4.D5D6. 


D7D8. 


RN9..D960.E94D.C1C2. 


C3C4.C5C6.C7C8.C94E* 




RN10.F1F2.F3F4.F5F6. 


F7F8.F9F0.E7E8.61E2. 




RNli.E5E6.4C7C.5B5C, 


6B7E.D1D2.D3D4«D5D6. 




RN12 • D960 . E94D. C 1C2 . 


C3C4.C5C6.C7C8.C94E. 




RN13.F1F2.F3F4.F5F6. 


F7F8.F9F0.E7E8.61E2. 




RN14.E5E6.507C.5B5C. 


6B7E.D1D2.D3D4.D5D6. 




RN15.D960.E94D.C1C2. 


C3C4.C5C6.C7C8.C94E. 





BLOT. 
9 



• 83700113 

•••..•••••••83700114 

83700115 

83700116 

• 83700117 

83700118 

83700119 

• •••• 83700120 

• 83700121 

83700122 

• ••• •••83700123 

••••83700124 

» 83700125 

••••*. •«»»..83700i26 

••.•.•••••••83700127 

••»••»*« • • * • 83700128 
#...•...••..83700129 
.*...83700130 

• •••83700131 

•*.•••.••• ..83700132 

• »•»•'»»'•»:»• •83700133 

• •••'*»»'»» .4.83700134 
*••......• #•83700135 

• «« 83700 136 
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1403 CARRIAGE FUNCTION TEST 
DESCRIPTION 



TABLE OF CONTENTS 

PAGE 

1. PURPOSE 1 

2. PREREQUISITES 1 

3. USE PROCEDURE . . I 

4. PRINTOUTS 2 

5. COMMENTS 4 

6. APPENDIX . . . 5 



PURPOSE 



1.1 INTENT. 

CHANNEL 9 AND 12 TEST— ( RTN 16 2) WILL TEST THE ABILITY OF THE SENSE 
START I/O TO DETECT CHANNEL 9 AND 12 HOLES IN THE DIAGNOSTIC CARRIAGE 
TAPE, AND TO CHECK THAT CHANNEL 12 TURNS ON UNIT EXCEPTION. AND CHANNEL 
9 TURNS ON UNIT CHECK. A SKIP AND TWO SPACE 1 OPERATIONS WITH COMMAND 
CHAINING IS USED TO DETERMINE TEST RESULTS ON THE PRINTER UNDER TEST . 

FORMS SPACE AND SKIP TEST— ( RTN 3 ) WILL TEST THE FUNCTIONS OF THE 
CARRIAGE. 

PREREQUISITES 

2.1 PROGRAM REQUIREMENTS. A DM IS REQUIRED TO RUN THIS PROGRAM. 
THE EXCLUSIVE CPU FLAG IS ON 
THE PROGRAM IS RELOCATABLE 

***«***>m<****************** NOTE I**************************** 

* FOR UCS PRINTERS, THE UCS BUFFER SHOULD BE LOADED. * 

* TO LOAD THE UCS BUFFER, USE PROGRAM ID F837 * 



THIS TEST WILL BE BYPASSED FOR ANY 1403 WHICH HAS SELECTIVE TAPE 
LIST DEFINED IN THE DM UNIT DEFINITION TABLE. 



THE UNIT DEFINITION TABLE-UDT— ENTRY MUST BE PUNCHED AS FOLLOWS. 



* UNIT CODE 



OPTIONAL FEATURE DIGIT 1* 
* 



OPTIONAL FEATURE OIGIT 2 



UNIT *ZZ*BIT 0* BIT 1* BIT 2* BIT 3* BIT 4* BIT 5* BIT 6* BIT 7 

* *HEX 8* HEX 4* HEX 2* HEX 1* HEX 8* HEX 4* HEX 2* HEX 1 

4c — * * — . * * # * * . — . 

1403 PRINTER*83*ASCII*SEL * *UNIV. * HI- * 120 * * 2821 
OR * * *TAPE * *CHAR. *SPEED *PRINT * *2 CHNL 

1404 PRINTER* * *LISTER* *BUFF. *PTR. *POS. * *SWITCH 
CONTINUOUS * * * * * * * * * 
FORMS *** * 4c * * * 4c 



* 

* 
* 

* 



DATE 
EC 



10JUN65 
124255 



22JUN65 
124249 



15JUL63 
124265 



04N0V65 
125611 



15MAR66 
125632 



01JUN66 
125653 



15N0V66 
125655 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 



1403 CARRIAGE FUNCTION TEST 



2.2 EQUIPMENT REQUIREMENTS. 
INPUT DEVICE 

STORAGE SIZE — 4K PLUS STORAGE REQUIRED BY DM. 

I/O CHANNEL 
1403 PRINTER 
2821 CONTROL UNIT 

DIAGNOSTIC CARRIAGE TAPE. SEE 5.2 



3. USE PROCEDURE 

3.1 LOADING. STANDARD AS DESCRIBED IN THE USERS GUIDE. 

3.2 OPERATING. 

3.2.1 DIAGNOSTIC CARRIAGE TAPE MUST BE INSERTED 

1:1:1 ^^si^^^" " " ™ USERS CU,0 E . 



FUNCTION 



SENSE I 
SW. I 

# I 

— 1 — ' — 

0 I OFF- 
I ON— 

I 

2 I OFF— PROCEED NORMALLY ™ 

I ON LOOP ON CURRENT I/O COMMAND, OUTPUT ON 
I PR INTER WITH ERROR PRINTOUTS ON C. E. 

I OUTPUT DEVICE. 

B Vl I !L®ll 1REDt INSERT p R i^t~cohmand~code~to~be"° 

# 5 I LOOPED ON. SEE CHART 6.1 



—PROCEED NORMALLY 

LOOP ON CURRENT START I/O, TEST I/O 
WITH NO ERROR PRINTOUTS OR CHECKING 



I SECTION I 
I OR I 
I ROUTINE 1 

-I — 1- 

I SECTION I 
I F838 I 
I I 

-I 1- 

I SECTION I 
I F838 I 
I RTN 3 I 
I I 

I SECTION I 
I F838 I 
I RTN 3 I 



BYTE 
ANO 

BIT 

X004 
0 



X004 

2 



X005 
ALL 



2? TE Jo^Uc 5 22JUN65 15JUL65 04NQV6* 1 5MAR66 01JUN66 15N0VAA 
EC 124255 124249 124265 1256! 125632 125653 125*55 



1* 
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3.3 PROGRAM HALTS 
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AT THE BEGINNING OF ROUTINE 1 THE C.E. INSTRUCTIONS 
WILL TELL THE C.E. TO PLACE THE DIAGNOSTIC CARRIAGE TAPE IN 
PLACE, RESTORE IT TO CHANNEL 1 USING THE CARRIAGE RESTORE 
KEY, CHECK FOR THE CHANNEL 1 HOLE DIRECTLY UNDER THE 
CARRIAGE BRUSHES, MAKE THE PRINTER READY AND PUSH INTERRUPT 
TO RESTART THE PROGRAM. 



3.4 TERMINATION. STANDARD VIA SVC D6. 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 
1403 CARRIAGE FUNCTION TEST 



- GOT UNEXPECTED UNIT CK WHILE TESTING CHAN 12- ERROR CONDITION 

- SNS ACT 81- SENSE INDICATES COMM RE J AND CHAN 9 

- NO CHAN 12 DETECTED- DID NOT DETECT CHAN 12 DUE TO COMM REJ. 



P/N 840212 
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4. PRINTOUTS 



4.1 INSTRUCTIONS TO THE OPERATOR 

-INSERT TEST CARRIAGE TAPE,- 
-RESTORE CARRIAGE TO CHAN. 1- 
-CHECK FOR CHAN.l HOLE UNDER BRUSHES,- 
—MAKE PRINTER READY PUSH INTERRUPT- 



ERROR PRINTOUTS ROUTINE 03 



-DEVICE NOT OPERATIONAL-SET SS 0 TO LOOP ON SIO- SEE SENSE SWITCHES. 
-DEVICE / CHANNEL BUSY TOO LONG AFTER SIO- 
-NO CHANNEL END- 
-COMMAND REJECT- 

-INTRV REQUIRED- INTERVENTION REQUIRED 
-BUS OUT CHECK- 
— EQUIPMENT CHECK- 

-SKIP X FAILED- CHANNEL NUMBER WILL BE FILLED IN. 

-BUSY TOO LQNG- 

-NO DEVICE END- 

-UNIT BUSY AFTER DEVICE END- 

-NO CSW AFTER IMMEDIATE OPERATION- 

-DATA CHECK- 

-BUFFER CHECK- UCB PARITY CHECK 



4.2 STATUS MESSAGES ON CE OUTPUT DEVICE 



NORMAL PRINTOUTS ROUTINE 01 

-SDO F8383 01 00123E OOE- 
-CHAN 9 DETECTED OK- 



PROG ID AND REVISION, RTN, ADDR, DEVICE 
CHAN 9 HAS BEEN DETECTED CORRECTLY 



DATE 
EC 



NORMAL PRINTOUTS ROUTINE 02 

-SDO F8383 02 001372 OOE- PROG ID AND REVISION, RTN, ADDR, DEVICE 
-CHAN 12 DETECTED OK- CHAN 12 HAS BEEN DETECTED CORRECTLY 



ERROR PRINTOUTS ROUTINE 01 



-*SDO F8383 01 00127E OOE- PROG ID AND REVISION, RTN, ADDR, DEVICE 

- NO CHAN 9 DETECTED IN SENSE BYT ERROR CONDITION 

- SNS ACT 40- SENSE INDICATES INTERVENTION REQUIRED 

-*SDO F8383 01 001278 OOE- SAME AS ABOVE 

- GOT UNEXPECTED UNIT EXCEPTION WHILE TESTING CHAN 9- ERROR CONDITION 

- SNS ACT 01- SENSE INDICATES CHANNEL 9 ONLY, CHAN 12 

- CHAN 9 DETECTED- UNIT EXCEPTION ERRONEOUSLY SET ON. 



ERROR PRINTOUTS ROUTINE 02 



-♦SDO F8383 02 001335 OOE- SAME AS ABOVE 
- NO CHAN 12 DETECTED- 



ERROR CONDITION 



-♦SDO F8383 02 001328 OOE- 



SAME AS ABOVE 



10JUN65 22JUN65 15JUL65 04N0Vt*£ 15MAR66 Q1JUN66 15N0V66 
124255 124249 124265 125611 125632 125653 125655 
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o 



4.3 PRINTOUTS ON DEVICE UNDER TEST 



WRITE SPACE I 

WRITE SPACE 1 

WRITE SPACE 1 

WRITE SPACE 1 

WRITE SPACE 1 

WRITE SPACE 1 

WRITE SPACE 2 

WRITE SPACE 2 

WRITE SPACE 2 

WRITE SPACE 2 

WRITE SPACE 3 



EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / E 
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / EE 
EEEEE EEE EEEEEEE EE EEEEEEEEEE EE EEEEEEEEEEEEEEE EEE EE EE EEEE / EEE 
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / EEEE 
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / EEEEE 

EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / EEEEEEE 

EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / EEEEEEEEE 

EE EEE EEE EEE EEE EEE EEE EEEEE EE EE EEE EEEEEEE EE EEE EEE / EEEEEEEEEEE 

EEEEEEEEEEEEEEEEEE EEEEEEEEE EEEEEEEEEEEEEEE EEE / EEEEEEEEEEEEE 



WRITE SPACE 3 EEEEE EEEE EEEEEEEEE EE EEE EEEE EEEEEEEEEEEEEEE / EEEEEEEEEEEEEEEE 

WRITE SPACE 3 EEEE EEEEE EEE EEEE EE EE EEEEEE EEEEEEEEEEEEE / EEEEEEEEEEEEEEEEEEE 

WRITE SPACE 3 EEEE EEEEE EEEE EEEE EEE EEE EEEE EEEEEEEEE / EE EEEEEEEEE EEEEEEEEEEE 



WRITE SKIP TO 1 EEEEE EEEE EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE EEEE EEEEEE / 

CHANNEL 1 EEEE EEEEEE EEE EEEEEE EEEEEE EE EE EEEEEEEEEE EEEEEEEEEEE EEE EEEEEE / 

WRITE SKIP TO 2 EEEE EEEEEE EEEEE EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE EEEEEE / 



CHANNEL 2 EE EE E EEEE EEEEEE EEE EE EEE EE EEEEEEEEEEEEEEEEEEEE EEEE EEEE EE EEEE / 

WRITE SKIP TO 3 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 



CHANNEL 3 EE EE EEEEEE EEE EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE EEE EEEEE EE / 

WRITE SKIP TO 4 EEEEEEEEEE EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE EEEEEEEEE EEEEE / 



CHANNEL 4 EE EEE EEEEE EEEEEEE EEEEEEEEEE EE EEEEEEEEEEEEEEEE EEEE EEEE EEEEEE / 

WRITE SKIP TO 5 EEEEE EE EE EEEE EEEEEE EEEEEEEEEEEEEEEEEEEEEEEEEE EEEEEEEEE EEE EE / 



IMMED 
IMMED 
IMMED 
IMMED 



SPACE 1 
SPACE 1 
SPACE 1 
SPACE 1 



IMMED SPACE 2 
IMMED SPACE 2 
SPACE 2 
SPACE 2 



IMMED 
IMMED 



EE EEE EEEEEEEEEEEEEEE EEE EEEE EEEEE / EEEEEEEEEEEEEEEEEEEEEEEEEE 
EEEEE EEEE EEEEEEEEEEE EEE EEEE EEE / EEEEEEEEEEE EEE EEE EEE EE EE EE EE 
EEEEE EEEEEEEEEEEEEEEEEEEEEEE / EEEEEEEEEEEEE EEEEEE EEE EEEE EE EE 
EEEEEEEEEEEEEEEEEEEEEEEEEE / EEEEEEEEEEEEEEE EEE EEE EEE EE EE EE EE 

EEEEEEEEEEEEEEEEEEEEEEE / EEEEEEEEEEEEEEEEEE EEEEEE EEE EE EE EE EE 

EEEEEEEEEEEEEEEEEEEE / EEEE EEEE EEEEEEEEEEE EEEEE EEE EEE EE EEEE EE 

EEEE EEEEEEEEEEEEE / EEEEEEE EEEEEEEEEEEEEEE EEEEE EEEE EE EE EE EE EE 

EEEEEEEEEEEEEE / EEEEEEEEEE EEEEEEEEE EEEEEE EEEEE EEEEEE EE EE EE EE 



CHANNEL 5 EE EEE EEEEEEEEE EEE EEE EEEEEEEEEEEEEEEEEEEEEEE EEEEE EEEE EE EEE EE / 

WRITE SKIP TO 6 EE EEE EE EE EEEEEE EE EEE EEE EEEE EEEE EEEEEE EEEE EEEEEEE EEEEEEE EEEE / 



CHANNEL 6 EEE EE EEEE EEEE EE EE EEEEEEEEEE EEEEEEE EEE EEE EEEEEEEEEEEEE EEEEEE / 

WRITE SKIP TO 7 EEEEE EEEE EEEEEEEEEEEEE EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE EEEE / 



CHANNEL 7 EEE EEEEEEE EE EEE EEEEEEEEEEEEEE EEEEEEEEEEEEEEE EEEEEEEEEEEEEEE / 

WRITE SKIP TO 8 EEE EE EEEE EEEEEEEEEEEEEEEE EE EEE EEEEEEEEEEE EEEEEEEEEEEEEE EE EE / 



IMMED SPACE 3 EEEEEEEEEE / EE EEE EEE EEEE EE EEEEEEEEEE EEEEEEE EEEEEEEEE EE EEEEEE 



CHANNEL 8 EEEEE EEEEEEEEEE EEEEEEEEEE EE EE EEEEEEEEEEEEEEEEEEEEEEEEEE EEEE / 

WRITE SKIP TO 9 EEEEE EEEE EEEE EEEEEEEEE EEE EE EE EEEEEEEEEEEEEEEEEEEEEEE EE EEEEE / 



IMMED SPACE 3 EEEEEE / EEEE EEEEE EEEEEEEEE EEE EEEEEEE EE EEE EEEEE EEEE EEE EEE EEEE 



IMMED SPACE 3 EE / EEEE EEEEEE EE EE EE EEEEEE EEE EEEEEEEEE EEEEE EEE EEEEEE EEEE EEEE 



CHANNEL 9 EEEEE EEEE EEEE EEEEE EEEE EEE EE EEEE EEEEEEEEEEEEEEEE EEE EE EE EEEEE / 

WRITE SKIP TO 10 EEEEE EEEEEEEEEEEEE EEEE EEEEE EE EEEEEEEEEEEEEEEEEE EEEEE EEE EEEE / 



IMMED SPACE 3 / EEEEEEEEEEEEEEEEEEEEEEEEEE EEEEEEEEEEE EEEEEE EEEEEEEEE EEEE EE EE 



CHANNEL 10 EEEE EEE EE EEEEEE EEE EEEE EEE EE EE EE EEEEEEEEEE EEE EEEEE EE EEE EEEEE / 
WRITE SKIP TO 11 EEEE EE EEEE EEE EE EEEEEEE EEE EE EEEEEEEEEEE EEE EEEE EE EEEEE EE EEE EE / 
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10JUN65 
124255 



22JUN65 
124249 



I5JUL65 
124265 



04N0V65 
125611 



15MAR66 

125632 
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15MAR66 

125632 



01JUN66 
125653 



15N0V66 

125655 



ID F838-* 
PAGE 3A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 
1403 CARRIAGE FUNCTION TEST 



P/N 840212 
PAGE 4 



CHANNEL 11 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 
WRITE SKIP TO 12 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 



CHANNEL 12 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 



IMMEO SKIP TO 1 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 



1MMED SKIP TO 2 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 



IMMEO SKIP TO 3 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 



1MMED SKIP TO 4 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 



IMMEO SKIP TO 5 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 



IMMEO SKIP TO 6 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 



IMMED SKIP TO T EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 



IMMEO SKIP TO 8 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 
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IMMED SKIP TO 9 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 



IMMEO SKIP TO 10 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 



IMMEO SKIP TO 11 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 



IMMED SKIP TO 12 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 

SPACE SUPPRESS OK XXXXXX EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 

WRITE SPACE 1 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / E 

SPACE SUPPRESS OK XXXXXX EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / EE 

WRITE SPACE 1 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / EEE 

NOTE... XXXXXX IN ABOVE SAMPLE PRINTOUT IS NORMALLY OVERPRINTED. 

5. COMMENTS 

5.1 DETAILS ON SECTION FUNCTIONS. 

F838 — CHANNEL 9 AND 12 TEST RTN 1 AND 2 

THE SENSE CHANNEL 9 AND 12 ROUTINE PRINTS SET-UP 
INSTRUCTIONS ON THE C.E. OUTPUT DEVICE AND GOES INTO THE WAIT 
STATE TO ALLOW TIME TO EXECUTE THE INSTRUCTIONS. THE PRINTOUT 
SAYS TO RESTORE THE DIAGNOSTIC CARRIAGE TAPE TO CHANNEL I AND TO 
BE SURE THAT THE CHANNEL 1 BRUSH IS RESTING IN THE CHANNEL 1 
HOLE WHEN THE TEST IS STARTED. THIS SYNCHRONIZES THE CARRIAGE TAPE 
WITH THE PROGRAM. THE PROGRAM IS RESTARTEO BY MAKING THE PRINTER READY 
AND PUSHING THE EXTERNAL INTERRUPT KEY. 

A SKIP TO CHANNEL 1 FOLLOWED BY TWO SPACE 1 IMMEDIATE COMMANDS ARE 
ARE ISSUED. AFTER THE FIRST OF THE TWO SPACE 1 COMMANDS IS EXECUTED A 
CHANNEL 9 HOLE SHOULD BE DETECTED ON THE CARRIAGE TAPE AND BREAK COMMAND 
CHAIN WITH UNIT CHECK INDICATED. 

A SKIP TO CHANNEL 4 FOLLOWED BY TWO SPACE 1 IMMEDIATE COMMANDS ARE 
ISSUED. AFTER THE FIRST OF THE TWO SPACE 1 COMMANDS IS EXECUTED A 
CHANNEL 12 HOLE SHOULD BE DETECTED ON THE CARRIAGE TAPE AND BREAK 
COMMAND CHAIN WITH UNIT EXCEPTION. 

F838 — FORMS SPACE AND SKIP TEST RTN 3 

THE PROGRAM TESTS SPACE, SKIP, SPACE SUPPRESS, AND IMMEDIATE 
OPERATIONS. A TABLE HAS BEEN SET UP IN STORAGE -CCTAB- WHICH 
DICTATES THE SEQUENCE OF OPERATIONS. THIS ORDER MAY BE CHANGED 
WITH REP — REPLACE — CARDS, OR MANUALLY AT RUN TIME. 
ALL SPACE OPERATIONS MAY BE CHECKED BY SIGHTING ALONG THE 
DIAGONAL SLASH LINE. IF IT IS STRAIGHT, NO ERROR OCCURED. 
SKIP OPERATIONS ARE CHECKED BY THE PROGRAM. A NINE OR TWELVE IS 
SENSED AFTER EACH SKIP. 

TO REPEAT A SPECIFIC TYPE OF OPERATION, ENTER THE COMMAND IN THE 

PROGRAM SECTION PREFACE BYTE 005. SEE CHART 6.1 . 

THE LETTER IS PLACED IN THE PRINT AREA TO PROVIDE A GUIDE FOR 

PRINT ALIGNMENT. IF ANOTHER CHARACTER IS DESIRED PUT THIS 

CHARACTER IN THE MVI INSTRUCTION AT ADDRESS -NOREST-. 

SUPPRESS PRINTING IS CHECKED BY X-ING OUT THE WORD -FAILED-, AND 

ADDING THE WORD -QK-. 
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01 - 01 

02 - 09 

09 - 02 

10 - 09 

17 - 03 

18 - 09 

25 - 04 

26 - 12 



33 - 05 

34 - 12 

41 - 06 

42 - 12 

49 - 07 

50 - 12 

57 - 08 

58 - 12 



65 - 09 

66 - 12 
73 - 10 
74-09 

81 - 11 

82 - 09 

89 - 12 

90 - 09 



APPENDIX 



6.1 



DATE 
EC 



1403 COMMAND CODES. 



FUNCTION 



COMMAND CODE BITS 
0123 456 7 



* 
* 

♦ 
* 

* 
« 

* 
* 

* 
* 
* 

* 
* 
* 
* 
* 

* 
* 



NO OP • 00 

SENSE . . . 00 

TEST I/O • . . 00 

PR SP SUP 10 

PRSP1 00 

PR SP 2 . . . • . . . 00 

PR SP 3 . 00 

IMMEO SP1 . . • 0 0 

IMMED SPX 00 

IMMED SKIP 1 10 

IMMED SKIP 2 10 

IMMED SKIP X ..IX 

PR SKIP 1 ...10 

PR SKIP 2 ....... 10 

PR SKIP X .*.. IX 

I I 

SKIP BIT— I I 

I- 



WR 



HEX 
CODE 

03 
"04 
00 
81 
09 
11 
19 
OB 

8B 
9B 

89 
91 



TE BIT 



SPACE— SKIP VALUE 8 4 2 1- 



I 

I r-I MMEDI ATE 



I 

I 

I- SENSE 



WHERE X MAKES UP THE TOTAL NUMBER OF LINES 
SPACED OR SKIPPED 

! NOTE.. .LOOPING ON ANY IMMEDIATE SKIP COMMAND 
MILL PRODUCE NO CARRIAGE MOTION. NO INDICATION OF THIS WILL BE GIVEN 
TO THE PROGRAM, I 



6.2 1403 SENSE BYTE 

* ONE SENSE BYTE 

* BIT MEANING 
♦ 

* 0 COMMAND REJECT 

* 1 INTERVENTION REQUIRED 

* 2 BUS OUT CHECK 

* 3 EQUIPMENT CHECK 

* 4 DATA CHECK 

* 5 BUFFER CHECK 

* 6 NOT USED 

* 7 CHANNEL 9 SENSED 



STATUS 
UNIT CHECK 



UNIT CHECK 



LAST PAGE 



10JUN65 
124255 



22JUN65 
124249 



15JUL65 
124265 



04NOV65 
125611 



15MAR66 

125632 



01JUN66 
125653 



15N0V66 
125655 
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o 
c 
o 

o ; 
o I 
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DATE 
EC 



001000 



8383 TITLE 

********************************************************************** 

* MODIFICATIONS ♦ 
* 

* REVISION LEVEL 3* THIS REVISION DIFFERS FROM VERSION 2 AS FOLLOWS. . • 

* !• THIS PROGRAM NO LONGER RESTORES THE UCS BUFFER, USE PROGRAM 

* ID F837 TO RESTORE THE UCS BUFFER. 

* 2* THE PROGRAM HAS BEEN MODIFIED TO INCLUDE TESTING OF THE 

* CHANNEL 9 AND 12 LATCHES WHICH WAS PREVIOUSLY DONE ON THE 

* NOW OBSOLETE PROGRAM ID F839. 

* 3. TESTING OF INVALID COMMANDS HAS BEEN REMOVED AND IS NOW BEING 

* DONE IN PROGRAM ID F831 

* 4. BUFFER RESTORE FUNCTION HAS BEEN REMOVED AND IS NOW BEING 

* DONE BY PROGRAM ID F837. 

* E.C. PREREQUISITES 

* MACHINE . • . 2821 MUST BE AT EC 125655 OR LATER 

* PROGRAM • • • NONE 

* 

********************************************************************** 

* VERSION 2 * 

* EC 125632 THE PROGRAM HAS BEEN MODIFIED TO RESET BLOCK DATA * 

* CHECK LATCH, ON UCS PRINTERS, DURING INITIALIZATION* 

* OF THE SECTION. * 
* 

* USE DESCRIPTION F838* AT EC 125655, DATED NOV 15, 1966 OR LATER. 
********************************************************************** 
*********************************************************************** 

XF8383 START 4096 
USING *,15 

******************* ******************* 

* SECTION PREFACE *********************************** SECTION PREFACE * 



******************* 



001000 


F8383000 


SECNO 


DC 


XL4*F8383000» 


001004 


00000000 


SNSW 


DC 


XL4*00* 


001008 


0000 




DC 


XL2*00* 


OOIOOA 


0000 


ICM 


DC 


XL2'00* 


00100C 


00 


SDMF 


DC 


XL1*00* 


00100D 


01 


NIOU 


DC 


XLl'Ol* 


00100E 


CO 


FLAG1 


DC 


X»C0» 


00100F 


00 


FLAG2 


DC 


X*00* 


001010 


0104000000 


INPSW 


DC 


X* 01 04000000* 


001015 


0011FC 




DC 


AL3(BEGIN) 


001018 


0000000000000000 


EXOPSW 


DC 


XL8*0» 


001020 


0000000000000000 


SVOPSW 


DC 


XL8»Q0* 


001028 


0000000000000000 


PGOPSW 


DC 


XL8*00* 


001030 


0000000000000000 


MCOPSW 


DC 


XL8*00* 


001038 


0000000000000000 


IOOPSW 


DC 


XL8*00* 


001040 


0000000000000000 


csw 


DC 


XL8*00* 


001048 


00000000 


CAW 


DC 


XL4*00* 


00104C 


000000000000000000 




DC 


XL12*00* 


001055 


000000 








001058 


0004000000 


EXNPSW 


DC 


X* 0004000000* 


00105D 


000000 


SRET 


DC 


XL3*0* 


001060 


0000000000000000 


SVNPSW 


DC 


XL8*00* 


001068 


0000000000000000 


PGNPSW 


DC 


XL8*00* 


001070 


0000000000000000 


MCNPSW 


DC 


XL8*00* 


001078 


01040000 


IONPSW 


DC 


XL4*01040000* 


00107C 


00000000 




DC 


XL4*0« 


001080 






DS 


96C 


0010E0 


83 


UNIT! 


DC 


X*83* 


0010E1 


00 


U10P 


DC 


X*00» 


0010E2 


8000 


U1ADDR 


DC 


X*8000* 



******************* 

PROGRAM, SECTION AND REVISION NOS. * 
SECTION SENSE SWITCHES , * 

/ * 

INTERRUPTION CONDITION MASK * 
SECTION DM FLAGS * 
NUMBER OF UNIT TABLE ENTRYS * 
EXCLUSIVE CPU * 
I/O INT ARE ERR, EXT INT TO PROG * 
DISABLED, SPVSR STATE, NO PGM MASK * 



ADR OF 1ST ROUTINE PREFIX 
SECTION OLD EXTERNAL PSW 
CLEAR ALL OLD PSWS 
PROGRAM OLD PSW 
MACHINE CHECK OLD PSW 
I/O OLD PSW 
CHANNEL STATUS WORD 
CAW 

RESERVED FOR DM USE 

EXTERNAL NEW PSW 

ADR OF EXT INTRPT ROUTINE 

SUPERVISOR NEW PSW 

PROGRAM NEW PSW 

MACHINE CHECK NEW PSW 

I/O NEW PSW 



96 BYTE REG DUMP AREA FOR DM USE * 
UNIT TYPE - * 
OPTIONAL FEATURES BYTE * 
FLAGS AND CHAN/UNIT ADDRESS * 
*********************************************************************** 
*******«***«*****************#**************************************** 
* 

* INITIALISE ROUTINE * 



10JUN65 

124255 



22JUN65 # 15MAR66 15N0V66 
124249 125632 ' 125655 
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********************************^ 



0010E4 


Ol Art c f\c y 

Vi 4u f Ocl 


INITAl 


. TM 


U10P,X*40* 


*▼********************************,! 

CHECK FOR STL FEATURE 


00 10E8 


A7 on C OC/l 




BC 


NONE, ZOOM 


BR. IF NOT DEFINED IN UDT 


0010EC 


OA DO 




SVC 


X'DO* 




00 10 EE 


20 




DC 


X*20* 


PRINT -STL-SECTION BYPASSED- 


0010EF 


15 




DC 


X»15* 




0010F0 


FB2C 




DC 


AL2 ( STL-BASE+REG) 




0010F2 


OA D6 




SVC 


X»D6» 


EXIT FROM ROUTINE 


0010F4 


U A uu 


ZOOM 


SVC 


X'DO* 




0010F6 


AO 




DC 


X*AO* 




0010F7 


0 1 




DC 


X'Ol • 




0010F8 


F2F0 




DC 


AL2 (BLANK-BASE+REGS 




00 10 FA 


IB DD 




SR 


R13,R13 


SET UP FOR SUPERVISOR STATE 


0010FC 


Ql 4fl P 1 QA 




TM 


406(14) ,X*40* 


CHECK FOR FORCED PROBLEM STATE » 


00 1 1 OO 

SJVJ J. X vU 


a? on c in*. 
*r f ou r 1U(> 




BC 


NONE, BLOOP 


BR. IF NOT 


001104 


18 OF 




LR 


R13,R15 


SET UP FOR PROBLEM STATE 


00 1 106 


jo r UtU 


BLOOP 


L 


R12,UNIT1 


LOAD REG 12 FROM UNIT TABLE 


00110A 


54 rn p con 




N 


R12,M0050 


AND OUT BITS FOR MODEL 50 


00 1 1 0 E 


AO rn c tor 
" j vU r J.I3W 




CH 


R12,SAVDEV 


COMPARE FOR SAME DEVICE ADDRESS 


001112 


47 an e i 

*r 1 OKI r 




BC 


EQ f GI TOUT 


BR. IF EQUAL 


001116 


40 rn p mr 

"tv/ V* \J i IDv 




STH 


R12,SAVDEV 


PLACE CURRENT DEVICE ADDR IN AREA 


001 11 A 


OA DO 




SVC 


X*DO* 


PRINT OPERATOR INSTRUCTIONS 


00 1 1 1 C 


34 




DC 


X«34» 


INSERT CARRIAGE TAPE 


00111D 


IB 




DC 


X*1B* 




00111 E 


F13A 




DC 


AL2 (TEL1-BASE+REG) 




001120 


n a nn 




SVC 


X*DO* 


RESTORE CARRIAGE TO I ^ 


001122 


AO 




DC 


X»AO* 




001123 


1C 




DC 


x*ic* • 




001124 


"133 




DC 


A L2 ( TEL2-8ASE+RE6 J 




001126 


OA DO 




SVC 


X*DO* 


CHECK POS OF BRUSHES 


001128 


AO 




DC 


X«AO* 




001129 


2B 




DC 


X*2B* 




00112A 


F 1 7 1 




DC 


AL2C TEL3-BASE+REG) 




00112C 


OA DO 




SVC 


X*DO* 


MAKE PRINTER READY 


00112E 


80 




DC 


X*80* 




00112F 






DC 


X«1F* 




001130 


F19C 




DC 


AL2CTEL4-BASE+REG) 




001132 


OA DA 




SVC 


X*DA* 


WAIT FOR INTERRUPT TO CONTINUE 


001134 


qo nn p oar 

UU r Vou 


G I TOUT 


MVI 


0UTSNS+9,X*00* 


CLEAR SENSE 


001138 


07 FB 




BCR 


UNCRll 


RETURN VIA' REGISTER 11 


00 1 1 3 A 




TEL1 


DC 


C* INSERT TEST CAR* 




001143 


C5E2E340C3C1D9 










00114A 


D9C9C1C7C540E3C1D7 




DC 


C 'RI AGE TAPE,* 




001153 


C56B 










001155 


40D9C5E2E3D6D9C540 


TEL2 


DC 


C* RESTORE CARRI AG* 




00115E 


C3C1D9D9C9C1C7 










001165 


C540E3D640C3C8C1D5 




DC 


C*E TO CHAN. 1* 




00116E 


4B40F1 










001171 


40C3C8C5C3D240C6D6 


TEL 3 


DC 


C* CHECK FOR CHAN. • 




00117A 


D940C3C8C1D54B 










001181 


F140C8D6D3C56B40F1 




DC 


C*l HOLE, 1 LINE P* 




00118A 


40D3C9D5C540D7 










001191 


C1E2E340C2D9E4E2C8 




DC 


CAST BRUSHES* 




00119A 


C5E2 










00119C 


40D4C1D2C540D7D9D5 


TEL4 


DC 


C* MAKE PRNTR RDY, • 




0011A5 


E3D940D9C4E86B 










0011AC 


40D7E4E2C840C9D5E3 




DC 


C* PUSH INTERRUPT* 




0011B5 


C5D9D9E4D7E3 










0011BC 






CNOP 


0,4 




0011BC 


FFFF 


SAVOEV 


DC 


X 'FFFF • 




0011BE 


92 40 F CB4 


LOOP 


MVI 


CCW1+4,X*40* 


SET UP TO CHAIN COMMANDS 


001 1C2 


41 AO F CBO 




LA 


R10,CCW1 


SET UP CAW 


0011C6 


91 80 F 004 


STRTIO 


TM 


SNSW,X*80* 


SEE IF SENSE SWITCH '0 STILL ON 


0011CA 


47 80 F 1E2 




BC 


NONE, SQUARE 


BR. IF SS 0 OFF 


0011CE 


50 AD 0 048 




ST 


R10,HCAW(R13) 


SET UP CAW 


0011D2 


9D 00 C 000 




TIO 


0(R12) 


ISSUE TIO 


0011D6 


47 70 F 1C6 




BC 


NCCOtSTRTIO 


LOOP UNTIL CLEAR 
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! 0011DA 


9C 


00 


c 


000 




SIO 


0(R12) 


j 0011DE 


47 


FO 


F 


1C6 




BC 


UNCSTRTIO 


1 0011E2 


58 


9D 


0 


198 


SQUARE 


L 


R9,WTtR13) 


' 0011E6 


88 


90 


0 


005 




SRL 


R9,5 


! 0011EA 


90 


00 


C 


000 


TT 


TIO 


0(R12) 


1 0011EE 


46 


90 


F 


1EA 




BCT 


R9f TT 


j 0011F2 


92 


00 


F 


CB4 




MVI 


CCW1+4,X*00* 


0011F6 


47 


FO 


F 


SF4 




BC 


UNC9SIOSIO 



ISSUE START 1-0 1 
BR. TO TIO 
LOAD WAIT FACTOR 
ADJUST 

ISSUE TEST 1-0 
LOOP UNTIL CLEAR 

RESTORE CCW TO NO CHAIN COMMAND 
BACK TO MAIN PROGRAM 

* 

# 
* 

* ROUTINE 1 - CHANNEL 9 TEST * 

# 



001 IF A 












CNOP 


0 1 4 




001 1FA 


07 00 






BCR 


0 » 0 




0011FC 


01 








BEGIN 




X • 01 • 




OOllFD 


000308 












001200 


45 


BO 


r 


0E4 




DAL 


Rll.INITAI 


do T t\ 1MITIAI f 7 rn n ni it T u r 

tSK. 1 U INI 1 lALIlcR ROUTINE 


001204 


58 


9E 


0 


198 




L 


RQ.WT(R14i 


t n/&n uatt cirtno 
LUAU MA 1 I r All UK 


001208 


88 


90 


0 


003 




SRL 


R9 ,3 


ADJUST 


00120C 


9D 


00 


r 

V 


000 


TCTf I » 


Tin 




CLEAR PENDING INTERRUPT 


001210 


47 


70 


F 


236 






nee n - t to v 


LOUP UNTIL CLEAR 


001214 


92 


8B 


F 


440 


nnci 

UU *f 


Ut/T 

PI V 1 




TNCIIDC CV ID TO fUAM 1 TM rf LI 

llNdUKc or\ I r 1 U LHAN 1 IN CCW 


001218 


92 


OF 


F 


BA8 




UU1 

n¥l 


CUT TfU • x *nF • 


Cct no ctn cuitru 
5tl UK 2> I U oMIICH 


00121C 


92 


CO 


F 


BA9 




MVI 


cut TrH4>1 » y trr* 9 


001220 


92 


09 


F 


424 




MVI 


Mtyru . v tna • 
n jBUnt A XJir 


OnilTTKIC CUITfLI 

KUUllNt bWIItn 


001224 


41 


AO 


F 


440 




LA 


RIO, GOSKP 


SET UP CAW 


001228 


50 


AD 


0 


048 




ST 


R10,HCAW(R13) 




00122C 


45 


60 


F 


5DC 




BAL 


R6.SI01 


BR, TO SIO ROUTINE 


001230 


47 


FO 


F 


20C 




BC 


UNC »TSTCLR 


BR. TO START AGAIN 


001234 


OA 


D6 






END 9 


SVC 


X«D6» 


EXIT ROUTINE 


001236 


46 


90 


F 


20C 


ITRY 


BCT 


R9t TSTCLR 


LOOP UNTIL CLEAR OR TIME OUT 


00123A 


47 


FO 


F 


214 




BC 


UNCD09 


TRY AGAIN FOR CLEAR DEVICE 


00123E 


95 


01 


F 


982 


CKIT 


CLI 


SAVSNS,X*01* 


COMPARE FOR CHAN 9 IN SENSE 


001242 


47 


60 


F 


286 




BC 


UNEQf DECIDE 


BR. IF NO UNIT CK CHAN 9 


001246 


91 


01 


D 


044 




TM 


HCSW+4CR13),X*0i* 


TEST FOR UNIT EXCEPTION 


00124A 


47 


80 


F 


27A 




BC 


NONE .REWORK 


BR. IF NO UNIT EXCEPTION 


00124E 


OA 


DO 








SVC 


X'DO* 


001250 


AO 










oc 


X'AO* 




001251 


01 










DC 


X*01* 




001252 


F2F0 








DC 


AL2(BLANK-BASE+REG> 




001254 


OA 


DO 








SVC 


X'DO* 




001256 


64 










DC 


X»64» 




001257 


33 










DC 


X»33» 




001258 


F3F1 








DC 


AL2 ( UNEXUE-BASE+REG) 




00125A 


OA 


DO 








SVC 


X«DO* 




00125C 


EO 










DC 


X«E0 8 




00125D 


OB 










DC 


X»OB* 




00125E 


F983 








DC 


AL2 ( OUTSNS-BASE+REG) 




001260 


OA 


DO 






BACK9 


SVC 


X«DO« 




001262 


CO 








BK9 


DC 


X'CO* 




001263 


10 








BK91 


DC 


X*10* 




001264 


F2F2 








DC 


AL2CBUTYFL-BASE+REG) 




001266 


92 


CO 


F 


262 




MVI 


BK9,X*C0* 


RESTORE MESSAGE PARAMETER 


00126A 


92 


10 


F 


263 




MVI 


BK91,X*10* 


RESTORE MESSAGE PARAMETER 


00126E 


91 


80 


F 


004 




TM 


SNSW,X*80« 


TEST FOR LOOP SW 


001272 


47 


10 


F 


214 




BC 


ALLt D09 


BR. TO LOOP 


001276 


47 


FO 


F 


2BE 




BC 


UNCCLR9 


EXIT ROUTINE 


00127A 


92 


04 


F 


262 


REWORK 


MVI 


BK9,X*04* 


SET UP MESSAGE PARAMETERS 


00127E 


92 


13 


F 


263 




MVI 


BK91,X*13* 


SET UP MESSAGE PARAMETERS 


001282 


47 


FO 


F 


260 




BC 


UNCBACK9 


GO PRINT OUT CHAN 9 OK 


001286 


91 


01 


F 


982 


DECIDE 


TM 


SAVSNStX*01« 


SEE IF CHAN 9 IN SENSE 


00128A 


47 


10 


F 


2C6 




BC 


ALLt VARY9 


ALTER MESSAGE TO SAY— HAVE CHAN 



DATE 



10JUN65 
124255 



22JUN65 
124249 



15MAR66 
125632 



15N0V66 
125655 



ID F838-3 
PAGE 2 



ooo-ooooooooooooo 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 
1403 CARRIAGE FUNCTION TEST 



P/N ' 840213 
PAGE U 



00128E 


91 01 D 044 


DEC I 


TM 


HCSW+41R13) »X*01* 


SEE IF UNIT EXCEPTION 


001292 


47 80 F 2A0 




BC 


NONE t BACK10 


BR. IF NO UNIT EXCEPTION 


001296 


92 EO F 2A2 




MVI 


BK10,X*E0* 


MODIFY MESSAGE PRINTOUT 


00129A 


OA DO 




SVC 


X*DO» 




00129C 


64 




DC 


X*64« 




00129D 


33 




DC 


X*33* 




00129E 


F3F1 




DC 


AL2 ( UNEXUE-BASE+REG ) 




0012A0 


OA DO 


BACK10 


SVC 


X«DO* 




0012A2 


64 


BK10 


DC 


X*64* 




0012A3 


20 




DC 


X'20« 




0012A4 


F2D0 




DC 


AL2 (BLAB~BASE+REG) 




0012A6 


OA 00 




SVC 


X'DO* 




0012A8 


CO 




DC 


X«CO« 




0012A9 


OB 




DC 


X'QB* 




0012AA 


F983 




DC 


AL2(0UTSNS~BASE+REG) 




0012AC 


92 64 F 2A2 




MVI 


BK10,X*64* 




0012B0 


D2 01 F 2D1 F 305 




MVC 


BLAB+K2! »N0 


RESTORE CHAN 9 MESSAGE 


0012B6 


91 80 F 004 




TM 


SNSWtX*80* 


TEST SS 0 FOR LOOP OPTION 


0012BA 


47 10 F 214 




BC 


ALL ? D09 


BR. TO LOOP 


0012BE 


92 00 F 424 


CLR9 


MVI 


NSWCHtX*00* 


RESET ROUTINE SWITCH 


0012C2 


47 FO F 234 




BC 


UNCtEND9 


BR. TO EXIT ROUT INE 


0012C6 


.02 01 F 2D1 F 2F0 


VARY9 


MVC 


BLAB+H2) tBLANK 


REMOVE N 0 FROM MESSAGE 


0012CC 


47 FO F 28E 




BC 


UNC « DEC I 


BR. TO GET REST OF PRINTOUTS 


00 12 DO. 


40D5D640C3C8C1D540 


BLAB 


DC 


C* NO CHAN 9 DETEC ' 




0012D9 


F94QC4C5E3C5C3 










0012E0 


E3C5C440C9D540E2C5 




DC 


C'TED IN SENSE BYT* 




0012E9 


05E2C540C2E8E3 










0012F0 


4040 


BLANK 


DC 


C» t 




0012F2 


40C3C8C1D540F940C4 


BUTYFL 


DC 


C* CHAN 9 DETECTED* 




0012FB 


C5E3C5C3E3C5C4 










001302 


40D6D2 


OK 


DC 


C* OK* 




001305 


D5D6 


NO 


DC 


C*NO* 





* 



* 

* 
* 

* ROUTINE 2 - CHANNEL 12 TEST * 

* 



001308 










CNOP 


0,4 




001308 


02 






BEGIN2 


DC 


X*02* 


ROUTINE PREFIX 


001309 


000458 






DC 


AL3 ( BEGI N3-BASE ) 


ROUTINE PREFIX 


00130C 


45 BO 


F 


0E4 




BAL 


R11,INITAL 


BR. TO INITIALIZER ROUTINE 


001310 


90 00 


C 


000 


BACKUP 


TIO 


0CR12) 


CLEAR PREVIOUS UNIT CHECK 


001314 


92 A3 


F 


440 


D012 


MVI 


G0SKP,X*A3* 


INSURE SKIP TO CHAN 4 IN CCW 


001318 


92 12 


F 


424 




MVI 


NSWCH,X*12* 


ROUTINE SWITCH 


00131C 


92 OF 


F 


BA8 




MVI 


SWITCH f X*OF* 


SET UP SIO SWITCH 


001320 


92 CO 


F 


BA9 




MVI 


SWITCH+itX*CO* 




001324 


41 AO 


F 


440 




LA 


RlOvGOSKP 


SET UP CAW 


001328 


50 AD 


0 


048 




ST 


R10,HCAW(R13) 


SET UP CAW 


00132C 


45 60 


F 


5DC 




BAL 


R6,SI01 


BR. TO SIO ROUTINE 


001330 


47 FO 


F 


310 




BC 


UNC, BACKUP 


BR. TO TRY AGAIN 


001334 


OA D6 






END12 


SVC 


X*D6* 


ROUTINE EXIT 


001336 


91 01 


0 


044 


GOTST 


TM 


HCSW+4tR13)»X*0i* 


TEST FOR UNIT EXCEPTION 


00133A 


47 10 


F 


370 




BC 


ALL,ISGOOD 


BR. IF NO ERROR 


00133E 


91 40 


F 


BA8 




TM 


SWITCH f X*40* 


WAS THERE UNIT CHECK 


001342 


47 80 


F 


356 




BC 


NONEtTELIM 


BR. IF NO UNIT CHECK PREVIOUSLY 


001346 


92 CO 


F 


358 


SAY1 


MVI 


TE,X*CO* 


MODIFY MESSAGE PRINTOUT 


00 134 A 


OA DO 








SVC 


X*DO* 




00134C 


64 








DC 


X*64* 




001340 


2D 








DC 


X*2D* 




00134E 


F3C4 








DC 


AL2( UNEXUC-BASE+REG) 




001350 


OA DO 








SVC 


X*DO* 




001352 


EO 








DC 


X*EO* 




001353 


OB 








DC 


X*OB« 




DATE 
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DATE 

EC 



001354 


F983 




DC 


AL2 (OUTSNS-BASE+REGl 




UU I«fDo 


03 












BEGIN3 


DC 


X • 03 ' 


ROUTINE PREFIX 


001356 


OA DO 


TELIM 


SVC 


X *D0 ■ 




nn l acq 


OOFFFF 










DC 


X'OOFFFF" 


ROUTINE PREFIX 


001358 


44 


TE 


DC 


X •44 l 




00145C 


45 


BO 


F 


0E4 








BAL 


11 t INITAL 


BR* TO INITIALIZE THE PROGRAM 


001359 


14 




DC 






nn i /. t. n 
UU l«»ou 


IB 


77 










T2B 


SR 


R7fR7 


CLEAR CONTROL COUNTER 


00135A 


F3B0 




DC 


AL2 (BLAB1-BASE+REG) 




00 1462 


41 


50 


F 


C2C 








LA 


R5 tPRINT+130 


RESET REG 5 SLASH POSITION 


00135C 


92 44 F 358 




MVI 


TE »X , 44 I 


MODIFY MESSAGE PRINTOUT 


00 1466 


IB 


44 










NEXT 


SR 


R4t R4 


CLEAR CONTROL CHARACTER 


001360 


91 80 F 004 


SPHERE 


TM 


SNSW,X'80' 


TEST FOR SS 0 ON 


001468 


91 


FF 


F 


005 






NEXT1 


TM 


SNSW+1 »X'FF * 


CHECK FOR CONSTANT CCW - SS OPTION 


001364 


47 10 F 314 




BC 


ALL t D012 


BR. TO LOOP IF SS 0 ON 


00146C 


47 


80 


F 


478 








BC 


NONE t NEXT2 




001368 


92 00 F 424 


CLR12 


MVI 


NSWCH^'OO" 


RESET ROUTINE SWITCH 


001470 


43 


40 


F 


005 








IC 


R4, SNSW+1 


GET CCW FROM SWITCHES 


00136C 


47 FO F 334 




BC 


UNCEND12 


EXIT 


001474 


47 


FO 


F 


47C 








BC 


UNC tNEXT3 


BYPASS NEXT CCW FETCH 


001370 


91 40 F BA8 


I SGOOD 


TM 


SWITCHtXHO 1 


UNIT CHECK PREVIOUSLY 


001478 


43 


47 


F 


B59 






NEXT2 


IC 


R4»CCTAB(R7) 


GET NEXT CCW FROM TABLE 


001374 


47 80 F 394 




BC 


NONE t NOPROB 


BR. IF NO UNIT CK PREVIOUS 


00147C 


42 


40 


F 


CBO 






NEXT3 


STC 


R4» CCW1 


STORE INST IN CCW 


001378 


92 CO F 396 




MVI 


N0PB»X , C0 t 


MODIFY MESSAGE 


001480 


92 


40 


F 


BAA 








MVI 


PRINTtC " 


CLEAR THE PRINT AREA 


00137C 


D2 01 F 437 F 2F0 




MVC 


L0VLY1+2C2) tBLANK 


INSURE ERROR MESSAGE 


001484 


D2 


82 


F 


BAB 


F 


BAA 




MVC 


PRINT+11131) * PRINT 


CLEAR THE PRINT AREA 


001382 


OA DO 




SVC 


X'DO 1 




00148 A 


94 


00 


F 


BA9 








NI 


SWITCH+1 1 X^O^ 


CLEAR SWITCH 


001384 


AO 




DC 


X'AO* 




00148E 


91 


02 


F 


CBO 






TWRITE 


TM 


CCW1 1 X'02 * 


TEST FOR WRITE 


001385 


01 




DC 


X'Ol 1 




001492 


47 


10 


F 


4A0 








BC 


ALL* IMMEO 


BR* IF AN IMMEDIATE COMMAND 


001386 


F2F0 




DC 


AL2 ( BLANK-BASE+REG ) 




001496 


02 


05 


F 


BAA 


F 


AFB 




MVC 


PRINT(6) tCWRITE 


MOVE 'WRITE' TO PRINT 


001388 


OA DO 




SVC 


X^DO 1 




00149C 


47 


FO 


F 


4AA 








BC 


UNC 9 TSPACE 




00138A 


64 




DC 


X , 64' 




00 14 AO 


D2 


05 


F 


BAA 


F 


ABE 


IMMED 


MVC 


PRINT(6) tCIMMED 


MOVE • IMMED 1 TO PRINT OUT 


00138B 


2D 




DC 


X^D' 




0014A6 


96 


40 


F 


BA9 








01 


SWITCH+1 tX , 40 t 


SET UP IMMEDATE SPACE SWITCH 


00138C 


F3C4 




DC 


AL2(UNEXUC-BASE+REG) 




0014AA 


91 


80 


F 


CBO 






TSPACE 


TM 


CCWlfX^O* 


TEST SPACE 


00138E 


OA DO 




SVC 


X^O* 




0014AE 


47 


10 


F 


512 








BC 


ALL, SKIP 


BR* IF A SKIP COMMAND 


001390 


EO 




DC 


X •EO* 




0014B2 


02 


05 


F 


BBO 


F 


B01 




MVC 


PRINT+6(6)»CSPACE 


MOVE •SPACE" TO PRINT 


001391 


OB 




DC 


X'OB* 




0014B8 


88 


40 


0 


003 








SRL 


R4.3 


SHIFT BITS RIGHT TO GET SPACE 


001392 


F983 




DC 


AL2 ( OUTSNS-BASE+REG) 




0014BC 


42 


40 


F 


BB7 








STC 


R4.PRINT+13 


NUMBER* STOR SPACE NO* IN PRINT 


001394 


OA DO 


NOPROB 


SVC 


X'DO' 




00 14C0 


96 


FO 


F 


BB7 








01 


PRINT+13fX«F0» 


AREA* OR IN -FO- TO PRINT OUT 


001396 


14 


NOPB 


DC 


X • 14 • 




nn i a f a 


91 


02 


F 


CBO 








TM 


CCW1,X»02« 


CHECK FOR IMMEADATE SPACE 


001397 


14 




DC 


X • 14* 




nn i a f a 
UU Into 


47 


80 


F 


4E8 








BC 


NONEySTOSP 


BR* IF A SPACE COMMAND 


001398 


F425 




DC 


AL2 1 LUVLY— BASE* REG 1 




0014CC 


IB 


54 












SR 


R5.R4 


STOR CURRENT / POS IN REG 4 


00139A 


D2 02 F 436 F 302 




MVC 


LQVLYl+i t 3 1 t OK 


INSURE CURRENT PRINTOUT 


0014CE 


41 


60 


F 


BC8 








LA 


R6.PRINT+30 




00 13 AO 


92 14 F 396 




MVI 


NOPB »X *14 • 


MODI FY MESSAGE PRINTOUT 


nn i a n *j 
UU LHUC 


91 


04 


F 


0E1 








TM 


U10P.X«04» 


120 POSITION PRINTER 


0013A4 


91 40 F BAB 




TM 


CUT TP LI v a a n 9 

SWI TCHtX '40 ' 




nn i AnA 
UUi*fUo 


47 


80 


F 


4DE 








BC 


NONE.BZ 


BR* IF NOT 


0013A8 


47 10 F 360 




BC 


lit f nucnr 

ALL , 5PHcRfc 


BR* TO Sec IF LOOP SW IS ON 


UU l*f UA 


41 


60 


F 


BBC 








LA 


R6.PRINT+18 


CHECK SLASH COUNTER 


0013AC 


47 FO F 368 




BC 


UNC ,CLR1Z 


CAl 1 RuUTINc 


nn i ah c 
UU if U.C 


19 


56 










BZ 


CR 


R5tR6 


SEE IF SLASH IN MESSAGE AREA* BR* NO 






* 








UU IHCU 


47 


20 


F 


ACC 

■frre 








or 

Cw 


HI, NOREST 


DO NOT RESET THE SLASH COUNTER 


nn i ion 


40U506«fOC JCoC 1U94U 


m Aft i 
BLAB 1 


01* 


t * NO UnAIM lc DC It* 




on i aca 


47 


FO 


F 


A cc 








nf* 

DV* 


UNC, RE SETS 




0013B9 


F1F240C4C5E3C5 










nn i A.co 
UU 1 •tco 


18 


04 










crncD 
S 1 USr 


LR 


R0,R4 


STORE SPACE COUNT 


0013C0 


C3E3C5C4 




DC 






nn iiCA 

UU ltCA 


47 


FO 


F 


4FE 








BC 


UNC, NOREST 


RESET SLASH POSITION 


0013C4 


40C7D6t340e4D5C5c 7 


1 IkIC VI if 

UNcXuw 


DC 


1" t FIT IIMCVOCTTCn • 

t GUT UNeXrctTcD " 




nn lice 

UU 1HCC 


41 


50 


F 








DC CCTft 


LA 


R5,PRINT+130 


0013CD 


D7C5C3E3C5C440 










00 1 4 F 2 


91 


04 


F 


0E1 








TM 


U10P,X«04« 


CHECK IF 120 POS PRINTER 


0013D4 


fc4D5C9c340u3D24Uc6 




DC 


CUNIT CK WHILE TE • 




nn i ac a 
uu inro 


47 


80 


F 


ACC 








BC 


NONE, NOREST 


BR. IF NOT 


00 13 DO 


C8C9U3C540c3C3 










nn i ac a 

UU lHr A 


41 


50 


F 


C20 








LA 


R5,PRINT+118 




0013E4 


cZc3C9u5C74uC3CoC 1 




DC 


C'STING CHAN 12 • 




nn iacc 
uu if re 


9? 




p 


nor 

DDI, 






NOREST 


MVI 


PRINT+18,C«E« 


SET E TO PRINT 


0013ED 


D540F1F2 










nn i cfi5 ■ 
UU l!>Uc 


D2 


71 


F 


BBD 


F 


BBC 




MVC 


PRINT+19< 114) ,PRINT+18 MOVE E TO ALL LOCATIONS 


00 13 Fl 




UNEXUE 


DC 


C« GOT UNEXPECTED • 




00 1508 


02 


02 


5 


000 


F 


CAA 




MVC 


0(3,5),CSLASH 


INSERT SLASH 


0013FA 


D7C5C3E3C5C440 










00150E 


47 


FO 


F 


55C 








BC 


UNC, SETCAW 




001401 


E4D5C9E340C5E7C3C5 




DC 


C'UNIT EXCEPTION W« 




001512 


02 


07 


F 


BBO 


F 


AF3 


SKIP 


MVC 


PRINT+6(8),CSKIP 


MOVE 'SKIP • TO PRINT 


00140A 


D7E3C9D6D540E6 










001518 


96 


80 


F 


BA9 








01 


SWITCH+l.X'eO 1 


SET UP SKIP SWITCH 


001411 


C8C9D3C540E3C5E2E3 




DC 


C'HILE TESTING CHA 9 




. 00151C 


88 


40 


0 


003 






ITEM 


SRL 


R4,3 


SHIFT BITS TO DETERMINE SKIP TO WHAT 


00141A 


C9D5C740C3C8C1 










001520 


4B 


40 


F 


CA4 








SH 


R4,CX19 


SUBTRACT 19 


001421 


D540F9 




DC 


C«N 9' 




001524 


47 


20 


F 


542 








BC 


HI, GRTER 




001424 


00 


NSWCH 


DC 


X»00« 




001528 


4A 


40 


F 


CAO 








AH 


R4,CX9 




001425 


40C3C8C1D540FIF240 


LOVLY 


DC 


C» CHAN 12 DETECTE' 




00152C 


42 


40 


F 


BBA 








STC 


R4,PRINT+16 


STORE SKIP TO NUMBER 


00142E 


C4C5E3C5C3E3C5 










001530 


96 


FO 


F 


BBA 








01 


PRINT+16,X«F0» 


LOAD IN FO TO PRINT OUT 


001435 


C440D6D2 


L0VLY1 


DC 


C«D 0K« 




001534 


92 


40 


F 


A66 








MVI 


CSKFAL*5,X«40« 




001440 


8B 001BAA 4000 0001 


GOSKP 


CCW 


X«8BSPRINT f X«40« t l 




001538 


02 


00 


F 


A67 


F 


BBA 




MVC 


CSKFAL+6(1) ,PRINT-H6 


PUT CHAR IN FAIL MESSAGE 


001448 


OB 001BAA 4000 0001 




CCW 


X'OB'tPRINTtXHOSl 




00153E 


47 


FO 


F 


4E6 








BC 


UNC , RESETS 




001450 


OB 001BAA 0000 0001 




CCW 


X'OBSPRINTfX'OOSl 




001542 


4B 


40 


F 


CA8 






GRTER 


SH 


R4,CX1 


SUBTRACT 1 FROM SKIP TO INFO 














001546 


42 


40 


F 


BBA 








STC 


R4,PRINT+16 


MOVE SKIP TO INFO TO PRINT 






* 








00154A 


96 


FO 


F 


BBA 








01 


PRINT+16,X«F0« 


ADJUST FOR PRINTOUT 






* 








00154E 


92 


Fi 


F 


BB9 








MVI 


PRINT*15,X«F1« . 


MOVE HIGH ORDER DIGIT TO PRINT 






4^*^*********************************************^^ 


001552 


02 


01 


F 


A66 


F 


BB9 




MVC 


CSKFAL+5(2),PRINT*15 


PUT CHAR IN FAIL MESSAGE 






* 








001558 


47 


FO 


F 


4EE 








BC 


UNC t RESETS 


RESET SLASH COUNTER 






* 




ROUTINE 3 - FORMS 


SPACE AND SKIP TEST * 


00155C 


41 


40 


F 


CBO 






SETCAW 


LA 


R4,CCW1 


SET UP 






* 








001560 


50 


40 


0 


048 








ST 


R4,HCAW(R13) 


CAW 








001564 


95 


01 


F 


CBO 








CLI 


CCWliX^Ol* 


• CHECK FOR SPACE SUPPRESS 


001458 






CNOP 


: 0»4 




001568 


47 


60 


F 


576 








BC 


UNEQtBSIO 





It- 
( 



10JUN65 

12425S 



22JUN65 
124249 



15MAR66 

125632 



15N0V66 
12S6S5 
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00156C 


96 


20 


F 


BA9 




01 


SWITCH+l.X'20* 




001570 


02 


18 


F 


BAA F 807 




MVC 


PRINT! 25) ,CSP3UP 


SPACE SUPPRESS TO PRINT 


001576 


45 


60 


F 


508 


BSIO 


BAl 


R6,SI0BEG 


SIO 


00157A 


95 


01 


F 


C80 




CLI 


CCW1,X»01' 


CHECK FOR SPACE SUPPRESS 


00157E 


47 


80 


F 


590 




BC 


EQ, IMOATA 




001582 


91 


02 


F 


CBO 




TM 


CCW1,X»02« 


CHECK FOR IMMEDIATE SPACE 


001586 


47 


10 


F 


590 




BC 


ALLtlMDATA 




00158A 


IB 


50 








SR 


R5,R0 


SUBTRACT SLASH COUNT 


00158C 


47 


FO 


F 


594 




BC 


UNC t LRED6 




001590 


5B 


50 


F 


C94 


IMOATA 


S 


R5,C1 


UP DATE SLASH COUNTER 


001594 


41 


60 


F 


BC8 


LRED6 


LA 


R6,PRINT+30 


SET UP FOR MAX 


001598 


91 


04 


F 


0E1 




TM 


U10P,X»04» 


CHECK FOR 120 POSITION PRINTER 


00159C 


47 


80 


F 


5A4 




BC 


NONEf DZ 


BR. IF NOT 


0015A0 


41 


60 


F 


BBC 




LA 


R6 V PRINT+18 




0015A4 


19 


56 






DZ 


CR 


R5»R6 


CHECK TO SEE IF SLASH IS MAX 


0015A6 


47 


20 


F 


5BA 




BC 


HI, NOSUP 




0015AA 


41 


50 


F 


C2C 




LA 


R5,PRINTfl30 




0015AE 


91 


04 


F 


0E1 




TM 


U10P,X«04 f 


CHECK FOR 120 POS PRINTER 


0015B2 


47 


80 


F 


5BA 




BC 


NONE « NOSUP 




0015B6 


41 


50 


F 


C20 




LA 


R5,PRINT+U8 




0015BA 


91 


FF 


F 


005 


NOSUP 


TM 


SNSW+1,X»FF« 


CHECK FOR CONSTANT CCW 


0015BE 


47 


50 


F 


466 




BC 


ANY, NEXT 


BR, IF CONSOLE ENTERED COMMAND 


0015C2 


91 


20 


F 


004 




TM 


SNSW,X»20« 


TEST SENSE SWITCH 2 


0015C6 


47 


10 


F 


466 




BC 


ALL, NEXT 


BR. TO LOOP CURRENT SIO COMMAND 


0015CA 


5A 


70 


F 


C94 




A 


R7,C1 


UP DATE CONTROL TABLE 


0015CE 


55 


70 


F 


C98 




CL 


R7,C54 


PROGRAM FINISHED 


0015D2 


47 


40 


F 


466 




BC 


LO,NEXT 


NOT. FINISHED 


001506 


OA 


D6 






EXIT1 


SVC 


X»D6« 


ROUTINE FINISHED 


0015D8 












CNOP 


0,4 


. PROGRAM ALIGN 



* 

*********************************************************************** 

* ***** SIO ROUTINE ***** * 

* 

*********************************************************************** 



00 1508 


94 


00 


F 


BA8 


SIOBEG 


NI 


SWITCH ,X '00 • 


RESET SWITCH 


0015DC 


92 


00 


F 


CC5 


SI01 


MVI 


CCW3+5,X»00« 


CLEAR SENSE DATA 


0015E0 


92 


00 


D 


044 




MVI 


HCSW+4(R13)tX , 00« 


CLEAR STATUS 


0015E4 


58 


9E 


0 


198 




L 


R9,WT(R14) 


LOAD WAIT FACTOR 


0015E8 


88 


90 


0 


003 • 




SRL 


R9,3 


ADJUST 


0015EC 


91 


80 


F 


004 




TM 


SNSW*X*80< 


TEST SENSE SWITCH 0 


0015F0 


47 


10 


F 


61E 




BC 


ALL, WHICH 


BR. TO LOOP SIO TIO 


0015F4 


9C 


00 


C 


000 


SIOSIO 


SIO 


0(R12) 


START I/O 


0015F8 


47 


10 


F 


62A 




BC 


CC3, SNOTOP 


NOT OPERATIONAL 


0015FC 


47 


20 


F 


640 




BC 


CC2,SBUSY 


DEVICE / CHANNEL BUSY 


001600 


47 


40 


F 


656 




BC 


CC1,SCSWST 


CSW STORED 


001604 


91 


40 


F 


BA9 




TM 


SWITCH+1,XH0» 


CHECK FOR IMMEDATE OPERATION 


001608 


47 


80 


F 


65E 




BC 


NONE ,TIOBEG 


GO TO WAIT FOR I/O SIGNAL 


00160C 


91 


FF 


F 


BA8 




TM 


SWITCH, X'FF* 


CHECK FOR SECOND TIME IN LOOP 


001610 


47 


50 


F 


65E 




BC 


ANY,TI OBEG 


BR* IF SECOND TIME THROUGH 


001614 


OA 


DO 








SVC 


X«DO» 


PRINT - NO CSW AFTER IMMEDATE 


001616 


4021 








DC 


XL2'4021« 


OPERATION 


001618 


FAC4 








DC 


AL2(N0CSW-BASE+REG) 




00161A 


47 


FO 


F 


65E 




BC 


UNC? TIOBEG 


SIO OK 


00161E 


91 


IB 


F 


424 


WHICH 


TM 


NSWCH^UB 1 


SEE IF FROM RTN 1 OR 2 


001622 


47 


70 


F 


1C6 




BC 


MIXED, STRTIO 


BR. TO LOOP 


001626 


47 


FO 


F 


1BE 




BC 


UNC » LOOP 














****** 


















* 


SIO 


NOT OPERATIONAL ROUTINE 












****** 








00162A 


OA 


DO 






SNOTOP 


SVC 


X«D0« 


PRINT-DEVICE NOT OPERATIONAL 


00162C 


AO 










DC 


X«A0« 




00162D 


01 










DC 


X«01» 




0Q162E 


F2F0 








OC 


AL2 ( BLANK-BASE+REG) 




001630 


OA 


DO 








SVC 


X«D0« 




001632 


4430 








DC 


XL2 i 4430» 




DATE 


10JUN65 




22JUN65 


15MAR66 15N0V66 




ID 
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124249 
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001634 
001636 
O0163A 
00163E 



001640 
001644 
001646 
001647 
001648 
00164A 
00164C 
00164E 
001650 
001654 



001656 
00165A 



F990 

91 80 F 004 
47 10 F 1BE 

07 F6 



46 90 
OA DO 
AO 
01 

F2F0 
OA 00 
4429 
F9C0 
90 00 
07 F6 



F 5F4 



C 000 



91 CO F BA9 
47 50 F 68E 



DC 
TM 
BC 
BCR 

******* 

* SIO 
******* 

SBUSY BCT 
SVC 
DC 
DC 
DC 
SVC 
DC 
DC 
TIO 
BCR 

******* 

* SIO 
******* 

SCSWST TM 
BC 
* 
* 
* 

********************************************************************** 
* 

* TIO ROUTINE 
* 

********************************************************************** 



AL2(CN0T0P-BASE+REG) 
SNSW,X»80« 

ALL,LOOP 
UNC ,R6 

BUSY ROUTINE 

R9, SIOSIO 
X»DO» 
X»AO« 
X»01* 

AL2 (BLANK-BASE+REG) 

X«DO« 

XL2»4429« 

AL2 (CSBUSY-BASE+REG) 

0CR12) 

UNCR6 

CSW STORED ROUTINE 

SNITCH+lfX'CO' 
ANY,TCSWST 



TEST FOR SENSE SWITCH 0 TO LOOP 
BR* TO LOOP IF SS 0 IS ON 



BUSY TOO LONG 



PRINT-BUSY TOO LONG 
AFTER SIO 



CHECK FOR IMMEDATE COMMAND 



X 



00165E 


91 


60 


F 


BA8 


TIOBEG 


TM 


SWITCH, X«60« 


CHECK FOR SENSE COMMANO 


001662 


47 


50 


F 


82C 




BC 


ANY,TIOSEN 




001666 


58 


9E 


0 


198 




L 


R9,WT(R14) 


LOAD WAIT FACTOR 


00166A 


88 


90 


0 


003 




SRL 


R9,3 


ADJUST 


00166E 


9D 


00 


C 


000 


TIOTIO 


TIO 


0(R12) 


TEST I/O 


001672 


47 


10 


F 


62A 




BC 


CC3, SNOTOP 


CHECK NOT OPER 


001676 


47 


20 


F 


682 




BC 


CC2, TBUSY 


CHECK FOR BUSY 


00167A 


47 


40 


F 


68E 




BC 


CCUTCSWST 


CHECK CSW STORED 


00167E 


47 


80 


F 


6EE 




BC 


CCO,TDVEND 


CHECK FOR ERRORS 












******* 
















* 


TIO 


TBUSY 














******* 






001682 


46 


90 


F 


66E 


TBUSY 


BCT 


R9, TIOTIO 




001686 


OA 


DO 








SVC 


X'DO' 


PRINT-BUSY TOO LONG 


001688 


4410 








DC 


XL2»4410« 


AFTER TIO 


00168A 


FA81 








DC 


AL2 (CTBUSY-BASE+REG) 




00168C 


07 


F6 








BCR 


UNCR6 


BACK TO PROGRAM 












****** 


















* 


TIO 


CSW STORED ROUTINE 














****** 








00168E 


91 


02 


D 


044 


TCSWST 


TM 


HCSW+41R13) tX*02* 


TEST FOR UNIT CHECK 


001692 


47 


80 


F 


69E 




BC 


NONE, TCSW 


BR. IF NO UNIT CHECK 


001696 


96 


40 


F 


BA8 




01 


SWITCH, X«40« 


SET UNIT CHECK SWITCH 


00169A 


47 


FO 


F 


6FA 




BC 


UNCMISSDE 




00169E 


91 


IB 


F 


424 


TCSW 


TM 


NSWCH«X*1B' 


TEST IF FROM RTN 9 OR 12 


0016A2 


47 


70 


F 


6EE 




BC 


MIXED, TD VEND 


BR. IF FROM RTN 9 OR 12 


0016A6 


91 


80 


F 


BA8 




TM 


SWITCHtX^O* 


CHECK FOR FIRST TIME THRU 


0016AA 


47 


10 


F 


6EE 




BC 


ALL ,TDVEND 


CHECK FOR DEVICE END 


0016AE 


96 


80 


F 


BAB 




01 


SWITCH, X«80« 


SET SWITCH 


0016B2 


91 


08 


D 


044 




TM 


HCSW+4CR13) tX '08 • 


TEST FOR CHANNEL END 


0016B6 


47 


10 


F 


6D6 




BC 


ALL fCECDE 




0016BA 


D2 


07 


F 


9EA D 040 




MVC 


CSCSW(8) ,HCSW(R13» 


SAVE CSW 


00 16 CO 


OA 


DO 








SVC 


X'DO' 




0016C2 


AO 










DC 


X«A0' 




0016C3 


01 










OC 


X'Ol' 




0016C4 


F2F0 








DC 


AL2 (BLANK-BASE+REG) . 




0016C6 


OA 


DO 








SVC 


X'DO' 


PRINT-NO CHANNEL END 


0016C8 


440 F 








DC 


XL2H40F* 




DATE 


10JUN65 




22JUN6S 


15MAR66 15N0V66 


' • . ' / ■ ' r 


V 


EC 


124255 




124249 


125632 125655 


■ '. , . '* ... 
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0016CA 


FAll 












DC 


AL2(CNCE-BASE+REG) 




0016CC 


D2 07 


D 


040 


F 


9EA 




MVC 


HCSW(8,R13) tCSCSW 


RESTORE CSW 

■ * 


0016D2 


47 FO 


F 


6EE 








BC 


UNCt TDVEND 


0016D6 


91 04 


D 


044 






CECDE 


TM 


HCSW+4(R13) tX , 04 V 


TEST FOR DEVICE END 


0016DA 


47 80 


F 


66E 








BC 


NONEtTIOTIO 




0016DE 


OA DO 












SVC 


X • D 0 • 




0016E0 


AO 












DC 


X«AO« 




0016E1 


01 












DC 


X^Ol' 




0016E2 


F2F0 












DC 


AL2 ( BLANK-BASE+REG) 




0016E4 


OA DO 












SVC 


X'DO 1 


PRINT-DEVICE END 


0016E6 


440 F 












DC 


XL2«440F» 


0016E8 


FA71 












DC 


AL2 ( CDEERR-BASE+REG) 




0016EA 


47 FO 


F 


66E 








BC 


UNCfTIOTIO 




0016EE 


91 02 


D 


044 






TDVEND 


TM 


HCSW+4CR13) ♦X , 02« 


TEST FOR UNIT CHECK 


0016F2 


47 80 


F 


706 








BC 


NONE y TDVE 


BR. IF NO UNIT CHECK 


0016F6 


96 40 


F 


BA8 








01 . 


SWITCH, X»4Q« 


SET UNIT CHECK SWITCH 


0016FA 


91 IB 


F 


424 






MISSDE 


TM 


NSWCH»X , 1B I 


SEE IF FROM RTN 9 OR 12 


0016FE 


47 70 


F 


8E2 








BC 


MI XEDw DQSNS 


GO ISSUE SENSE 


001702 


47 FO 


F 


764 








BC 


UNC, TIOOK 


GO ON IF NOT 


001706 


D2 01 


F 


98C 


F 


98E 


TDVE 


MVC 


0UTSNS+9(2) ,XX 


CLEAR SENSE PRINTOUT 


00170C 


92 00 


F 


982 








MVI 


SAVSNS,X , OO t 


CLEAR SENSE SAVE AREA 


001710 


91 04 


D 


044 








TM 


HCSW+4IR13) #X , 04« 


TEST FOR DEVICE END 


001714 


47 10 


F 


734 








BC 


ALL, DEDONE 


BR. IF RECEIVED DEVICE END 


001718 


46 90 


F 


66E 








BCT 


R9,TI0TI0 


00171C 


D2 07 


F 


9EA 


D 


040 


. NOGOT 


MVC 


CSCSW(8) ,HCSW(R13) 


SAVE CSW 


001722 


OA DO 












SVC 


X»DO» 




001724 


AO 












DC 


X'AO' 




001725 


01 












DC 


X'Ol^ . 




001726 


F2F0 












DC 


AL2( BLANK-BASE+REG) 




001728 


OA DO 












SVC 


X»DO' 


PRINT-NO DEVICE END 


00172A 


440 F 












DC 


XL2»440F 9 




00172C 


FA91 












DC 


AL2(CNDEND-BASE+REG) 




00172E 


D2 07 


D 


040 


F 


9EA. 




MVC 


HCSW(8,R13) ,CSCSVi 


RESTORE CSW 


001734 


91 40 


F 


BA8 






DEDONE 


TM 


SWITCH ♦X«40« 


test to skip busy check 


001738 


47 10 


F 


764 








BC 


ALL , TIOOK 


BR. IF SWITCH ON 


00173C 


91 09 


F 


424 






DEBUSY 


™ ... 


. NSWCHtX^OS 9 . 




001740 • 


47 10 


F 


286 








BC 


. ALL t DECIDE 


' .BR. IF FROM RTN 1 


001744 


91 10 


D 


044 








TM 


HCSW+4(R13) »X , 10 I 


TEST FOR BUSY 


001748 


47 80 


F 


764 








BC 


NONE tTIOOK 


BR* IF NOT BUSY 


00174C 


D2 07 


F 


9EA 


0 


040 




MVC 


CSCSW(B) fHCSMIRldf 


SAVE CSW 


001752 


OA DO 












SVC 


X»DO» 




001754 


AO 












DC 


X'AO* . 




001755 


01 












DC 


X'Ol* 




001756 


F2F0 












DC . 


AL2 (BLANK-BASE+REG ) 




001758 


OA DO 












SVC 


X^DO 1 


PRINT UNIT BUSY AFTER DEVICE 


00175A 


441C 












DC 


XL2 , 441C 8 




00175C 


FAAl 












DC 


AL2 (CDBUSY-BASE+REG) 




00175E 


02 07 


D 


040 


F 


9EA 




MVC 


HCSW(8,R13),CSCSW 


RESTORE CSW 


001764 


91 40 


F 


BA8 






TIOOK 


TM 


SWITCH, X«40« 


TEST UNIT CHECK SWITCH 


001768 


47 80 


F 


788 








BC 


NQNE,SKIP1 




00176C 


41 40 


F 


CCO 








LA 


R4,CCW3 




001770 


50 4D 


0 


048 








ST 


R4,HCAW(R13) 




001774 


91 09 


F 


424 








TM 


NSWCH,X»09« 


TEST IF FROM RTN 1 


001778 


47 10 


F 


23E 








BC 


ALL ,CKIT 


BR. TO CHECK IF FROM RTN 1 


00177C 


91 12 


F 


424 








TM 


NSWCH,X«12» 


TEST IF FROM RTN 2 


001780 


47 10 


F 


336 








BC 


ALL tGQTST ' 


GO TEST FOR UNIT EXCEPTION 


001784 


47 FO 


F 


5F4 








BC 


UNCSIOSIO 




001788 


91 12 


F 


424 






SKIP1 


TM 


NSWCH t XU2® 


TEST IF FROM RTN 2 


00178C 


47 10 


F 


336 








BC 


ALL ,GQTST 


GO TEST FOR UNIT EXCEPTION 


001790 


91 04 


F 


BA8 








TM 


SWITCH, X*04* 




001794 


47 80 


F 


7A4 








BC 


NONE, SKI P2 


NO NINE HOLE 


001798 


OA DO 












SVC 


X*DO« 




00179A 


AO 












DC 


X«AO* 




001798 


01 












DC 


X«01« 




00179C 


F2F0 












DC 


AL2( BLANK-BASE+REG) 




00179E 


OA DO 












SVC 


X*DO* 


PRINT SKIP FAILED 


00 17 AO 


440 F 












DC 


X*440F* * 




0017A2 


FA61 












DC 


AL2(CSKFAL-BASE+REG) 





DATE 
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0017A4 


91 


80 


F 


BA9 


SKIP2 


TM 


SWITCH+1 tX^BO* 


CHECK FOR SKIP FLAG 


00 17A8 


47 


80 


p 


7D6 




BC 


NONE , SPSUP 


GO TO SPACE SUPPRESS 


0017AC 


95 


Al 


F 


CBO 




CLI 


CCW1 ,X'A1 • 


CHECK FOR TEST HOLE 


00 17 BO 


47 


40 


F 


7BC 




BC 


LO,NI TM 




0017B4 


95 


Dl 


F 


CBO 




CLI 


CCW1-.X 'Dl • 




0017B8 


47 


40 


p 


7C4 




BC 


LO,TWTM 




0017BC 


96 


04 


F 


BA8 


NITM 


01 


SWI TCH .X '04 * 


SET NINE SWITCH 


00 17C0 


47 


FO 


F 


7C8 




BC 


UNC.FTE 




00 17C4 


96 


08 


F 


BA8 


TWTM 


01 


SWITCH ,X*08* 


SET TWELVE HOLE SWITCH 


0017C8 


91 


02 


F 


CBO 


PTE 


TM 


CCW1 »X *02 • 


CHECK FOR IMMEDIATE OP 


0017CC 


47 


10 


F 


7D6 




BC 


ALL, SPSUP 


GO TO SPACE SUPPRESS 


00 17 DO 


D2 


OD 


F 


BAA F AE5 




MVC 


PRINT( 14) ,CCHAN 




0017D6 


95 


01 


F 


CBO 


SPSUP 


CLI 


CCW1 ,X , 01 • 


CHECK FOR SPACE SUPPRESS 


0017DA 


47 


60 


F 


7E4 




BC 


UNEQ, SPACE 


GO TO IMMEDIATE SPACE 


0017DE 


D2 


09 


F 


BB9 F B21 




MVC 


PRINT+15( 10) fCOKXX 


MASK OUT FAILED 


0017E4 


91 


EO 


F 


BA9 


SPACE 


TM 


SWI TCH+1 tX'EO* 


CHECK FOR SPACE IMMEDIATE 


0017E8 


47 


80 


F 


80E 




BC 


NONE, TSTCK 




0017EC 


94 


00 


F 


BA9 




NI 


SWITCH+1,X«00* 


CLEAR SWITCH 


0017F0 


94 


OF 


F 


BA8 




NI 


SWITCH, X»OF» 


RESET SWITCHES 


0017F4 


91 


FE 


F 


CC5 




TM 


CCW3+5,X«FE« 


SEE IF ANY SENSE INFO 


0017F8 


47 


80 


F 


802 




BC 


N0NE,BYBY1 




0017FC 


OA 


DO 








SVC 


X»DO« 




0017FE 


CO 










DC 


X'CO* 




0017FF 


01 










DC 


X'Ol 9 




001800 


F2F0 








DC 


AL2 (BLANK-BASE+REG) 




001802 


41 


40 


F 


CB8 


BYBY1 


LA 


R4,CCW2 


SET UP CAW * 


001806 


50 


4D 


0 


048 




ST 


R4,HCAW(R13) 




00180A 


47 


FO 


F 


5DC 




BC 


UNCSIOl 


BR. TO SIO 


00180E 


91 


08 


F 


BA8 


TSTCK 


TM, 


SWI TCH, X '08 • 


CHECK FOR TWELVE HOLE SWI 


001812 


47 


80 


F 


8D2 




BC 


NONE ,CHANOF 


GO PRINT BLANK 


001816 


91 


01 


D 


044 




TM 


HCSW+4(R13),X*01« 


TEST FOR UNIT EXCEPTION 


00181A 


47 


10 


F 


8D2 




BC 


ALL ,CHANOF 




00 18 IE 


OA 


DO 








SVC 


X*DO* 




001820 


AO 










DC 


X»AO« 




001821 


01 










DC 


X»Q1« 




001822 


F2F0 








DC 


AL2 (BLANK-BASE+REG) 




001824 


OA 


DO 








SVC 


X'DO* 


PRINT SKIP FAILED 


001826 


440 F 








DC 


X»440F« 




001828 


FA61 








DC 


AL2 (CSKFAL-BASE+REG) 




00182A 


07 


F6 






SIOFIN 


BCR 


UNC,R6 


BRANCH BACK TO MAIN PROG 



* 

* 

* TIO SENSE ROUTINE 

* 



00182C 


58 


9E 


0 


198 


TIOSEN 


L 


R9,WT(R14) 


LOAD WAIT FACTOR 


001830 


88 


90 


0 


004 




SRL 


R9,4 


ADJUST 


001834 


90 


00 


C 


000 


TS 


TIO 


0(R12) 


TEST 1-0 


001838 


47 


80 


F 


840 




BC 


CCO, BILLF 


BR. IF CLEAR 


00183C 


46 


90 


F 


834 




BCT 


R9,TS 




001840 


91 


FE 


F 


CCS 


BILLF 


TM 


CCW3+5,X 8 FE« 


TEST FOR ANY SENSE INFO 


001844 


47 


50 


F 


85A 




BC 


ANY, HDR 


GO PRINT HEADER IF ANY SENSE 


001848 


91 


04 


F 


BA8 




TM 


SW1TCH,X*04< 


IS CHAN 9 EXPECTED 


00184C 


47 


80 


F 


788 




BC 


NONE, SKI PI 


BR. IF NO CHAN 9 EXPECTED 


001850 


91 


01 


F 


CCS 




TM 


CCW3+5,X«0i» 


IS CHAN 9 IN SENSE BYTE 


001854 


47 


80 


F 


85A 




BC 


NONE, HDR 


BR. IF NO CHAN 9'- EXPECTED 


001858 


07 


F6 








BCR 


UNCR6 


RETURN VIA REG 6 


00185A 


OA 


DO 






HDR 


SVC 


X*DO» . 




00185C 


64 










DC 


X«64« 




00185D 


01 










DC 


X*01* 




00185E 


F2F0 








DC 


AL2 (BLANK-BASE+REG) 




001860 


91 


80 


F 


CCS 


TSAVBL 


TM 


CCW3+5 f X«80» 




001864 


47 


80 


F 


86E 




BC 


NONE ,INTREQ 




001868 


OA 


00 








SVC 


X«DO« 


, PRINT-COMMAND REJECT ' 


00186A 


EOOF 




f 




DC 


XL2*E00F« 




DATE 


10JUN65 
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15MAR66 15N0V66 
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PAGE 



F838-3 

3 A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 

1403 CARRIAGE FUNCTION TEST 



P/N 840213 
PAGE 6 



00186C 


FA21 








DC 


AL2 (CCOMRJ-BASE+REG) 




00186E 


91 40 


F 


CC5 


INTREQ 


TM , 


CCVO+StXHO 1 




001872 


47 80 


F 


87C 




BC 


NONE » BUSOC 




001876 


OA DO 








SVC 


X'DO' 


PR I NT- 1 NT REQUIRED 


001878 


E00F 








DC 


XL2 'EOOF • 




00187A 


FA31 








DC 


AL2 (CINTRQ-BASE+REG) 




00187C 


91 20 


F 


CCS 


BUSOC 


TM 


CCW3+5,X»20« 




001880 


47 80 


F 


88A 




BC 


NONEtEQCK 




001884 


OA DO 








SVC 


X«DO» 


PRINT-BUS OUT CHECK 


001886 


EOOF 








DC 


XL2«E00F • 




001888 


FA41 








DC 


AL2 (CBUSOC-BASE+REG) 




00188A 


91 10 


F 


CCS 


EQCK 


TM 


CCW3+5,X»10« 




00188E 


47 80 


F 


898 




BC 


NONE, DTACK 


BR* IF NO DATA CHECK 


001892 


OA DO 








SVC 


X»D0» 


PRINT-EQUIPMENT CHECK 


001894 


E010 








DC 


XL2»E010» 




001896 


FA51 








DC 


AL2 (CEQPCK-BASE+REG) 




001898 


91 08 


F 


CCS 


DTACK 


TM 


CCW3+5,X«08« 


TEST FOR DATA CHECK 


00189C 


47 80 


F 


8A6 




BC 


NONE t BUFCK 


BR* IF NO DATA CHECK 


0018A0 


OA DO 








SVC 


X"DO» 




0018A2 


EO 








DC 


X'EO' 




0018A3 


OB 








DC 


X'OB* 




0018A4 


FB41 








DC 


AL2 (DATOUT-BASE+REG) 




0018A6 


91 04 


F 


CCS 


BUFCK 


TM 


CCW3+5,X»04» 


TEST FOR BUFFER CHECK 


0018AA 


47 80 


F 


8B4 




BC 


NONE, SENOK 


BR. IF NO BUFFER CHECK 


0018AE 


OA DO 








SVC 


X'DO* 




0018B0 


EO 








DC 


X»EO» 




0018B1 


00 








DC 


X«OD« 




0018B2 


FB4C 








DC 


AL2 (BUFQUT-BASE+REG) 




0018B4 


91 04 


F 


BA8 


SENOK 


TM 


SWITCH, X»04« 


CHECK FOR NINE HOLE SWITCH 


nn 1 o do 
UU 1 O DO 


H f OU 


r 


1 Do 




BC 


NUNt , SKI Pi 




0018BC 


91 01 


F 


CC5 




TM 


CCW3+5,X»01« 




0018C0 


47 10 


F 


8D2 




BC 


ALL, CHANOF 


GO PRINT BLANK AND CLEAR CHAIN 


0018C4 


OA DO 








SVC 


X»DO« 




0018C6 


EO 








DC 


X»EO« 




0018C7 


01 








DC 


X»01» 




0018C8 


F2F0 








DC 


AL2 (8LANK-BASE+REG) 




0018CA 


OA DO 








SVC 


X»DO« 


PRINT-SKIP FAILED 


0018CC 


COOF 








DC 


XL2«C00F« 




0018CE 


FA61 








DC 


AL2 (CSKFAL-BASE+REGI 




00 18 DO 


07 F6 








BCR 


UNCR6 




0016D2 


91 FE 


F 


CCS 


CHANOF 


TM 


CCW3+5,X»FE» 


SEE IF ANY SENSE INFO 


0018D6 


47 80 


F 


8E0 




BC 


NONE, BYBY 




0018DA 


OA DO 








SVC 


X»DO« 




0018DC 


CO 








DC 


X'CO» 


't 


0018DD 


01 








DC 


X»01« 




0018DE 


F2F0 








DC 


AL2 (BLANK-BASE+REG) 




0018E0 


07 F6 






BYBY 
* 


BCR 


UNCR6 




0018E2 


02 07 


F 


9EA 0 040 


DOSNS 


MVC 


CSCSW(8),HCSW(R13) 


SAVE CSW 


0018E8 


41 40 


F 


CCO 


HOPE 


LA 


R4,CCW3 


SET UP TO DO SENSE 


0018EC 


50 40 


0 


048 




ST 


R4,HCAW(R13) 


SET UP TO DO SENSE COMMAND 


0018F0 


9C 00 


C 


000 


START 


SIO 


0(R12) 


DO SENSE 


0018F4 


47 10 


F 


954 




BC 


CC3,ISN00P 


BR. IF NOT OPERATIONAL 


0018F8 


47 20 


F 


95C 




BC 


CC2,ISBSY 


BR. IF BUSY 


0018FC 


47 40 


F 


936 




BC 


CC1,0HN0 


BR. IF CSW STORED 


001900 


58 9E 


0 


198 




L 


R9,WT(R14) 


LOAD WAIT 


001904 


88 90 


0 


004 




SRL 


R9,4 


ADJUST 


001908 


9D 00 


c 


000 


TSTIO 


TIO 


0(R12) 


DO TIO SENSE 


00190C 


47 80 


F 


914 




BC 


CCO, GOTIT 




001910 


46 90 


F 


908 




BCT 


R9, TSTIO 


TRY AGAIN 


001914 


92 00 


F 


982 


GOTIT 


MVI 


SAVSNS,X«00» 


CLEAR SENSE SAVE AREA 


001918 


D2 00 


F 


982 F CCS 




MVC 


SAVSNS-(l),CCW3+5 


MOVE SENSE BYTE TO SAVE 


00191E 


D2 00 


F 


98C F CCS 




MVC 


0UTSNS+9(l),CCW3+5 


MOVE SENSE TO MESSAGE 


001924 


OA DO 








SVC 


X*DD« 




001926 


0001 








DC 


AL2U) 




001928 


098C 








DC 


AL2(0UTSNS+9-BA$E) 


CONVERT FOR MESSAGE OUTPUT 


00192A 


098C 








DC 


AL2I0UTSNS+9-BASE) 


CONVERT FOR MESSAGE OUTPUT 


00192C 


02 07 


D 


040 F 9E& 




MVC 


HCSW(8,R13I ,CSCSW 


RESTORE CSW 
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001932 


47 FO 


F 


734 




BC 


UNCDEDONE 


BR. 


001936 


91 02 


D 


044 


OHNO 


TM 


HCSW+4IR13) ,X , 02 I 


IS IT UNIT CHECK 


00193A 


47 10 


F 


942 




BC 


ALL, IMWEAK 


BR. IF UNIT CHECK 


00193E 


47 FO 


F 


948 




BC 


UNC, PLEASE 




001942 


OA DO 






IMWEAK 


SVC 


X»DQ« 




001944 


44 








DC 


X»44» 




001945 


IE 








DC 


X»1E» 




001946 


F964 








DC 


AL2 ( SICK-BASE+REG) 




001948 


9D 00 


C 


000 


PLEASE 


TIO 


0«R12) 


CLEAR 


00194C 


47 70 


F 


948 




BC 


NCCO, PLEASE 


TRY AGAIN 


001950 


47 FO 


F 


8E8 




BC 


UNC, HOPE 




001954 


45 60 


F 


62A 


I SNOOP 


BAL 


R6,SN0T0P 


GO PRINT NOT OPERATIONAL 


001958 


47 FO 


F 


8E8 




BC 


UNC, HOPE 




00195C 


45 60 


F 


640 


ISBSY 


BAL 


R6,SBUSY 


GO PRINT DEVICE BUSY 


001960 


47 FO 


F 


8E8 




BC 


UNC, HOPE 




001964 


40C7D6E340E4D5C9E3 


SICK 


DC 


C« GOT UNIT CHECK • 




00196D 


40C3C8C5C3D240 










001974 


D6D540C9E2E2E4C540 




DC 


CON ISSUE SENSE 9 




00197D 


E2C5D5E2C5 










001982 


00 






SAVSNS 


DC 


X«00« 




001983 


40E2D5E240C1C3E340 


OUTSNS 


DC 


C« SNS ACT XX • 




00198C 


E7E7 














00198E 


E7E7 






XX 


DC 


C'XX' 





* 



* CONSTANTS AND COMMENTS * 



* 



001990 






CNOP 


0,4 




001990 


40C4C5E5C9C3C540D5 


CNOTOP 


DC 


C« DEVICE NOT OPER 1 


COMMENT NOT OPER 


001999 


D6E340D6D7C5D9 










0019A0 


C1E3C9D6D5C1D360E2 




DC 


C 'ATIONAL-SET SS O 8 




0019A9 


C5E340E2E240F0 










0019B0 


40E3D640D3D6D6D740 




DC 


C" TO LOOP ON SIO 6 




0019B9 


D6D540E2C9D640 










0019C0 


40C4C5E5C9C3C54061 


CSBUSY 


DC 


C« DEVICE / CHANNE • 


COMMENT BUSY 


0019C9 


40C3C8C1D5D5C5 










0019D0 


D340C2E4E2E840E3D6 




DC 


C'L BUSY TOO LONG • 


COMMENT BUSY 


0019D9 


D640D3D6D5C740 










0019E0 


C1C6E3C5D940E2C9D6 




DC 


C 'AFTER SIO 9 




0019E9 


40 










0019EA 


404040404040404040 


CSCSW 


DC 


C» 9 


COMMENT CSW 


0019F3 


40404040404040 










0019FA 


4060C3E2E640E2E3D6 




DC 


C -CSW STORED AFT* 


» 9 


001A03 


D9C5C440C1C6E3 










001A0A 


C5D940E2C9D640 




DC 


C'ER SIO 1 




001A11 


40D5D640C3C8C1D5D5 


CNCE 


DC 


C« NO CHANNEL END 0 


COMMENT 


001A1A 


C5D340C5D5C440 










001A21 


40C3D6D4D4C1D5C440 


CCOMRJ 


DC 


C« COMMAND REJECT • 


COMMENT 


001A2A 


D9C5D1C5C3E340 










001A31 


40C9D5E3D9E540D9C5 


CINTRQ 


DC 


C INTRV REQUIRED 9 




001A3A 


D8E4C9D9C5C440 










001A41 


40C2E4E240D6E4E340 


CBUSOC 


DC 


C» BUS OUT CHECK fl 


9 9 


001A4A 


C3C8C5C3D24040 










001A51 


40C5D8E4C9D7D4C5D5 


CEQPCK 


DC 


C* EQUIPMENT CHECK 1 


9 9 


001A5A 


E340C3C8C5C3D2 










001A61 


E2D2C9D740404040C6 


CSKFAL 


DC 


C'SKIP FAILED 9 


9 9 


001A6A 


C1C9D3C5C44040 










001A71 


40C4C5E5C9C3C540C5 


CDEERR 


DC 


C« DEVICE END • 


COMMENT 


001A7A 


D5C44040404040 










001A81 


40C2E4E2E840E3D6D6 


CTBUSY 


DC 


C» BUSY TOO LONG • 


COMMENT 


001A8A 


40D3D6D5C74040 










001A91 


40D5D640C4C5E5C9C3 


CNDEND 


DC 


C* NO DEVICE END » 


COMMENT 


001A9A 


C540C5D5C44040 










001AA1 


40E4D5C9E340C2E4E2 


CDBUSY 


DC 


C« UNIT BUSY AFTER' 


COMMENT 


001 AAA 


E840C1C6E3C5D9 
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001AB1 


• 40C4C5E5C9C3C540C5 




DC 


v L/C? ivc cniis 


001ABA 


D5C44040 








001ABE 


C904D4C5C440 


CIMMEO 


DC 




001AC4 


40D5D640C3E2E640C1 


NOCSW 


DC 


C NO CSU AFTER IM* 


001ACD 


C6E3C50940C9D4 








001AD4 


D4C5C4C9C1E3C540D6 




DC 


C 'MEDIATE' OPERATIC* 


001 ADD 


D7C5D9C1E3C9D6 








001AE4 


D5 




DC 


CN' 


001AE5 


4040404040C3C8C1D5 


CCHAN 


DC 


C CHANNEL • 


001AEE 


D5C5D34040 






001AF3 


E2D2C9D740E3D640 


CSKIP 


DC 


CSKIP TO • 


001AFB 


E6D9C9E3C540 


CWRITE 


DC 


CWRITE 9 


001B01 


E2D7C1C3C540 


CSPACE 


DC 


CSPACE • 


001B07 


E2D7C1C3C540E2E4D7 


CSPSUP 


DC 


CSPACE SUPPRESS * 


001B10 


D7D9C5E2E24040 








001B17 


4040C6C 1C9D3C5C440 




DC 


C FAILED 9 


001B20 


40 








001B21 


D6D240E7E7E7E7E7E7 


COKXX 


DC 


COK XXXXXX • 


001B2A 


4040 








001B2C 


40E2E3D360E2C5C3E3 


STL 


DC 


C STL-SECTION BYP* 


001B35 


C9D6D540C2E8D7 








001 B3C 


C1E2E2C5C4 




DC 


C •ASSED" 


001B41 


40C4C1E3C140C3C8C5 


DA TOUT 


DC 


C • DATA CHECK* 


001 B4A 


C3D2 






001B4C 


40C2E4C6C6C5D940C3 


BUFOUT 


DC 


C BUFFER CHECK* 


001B55 


C8C5C3D2 








001B59 


090909090909 


CCTAB 


DC 


X '090909090909* 


001B5F 


1111111119191919 


CCTAB1 


DC 


X'1111111119191919* 


001B67 


0B0B0B0B13131313 


CCTAB2 


DC 


X 9 0808080813131313* 


001B6F 


1B1B1B1B899199A1 


CCTAB3 


DC 


X* 1B1B1B1B899199A1 * 


001B77 


A9B1B9C1C9D1D9E1 


CCTAB4 


DC 


X*A9B1B9C1C9D1D9E1 • 


001B7F 


8B939BA3ABB3BBC3 


CCTAB5 


DC 


X • 8B939BA3ABB3BBC3 » 


001B87 


C8D3DBE301090109 


CCTAB6 


DC 


X*CBD3DBE301090109* 


001BSF 


0000000000000000 


CCTAB7 


DC 


X • 0000000000000000 • 


001B97 


0000000000000000 


CCTAB8 


DC 


X '0000000000000000 • 


001B9F 


0000000000000000 


CCTAB9 


DC 


X • 0000000000000000 • 


001BA7 


00 


SIODIS 


DC 


X'OO' 


001BA8 


0000 


SWITCH 


DC 


X'OOOO* 


001BAA 




PRINT 


OS 


150C 


001C40 




RDAR 


DS 


80C 


001C90 






CNOP 


0,4 


001C90 


00003FFF 


M0D50 


DC 


X'00003FFF* 


001C94 


00000001 


CI 


DC 


X* 00000001* 


001C98 


00000036 


C54 


DC 


X* 00000036* 


001C9C 


0000 


UN TAB 


DC 


X*0000* 


001C9E 






CNOP 


0,4 


001C9E 


07 00 


BCR 


0,0 


001CA0 


0009 


CX9 


DC 


X*0009« 


001CA2 






CNOP 


0,4 


001CA2 


07 00 


BCR 


0,0 


001CA4 


0019 


CX19 


DC 


X»0019* 


001CA6 






CNOP 


0,4 


001CA6 


07 00 


BCR 


0,0 


001CA8 


0001 


CXI . 


DC 


X'OOOl* 


001CAA 


406140C5 


CSLASH 


DC 


C* / E • 


001CB0 


00 001 BAA 0000 0084 


CCW1 


ecu 


X*00*,PRINT,00fi32 


001CB8 


09 001BAA 0000 0084 


CCW2 


ecu 


X*09*, PRINT, 00, 132 


001CC0 


04 001CC5 0000 0001 


CCW3 


ecu 


X*04*,CCW3*5,00,1 



COMMENT 

COMMENT 
COMMENT 



COMMENT 
COMMENT 
COMMENT 



MASK FOR SPACE SUPPRESS 



CONTROL TABLE 
CONTROL 
CONTROL 
CONTROL TABLE 
CONTROL TABLE 
CONTROL TABLE 
CONTROL TABLE 
SPARE CONTROL TABLE 
SPARE CONTROL TABLE 
SPARE CONTROL TABLE 



PRINT AREA 



CONSTANT ONE 



000000 
000001 



CONSTANT NINE 



CONSTANT NINTEEN 



CONSTANT 1 
SLASH 

CHANNEL COMMAND TESTED 
WRITE C/MMAND AFTER IMMEADATE 
SENSE COMMAND 

* 
* 

* 

* EQUATES * 

* 

RO EQU 0 

Rl EQU 1 SET UP REG AS LOCATIONS 
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000002 


R2 


EQU 


2 


000003 


R3 


EQU 


3 


000004 


R4 


EQU 


4 


000005 


R5 


EQU 


5 


000006 


R6 


EQU 


6 


000007 


R7 


EQU 


7 


000008 


R8 


EQU 


8 


000009 


R9 


EQU 


9 


OOOOOA 


RIO 


EQU 


10 


OOOOOB 


Rll 


EQU 


11 


OOOOOC 


R12 


EQU 


12 


OOOOOD 


R13 


EQU 


13 


OOOOOE 


R14 


EQU 


14 


OOOOOF 


R15 


EQU 


15 


0001A0 


DMSS 


EQU 


416 


000198 


WT 


EQU 


408 


001000 


BASE 


EQU 


SECNO 


OOFOOO 


REG 


EQU 


X'FOOO* 


0001B4 


DMOUT 


EQU 


436 


OOOOOF 


UNC 


EQU 


15 


000008 


NONE 


EQU 


8 


000007 


MIXED 


EQU 


7 


000005 


ANY 


EQU 


5 


000001 


ALL 


EQU 


1 


000008 


CCO 


EQU 


8 


000004 


CC1 


EQU 


4 


000002 


CC2 


EQU 


2 


000001 


CC3 


EQU 


1 


000007 


NCCO 


EQU 


7 


000040 


HCSW 


EQU 


X*40* 


000048 


HCAW 


EQU 


X«48* 


000008 


EQ 


EQU 


8 


000004 


LO 


EQU 


4 


000002 


HI 


EQU 


2 


000006 


UNEQ 


EQU 


6 






END 
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DATE 
EC 



C 




BZ 


14D6 














4 


1C94 


CI 


1590, 


15CA 












2 


15A4 


DZ 


159C 














1 


8 


EQ 


1112* 


157E 












i 




HI 


14E0, 


1524, 


ISA 6 










1 


4 


LO 


15D2, 


17B0, 


17B8 










c 




kin 


12B0 
















k9\3C 


CM 

UK 


139A 














1 


o 


on 




158A 












1 


1 


Rl 
















1 


2 


R2 
















1 


3 


R3 
















1 


4 ' 


R4 


I466 f 


1466, 


1470, 


1478, 


147C, 


14B8, 


14BC 








14CCt 


14E8, 


151C, 


1520, 


1528, 


152C, 


1542 








1546f 


i55C, 


1560, 


176C, 


1770, 


1802, 


1806 








18E8, 


18EC 












1 


5 


R5 


1462t 
15A4, 


14CC, 
15AA, 


14DE, 
15B6 


14EE, 


14FA, 


158A, 


1590 


1 


6 


R6 


122C, 


132C, 


14CE, 


14DA, 


14DE, 


1576, 


1594 








15A0, 


15A4» 


163E, 


1654, 


168C, 


182A, 


1858 








18D0 9 


18E0, 


1954, 


195C 








1 


7 


R7 


1460, 


1460, 


1478, 


15CA, 


15CE 






1 


8 


R8 
















1 


9 


R9 


11E2, 


11E6, 


11EE, 


1204, 


1208, 


1236, 


15E4 








15E8, 


1640, 


1666, 


166A, 


1682, 


1718, 


182C 








1830f 


183C, 


1900, 


1904, 


1910 






1 


1358 


TE 


1346, 


135C 
















TS 


183C 














"r 


1 1 CA 


TT 


11EE 














1 


198 


WT 


11E2, 


1204, 


15E4, 


1666, 


182C, 


1900 




£ 


i one 


XX 


1706 














1 


1 


ALL 


1272* 


128A, 


12BA, 


133A, 


1364, 


13A8, 


1492 








14AE» 


1586, 


15C6, 


15F0, 


163A, 


16AA, 


16B6 








1714t 


1738, 


1740, 


1778, 


1780, 


178C, 


17CC 








181A, 


18C0, 


193A 










\ 


5 


AM V 


1 CDC 


1610, 


165A , 


1662, 


1844 






1 


1262 


BK9 


1266, 


127A 












4 


1C98 


C54 


15CE 














4 


1048 


CAW 
















1 


8 


CCO 


167E, 


1838, 


190C 










1 


4 


CC1 


1600, 


167A, 


18FC 










1 


2 


CC2 


15FC, 


1676, 


18F8 










1 


1 


CC3 


15F8, 


1672, 


18F4 










8 


1040 


CSW 
















2 


1CA8 


CXI 


1542 














2 


1CA0 


CX9 


1528 














4 


1214 


D09 


123A, 


1272, 


12BA 










4 


17C8 


FTE 


17C0 














2 


185A 


HDR 


1844, 


1854 












2 


100A 


I CM 
















1 


A 


RIO 


11C2, 


11CE, 


1224, 


1228, 


1324, 


1328 




1 


B 


Rll 


1138, 


1200, 


130C 










1 


C 


R12 


1106, 


110A, 


110E, 


1116, 


11D2, 


11DA, 


11EA 








120C, 


1310, 


15F4, 


1650, 


166E, 


1834, 


18F0 








1908, 


1948 












1 


D 


R13 


10FA, 


10FA, 


1104, 


11CE, 


11E2, 


1228, 


1246 








128E, 


1328, 


1336, 


1560, 


15E0, 


168E, 


16B2 








16BA, 


16CC, 


16D6, 


16EE, 


1710, 


171C, 


172E 








1744, 


174C, 


175E, 


1770, 


1806, 


1816, 


18E2 








18ECt 


192C, 


1936 










1 


E 


R14 


1204, 


15E4, 


1666, 


182C, 


1900 







10JUN65 
124255 



22JUN65 
124249 



15MAR66 
125632 



15N0V66 
125655 



ID F838-3 If 
PAGE 8 ! 



1 


F 


R15 


1104 














1 


F000 


REG 


10F0, 


10F8, 


111E, 


1124, 


112A, 


1130, 


1252 








1258, 


125E, 


1264, 


129E, 


12A4, 


12AA, 


134E 








1354, 


135A, 


1386, 


138C, 


1392 1 


1398, 


1618 








162E, 


1634, 


1648, 


164E, 


168A, 


16C4, 


16CA 








16E2, 


16E8, 


1726, 


172C, 


1756, 


175C, 


179C 








17A2, 


1800, 


1822, 


1828, 


185E, 


186C, 


187A 








1888, 


1896, 


18A4, 


18B2, 


18C8, 


18CE, 


18DE 








1946 














16 


1B2C 


STL 


10F0 














2 


1460 


T2B 
















1 


F 


UNC 


1138, 


11DE, 


11F6, 


1230, 


123A, 


1276, 


1282 








12C2, 


12CC, 


1330, 


136C, 


13AC, 


1474, 


149C 








14E4, 


14EA, 


150E, 


153E, 


1558, 


158C, 


161A 








1626, 


163E, 


1654, 


168C, 


169A, 


16D2, 


16EA 








1702, 


1784, 


17C0, 


180A, 


182A, 


1858, 


18D0 








18E0, 


1932, 


193E, 


1950, 


1958, 


1960 




4 


1000 


BASE 


10F0, 


10F8, 


111E, 


1124, 


112A, 


1130, 


11FD 








1252, 


1258, 


125E, 


1264, 


129E, 


12 A4, 


12AA 








1309, 


134E, 


1354, 


135A, 


1386, 


138C, 


1392 








1398, 


1618, 


162E, 


1634, 


1648, 


164E, 


168A 








16C4, 


16CA, 


16E2t 


16E8, 


1726, 


172C» 


1756 








17 5C, 


179C, 


17A2, 


1800, 


1822, 


1828, 


185E 








186C, 


187A, 


1888, 


1896, 


18A4, 


18B2, 


18C8 








18CE, 


18DE, 


1928, 


192 A, 


1946 






1 


12A2 


BK10 


1296, 


12AC 












1 


1263 


BK91 


126A, 


127E 












16 


12D0 


BLAB. 


12A4, 


12B0, 


12C6 










4 


1576 


BSIO 


1568 














2 


18E0 


BYBY 


18D6 














8 


1CB0 


CCW1 


11BE, 


11C2, 


11F2, 


l47C f 


148E, 


14AA, 


14C4 








155C, 


.1564, 


157A, 


1582, 


17AC, 


17B4, 


17C8 








17D6 














8 


1CB8 


CCW2 


1802 














8 


1CC0 


CCW3 


15DC, 


176C, 


17F4, 


1840, 


1850* 


1860, 


186E 








187C, 


188A, 


1898, 


18A6, 


18BC, 


18D2« 


18E8 








1918, 


191E, 


1CC0 










4 


123E 


CKIT 


1778 














4 


12BE 


CLR9 


1276 














16 


1A11 


CNCE 


16CA 














2 


1CA4 


CX19 


1520 














4 


128E 


DECI 


12CC 














I 


1A0 


DMSS 
















4 


1314 


D012 


1364 














2 


1234 


END9 


12C2 














4 


188A 


EQCK 


188Q 














1 


48 


HCAW 


11CE, 


1228, 


1328, 


1560, 


1770, 


1806, 


18EC 


1 


40 


HCSW 


1246, 


128E, 


1336, 


15E0, 


168E, 


16B2, 


16BA 








16CC, 


16D6, 


16EE, 


1710, 


171C, 


172E, 


1744 








174C, 


175E, 


1816, 


18E2, 


192C, 


1936 




4 


18E8 


HOPE 


1950, 


1958, 


1960 










4 


151C 


ITEM 
















4 


1236 


ITRY 


1210 














4 


11BE 


LOOP 


1626, 


163A 












1 


7 


NCCO 


11D6, 


1210, 


194C 










2 


1466 


NEXT 


15BE, 


15C6, 


15D2 










1 


100D 


NIOU 
















4 


17BC 


NITM 


17B0 














1 


8 


NONE 


10E8, 


1100, 


11CA, 


124A, 


1292, 


1342, 


1374 








146C, 


14C8, 


14D6, 


14F6, 


159C, 


15B2, 


1608 








1692, 


16DA, 


16F2, 


1748, 


1768, 


1794* 


17A8 








17E8, 


17F8, 


1812, 


184C, 


1854, 


1864, 


1872 








1880, 


188E, 


189C, 


18AA, 


18B8, 


18D6 




1 


1396 


NOPB 


1378, 


13A0 












4 


1936 


OHNO 


18FC 














1 


1C40 


ROAR 
















4 


1346 


SAY1 
















1 


100C 


SDMF 

















P/N 840213 
PAGE 8A 



DATE 

EC 



10JUN65 
124255 



22JUN65 
124249 



15MAR66 
125632 



15N0V66 
125655 



tD F838-3 f 
PAGE 8A j 



OOOOOOOOOOOOOOOOOOOOOOOO O O O 0 0 O O O 



occcoocooccccccccocoooocccoo o c © c © © 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 
1403 CARRIAGE FUNCTION TEST 



P/N 840213 I IBM MAINTENANCE DIAGNOSTIC PROGRAM 
PAGE 9 ; 
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DATE 
EC 



1 A 


1964 


S ICK 


1946 






A 


1!>UL 


S 101 


122C, 


132Ct 


180A 


A 

o 


1512 


SK IP 


14AE 






4 


1004 


SNSW 


11C6, 


126Et 


12B6, 








15C2, 


15ECt 


1636 


3 


105D 


SRET 








4 


169E 


TCSW 


1692 






6 


1706 


TDVE 


16F2 






16 


113A 


• TEL1 


1 1 IE 






16 


1155 


TEL2 


1124 






16 


1171 


TEL3 


112A 






16 


119C 


TEL4 


1130 






4 


17C4 


TWTM 


17B8 






1 


10E1 


U10P 


10E4, 


1402, 


14F2, 


1 


6 


UNEQ 


1242, 


1568, 


17DA 


2 


10F4 


ZOOM 


10E8 






2 


1260 


BACK9 


1282 






1 


11FC 


BEGIN 


1015 






4 


1840 


BILLF 


1838 






16 


1380 


BLAB1 


135A 






2 


12F0 


BLANK 


10F8t 


1252, 


12C6, 








16C4 V 


16E2, 


1726, 








185E, 


18C8, 


18DE 


4 


1106 


BLOOP 


1100 






4 


18A6 


BUFCK 


189C 






4 


187C 


BUSOC 


1872 






4 


1802 


BYBY1 


17F8 






14 


1AE5 


CCHAN 


17D0 






6 


1B59 


CCTAB 


1478 






4 


1606 


CECOE 


16B6 






4 


1368 


CLR12 


13AC 






11 


1B21 


COKXX 


17DE 






16 


19EA 


CSCSW 


16BAy 


16CC, 


171C, 








192C 






8 


1AF3 


CSK IP 


1512 






1 


1B4 


DMOUT 








6 


18E2 


DOSNS 


16FE 






4 


1898 


DTACK 


188E 






2 


1334 


END12 


136C 






•> 

£ 


1506 


EXIT1 










1 AAC 

iuuc 


FL AG1 










1 AAC 


FL AG2 








a 
O 


1 AAA 


GOSKP 


1214y 


1224, 


1314, 


A 

■r 


1 Q 1 A 


GOT IT 


190C 






A 






1780t 


178C 




A 


1 RA9 


GRTER 


1524 






6 


14A0 


IMMEO 


1492 






5 


1010 


INPSW 








4 


195C 


ISBSY 


18F8 






16 


1425 


LOVLY 


1398 






4 


1594 


LRE06 


158C 






1 


7 


MIXED 


1622, 


16A2, 


16FE 


4 


1C90 


M0050 


110A 






4 


1468 


NEXT1 








4 


1478 


NEXT2 


146C 






4 


147C 


NEXT3 


1474 






16 


1AC4 


NOCSW 


1618 






6 


171C 


NOGOT 








4 


15BA 


NOSUP 


15A6, 


15B2 




1 


1424 


NSWCH 


1220, 


12BE, 


1318, 








173C, 


1774, 


177C, 


1 


1BAA 


PRINT 


1440, 


1448, 


1450, 








1496 9 


14A0, 


14B2, 








14EE# 


14FA, 


14FE, 








1530* 


1538, 


1546, 








1594, 


15A0, 


15AA, 








1CB8 






4 


1640 


SBUSY 


15FC, 


195C 





1598, 15AE 



137C, 1386, 162E, 1648 



172E, 174C, 175E, 



18E2 



1368, 

1788 

1462, 

14BC, 

1502, 

154A, 

15B6, 



161E, 169E, 16FA 



1480, 
14C0, 
1502, 
154E, 
1700, 



1484, 
14CE, 
1512, 
1552, 
17DE, 



1484 
140A 
152C 
1570 
1CB0 



10JUN65 
124255 



22JUN65 
124249 



15MAR66 
125632 



15N0V66 
125655 



10 F838-3 
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4 


1000 


SECNO 


ICC 8 


4 


18B4 


SENOK 


18AA 


4 


1788 


SK IP1 


1768, 


4 


17A4 


SK I P2 


1794 


4 


17E4 


SPACE 


17DA • 


4 


17D6 


SPSUP 


17A8 , 


4 


18F0 


START 




2 


14E8 


STOSP 


14C 8 


4 


1682 


TBUSY 


1676 


2 


1356 


TEL IM 


1342 


4 


1764 


T IOOK 


1 f U £. , 


4 


180E 


TSTCK 


17E8 


4 


1908 


TST 10 


iqi n 


1 


10E0 


UN IT 1 


1106 


2 


1C9C 


UNTAB 




& 


12C6 


VAR Y9 


128A 


4 


16 IE 


WHICH 


15F0 


2 


12A0 


RACK 1 0 


1292 


4 


1310 


RAfKMP 


1330 


1 


1308 


BEG IN2 


11FD 


1 


1458 


BEG IN3 


1309 


13 


1B4C 




18B2 


16 


12F2 


BUTYFL 


1264 


16 


1A41 




1888 


16 


1A21 


CCOMRJ 


186C 


8 


1B5F 


CCTABl 




8 


1B67 


CCTAB2 




8 


1B6F 


CCT AB3 




8 


1B77 


CCTAB4 




8 


1B7F 


CCTAB5 




8 


1B87 


CCTAB6 




8 


1B8F 


CCTAB7 




8 


1B97 


CCTAB8 




8 


1B9F 


CCTAB9 




16 


1AA1 


CDBUSY 


175C 


16 


1A71 


CDEERR 


16E8 


16 


1A51 


CEQPCK 


1896 


4 


18D2 


CHANOF 


1812, 


6 


1ABE 


C IMMEO 


14A0 


16 


1A31 


CINTRQ 


187A 


16 


1A91 


CNOENO 


172C 


16 


1990 


CNOTOP 


1634 


16 


19C0 


.CSBUSY 


164E 


16 


1A61 


CSKFAL 


1534? 


4 


1CAA 


CSLASH 


1508 


6 


1B01 


CSPACE 


14B2 


16 


1B07 


CSPSUP 


1570 


16 


1A81 


CTBUSY 


168A 


6 


1AFB 


CWRITE 


1496 


11 


1B41 


DATOUT 


18A4 


4 


173C 


DEBUSY 




4 


1286 


DECIDE 


1242, 


4 


1734 


DEDONE 


1714, 


5 


1058 


EXNPSW 




8 


1018 


EXQPSW 




4 


1134 


GITOUT 


1112 


4 


1590 


IMDATA 


157E, 


2 


1942 


IMWEAK 


193A 


4 


10E4 


INITAL 


1200, 


4 


186E 


INTREQ 


1864 


4 


1078 


IONPSW 




8 


1038 


IOOPSW 




4 


1370 


ISGOOD 


133A 


4 


1954 


I SNOOP 


18F4 


4 


1435 


L0VLY1 


137C, 


8 


1070 


MCNPSW 




8 


1030 


MCOPSW 




4 


16FA 


MISSOE 


169A 
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184C, 18B8 



17CC 



1738, 1748 



181A, 18C0 



t 1538, 1552, 17A2, 1828, 18CE 



1740 



1586 
130C, 



139A 



145C 



DATE 
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9 
£ 


1 1QA 

1 J7*t 


KinDDflA 


1 17A 

13 It 














*r 


1 A.PP 


IMUK COI 


A*tCU f 


1 AP A „ 


1 AP A 










t 1 
** 


i on? 


111 IT<tWC 


1 1 94. 
JL 1 3*7 9 


1 Q9A 






9 




4 T AC 


8 


1068 


r WIN r Oil 
















8 


1028 


PG0PSW 
















4 


1948 


rL CAoC 


liJC 9 














^ 
4 


14EE 
12TA 


RESET5 


14E4, 

124A 


153E v 


1558 










2 


1 1BC 


SAVDEV 


IIOE9 


1116 














1982 




123E9 


1286, 


170C , 


1914, 


1918 






4 


1656 


SCSWST 


1600 














4 


155C 


SETCAW 


150E 














4 


15D8 


«JJ 1 U U «• (J 


1576 














I 


1BA7 


SI00IS 
















2 


182A 


S I0F IN 
















4 


15F4 


SIOSIO 


IIF69 


1640, 


1784 










2 


162A 


SN0T0P 


15F8f 


1672, 


1954 










4 


1360 


SPHERE 


13A8 














4 


11E2 


SQUARE 


11CA 














4 
8 


11C6 
1060 


STRT 10 
SVNPSW 


IIO69 


110E, 


1622 










8 


1020 


SV0PSW 
















2 


1BA8 


SWITCH 


I2I89 


121C , 


131C, 


1320, 


133E 9 


1370, 


13A4 








148A 9 


14A6, 


1518 , 


156C , 


1 inn • 


1604 , 


1 ^nr 








16569 


165E, 


1696, 


16A6, 


16AE 9 


16F6, 


1734 








1764, 


1790, 


17A4, 


17BC, 


17C4, 


17E4, 


17EC 








17F0 f 


10OE, 


1848, 


18B4 








4 : 


168E 


TCSWST 


165A, 


167A 












4 


16EE 


TDVEND 


167E, 


16A2, 


16AA, 


1602 








4 


165E 


TI0BEG 


1608, 


1610, 


161ft 










4 


182C 


TI0SEN 


1662 














4 


166E 


TI0TI0 


1682, 


16DA, 


16EA, 


1718 








4 


1860 


TSAVBL 
















4 


14AA 


TSPACE 


149C 














4 


120C 


TSTCLR 


1230, 


1236 












4 


148 E 


TWRITE 
















2 


10E2 


U1A0DR 
















16 


13C4 


UNEXUC 


134E, 


138C 












16 


13F1 


UNEXUE 


1258, 


129E 












1 


1000 


XF8383 
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P/N 840213 
PAGE iOA 



PERIODS CORRESPOND TO 
COLS* 1 THROUGH 20 



BLANK COLUMNS. 

COLS. 21 THROUGH 40 



BESD... 

9 



..AA..AAXF83 

YQ Y9 
99 9 



BTXT* AAA* »A8* *AA88AA 

9 YQY Y9 Y9 9QY 
999 9 9 Z9 



BTXT* AA8**A8« 

9 YQ9 Y9 
99 9 

BTXT.AAO*.AA. 

9 YQ+ YQ 

99- 99 

BTXT.AAS..A8. 

9 YQ8 Y9 
99 9 

BTXT.AJQ..A8* 
9 Y99 Y9 
9 9 

BTXT.AJ+..A8. 

9 Y9 Y9 
9 9 



. AAAAAA 
Y9YYYY 
9 9999 

.AAAAAA 
Y9YYYY 
9 9999 

• AACAAA 

Y90YYY 
9 9 9 

• AA1DB0 
Y9 Q8- 
9 09 

• AATAPE 
Y9 
9 



BTXT.AJH, 
9 Y90 
9 

BTXT. A JO. 
9 Y9+ 

9 

BTXT.AJ8. 

9 Y9 
9 

BTXT. AKA. 
9 Y9Q 
9 Z 

BTXT.AKQ. 
9 Y9Z 
9 

BTXT.AKJ. 
9 Y9Y 
9 

BTXT.AKQ. 
9 Y9 
9 

BTXT. ALA. 
9 Y9Q 
9 9 

BTXT* ALH. 
9 Y9Z 
9 



• A8* • AA* 1*L 

Y9 Y9 
9 9 

• A8* • AADDAJ 
Y9 Y9Q0ZY 
9 9 Z~ 

•A8..AA54GA 

Y9 Y9 9Y 
9 9 9 

•A8..AAG02D 
Y9 Y9Z 8 
9 9 9 

•A8..AA2KBA 
Y9 Y9 Z-Q 
9 9 9 

.A8..AAB0MJ 
Y9 Y98-ZY 
9 9 9 9 

• A8. . AA.9.D 

Y9 Y9 
9 9 

•A8..AAEAOA 
Y9 Y9QY+Y 
9 9 9 9 

•A8..AA3HB0 
Y9 Y9 R8- 
9 9 9 



83..AAAA.ADH.* 

YYQY Y8 
9999 99 

AAAAAAAAAAOAADAAAA JD 
YYYYYYYYY9+Y99YYYY9Q 
999999999 9 9999 Z 

AAAAAAAAA AAAAAA AAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 



AAA AADA AAAAA •••••••• 

YYYY99YYYYYY 
9999 999999 

A.OJGA04BOJNCUBOBOJA 
- ZZY 8-rY9Q88 8-Y9 
9 9 Z99 9 

4L12B0JM1EB0JT1AB0AP 
98 88-Y8 R8-Y8 R8-Y8 
9 99 9 9 9 09 9 

T *RE STORE *CARR IAGE. T 

8 



INE .PAST. BRUSHES. MAK 



DAAAODGA 1 S+NAHEA OAGO 
QQ-Y 9ZY YYZQY+YZ+ 
ZO 9 9 9 - 

AACHEAOUHFAHHAACEAOA 
9Y99ZQ RQ9-0QY9QY+Y 
9 0 9 9 9 

BOFA2DG02MEA9BG-2PAA 

8 ZQ 8Z 9-9 OZ 0-9 

9 9 

2LAA0DGA2MG02FBD2KBL 
Z-Y 9ZQ 9Z Q-9 Z-9 
9 0 

20B00C9CBM2KKA2J3EAA 
-8-+8 0-Z 0 9 9-Y 
9 9 

ETECTED. IN. SENSE. BYT 



BL4.BK4UBGCQB0CRAJ4. 
-0 -9 9-8Q0-+Q0ZY 
• 9Z Z 

MV3DB0SC9CB0DM3ABD3H 
Z8 8-88 08-Z9 Q-Z R 
9 9 9 9 0 



COLS* 41 THROUGH 60 
• ••••• 840 



AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 

99999999999999999999 

A A AAAAAAADA AAAAAAAAA 
YYYYYYYYY9YYYYYYYYYY 

999999999 9999999999 



20LEA. JFGA1FQGHQ0SD0 
8Q- Z-ZY 99QR+ 8R+ 
99 9 

1DBBBA9DGC. INSERT. TE 
Q8Q-Y Y9Q 
99 9 Z 

0*CHANC.l. CHECK. FOR. 



E. PRNTR. RDYT. PUSH* I N 
8 



1FDA0AG01FHEAHHAAEEA 
QY+YZ RQ9-0QY9QY 
9 9 9 9 

G026BC4* BGCQB0CRBA4U 
Z+ 9-Y -8Q0-+Q0-8 9 
9Z Z 9 

0DGA22B0JA20B0M331B0 
-ZZY 88-Y9 8-Z9 8- 
9 9 9 

2LG02-AA96GA2FAA0DGA 
ZZ -9 OZQ : -9-ZZY 
9 

0DGA2MBA4UG024KA2J2Q 
*9ZQ 9-Y 9Z 9 9 
9 9 

... CHAN. 9. DETECTED. 0 



♦NAHE-5DG03AB0AA0DGA 
YYZZ QZ Q8 -9-ZZQ 
9 9 99 9 

AA0DGA3MBA4UG034 A. CO 
-Y 9ZQ 9-Y 92 9- QO 
9 9 I 



COLS. 61 THROUGH 80 
214*125655*. 83830001 



AAAAAAAAAAAA83830002 

YYYYYYYYYYYY 

999999999999 

AAAAAAAAAAAA83830003 

YYYYYYYYYYYY 

999999999999 



.83630004 



DAA01DGA14.083830005 

QQ8+ QZY 9 + 
Z 0 

ST.CARRIAGE.83830006 



CHANC1.HOLET83830007 
8 8 



TERRUPTAGGB. 83830008 
YQQ- 
9ZZ 

OAFA1KBADD6083830009 
4YZQ Y-YQOZ 
9 9 9Z- 

AJ4.+NAHE-5D83830010 
ZY YYZZ Q 
9 9 

SC9CB00A22B0838300U 
88 08-+Q -♦ 
9 9 9 

2JBS2KB0M33183830012 
Y-8 08-Z9 
9 

G02F.NO.CHAN83830013 
Z Y 



KN0ABADHEA0U83830014 
Y9Y9RZQ 
9 9 0 

30A.CQGA3FB083830015 
4~ QOZY R-* 
- Z 

GA3DB03FKA4783830016 
ZY - 9 9 



DATE 

EC 



10JUN65 
124255 



22JUN65 
124249 



15MAR66 
125632 



15N0V66 
125655 



i N 

ID F838-3 ^ 
PAGE 10A ~" 



OOOO' OOOOOOOOO OOO OC 



oooccccccccccccccc 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 
F838 1409 CARRIAGE FUNCTION TEST 



P/N 840213 
PAGE 11 



BTXT* ALA* *A8**AA20B0 
9 Y9Y Y9 Y9 8- 
9 9 9 9 

BTXT.ALH..A8..AA.12. 

9 Y90 Y9 Y9 
9-9 9 

BTXT.AL0..A8i*AA2.G0 
9 Y9 Y9 Y9 
9 9 9 

BTXT* AMY* *A8* *AAAN*1 

9 Y99 Y9 Y9 
9 9 9 

BTXT • AM-, • A8 . • AAL GA* 

9 Y9 Y9 Y98RZ 
9 9 9 90 

BTXT.AMH..A8..AACKBC 
9 Y9- Y9 Y9QYQQ 
9 9 9 Z ZZ 

BTXT • AMO . • A8 • • AACHAD 
9 Y9- Y9 Y9Q -9 
9 9 9 Z 

BTXT*ANH..A8..AAKB+A 
9 Y99 Y9 Y9 9 Y 
9 9 9 9 

BTXT.AN...A8..AA40C. 
9 Y9 Y9 Y9 Y8 
9 9 9 9 

BTXT. ANH.. A8. « AA5QEA 

9 Y9R Y9 Y9 -9 
9 0 9 9 

BTXT. ANA* . A8. . AAOJGA 
9 Y9Q Y9 Y9 ZZY 
9 0 9 9 

BTXT * ANY • • A8 • • AAHAAC 
9 Y9 Y9 Y90QY9 
9 9 9 9 

BTXT *A0J**A8** AA4UG0 
9 Y9Y Y9 Y9 9Z + 
9 9 9 9 

BTXT • AOH* *A8*« AACRG+ 
9 Y9R Y9 Y9Q0Z 
9 9 9 Z 

BTXT • ADA* • A8 • • A AO OGA 
9 Y9Q Y9 Y9-ZZY 
9 9 9 

BTXT* AOH* *A8** AADGBJ 
9 Y9 Y9 Y9Z8Q9 
9 9 9 9Z 

BTXT*APA**A8.«AA8SG0 
9 Y9Y Y9 Y9 Z 

9 9 9 9 



JA20B0MV3DB0SC 9CB0MM 
Y9 8-Z8 8-88 08-99 
9 9 9 9 9 

DETECTED* GOT* UNEXPEC 



T.UNEXPECTED.UNIT.EX 



2 .DETECTED. OK A AAA AAA 
YYYYYYY 
9999999 

DULDAG0EGA4HC.0EG044 
Q88Z-Q 9ZY RZ 9Z 8 
Z99 Z 0 

G04KKECKBFF.CRAADAGA 
Z Y 9QYQQ- QO-YQQZQ 
Z ZO Z ZO 9 

OJGA4FA-CDJFGJ4FG040 
ZZY QZ QQ8RZY QZ Y 
9 Z09 9 Z 9 

DKG05MKGCAB3FACRH.AC 
QYZ 8 9QQQ -YQOO Y9 
Z ZOZ Z 9 

DQB.CBF0CBB1CIKA80CI 
QOZ QQ- QQ- QO 9QZQ0 

Z ZO ZO z- z z- 

DAGA5AABDAGA5AL+G05D 
QQZY Q-9QQZQ Q8 Z - 
ZO ZO 9 9 

58A+DJAGOEG+4QAJ0DGA 
QZ QY-Q 9Z Z-Y 9ZQ 
0 Z9 Z 9 9 

AA00GA60DA0AGA6SGJ6* 
-Y 9ZQ 8QY+YZQ 8ZY 
9 9 9 9 9 9 9 

1FG01FB0JA20B0DA9AAA 
Z Q8-Y9 8-ZQ Q-Y 
09 9 Z 

6FA-CQG+8UHFAHHAACEA 
Y~ QOZ 8RQ9-0QY9QY 

Z 9 9 9 

6FF.CQG06BAL4UG060AA 

Q- QOZ Q-8 9Z+ Y-Y 
Z Z 9 - 9 

KG0.9KG060A000GA6WB0 
9- YZ Y-9-ZZY 88- 
9 9 9 

7MKA9D9FBA9BA00DGA74 
Z 9 Y Y-Y 0-9-ZZQ 9 
9 9 



4VKB463BBM3F A* CQGA3- 
9 9 9 9-9 — QOZQ 
Z 9 

TED. UNI T.CK. WHI LE.TE 



CEPTION.HHI LE. TEST IN 



CALK. AAACALK. AAACALK 
YY8Y YY98Y8Y YY98Y8Y 
99 99 999 99 999 

CGCJB. DAB. CKKBCLCKDA 
ZZQ8Z QQ- QY OQYQY-Y 
Z ZO Z Z Z 9 

5KKECACAH* ACB.CGFOCG 
9 9QQQ90 Y9Z QO- QO 
ZOZ 9 Z- Z- 

QDG04FA+DUAD0 JGA4FA+ 
99Z QZ Q8-9 ZZY QZ 
Z Z9 Z 

C.DMGJ5BB.DJB.CBF0CB 
8 QOZY Z8 QYZ QQ- QQ 
Z 9 Z ZO ZO 

G040A.DA+EAHEADAG-5F 
Z YZ QQ 8YZ-9QQZ R 
9 ZO 9 ZO 0 

L+DDA-CHA00JGA5MA-CD 
8 Q-Z Q -9 ZZY OZ QQ 
Z Z ZO 

40K0DDE0DHG.40B0DACQ 
Z8+Q-R+Q-Z Z8 -YQO 
-Z -Z 9 9Z 

G.6FA.CRGA60AGCQG+60 
Z R~ QOZY 8-QQOZ 8 
Z ZZ 

0DGA1FG6FA54B0 JA20B0 
9ZQ Q9 ZQ 8-Y9 8- 
9 0 9 9 

0AGA6SGJ6BG.6FGA60FA 
♦YZQ 8ZY OZ YZY YZQ 
9 9 9 9 9 

CQGA60FACQAH0DGA60KG 
QOZQ Y-YQ0-9-ZZQ 9 
Z 9 9 Z 9 

JA20B0DGBAG06MAB00GA 
Y9 8-Z8QRZ 8-9-ZZY 
9 9Z0 

FA6WKG9K0.B0 JA2QBQ0G 
ZQ 8 9 Y- 8-Y9 8-Z8 
9 9 9 9 



G03Q.N0.CHAN83830017 

z z 



STING. CHAN. 183830018 



G.CHAN.9A.CH83830019 
Y 
9 

AAAACAGGEA0U83 830020 

YYY99YQQZQ 

999 9ZZ 0 

CRABDAGA4JKE83830021 
Q0-9QQZQ Y 9 
Z ZO 9 

ABDAGA4YLDA-83830022 
-9QQZY 8RZ 
ZO 9 

DJBECDKACECD83830023 
QY- QQ RQQQQ 
Z9 ZO OZOZO 

B.B0KABPCBG083830024 
- QZ YQZQQZ 
Z 9Z ZO 

FJCRKQCKCGE-83830025 
-YQO 9QYQ9Z 
9Z Z Z 

JFGJ5BA+DUAD83830026 
8RZY QZ Q8-9 
9 9 0 Z9 

BADEBAODHF AH83830027 
-YQ -Y-ZRQ9- 
9Z 9 

B0./BDG060AL83830028 
8- 9Q Z 8-8 
9 Z 9 

0/90EA0AG6A083830029 
Z8 +QY+Y9 
9 9 9 

6WB0DABAG6AB83830030 
88-ZQQ09 -9 
9 9Z 

9K0.B0JA20B083830031 

Y- 8-Y9 8- 
9 9 • 9 

7FF.CQAL4UG083830032 
9- QO-8 9Z+ 
Z 9 - 

BAKG0.9KA.CQ83830033 

Q- 9- Y- QO 
Z 9 Z 



DATE 
EC 



10JUN65 
124255 



22JUN65 

124249 



15MAR66 
125632 



15N0V66 

125655 



10 F838-3 
PAGE 11 



c C 0 c c c o 



ceo 



c c c c o o 



IBM MAINTENANCE DIAGNOSTIC PROGRAM P/N 840213 

PAGE 11A 

F838 1403 CARRIAGE FUNCTION TEST 



BTXT . AP8 . . A8 * . AAGA7M 
9 Y99 Y9 Y9ZQ Z 
9 9 9 9 



AA4UGA2FAA0DGA7MKG9K 
-8 9ZQ O-Q-ZZY Z 9 Y 
9 9 9 9 



O.BO JA20B0DMB JKG0.9K 
- 8-Y9 8-Z8Q0 9- Y 
9 9 9Z 9 



A.CQGA7HA.D083830034 
- QOZY OZ Q+ 

z z 



BTXT. APO.. A8. • AA+EAH 
9 Y9+ Y9 Y9 8YZ 
9-9 9 9 



AA4UGA26AK4UGA36G054 
-8 9ZQ 8-9 9ZQ 9Z 
9 9 9 9 



AK4UGA36ADCQGA7MB0 JA 
-9 9ZQ 9-9Q0ZY 08-Y9 
9 Z 9 



20BODGB/AACR83830035 
8-Z8Q -YQO 
9 9Z Z 



BTXT. APQ. 
9 Y90 
9 



.A8..AAGA70 
Y9 Y9ZY 
9 9 



EJDAG.7DEJDAG* 7DFDCQ 
-OQQZ Q- QQZ -9Q0 
ZO 0 ZO Z 



G07HFHCQAB0AGA70KECK 
Z -9Q0-9QQZQ 8QY 
Z ZO 9 9Z 



BVEA0AG-7UKA83830036 
Q -9QQZ 8 
Z ZO 9 



BTXT. APS. 
9 Y98 
9 



» A8. .AACIC/ 
Y9 Y9Q0Q9 
9 9 Z-Z 



ASCRGA8FDACRDGCQAFDE 
-8Q0ZY 8-YQO-8QO-QQ 
Z 9 9Z 9Z ZZ 



GA8BB00A20A. DH+EAHGO 
ZY 98-+9 Z QO 8YZZ 
9 Z- 9 



5DAHCQGA8KAA83830037 
Q-9Q0ZY -9 
9 Z 



BTXT.AQQ. 
9 Y99 

9 . 



, A8. • AAODGA 
Y9 Y9-ZZQ 
9 9 9 



8KB0J A20B0DGB /G6HFAH 
8-Y9 8-Z8Q 9 RQ9- 
9 9 9Z 



HAADEA0AGA8.FA84AFDE 
0QY9QY+YZY ZQ 9-QQ 
9 9 9 ZZ 



G+8KADCQGA7H83830038 
Z 8-9Q0ZY 0 
Z 



BTXT.AQ+, 
9 Y9 
9 



• A8. . AAAADE 
Y9 Y9-9Q 
9 9 Z 



GA8KG6B0MA20AADEGA8W 
ZY 89 8-Z9 -YQ ZY 8 
9 Z 



B0SGB/A.DEGA84B0SGB1 
8-88Q9- Q ZY 88-88Q9 
9 9Z Z 9 9Z 



AJDEGA8BB0SG83830039 
-YQ ZY Y8-88 
9Z 9 9 



BTXT.AQH..A8. 

9 Y90 Y9 

9 9 

BTXT.AQ0..A8. 

9 Y9+ Y9 
9 9 

BTXT.AQ8..A8. 
9 Y9 Y9 
9 9 

BTXT.AJA..A8. 
9 Y8Q Y9 

99Z 9 

BTXT.AJQ..A8. 

9 Y8Z Y9 

99 9 

BTXT.AJJ..A8. 

9 Y8Y Y9 
99 9 



. AABAAA 
Y9QZ-Q 
9 Z 9 

» AAGA8K 
Y9ZQ 
9 9 

» AAGJ9M 
Y9ZY 8 
9 9 

• AA9KG0 
Y9 YZ 
9 9 

.AA.UN1 
Y9 
9 

. AAATIO 

Y9 
9 



DEGA8HB0SABAAHDEGA80 
Q ZY -8-8QQR-9Q ZY 0 
Z 9 9Z Z 

B0SA20B00GB/G6AFDEGA 
8-89 8-+8Q 9 -QQ ZY 
9 9 9Z ZZ 

G.96HFAHHAADEA0AGA9M 
Z 9RQ9-0QY9QY+YZY 9 
9 9 9 

74A80DGA9BG09HB0009M 
9-9-ZZQ ZZ Z8-Z8 Z 
9 9 9 

T. CHECK. ON.ISSUE.SEN 



NAL-SET.SS.O.TO.LOOP 



B0SCCAADDEGA8DBOSEC0 
8-88QZ-9Q ZY 08-88Q8 
9 9Z Z -9 9Z 

8SB00A20G6KG9K0.A.D0 
8B-+9 9 9 Y- Z Q+ 
9 9 Z 

FA9HBA9BKA9BDEKA9DDE 
ZQ 9-Y 0 Y OQ Y YQ 
9 9 Z 9 Z 

EA0AG09HG08YE-6SG08Y 
QY+YZ+ ZZ Z 8Z 
9 9 - 9 

SEA* SNS* ACT. XXXX* DEV 

Y 

9 

•0N.SI0..0EVICE./.CH 



ADCQGA7HAADE83830040 
-9Q0ZY 0-9Q 

z z 

+EAHDA0AGA9D83830041 
8YZQY+YZQ R 
9 9 9 9 

BEAAADADKG0.83830042 
8QY98Y8Y 9- 
999 9 9 

E-6.G08Y.GOT83830043 

Z Z 



ICE.N0T.0PER83830044 



ANN EL • BUSY *T 83830045 



BTXT.AJQ..A8. 

9 Y8 Y9 

99 9 



.AAOO.L 

Y9 
9 



ONG. AFTER .S 10. 



.-CSW.STOR 



ED. AFT ER.S 1083830046 



BTXT. AKA..A8* 

9 Y8Q Y9 
999 9 



•AA..NO 

Y9 
9 



•CHANNEL • ENO..COMMAN 



0. RE JECT • • I NT RV • REQU 



IRE0..BUS.OU83830047 



BTXT.AKH..A8. 
9 Y8Z Y9 

99 9 



» AAT.CH 
Y9 
9 



ECK. ..EQUIPMENT. CHEC 



KSKIP...*FAILED..*DE 



V1CE.EN0....83830048 



BTXT.AKA..A8. 

9 Y8Y Y9 
99 9 



• AA* 
Y9 
9 



,BU 



SY.T00.L0NG...N0.DEV 



ICE*END***UNIT*BUSY* 



AFTER.DEVICE83830049 



BTXT.AKH..A8. 

9 Y80 Y9 

99- 9 



» AA.END 

Y9 
9 



..IMMED..NO.CSM.AFTE 



R* 1 MME01 ATE* OPERAT 1 0 



N CHANNE83830050 



DATE 
EC 



10JUN65 
124255 



22JUN65 
124249 



15MAR66 

125632 



15N0V66 

125655 



IN' 

10 F838-3 1 ] 
PAGE 11A JL 



IBM MAINTENANCE DIAGNOSTIC PROGRAM P/N 840213 

PAGE 12 

F838 1403 CARRIAGE FUNCTION TEST 



BTXT.AKO. 
9 Y8 
99 

BTXT.ALY* 

9 Y89 
99 



.A8..AAL.. 

Y9 Y9 

9 9 

.A8**AAXX. 

Y9 Y9 
9 9 



K IP • TO* WRITE* SPACE* S 



• STL-SECT ION. BYPASSE 



BTXT.AL- 
9 Y8 

99 



*A8**AAJJJJ 
Y9 Y99998 
9 9 9 



JJJCCCCLLLLLLLLIAIJR 

8888888999988880 — 00 
9999999 9999 



BTXT* ALH* 

9 Y8- 
99 

BTXT* AMA* 
9 Y8Q 

99 

BRLD..*.* 

9 



• AK* • AAAAAA 
Y9 Y9YYYY 
9 9 9999 

• A8* « AAAA7G 
Y9 Y9YY8Q 
9 9 999Z 

• AJ# •« . AAAA 
YY Y9Y9 
99 9 9 



AAAAAAAAAAAAAA 

YYYYYYYYYYYYYY 
99999999999999 

AAAAAAA6AAGAAAGAA JGA 
YYY9YYY9YY9YY89YY89Y 
999 999 99 999 999 9 

AAANAAMAAAMAAAMAAAMA 
8YQ98Y9Z8Y988Y9R8Y80 
999 99 99 99 999- 



BENO. 
9 



d * • « « AA* • « 

Y9 
9 



BLOT* 
9 



PACE* SUPPRESS* • **FAI 



LED**0K*XXXX83630051 



0* DATA .CHECK* BUFFER. 



CHECKAAAAAAJ 83830052 
8888889 
999999 



AIAI JRJCCCLLCCCCLCTA 
00 ZY-OOYOQ Y Q 9 

-0 9 9 

AA./.EAAAALKAAADAALK 
Y9 YYYY8YYYY08Y8Y 
9 99999 999 999 

AAMIHAMA... 

8Y809Y8 
999- 99 



AAAAAA AAA A AA83830053 

898YYYYYYYYY 

9 9999999999 



•83830054 



AAA0DAMEAAAA83830055 
YYY09Y8 YYY9 
999 99 999 



.83830056 



•83830057 



•83830058 



; . . , . ~ LAST PAGE ~— • ~- : : tN 1 

c 

OATE 10JUN65 22JUN65 15MAR66 15NQV66 10 F838-3 J_ 

EC 124255 124249 125632 / 125655 PAGE 12 



o o o o 



o o o o o o o o o o o 



I 

I 

I 



boooooooooooooo-oo 



